| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_init.F |
27 |
MNC_INIT |
character blank*(MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
30 |
MNC_INIT |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_init.F |
33 |
MNC_INIT |
mnc_blank_name(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
37 |
MNC_INIT |
mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
38 |
MNC_INIT |
mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
39 |
MNC_INIT |
mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
40 |
MNC_INIT |
mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
51 |
MNC_INIT |
mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
52 |
MNC_INIT |
mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
55 |
MNC_INIT |
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
60 |
MNC_INIT |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
61 |
MNC_INIT |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
62 |
MNC_INIT |
mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
63 |
MNC_INIT |
mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
64 |
MNC_INIT |
mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
109 |
MNC_CW_DEL_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
156 |
MNC_CW_DUMP |
IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
157 |
MNC_CW_DUMP |
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
181 |
MNC_CW_DUMP |
IF (mnc_cw_vname(j)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
182 |
MNC_CW_DUMP |
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
335 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
382 |
MNC_CW_DEL_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
521 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
522 |
MNC_CW_ADD_VATTR_ANY |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
527 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
528 |
MNC_CW_ADD_VATTR_ANY |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
531 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
532 |
MNC_CW_ADD_VATTR_ANY |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
55 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
60 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_common.h |
119 |
NO PROCEDURE |
integer MNC_MAX_ID, MNC_MAX_CHAR, MNC_MAX_INFO |
|
./pkg/mnc/mnc_common.h |
122 |
NO PROCEDURE |
parameter ( MNC_MAX_CHAR = 100 ) |
|
./pkg/mnc/mnc_common.h |
136 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_blank_name |
|
./pkg/mnc/mnc_common.h |
137 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_f_names(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
138 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_g_names(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
139 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_v_names(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
140 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_d_names(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
147 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_out_path |
|
./pkg/mnc/mnc_common.h |
169 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_gname(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
170 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_dn(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
176 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vname(MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
177 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vtnm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
178 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vinm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
179 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vdnm(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
180 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_vtat(MNC_CW_MAX_I,MNC_MAX_ID) |
|
./pkg/mnc/mnc_common.h |
187 |
NO PROCEDURE |
character*(MNC_MAX_CHAR) mnc_cw_fgnm(MNC_MAX_ID) |
|
./pkg/mnc/mnc_readparms.F |
203 |
MNC_READPARMS |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_readparms.F |
285 |
MNC_SET_OUTDIR |
DO i = 1,MNC_MAX_CHAR |
|
./pkg/mnc/mnc_readparms.F |
289 |
MNC_SET_OUTDIR |
IF (ntot .GT. (MNC_MAX_CHAR-40)) THEN |
|
./pkg/mnc/mnc_readparms.F |
290 |
MNC_SET_OUTDIR |
ntot = MNC_MAX_CHAR - 40 |
|
./pkg/mnc/mnc_grid.F |
167 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_grid.F |
168 |
MNC_GRID_INIT_ALL |
& mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_grid.F |
176 |
MNC_GRID_INIT_ALL |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_grid.F |
76 |
MNC_GRID_INIT_ALL |
character*(MNC_MAX_CHAR) name |
|
./pkg/mnc/mnc_grid.F |
77 |
MNC_GRID_INIT_ALL |
character*(MNC_MAX_CHAR) file_name |
|
./pkg/mnc/mnc_grid.F |
83 |
MNC_GRID_INIT_ALL |
file_name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_grid.F |
85 |
MNC_GRID_INIT_ALL |
IF (nf .GT. MNC_MAX_CHAR) nf = MNC_MAX_CHAR |
|
./pkg/mnc/mnc_cw_init.F |
100 |
MNC_CW_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
120 |
MNC_CW_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
55 |
MNC_CW_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/mnc/mnc_cw_init.F |
56 |
MNC_CW_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/mnc/mnc_file.F |
258 |
MNC_FILE_ADD_ATTR_ANY |
character*(MNC_MAX_CHAR) s1 |
|
./pkg/mnc/mnc_file.F |
277 |
MNC_FILE_ADD_ATTR_ANY |
s1(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
365 |
MNC_FILE_CLOSE |
mnc_v_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
378 |
MNC_FILE_CLOSE |
mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
387 |
MNC_FILE_CLOSE |
mnc_g_names(k)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
395 |
MNC_FILE_CLOSE |
mnc_f_names(indf)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
469 |
MNC_FILE_CLOSE_ALL |
IF (mnc_f_names(i)(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_file.F |
470 |
MNC_FILE_CLOSE_ALL |
& .NE. mnc_blank_name(1:MNC_MAX_CHAR)) THEN |
|
./pkg/mnc/mnc_file.F |
655 |
MNC_FILE_TRY_READ |
character*(MNC_MAX_CHAR) dnames(20) |
|
./pkg/mnc/mnc_file.F |
719 |
MNC_FILE_TRY_READ |
dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR) |
|
./pkg/fizhi/fizhi_mnc_init.F |
107 |
FIZHI_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/fizhi/fizhi_mnc_init.F |
40 |
FIZHI_MNC_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/fizhi/fizhi_mnc_init.F |
41 |
FIZHI_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/fizhi/fizhi_mnc_init.F |
87 |
FIZHI_MNC_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
104 |
LAND_MNC_INIT |
name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
124 |
LAND_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
59 |
LAND_MNC_INIT |
character*(MNC_MAX_CHAR) name |
|
./pkg/land/land_mnc_init.F |
60 |
LAND_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |