File: N:\mfix\model\param1_mod.f

1     ! -*- f90 -*-
2           MODULE param1
3     
4     ! Number of single precision .SPx files
5           INTEGER, PARAMETER :: N_SPX = 11
6     
7     ! Maximum number of cell classes
8           INTEGER, PARAMETER :: MAX_CLASS = 1000000
9     ! Maximum number of corner cells
10           INTEGER, PARAMETER :: MAX_NCORN = 4000
11     
12     ! Dimension for the upper triangle of an MxM matrix
13           INTEGER :: DIMENSION_LM
14     ! Total number of species
15           INTEGER :: DIMENSION_N_all
16     
17     ! Parameters for testing if user input was specified.
18           DOUBLE PRECISION, PARAMETER :: UNDEFINED = 9.87654321D31
19           INTEGER, PARAMETER :: UNDEFINED_I = 987654321
20           CHARACTER, PARAMETER :: UNDEFINED_C = ' '
21     
22     ! Cutoffs for large and small numbers
23           DOUBLE PRECISION, PARAMETER :: LARGE_NUMBER = 1.0D32
24           DOUBLE PRECISION, PARAMETER :: SMALL_NUMBER = 1.0D-15
25     
26     ! ZERO, HALF, ONE
27           DOUBLE PRECISION, PARAMETER :: ZERO = 0.0d0
28           DOUBLE PRECISION, PARAMETER :: HALF = 0.5d0
29           DOUBLE PRECISION, PARAMETER :: ONE  = 1.0d0
30     
31        CONTAINS
32           SUBROUTINE FILLER1
33              IMPLICIT NONE
34              ! empty subroutine so param is accessible from pymfix
35           END SUBROUTINE FILLER1
36     
37           END MODULE param1
38