14 logical :: iprpak = .false.
15 logical :: nsections = .false.
16 logical :: npoints = .false.
17 logical :: idcxs = .false.
18 logical :: nxspoints = .false.
19 logical :: xfraction = .false.
20 logical :: height = .false.
21 logical :: manfraction = .false.
116 'CROSSSECTIONDATA', &
133 'CROSSSECTIONDATA', &
150 'CROSSSECTIONDATA', &
183 'RECARRAY IDCXS NXSPOINTS', &
197 'CROSSSECTIONDATA', &
198 'CROSSSECTIONDATA', &
199 'CROSSSECTIONDATA', &
200 'RECARRAY XFRACTION HEIGHT MANFRACTION', &
238 'CROSSSECTIONDATA', &
This module contains simulation constants.
integer(i4b), parameter lenvarname
maximum length of a variable name