character*(MNC_MAX_PATH) mnc_out_path
character*(MNC_MAX_PATH) mnc_f_names(MNC_MAX_FID)
parameter ( MNC_MAX_PATH = 500 )
integer MNC_MAX_PATH, MNC_MAX_INFO
DO i = 1,MNC_MAX_PATH
character*(MNC_MAX_PATH) bpath
IF (mnc_f_names(i)(1:MNC_MAX_PATH)
& .NE. bpath(1:MNC_MAX_PATH)) THEN
character*(MNC_MAX_PATH) file_name
DO i =1,MNC_MAX_PATH
IF (nf .GT. MNC_MAX_PATH) nf = MNC_MAX_PATH
character bpath*(MNC_MAX_PATH)
mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH)
character*(MNC_MAX_PATH) pathd
integer ienc(MNC_MAX_PATH)
IF (k .GT. MNC_MAX_PATH) k = MNC_MAX_PATH
IF (ntot .GT. (MNC_MAX_PATH-40)) THEN
ntot = MNC_MAX_PATH - 40