| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/MNC_COMMON.h |
143 |
NO PROCEDURE |
character*(MNC_MAX_PATH) mnc_out_path |
|
./pkg/mnc/MNC_COMMON.h |
144 |
NO PROCEDURE |
character*(MNC_MAX_PATH) mnc_f_names(MNC_MAX_FID) |
|
./pkg/mnc/MNC_SIZE.h |
13 |
NO PROCEDURE |
parameter ( MNC_MAX_PATH = 500 ) |
|
./pkg/mnc/MNC_SIZE.h |
7 |
NO PROCEDURE |
integer MNC_MAX_PATH, MNC_MAX_INFO |
|
./pkg/mnc/mnc_file.F |
397 |
MNC_FILE_CLOSE |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_file.F |
469 |
MNC_FILE_CLOSE_ALL |
character*(MNC_MAX_PATH) bpath |
|
./pkg/mnc/mnc_file.F |
471 |
MNC_FILE_CLOSE_ALL |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_file.F |
478 |
MNC_FILE_CLOSE_ALL |
IF (mnc_f_names(i)(1:MNC_MAX_PATH) |
|
./pkg/mnc/mnc_file.F |
479 |
MNC_FILE_CLOSE_ALL |
& .NE. bpath(1:MNC_MAX_PATH)) THEN |
|
./pkg/mnc/mnc_grid.F |
76 |
MNC_GRID_INIT_ALL |
character*(MNC_MAX_PATH) file_name |
|
./pkg/mnc/mnc_grid.F |
82 |
MNC_GRID_INIT_ALL |
DO i =1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_grid.F |
86 |
MNC_GRID_INIT_ALL |
IF (nf .GT. MNC_MAX_PATH) nf = MNC_MAX_PATH |
|
./pkg/mnc/mnc_init.F |
32 |
MNC_INIT |
character bpath*(MNC_MAX_PATH) |
|
./pkg/mnc/mnc_init.F |
38 |
MNC_INIT |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_init.F |
44 |
MNC_INIT |
mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH) |
|
./pkg/mnc/mnc_readparms.F |
230 |
MNC_SET_OUTDIR |
character*(MNC_MAX_PATH) pathd |
|
./pkg/mnc/mnc_readparms.F |
232 |
MNC_SET_OUTDIR |
integer ienc(MNC_MAX_PATH) |
|
./pkg/mnc/mnc_readparms.F |
248 |
MNC_SET_OUTDIR |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
252 |
MNC_SET_OUTDIR |
IF (k .GT. MNC_MAX_PATH) k = MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
268 |
MNC_SET_OUTDIR |
DO i = 1,MNC_MAX_PATH |
|
./pkg/mnc/mnc_readparms.F |
272 |
MNC_SET_OUTDIR |
IF (ntot .GT. (MNC_MAX_PATH-40)) THEN |
|
./pkg/mnc/mnc_readparms.F |
273 |
MNC_SET_OUTDIR |
ntot = MNC_MAX_PATH - 40 |