Print

---

Hallo everybody,
it seems that is not possible defining constants inside modules using
intrinsic functions. Any trick?
Example:

MODULE constants
IMPLICIT NONE
REAL(8), PARAMETER  :: a=10
REAL(8)             :: b
b=sqrt(a)
END MODULE constants

Error: This statement must not appear in the specification part of a module
b=sqrt(a)

Thank you,
Celevic