Topic: real extended (WIN32 only) in Support

Wswain

Posts: 12

Back to Top

2 Sep 2009 6:52 #4916

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

Posts: 7975 Salford, UK

Back to Top

2 Sep 2009 8:55 #4917

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

Posts: 12

Back to Top

2 Sep 2009 9:00 #4918

Thanks

Wswain

Posts: 12

Back to Top

2 Sep 2009 9:06 #4919

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

Posts: 2526 Sydney

Back to Top

3 Sep 2009 1:20 #4920

you need to define a real10 constant, and not the real4 constant you have used.

try the following

      real*10 xx
      xx = 1.0e4000
      xx = 1.0e4000_3
      end

you should look at the ftn95 help for real kind.