INTEGER nSetRegMskFile, nSetRegMask
& nSetRegMskFile, diagSt_regMaskFile
& diagSt_regMaskFile, nSetRegMskFile
nSetRegMskFile = 0
nSetRegMask = nSetRegMskFile
IF ( flag .OR. iLen.GE.1 .OR. nSetRegMskFile.NE.0 ) THEN
IF ( (diagSt_regMaskFile.NE.' ' .AND. nSetRegMskFile.EQ.0)
& .OR.(diagSt_regMaskFile.EQ.' ' .AND. nSetRegMskFile.GT.0) ) THEN
IF ( nSetRegMskFile.GT.sizRegMsk ) THEN
& ' regMaskFile set-index number=', nSetRegMskFile,
DO k=1,nSetRegMskFile