module variables integer, parameter :: dp=kind(1.0d0) integer, parameter :: wp=dp real(wp), parameter :: pi=3.1415926535897932384626433832795028841971693993751058_wp end module variables