class/mod_globals.f90


1
2
3
4
5
6
7
8

module globals
! Global variables
implicit none
integer, parameter :: n=100
double precision, parameter :: pi=2q0*asin(1q0) ! numerical constant
double precision, parameter :: L=1.0
logical, dimension(n) :: is_tracked = .TRUE.
end module globals