CHARACTER*(MAX_LEN_FNAM) TRFile
CALL READ_REC_XY_RS( TRFile,trair0,intime0,
CALL READ_REC_XY_RS( TRFile,trair1,intime1,
& TRFile
TRFile=' '