forums.silverfrost.com

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 ...

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 !)
...

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 ...

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 ...

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 ...

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 ...

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 ...

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)
...

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.
...

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 ...

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 :: ...

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 ...

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 ...

enhanced test also works in Plato

type lostPart
integer*4 :: is
real*4, allocatable :: Particles(:,:)
end type lostPart

Type (lostPart), allocat ...

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 ...