module m_constants ! -------------------------------------------------------------------------------------- ! use m_precision, only : wp ! ---- Below you will find an access template to content of a module ! It is strictly speaking not needed, but it is a good idea to include it.... ! ! ---------------------------------------- ! --- Everytinhg is private by default ! -------------------------------------- private ! ------------------------------------------ ! --- Public Module Entries and interfaces ! ------------------------------------------ public :: wp public :: pi public :: imu ! --- Declarations below this line ..................................................... real(wp), parameter :: pi = 4._wp * atan(1._wp) complex(wp), parameter :: imu = (0._wp, 1._wp) ! -------------------------------------------------------------------------------------- end module m_constants