CHARACTER*(MAX_LEN_FNAM) relaxMaskTrFile(maskLEN)
& relaxMaskTrFile,
iLen = ILNBLNK(relaxMaskTrFile(irbc))
& ') = "', relaxMaskTrFile(irbc)(1:iLen), '"'
IF ( relaxMaskTrFile(irbc).EQ.' ' ) THEN
IF ( relaxMaskTrFile(irbc).NE. ' ' ) THEN
CALL READ_FLD_XYZ_RS( relaxMaskTrFile(irbc), ' ',
relaxMaskTrFile(irbc) = ' '
relaxMaskTrFile(irbc) = relaxMaskFile(irbc)