C
C
C     This code is distributed under the terms and conditions of the
C     CCP4 licence agreement as `Part 2' (Annex 2) software.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
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 parts 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 Largest (negative) flag
      integer maxflg
      parameter (maxflg=22)

c     
c--- flags.fh ---