param1_mod.f

Go to the documentation of this file.

! -*- f90 -*-
      MODULE param1

! Number of single precision .SPx files
      INTEGER, PARAMETER :: n_spx = 11

! Maximum number of cell classes
      INTEGER, PARAMETER :: max_class = 1000000
! Maximum number of corner cells
      INTEGER, PARAMETER :: max_ncorn = 4000

! Dimension for the upper triangle of an MxM matrix
      INTEGER :: dimension_lm
! Total number of species
      INTEGER :: dimension_n_all

! Parameters for testing if user input was specified.
      DOUBLE PRECISION, PARAMETER :: undefined = 9.87654321d31
      INTEGER, PARAMETER :: undefined_i = 987654321
      CHARACTER, PARAMETER :: undefined_c = ' '

! Cutoffs for large and small numbers
      DOUBLE PRECISION, PARAMETER :: large_number = 1.0d32
      DOUBLE PRECISION, PARAMETER :: small_number = 1.0d-15

! ZERO, HALF, ONE
      DOUBLE PRECISION, PARAMETER :: zero = 0.0d0
      DOUBLE PRECISION, PARAMETER :: half = 0.5d0
      DOUBLE PRECISION, PARAMETER :: one  = 1.0d0

   CONTAINS
      SUBROUTINE filler1
         IMPLICIT NONE
         ! empty subroutine so param is accessible from pymfix
      END SUBROUTINE filler1

      END MODULE param1