param.f

The file param.f, which lives on

/afs/ovpit.indiana.edu/common/www/htdocs/gustav/diffusion/param.f

contains definitions of constants that are used throughout the program. Apart from long and short, which are used to mark precision for floating point numbers, we also define $\pi$ and $2\pi$ on this file:

MODULE parameters

  IMPLICIT NONE
  PUBLIC
  INTEGER,    PARAMETER :: long = 8, short = 4
  REAL(long), PARAMETER :: pi = 3.141592653589793d0
  REAL(long), PARAMETER :: twopi = 2.d0*pi

END MODULE parameters