forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Thank you Silverfrost.

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
Kenneth_Smith



Joined: 18 May 2012
Posts: 697
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Fri Jul 17, 2020 7:01 pm    Post subject: Thank you Silverfrost. Reply with quote

A big thank you to the folks at Silverfrost for adding a few more Fortran 2003/2008 features, which are now available via the Latest executables and DLLs post in this section of the forum.

Code:
! No additional compiler switches required
program test_new_2003_8_features
implicit none
integer,          parameter :: dp    = kind(1.d0)
real(kind=dp),    parameter :: pi    = 4.d0*atan(1.d0)
complex(kind=dp), parameter :: j     = cmplx(0.d0,1.d0,kind=dp)
complex(kind=dp), parameter :: sqrt3 = sqrt(3.d0)
complex(kind=dp), parameter :: a     = -0.5d0 + j*sqrt3*0.5d0

print*, 'FTN95 now allows use of intrinsic functions in parameter declarations'
print*
print*, 'pi       =  ', pi
print*
print*, 'j        =  ', j
print*, 'j*j*j*j  =  ', j*j*j*j

print*, 'a        =  ', a
print*, 'a*a*a    =  ', a*a*a
print*
print*, 'FTN95 now supports additional functions with complex arguments'
print*
print*, 'ACOS(a)  =  ',  ACOS(a)
print*, 'ASIN(a)  =  ',  ASIN(a)
print*, 'ACOSH(a) = ',   ACOSH(a)
print*, 'ASINH(a) = ',   ASINH(a)
print*, 'ATAN(a)  =  ',  ATAN(a)
print*, 'ATANH(a) = ',   ATANH(a)
print*, 'COSH(a)  =  ',  COSH(a)
print*, 'SINH(a)  =  ',  SINH(a)
print*, 'TAN(a)   =   ', TAN(a)
print*, 'TANH(a)  =  ',  TANH(a)

end test_new_2003_8_features


Ken
Back to top
View user's profile Send private message Visit poster's website
JohnCampbell



Joined: 16 Feb 2006
Posts: 2554
Location: Sydney

PostPosted: Wed Jul 22, 2020 7:06 am    Post subject: Reply with quote

I presume this requires FTN95 Ver 8.64.

Also the download FTN95 Ver 8.64 did not include ftn95.enh, which I presume indicates these extra intrinsics are available in parameter statements.

My thanks also for including this functionality.

Also, regarding the recent 8.64 updates:
Have there been recent changes to clearwin.ins etc ?
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Wed Jul 22, 2020 8:00 am    Post subject: Reply with quote

Yes it does require v8.64.

These intermediate updates don't come with enhancement files.

I will extend the sticky post to include an item for the INCLUDE and MOD files.
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group