16 |
character blank*(MNC_MAX_CHAR) |
character blank*(MNC_MAX_CHAR) |
17 |
|
|
18 |
C Write blanks or zeros to all the internal names and ID tables |
C Write blanks or zeros to all the internal names and ID tables |
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) |
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
56 |
DO i = 1,3 |
DO i = 1,3 |
57 |
mnc_cw_vnat(i,g) = 0 |
mnc_cw_vnat(i,g) = 0 |
58 |
ENDDO |
ENDDO |
59 |
|
DO i = 1,2 |
60 |
|
mnc_cw_vbij(i,g) = 0 |
61 |
|
ENDDO |
62 |
ENDDO |
ENDDO |
63 |
|
|
64 |
RETURN |
RETURN |