DIMENSION HEADER(20),MONTH(12),IYEAR(201),CODE(12),ANNUAL(201)   00000060
 1     CONTINUE                                                         00000070
C                                                                       00000080
C   READ HEADER RECORD IDENTIFYING GRID POINT                           00000090
C                                                                       00000100
       READ(5,10,END=99) (HEADER(J),J=1,20)                             00000110
 10    FORMAT(20A4)                                                     00000120
       WRITE(6,11) (HEADER(J),J=1,20)                                   00000130
 11    FORMAT(20A4)                                                     00000140
       DO 14 I=1,201                                                    00000150
C                                                                       00000160
C   READ EUROPEAN PRESSURE VALUES                                       00000170
C                                                                       00000180
       READ(5,12) IYEAR(I),(MONTH(K),CODE(K),K=1,12),ANNUAL(I)          00000190
 12    FORMAT(1X,I4,1X,12(F6.1,A2,1X),F6.1)                             00000200
       WRITE(6,13) IYEAR(I),(MONTH(K),CODE(K),K=1,12),ANNUAL(I)         00000210
 13    FORMAT(1X,I4,1X,12(F6.1,A2,1X),F6.1)                             00000220
 14    CONTINUE                                                         00000230
       GO TO 1                                                          00000240
 99    CONTINUE                                                         00000250
       STOP                                                             00000260
       END                                                              00000270