//UIDANT JOB (12345,TAPE,IO10),'USER ADDRESS',TIME=(0,30),MSGCLASS=A            
// EXEC FORTVCLG                                                                
//FORT.SYSIN DD *                                                               
C                                                                               
C ********************************************************                      
C *  FORTRAN PROGRAM TO READ AND PRINT THE ANTARCTIC     *                      
C *  SURFACE TEMPERATURE DATA FILES (FILES 7 AND 8)      *                      
C ********************************************************                      
C                                                                               
      DIMENSION STATN(11),HEADER(51),TEMP(13)                                   
      INTEGER*4 ALTNUM,IYEAR,FYEAR,YEAR                                         
  1   CONTINUE                                                                  
C                                                                               
C *******************************************************                       
C *  READ THE STATION INFORMATION                       *                       
C *******************************************************                       
C                                                                               
       READ(5,10,END=99) STATN,LATDEG,LATMIN,LATHEM,LONDEG,LONMIN,              
     1 LONHEM,ALTNUM,ALTUNT,IYEAR,FYEAR                                         
 10    FORMAT(6X,11A3,2X,I2,I3,A1,4X,I3,1X,I2,A1,4X,I4,A1,2X,I4,1X,I4)          
       WRITE(6,15) STATN,LATDEG,LATMIN,LATHEM,LONDEG,LONMIN,                    
     1 LONHEM,ALTNUM,ALTUNT,IYEAR,FYEAR                                         
 15    FORMAT(6X,11A3,2X,I2,I3,A1,4X,I3,1X,I2,A1,4X,I4,A1,2X,I4,1X,I4)          
C                                                                               
C ******************************************************                        
C *  READ THE HEADER RECORD CONTAINING THE MONTHS AND  *                        
C *  YEAR                                              *                        
C ******************************************************                        
C                                                                               
       READ(5,20) HEADER                                                        
 20    FORMAT(51A2,/)                                                           
       WRITE(6,25) HEADER                                                       
 25    FORMAT(51A2,/)                                                           
C                                                                               
C ******************************************************                        
C *  READ THE ANTARCTIC SURFACE TEMPERATURE DATA       *                        
C ******************************************************                        
C                                                                               
  2   CONTINUE                                                                  
       READ(5,30) YEAR,(TEMP(I),I=1,13),YR,N                                    
 30    FORMAT(1X,I4,13F7.1,2X,I3,I1)                                            
       WRITE(6,35) YEAR,(TEMP(I),I=1,13),YR,N                                   
 35    FORMAT(1X,I4,13F7.1,2X,I3,I1)                                            
C                                                                               
C *******************************************************                       
C *  PRINT THE BLANK LINE BETWEEN EVERY TEN YEARS OF    *                       
C *  DATA AND AFTER EACH STATION                        *                       
C *******************************************************                       
C                                                                               
C                                                                               
      IF(N .EQ. 0) GO TO 3                                                      
      IF(YEAR .EQ. FYEAR) GO TO 4                                               
      GO TO 2                                                                   
  3   CONTINUE                                                                  
         READ(5,55)                                                             
 55      FORMAT(1X)                                                             
         WRITE(6,60)                                                            
 60      FORMAT(1X)                                                             
      GO TO 2                                                                   
  4   CONTINUE                                                                  
         READ(5,65)                                                             
 65      FORMAT(1X)                                                             
         WRITE(6,70)                                                            
 70      FORMAT(1X)                                                             
      GO TO 1                                                                   
 99   CONTINUE                                                                  
      STOP                                                                      
      END                                                                       
//GO.FT05F001 DD UNIT=TAPE62,VOL=SER=TAPEVOL,DISP=(,PASS),                      
// LABEL=(7,SL,,IN),DCB=(RECFM=FB,LRECL=106,BLKSIZE=6148),                      
// DSN=TAB.NDP032.TEMPTURE.DATA