//T21CCAMW JOB (M21,CC,RE20Z),P.ROBERTS.6427,PRTY=??,
//    NOTIFY=T21CC,MSGCLASS=Q
//*
//*  ROUTINE TO READ AND PRINT OUT UK METEOROLOGICAL OFFICE
//*  ANGULAR MOMENTUM ARCHIVE DATA WITH THE INTERNATIONALLY AGREED
//*  WASHINGTON CODE
//*  FORMAT SUPPLIED BY PHIL SMITH CF6 EXT4884
//*
//  EXEC FORT2CLG
//FORT.SYSPRINT DD SYSOUT=Q
//FORT.SYSIN DD *
      INTEGER ID(4),IFOR,IV(4)
      REAL XWN(3),XPN(3),XWS(3),XPS(3)
      CHARACTER*9 CXPIBN(3),CXPIBS(3)
      DO 200 N=1,1000
      READ(15,2000,END=300)ID,IFOR,IV
C     IF(IFOR.EQ.0) WRITE(6,2000)ID,IFOR,IV
      WRITE(6,2000)ID,IFOR,IV
      DO 100 I=1,3
      READ(15,3000) XWN(I),XPN(I),CXPIBN(I),XWS(I),XPS(I),CXPIBS(I)
C     IF(IFOR.EQ.0) WRITE(6,3000)
C    1              XWN(I),XPN(I),CXPIBN(I),XWS(I),XPS(I),CXPIBS(I)
      WRITE(6,3000) XWN(I),XPN(I),CXPIBN(I),XWS(I),XPS(I),CXPIBS(I)
  100 CONTINUE
  200 CONTINUE
  300 CONTINUE
 2000 FORMAT(1X,4I2.2,1X,I3,1X,4I2.2)
 3000 FORMAT(1X,F9.5,1X,F9.5,1X,A9,1X,F9.5,1X,F9.5,1X,A9)
      STOP
      END
/*
//LKED.SYSPRINT DD DUMMY
//GO.FT06F001 DD SYSOUT=Q
//GO.FT15F001 DD DSN=M21.CCUKMO.Y1987W,DISP=OLD,
//  UNIT=CART,VOL=SER=024937,LABEL=(47,SL,,IN)
//
