*KEEP,CBERT2.
      COMMON/CBERT/ DUME(4895),CS(29850)
      REAL*8 DUME,CS,TEMP
C