*KEEP,CRN.
       COMMON/CRN/COUNT
       REAL*8 COUNT(10)
C