C*---  ROUTINE TO READ AND PRINT 100 OCCASIONS OF UK METEOROLOGICAL
C*---  OFFICE ANGULAR MOMENTUM FORECAST ANALYSIS DATA FOR DATES FROM
C*---  1 NOVEMBER 1986 ONWARDS
C
      INTEGER*2 ID(4)
      DO 100 N=1,100
      READ(15,3000) ID,IFOR,
     1                    X1PN,X1PS,X1WN,X1WS,
     2                    X2PN,X2PS,X2WN,X2WS,
     3                    X3PN,X3PS,X3WN,X3WS
      WRITE(6,4000) ID,IFOR,
     1                    X1PN,X1PS,X1WN,X1WS,
     2                    X2PN,X2PS,X2WN,X2WS,
     3                    X3PN,X3PS,X3WN,X3WS
  100 CONTINUE
 3000 FORMAT(4I2,2X,I4,1X,1P,4E16.5/(15X,1P,4E16.5))
 4000 FORMAT(1X,4I2,2X,I4,1X,1P,4E16.5/(15X,1P,4E16.5))
      STOP
      END





