19 |
DO i = 1,mnc_max_char |
DO i = 1,mnc_max_char |
20 |
blank(i:i) = ' '; |
blank(i:i) = ' '; |
21 |
ENDDO |
ENDDO |
22 |
|
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
23 |
DO i = 1,mnc_max_id |
DO i = 1,mnc_max_id |
24 |
mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
25 |
|
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
26 |
|
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
27 |
|
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
28 |
mnc_f_info(i,1) = 0 |
mnc_f_info(i,1) = 0 |
29 |
mnc_f_info(i,2) = 0 |
mnc_f_info(i,2) = 0 |
30 |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_f_info(i,3) = 0 |
31 |
|
mnc_fv_ids(i,1) = 0 |
32 |
ENDDO |
ENDDO |
33 |
|
|
34 |
|
RETURN |
35 |
END |
END |
36 |
|
|