forums.silverfrost.com

Wswain · Joined: 17 Jul 2009 Posts: 12

Has anybody declared a variable with the Extended type.

FTN95 documentation that came with Silverfrost states that there is a REAL type of extended.

Thanks,
Bill

PaulLaidler · Posted: Wed Sep 02, 2009 9:55 pm Post subject:

This refers to 80 bit real values declared as REAL(KIND=3) or REAL*10.
You can make this the default REAL kind by using /DEFREAL_KIND 3 on the FTN95 command line.

See ftn95.chm under "Kind parameters for intrinsic types".

Wswain · Joined: 17 Jul 2009 Posts: 12

Thanks

Wswain · Joined: 17 Jul 2009 Posts: 12

What is the maximum assignment a REAL*10 can accept

I tried

REAL*10 Test
Test = 1e38, OK

Anything larger, error on compile as "Floating point number out of range

I use the Huge function and get 1.1....e+4932

How do these numbers exists and yet the variable assignments seem to be restricted to 1e38 or REAL*8 maximum?

Thanks,
Bill

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

you need to define a real*10 constant, and not the real*4 constant you have used.

try the following