INTEGER nSetRegMskFile, nSetRegMask
& diagSt_kRegMsk, nSetRegMask,
nSetRegMask = 0
& diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
nSetRegMask = nSetRegMskFile
ELSEIF ( diagSt_kRegMsk(j).GT.nSetRegMask ) THEN