*KEEP,CBERT3.
      REAL*8 TAPCRS(29850),DUME1(4679),CURR(11),DUME2(169),DUME3(35)
      COMMON/CBERT/ DUME1,CURR,DUME2,
     +               RANDS(4),DUME3,TAPCRS
      INTEGER *2  RANDS
C