55 |
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
56 |
mnc_cw_fgud(g) = 0 |
mnc_cw_fgud(g) = 0 |
57 |
mnc_cw_fgis(g) = 0 |
mnc_cw_fgis(g) = 0 |
58 |
|
C mnc_cw_cvnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
59 |
DO i = 1,MNC_CW_MAX_I |
DO i = 1,MNC_CW_MAX_I |
60 |
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) |
61 |
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) |
73 |
ENDDO |
ENDDO |
74 |
DO i = 1,2 |
DO i = 1,2 |
75 |
mnc_cw_vbij(i,g) = 0 |
mnc_cw_vbij(i,g) = 0 |
76 |
|
C mnc_cw_cvse(i,g) = 0 |
77 |
ENDDO |
ENDDO |
78 |
ENDDO |
ENDDO |
79 |
|
|
80 |
|
C DO i = 1,MNC_CW_CVDAT |
81 |
|
C mnc_cw_cvdt(i) = 0.0D0 |
82 |
|
C ENDDO |
83 |
|
|
84 |
RETURN |
RETURN |
85 |
END |
END |