O filNam, fileExist,
CHARACTER*(MAX_LEN_FNAM) fn, filNam
CHARACTER*(MAX_LEN_FNAM) filNam
OPEN( ioUnit, file=filNam, status='old',