& costTranspDataFile
character*(MAX_LEN_FNAM) costTranspDataFile
costTranspDataFile = ' '
& costTranspDataFile, mdtdatfile,
if ( costTranspDataFile .NE. ' ' ) then
ilo = ifnblnk(costTranspDataFile)
ihi = ilnblnk(costTranspDataFile)
I costTranspDataFile(ilo:ihi),