globals.f90 844 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
  integer, parameter :: GPLInfinity = 30   ! the default outermost expansion order for MPLs
7
  real, parameter :: epsilon = 1e-20       ! 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

Luca's avatar
readme  
Luca committed
11
  integer :: verb = 0
Luca's avatar
Luca committed
12 13 14 15 16 17 18 19 20 21 22 23 24 25

CONTAINS 

  SUBROUTINE parse_cmd_args
    integer :: i
    character(len=32) :: arg
    i = 0
    do
      call get_command_argument(i, arg)
      if (len_trim(arg) == 0) exit

      ! parse verbosity
      if(trim(arg) == '-verb') then
        call get_command_argument(i+1,arg)
Luca's avatar
readme  
Luca committed
26
        read(arg,*) verb               ! str to int
Luca's avatar
Luca committed
27 28 29 30 31
      end if

      i = i+1
    end do
  END SUBROUTINE parse_cmd_args
32

33
END MODULE globals