c+++ flags.fh +++
c Status flags for reflections
c lqOK = +1 unconditionally OK (including summed or scaled partials)
c lqprt = 0 unsummed partial (may be summed in future)
c
c .gt.+1 conditionally OK
c lqweak = +2 too weak for use in scaling
c lqstrn = +3 too strong for use in scaling
c
c .lt.0 rejected
c
c lqnprt = -1 unmatched partial after summation,
c or below scale threshold
c lquprt = -2 remaining half of summed partial
c lqovld = -4 overload
c lqreso = -5 outside resolution limits
c lqzscl = -6 zero input scale (when input scale column is used)
c lqsd0 = -7 zero standard deviation
c lqrejm = -8 rejected because input M flag .ge. 2
c lqoutp = -9 remaining half of summed partial rejected as outlier
c lqstrj = -10 rejected too strong observation
c lqxyrj = -11 rejected, bad detector area
c lquman = -12 unmatched anomalous observation
c lqeflg = -13 error flag set on input
c .le. -20 (lqoutl) rejected as outlier or something
c lqoutl = -20 rejected outlier
c lqoutlan = -21 rejected as outlier between I+ & I- (REJECT ALL test)
c lqtoobig = -22 rejected as too big on Emax test
integer lqOK, lqweak, lqstrn , lqprt , lqnprt, lquprt,
$ lqovld, lqreso, lqzscl, lqsd0, lqrejm, lqoutp,
$ lqstrj, lqxyrj, lquman, lqeflg,
$ lqoutl, lqoutlan, lqtoobig
parameter (lqOK = +1, lqweak = +2, lqstrn = +3, lqprt = 0,
$ lqnprt = -1,
$ lquprt = -2, lqovld = -4, lqreso = -5,
$ lqzscl = -6, lqsd0 = -7, lqrejm = -8, lqoutp = -9,
$ lqstrj =-10, lqxyrj=-11, lquman=-12, lqeflg = -13,
$ lqoutl =-20, lqoutlan=-21, lqtoobig=-22)
c
c--- flags.fh ---