File |
Line number |
Procedure |
Code |
./pkg/mnc/MNC_COMMON.h |
161 |
NO PROCEDURE |
& mnc_cw_gname, mnc_cw_dn, |
./pkg/mnc/MNC_COMMON.h |
167 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_gname(MNC_MAX_ID) |
./pkg/mnc/mnc_cwrapper.F |
121 |
MNC_CW_DEL_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
126 |
MNC_CW_DEL_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_cwrapper.F |
173 |
MNC_CW_DUMP |
IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_cwrapper.F |
180 |
MNC_CW_DUMP |
& j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j), |
./pkg/mnc/mnc_cwrapper.F |
344 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
62 |
MNC_CW_ADD_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
./pkg/mnc/mnc_cwrapper.F |
69 |
MNC_CW_ADD_GNAME |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID, mnc_cw_gname, |
./pkg/mnc/mnc_cwrapper.F |
72 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_cwrapper.F |
73 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:(nnl-nnf+1)) = name(nnf:nnl) |
./pkg/mnc/mnc_init.F |
62 |
MNC_INIT |
mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_utils.F |
288 |
MNC_CHK_VTYP_R_NCVAR |
ncgt = ILNBLNK(mnc_cw_gname(ind_cw_g)) |
./pkg/mnc/mnc_utils.F |
295 |
MNC_CHK_VTYP_R_NCVAR |
& mnc_cw_gname(ind_cw_g)(1:ncgt), '''' |