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