DIMENSION HEADER(20),MONTH(12),IYEAR(123), CODE(12),ANNUAL(123)         
 1      CONTINUE                                                                
C                                                                               
C  READ HEADER RECORD IDENTIFYING GRID POINT                                    
C                                                                               
        READ(5,10,END=99) (HEADER(J),J=1,20)                                    
 10     FORMAT(20A4)                                                            
        WRITE(6,11)(HEADER(J),J=1,20)                                           
 11     FORMAT(20A4)                                                            
        DO 14 I=1,123                                                           
C                                                                               
C   READ NORTH AMERICA PRESSURE VALUES                                          
C                                                                               
        READ(5,12) IYEAR(I),(MONTH(K),CODE(K),K=1,12),ANNUAL(I)                 
 12     FORMAT(1X,I4,1X,12(F6.1,A2,1X),F6.1)                                    
        WRITE(6,13) IYEAR(I),(MONTH(K),CODE(K),K=1,12),ANNUAL(I)                
 13     FORMAT(1X,I4,1X,12(F6.1,A2,1X),F6.1)                                    
 14     CONTINUE                                                                
        GO TO 1                                                                 
 99     CONTINUE                                                                
        STOP                                                                    
        END