View previous topic :: View next topic |
Author |
Message |
Wswain
Joined: 17 Jul 2009 Posts: 12
|
Posted: Wed Sep 02, 2009 7:52 pm Post subject: real extended (WIN32 only) |
|
|
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 |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
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". |
|
Back to top |
|
|
Wswain
Joined: 17 Jul 2009 Posts: 12
|
Posted: Wed Sep 02, 2009 10:00 pm Post subject: thanks |
|
|
Thanks |
|
Back to top |
|
|
Wswain
Joined: 17 Jul 2009 Posts: 12
|
Posted: Wed Sep 02, 2009 10:06 pm Post subject: |
|
|
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 |
|
Back to top |
|
|
JohnCampbell
Joined: 16 Feb 2006 Posts: 2554 Location: Sydney
|
Posted: Thu Sep 03, 2009 2:20 am Post subject: |
|
|
you need to define a real*10 constant, and not the real*4 constant you have used.
try the following
Code: |
real*10 xx
xx = 1.0e4000
xx = 1.0e4000_3
end
|
you should look at the ftn95 help for real kind. |
|
Back to top |
|
|
|