14 INTEGER(KIND=JPIM),
PARAMETER ::
mintet = 1
15 INTEGER(KIND=JPIM),
PARAMETER ::
mrealt = 2
16 INTEGER(KIND=JPIM),
PARAMETER ::
mlogit = 3
17 INTEGER(KIND=JPIM),
PARAMETER ::
mchart = 4
integer(kind=jpim), parameter mchart
integer(kind=jpim), parameter mintet
integer(kind=jpim), parameter mrealt
integer(kind=jpim), parameter mlogit