27 |
CEOP |
CEOP |
28 |
|
|
29 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
30 |
integer i,j, g, v |
integer i,j, g |
31 |
character blank*(MNC_MAX_CHAR) |
character blank*(MNC_MAX_CHAR) |
32 |
|
character bpath*(MNC_MAX_PATH) |
33 |
|
|
34 |
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 |
35 |
DO i = 1,MNC_MAX_CHAR |
DO i = 1,MNC_MAX_CHAR |
36 |
blank(i:i) = ' ' |
blank(i:i) = ' ' |
37 |
ENDDO |
ENDDO |
38 |
|
DO i = 1,MNC_MAX_PATH |
39 |
|
bpath(i:i) = ' ' |
40 |
|
ENDDO |
41 |
|
|
42 |
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
43 |
DO i = 1,MNC_MAX_ID |
DO i = 1,MNC_MAX_ID |
44 |
mnc_d_size(i) = 0 |
mnc_d_size(i) = 0 |
45 |
mnc_d_ids(i) = 0 |
mnc_d_ids(i) = 0 |
46 |
mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
C |
47 |
|
mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH) |
48 |
|
C |
49 |
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
50 |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
51 |
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |