| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cw_udim.F |
107 |
MNC_CW_GET_UDIM |
integer fgf,fgl, indfg |
|
./pkg/mnc/mnc_cw_udim.F |
115 |
MNC_CW_GET_UDIM |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
|
./pkg/mnc/mnc_cw_udim.F |
116 |
MNC_CW_GET_UDIM |
IF (indfg .LT. 1) THEN |
|
./pkg/mnc/mnc_cw_udim.F |
123 |
MNC_CW_GET_UDIM |
nudim = mnc_cw_fgud(indfg) |
|
./pkg/mnc/mnc_cw_udim.F |
41 |
MNC_CW_SET_UDIM |
integer fgf,fgl, indfg |
|
./pkg/mnc/mnc_cw_udim.F |
50 |
MNC_CW_SET_UDIM |
CALL MNC_GET_IND(MNC_MAX_ID, fgname, mnc_cw_fgnm, indfg, myThid) |
|
./pkg/mnc/mnc_cw_udim.F |
51 |
MNC_CW_SET_UDIM |
IF (indfg .LT. 1) THEN |
|
./pkg/mnc/mnc_cw_udim.F |
53 |
MNC_CW_SET_UDIM |
& MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid) |
|
./pkg/mnc/mnc_cw_udim.F |
54 |
MNC_CW_SET_UDIM |
mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) |
|
./pkg/mnc/mnc_cw_udim.F |
55 |
MNC_CW_SET_UDIM |
mnc_cw_fgud(indfg) = 0 |
|
./pkg/mnc/mnc_cw_udim.F |
56 |
MNC_CW_SET_UDIM |
mnc_cw_fgig(indfg) = 0 |
|
./pkg/mnc/mnc_cw_udim.F |
59 |
MNC_CW_SET_UDIM |
mnc_cw_fgig(indfg) = 0 |
|
./pkg/mnc/mnc_cw_udim.F |
60 |
MNC_CW_SET_UDIM |
mnc_cw_fgud(indfg) = nudim |
|
./pkg/mnc/mnc_cw_udim.F |
64 |
MNC_CW_SET_UDIM |
mnc_cw_fgig(indfg) = 0 |
|
./pkg/mnc/mnc_cw_udim.F |
68 |
MNC_CW_SET_UDIM |
mnc_cw_fgig(indfg) = 1 |
|
./pkg/mnc/mnc_cw_udim.F |
69 |
MNC_CW_SET_UDIM |
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1 |