Author |
Message |
Topic: On 9.03 update |
JohnCampbell
Replies: 19
Views: 5044
|
Forum: Support Posted: Sun Oct 27, 2024 6:33 am Subject: |
Dan,
What I am trying to suggest to you is that in the directory "C:\Program Files (x86)\Silverfrost\" you should have multiple versions of ftn95, for example :
C:\Program Files (x86)\Si ... |
Topic: On 9.03 update |
JohnCampbell
Replies: 19
Views: 5044
|
Forum: Support Posted: Sun Oct 27, 2024 3:16 am Subject: |
Dan,
show us the results of:
Runtime error from program:c:\program files (x86)\silverfrost\ftn95_905\ftn95.exe
(after you rebuild all binaries with the revised FTN95 compiler path settings !)
... |
Topic: Circle 3D |
JohnCampbell
Replies: 2
Views: 1106
|
Forum: 64-bit Posted: Sun Oct 27, 2024 3:05 am Subject: |
Sid,
This is a fairly easy calculation ( which I have not done for many years !)
For the line between two points on the circumference, it can be written as:
l1.x + m1.y + n1 = 0 ( solve for l1 ... |
Topic: On 9.03 update |
JohnCampbell
Replies: 19
Views: 5044
|
Forum: Support Posted: Sat Oct 26, 2024 8:32 am Subject: |
Dan,
I had problems with (drectly) running programs compiled with /check.
However if i used "SDBG64 program.exe", this helped identify any errors. This may help in your case ?
I am no ... |
Topic: OPTIONS |
JohnCampbell
Replies: 5
Views: 1509
|
Forum: General Posted: Fri Oct 25, 2024 3:14 am Subject: |
I havn't tested lately, but /DEBUG does(did) provide some debugging "handles" but does not have the performance penalty.
If you use /check or /undef with large arrays, this can have a signi ... |
Topic: EXPORT_WINDOW_IMAGE@ |
JohnCampbell
Replies: 7
Views: 2164
|
Forum: ClearWin+ Posted: Fri Oct 18, 2024 2:08 pm Subject: |
Ken,
It has been a long time since I wrote this code (~2005), but I recall I overcame this secondary screen problem by providing a window handle then selecting the graphics region I wanted to popul ... |
Topic: Bug with 32 bit compiler |
JohnCampbell
Replies: 5
Views: 1677
|
Forum: Support Posted: Sun Oct 13, 2024 9:05 am Subject: |
Steping through sdbg appeared to show the problem.
To stop the double evaluation, I also tried :
a2 = ( ( random_std_normal() ) **2 )
in the hope that it would treat "( fn )" as a co ... |
Topic: Bug with 32 bit compiler |
JohnCampbell
Replies: 5
Views: 1677
|
Forum: Support Posted: Sun Oct 13, 2024 3:33 am Subject: |
Hi Ken,
look at this program !!
module random_numbers
implicit none
integer, parameter :: dp = kind(1.d0)
real(dp), parameter :: pi = 4.d0*atan(1.d0)
... |
Topic: Confusing difference |
JohnCampbell
Replies: 10
Views: 3752
|
Forum: Support Posted: Wed Oct 09, 2024 1:54 pm Subject: Re: |
Also how about SSE2 and AVX instructions with 64bit compilers. Do they still support 80bit accuracy?
No ! this is the problem with AVX registers, they only support grouped 4/8 byte instructions.
... |
Topic: TIOBE index top 20: re-emergence of Fortran |
JohnCampbell
Replies: 24
Views: 21029
|
Forum: General Posted: Tue Oct 08, 2024 4:33 am Subject: |
Dan,
Coarrays and MPI (distributed processing) was introduced into Fortran 2008.
DO CONCURRENT (DC) was also introduced in Fortran 2008, but locality-specs wern't introduced until Fortran 2018 a ... |
Topic: Confusing difference |
JohnCampbell
Replies: 10
Views: 3752
|
Forum: Support Posted: Tue Oct 08, 2024 3:52 am Subject: |
OK,
A new program that demonstrates 32-bit has different round-off.
program main
use iso_fortran_env
implicit none
double precision :: a,b,c,d, one = 1
logical :: ... |
Topic: TIOBE index top 20: re-emergence of Fortran |
JohnCampbell
Replies: 24
Views: 21029
|
Forum: General Posted: Mon Oct 07, 2024 12:47 pm Subject: |
The recent Fortran versions of DO CONCURRENT now includes locality-specs for multi-threading.
You can now (Ver 2023) specify LOCAL, LOCAL_INIT, REDUCE, SHARED, and DEFAULT (NONE) in the same DO CONCU ... |
Topic: Confusing difference |
JohnCampbell
Replies: 10
Views: 3752
|
Forum: Support Posted: Mon Oct 07, 2024 12:27 pm Subject: |
I changed your program to:
program main
use iso_fortran_env
implicit none
double precision :: a,b,c,d
logical :: f1, f2
write (*,*) 'Vern : ',compiler ... |
Topic: Why this is forbidden ? |
JohnCampbell
Replies: 5
Views: 2504
|
Forum: General Posted: Fri Sep 27, 2024 9:36 am Subject: |
enhanced test also works in Plato
type lostPart
integer*4 :: is
real*4, allocatable :: Particles(:,:)
end type lostPart
Type (lostPart), allocat ... |
Topic: Why this is forbidden ? |
JohnCampbell
Replies: 5
Views: 2504
|
Forum: General Posted: Fri Sep 27, 2024 9:13 am Subject: |
Dan,
I can't see what you are doing wrong.
I use this approach with both FTN95 and Gfortran.
I also have "ispecies" as an allocatable derived type structure.
What compiler options ar ... |
|