| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
100 |
MNC_CW_DEL_GNAME |
nnf = IFNBLNK(name) |
|
./pkg/mnc/mnc_cwrapper.F |
35 |
MNC_CW_ADD_GNAME |
integer i, nnf,nnl, indg |
|
./pkg/mnc/mnc_cwrapper.F |
41 |
MNC_CW_ADD_GNAME |
nnf = IFNBLNK(name) |
|
./pkg/mnc/mnc_cwrapper.F |
56 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:(nnl-nnf+1)) = name(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
61 |
MNC_CW_ADD_GNAME |
nnf = IFNBLNK(dnames(i)) |
|
./pkg/mnc/mnc_cwrapper.F |
63 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
95 |
MNC_CW_DEL_GNAME |
integer nnf,nnl, indg |
|
./pkg/mnc/mnc_cw_cvars.F |
103 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Y') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
115 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Yp1') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
127 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Ywh') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
139 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Z') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
147 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Zp1') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
155 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Zu') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
163 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Zl') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
171 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Zm1') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
191 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname, '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
197 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname, '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
47 |
MNC_CW_WRITE_CVAR |
integer i,j, vid, nnf,nnl, doit, err |
|
./pkg/mnc/mnc_cw_cvars.F |
53 |
MNC_CW_WRITE_CVAR |
nnf = IFNBLNK(cvname) |
|
./pkg/mnc/mnc_cw_cvars.F |
67 |
MNC_CW_WRITE_CVAR |
IF (cvname(nnf:nnl) .EQ. 'X') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
79 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Xp1') THEN |
|
./pkg/mnc/mnc_cw_cvars.F |
91 |
MNC_CW_WRITE_CVAR |
ELSEIF (cvname(nnf:nnl) .EQ. 'Xwh') THEN |