42 |
mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
43 |
mnc_cw_vgind(g) = 0 |
mnc_cw_vgind(g) = 0 |
44 |
mnc_cw_ndim(g) = 0 |
mnc_cw_ndim(g) = 0 |
45 |
|
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
46 |
|
mnc_cw_fgud(g) = 0 |
47 |
DO i = 1,MNC_CW_MAX_I |
DO i = 1,MNC_CW_MAX_I |
48 |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
49 |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |