globals.f90 446 Bytes
Newer Older
1 2 3 4 5

MODULE globals
  implicit none

  integer, parameter :: prec = selected_real_kind(15,32)  
Luca's avatar
Luca committed
6 7
  integer, parameter :: GPLInfinity = 30   ! the default outermost expansion order for MPLs
  real, parameter :: epsilon = 1e-15       ! used for the small imaginary part
8 9
  real, parameter :: zero = 1e-15          ! values smaller than this count as zero
  real, parameter :: pi = 3.14159265358979323846
10

11 12
  integer :: verbosity = 100

13
END MODULE globals