C*--- ROUTINE TO READ AND PRINT 100 DAYS OF UK METEOROLOGICAL OFFICE
C*--- ANGULAR MOMENTUM FORECAST ANALYSIS DATA FOR 1 MAY 1983 TO 
C*--- 31 OCTOBER 1986 
C
      INTEGER*2 IDATE(4)
      IFOR=0
      DO 100 N=1,100
      READ(30,4000)IDATE,IFOR,X1P,X2P,X3P,X1W,X2W,X3W,X1,X2,X3
      WRITE(6,5000)IDATE,IFOR,X1P,X2P,X3P,X1W,X2W,X3W,X1,X2,X3
  100 CONTINUE
 4000 FORMAT(4I2,2X,I4,1X,1P,3E16.5/(15X,1P,3E16.5))
 5000 FORMAT(1X,4I2,2X,I4,1X,1P,3E16.5/(15X,1P,3E16.5))
      STOP
      END







