*KEEP,CISOBR.
      COMMON/CISOBR/AND1T,E1NC,DISO1(146),DOUT(40),DISO2(33),ISWD1(16),
     +              NNO,IIV,IPPP,ISWD2(5)
      REAL * 8 AND1T,E1NC,DISO1,DOUT,DISO2
C