c
c----Common blocks for monitoring
c
C MON_STYLE   How to monitor,
C       MANY      for debug 
C       MEDIUM    something between MANY and FEW
C       FEW       very little
C       
C TORCUT     If monitor how much If deviation from ideal is more than
C      TORCUT Will be monitored ( omega, chi1,chi2)
C ICHIP    Chiral centers
C     0   only overall
C     1   only bad (chiralI-CHIRALm > 1.0)
C     2   ALL
C DSCUT     Distances
C PLCUT     PLANES
C DQCUT     Occupancy (is not active now)
C TMCUT     VDW (is not active)
C HYDcut    Hydrogen bonds
C LISTA     ????
C DVPCUT    Large shifts ????
C BADVDW    VDW 

      CHARACTER MON_STYLE*4
      COMMON /MONIT_CHA/ MON_STYLE
      REAL    TORCUT,DSCUT,PLCUT,CHICUT,
     &        BADVDW,ANGLCUT,RBON_CUT,BFAC_CUT,BSPH_CUT,
     &        NCSR_CUT,BAD_CONT,
     &        badint
      COMMON /MONIT_NUM/ TORCUT,DSCUT,PLCUT,CHICUT,
     *       BADVDW,ANGLCUT,RBON_CUT,BFAC_CUT,BSPH_CUT,
     &       NCSR_CUT,BAD_CONT,
     &       badint