CHARACTER*(MAX_LEN_FNAM) diagSt_regMaskFile
& nSetRegMskFile, diagSt_regMaskFile
& diagSt_regMaskFile, nSetRegMskFile
diagSt_regMaskFile = ' '
iLen = ILNBLNK(diagSt_regMaskFile)
IF ( (diagSt_regMaskFile.NE.' ' .AND. nSetRegMskFile.EQ.0)
& .OR.(diagSt_regMaskFile.EQ.' ' .AND. nSetRegMskFile.GT.0) ) THEN
IF ( diagSt_regMaskFile .NE. ' ' ) THEN
& diagSt_regMaskFile(1:iLen)
CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k,