Hallo everybody.
This is my problem:
I need to create a variable (a global one) to be used by various
subroutines using a module. The problem is that I cannot use intrinsic
functions in Module.
Module Constants
Implicit none
Save
real(8) :: area=100
real(8) :: side=dsqrt(area)
End Module Constants
I want to create the variable side (inside the Module) as result of an
intrinsic function (dsqrt in the example) applied to a previous created
variable.
How can I solve this problem?
Thank you for your help,
Celevic
|