| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_readparms.F |
55 |
GRDCHK_READPARMS |
character*(max_len_prec) record |
|
./optim/optim_numbmod.F |
108 |
OPTIM_NUMBMOD |
character*(max_len_prec) record |
|
./optim/optim_numbmod.F |
213 |
OPTIM_NUMBMOD |
read(modeldataunit, fmt='(a)', end=21) record |
|
./optim/optim_numbmod.F |
214 |
OPTIM_NUMBMOD |
il = max(ilnblnk(record),1) |
|
./optim/optim_numbmod.F |
215 |
OPTIM_NUMBMOD |
if ( record(1:1) .ne. commentcharacter ) |
|
./optim/optim_numbmod.F |
216 |
OPTIM_NUMBMOD |
& write(unit=scrunit1, fmt='(a)') record(:il) |
|
./optim/optim_numbmod.F |
241 |
OPTIM_NUMBMOD |
read(modeldataunit, fmt='(a)', end=22) record |
|
./optim/optim_numbmod.F |
242 |
OPTIM_NUMBMOD |
il = max(ilnblnk(record),1) |
|
./optim/optim_numbmod.F |
243 |
OPTIM_NUMBMOD |
if ( record(1:1) .ne. commentcharacter ) |
|
./optim/optim_numbmod.F |
244 |
OPTIM_NUMBMOD |
& write(unit=scrunit1, fmt='(a)') record(:il) |
|
./eesupp/src/eeset_parms.F |
56 |
EESET_PARMS |
CHARACTER*(MAX_LEN_PREC) record |
|
./eesupp/src/nml_change_syntax.F |
101 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'"' .AND. sngQ ) THEN |
|
./eesupp/src/nml_change_syntax.F |
105 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'=' .AND. i0.EQ.0 |
|
./eesupp/src/nml_change_syntax.F |
110 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'(' .AND. i1.EQ.0 ) i1 = -i |
|
./eesupp/src/nml_change_syntax.F |
111 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.':' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
117 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
|
./eesupp/src/nml_change_syntax.F |
11 |
NML_CHANGE_SYNTAX |
U record, |
|
./eesupp/src/nml_change_syntax.F |
125 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.',' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
129 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.')' .AND. i1.LT.0 ) THEN |
|
./eesupp/src/nml_change_syntax.F |
137 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(5A)') ' ',data_file,' , rec >',record(1:i0),'<' |
|
./eesupp/src/nml_change_syntax.F |
147 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
|
./eesupp/src/nml_change_syntax.F |
158 |
NML_CHANGE_SYNTAX |
is = IFNBLNK(record(i1+1:i2-1)) |
|
./eesupp/src/nml_change_syntax.F |
159 |
NML_CHANGE_SYNTAX |
ie = ILNBLNK(record(i1+1:i2-1)) |
|
./eesupp/src/nml_change_syntax.F |
161 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'-' .OR. record(i:i).EQ.'+' ) is = is+1 |
|
./eesupp/src/nml_change_syntax.F |
165 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
176 |
NML_CHANGE_SYNTAX |
is = IFNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
177 |
NML_CHANGE_SYNTAX |
ie = ILNBLNK(record(i2+1:ii-1)) |
|
./eesupp/src/nml_change_syntax.F |
179 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ.'-' .OR. record(i:i).EQ.'+' ) is = is+1 |
|
./eesupp/src/nml_change_syntax.F |
183 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
195 |
NML_CHANGE_SYNTAX |
& 'remove: "',record(i2:i3-1),'"' |
|
./eesupp/src/nml_change_syntax.F |
197 |
NML_CHANGE_SYNTAX |
record(i:i) = ' ' |
|
./eesupp/src/nml_change_syntax.F |
203 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
|
./eesupp/src/nml_change_syntax.F |
216 |
NML_CHANGE_SYNTAX |
& 'remove: "',record(i2:i4-1),'"' |
|
./eesupp/src/nml_change_syntax.F |
218 |
NML_CHANGE_SYNTAX |
record(i:i) = ' ' |
|
./eesupp/src/nml_change_syntax.F |
224 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
|
./eesupp/src/nml_change_syntax.F |
42 |
NML_CHANGE_SYNTAX |
CHARACTER*(MAX_LEN_PREC) record |
|
./eesupp/src/nml_change_syntax.F |
75 |
NML_CHANGE_SYNTAX |
il = MAX(ILNBLNK(record),1) |
|
./eesupp/src/nml_change_syntax.F |
77 |
NML_CHANGE_SYNTAX |
IF ( record(1:2) .EQ. ' &' ) THEN |
|
./eesupp/src/nml_change_syntax.F |
78 |
NML_CHANGE_SYNTAX |
record(1:2) = nmlEnd |
|
./eesupp/src/nml_change_syntax.F |
97 |
NML_CHANGE_SYNTAX |
IF ( record(i:i).EQ."'" .AND. dblQ ) THEN |
|
./eesupp/src/nml_set_terminator.F |
11 |
NML_SET_TERMINATOR |
U record ) |
|
./eesupp/src/nml_set_terminator.F |
32 |
NML_SET_TERMINATOR |
CHARACTER*(MAX_LEN_PREC) record |
|
./eesupp/src/nml_set_terminator.F |
45 |
NML_SET_TERMINATOR |
iL = MAX(ILNBLNK(record),1) |
|
./eesupp/src/nml_set_terminator.F |
47 |
NML_SET_TERMINATOR |
IF ( record(1:2) .EQ. ' &' ) THEN |
|
./eesupp/src/nml_set_terminator.F |
48 |
NML_SET_TERMINATOR |
record(1:2) = nmlEnd |
|
./eesupp/src/open_copy_data_file.F |
49 |
OPEN_COPY_DATA_FILE |
CHARACTER*(MAX_LEN_PREC) record |
|
./pkg/ctrl/ctrl_readparms.F |
60 |
CTRL_READPARMS |
character*(max_len_prec) record |
|
./pkg/ctrl/optim_readparms.F |
45 |
OPTIM_READPARMS |
character*(max_len_prec) record |