1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#ifndef _NAMELIST_COM_
#define _NAMELIST_COM_
c This common block contains information about a namelist which is being
c parsed.
c nlmaxline : the maximum number of lines which can be in the namelist
c nllinelen : the maximum length of each line
c nlnumline : the number of lines in the namelist (blank lines are
c removed)
c nltext : the text in the namelist
c prt_nl : a logical which is read in from the namelist to see
c if the values read in are printed or not
c
integer nlmaxline, nllinelen
parameter(nlmaxline=64)
parameter(nllinelen=132)
character*(nllinelen) nltext(nlmaxline)
integer nlnumline
logical prt_nl
common /namelistc/ nltext
common /namelist/ nlnumline
common /namelistl/ prt_nl
save /namelist/
save /namelistc/
save /namelistl/
#endif /* _NAMELIST_COM_ */
|
