      DIMENSION DD(40),ED(40),BETA(20),EB(20)
      OPEN(11,FILE='CAKA',STATUS='UNKNOWN')
      OPEN(12,FILE='BET13',STATUS='UNKNOWN')
      OPEN(13,FILE='BET46',STATUS='UNKNOWN')
      OPEN(14,FILE='BET79',STATUS='UNKNOWN')
      FACTOR=29.08
      DO ID=1,19
      READ(11,*)
      READ(11,*)DATE
      READ(11,*)
      READ(11,111)(DD(K),K=1,21)
111   FORMAT(6F13.7)
      READ(11,*)
      READ(11,111)(ED(K),K=1,21)
      DO J=1,9
        K=2*J+1
        BETA(J)=DD(K)/FACTOR
        EB(J)=ED(K)/FACTOR       
      ENDDO
      WRITE(12,112)DATE,(BETA(J),EB(J),J=1,3)
      WRITE(13,112)DATE,(BETA(J),EB(J),J=4,6)
      WRITE(14,112)DATE,(BETA(J),EB(J),J=7,9)
112   FORMAT(7F11.4)
      ENDDO
      STOP
      END