//UID033 JOB (12345),'USER ADDRESS'                                             
// EXEC FORTVCLG                                                                
//FORT.SYSIN DD *                                                               
C                                                                               
C******************************************************************             
C FORTRAN PROGRAM TO READ AND PRINT THE DATA FILES CONTAINING                   
C ATMOSPHERIC CO2 CONCENTRATIONS FROM USSR-OPERATED FLASK                       
C SAMPLING SITES -- TERIBERKA STATION, OCEAN STATION "C", BERING                
C ISLAND, AND KOTELNY ISLAND                                                    
C******************************************************************             
C                                                                               
       INTEGER SAMPYR,SAMPMO,SAMPDA,DAYYR                                       
       REAL TIME,CONC,DIFF                                                      
       CHARACTER FLAG                                                           
C                                                                               
C*****************************************************************              
C INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS READ & WRITTEN                 
C*****************************************************************              
C                                                                               
       NREC=0                                                                   
C                                                                               
C*****************************************************************              
C READ ONE OF THE FOUR DATA FILES CONTAINING THE ATMOSPHERIC                    
C CO2 CONCENTRATIONS                                                            
C******************************************************************             
C                                                                               
 1      CONTINUE                                                                
         READ(5,100,END=99) SAMPYR,SAMPMO,SAMPDA,DAYYR,TIME,                    
     1         CONC,DIFF,FLAG                                                   
100      FORMAT(5X,3(I2,1X),I3,1X,F8.4,1X,F8.4,1X,F5.1,3X,A1)                   
C                                                                               
C***************************************************************                
C PRINT A DESCRIPTIVE HEADER AT THE TOP OF EACH PAGE USING                      
C THE COUNTER                                                                   
C***************************************************************                
C                                                                               
      IF(MOD(NREC,45).EQ.0)WRITE(6,101)                                         
 101   FORMAT(1H1,'SAMPLE',2X,'SAMPLE',2X,'SAMPLE',2X,'JULIAN',                 
     1 2X,'DECIMAL',6X,'CO2',10X,'FLASK',5X,'FLAG',/,2X,'YEAR',                 
     2 3X,'MONTH',5X,'DAY',4X,'DATE',5X,'YEAR',3X,'CONCENTRATION',              
     3 2X,'DIFFERENCE',2X,'CODE',/)                                             
         WRITE(6,102) SAMPYR,SAMPMO,SAMPDA,DAYYR,TIME,                          
     1         CONC,DIFF,FLAG                                                   
102      FORMAT(3X,I2,6X,I2,6X,I2,5X,I3,3X,F8.4,5X,F8.4,6X,F5.1,7X,A1)          
C                                                                               
C******************************************************************             
C INSERT A BLANK LINE BETWEEN EACH 5 LINES OF OUTPUT                            
C******************************************************************             
C                                                                               
      NREC=NREC+1                                                               
C                                                                               
      IF(MOD(NREC,5).EQ.0) WRITE(6,103)                                         
 103  FORMAT(1X)                                                                
C                                                                               
        GO TO 1                                                                 
 99     CONTINUE                                                                
      STOP                                                                      
      END                                                                       
//GO.FT05F001 DD UNIT=TAPE62,VOL=SER=TAPEVOL,DISP=(,PASS),                      
// LABEL=(7,SL),DCB=(RECFM=FB,LRECL=45,BLKSIZE=4500),                           
// DSN=TAB.NDP033.KOTELNYI.DATA                                                 
//GO.FT06F001 DD *