C                                                                               
C****************************************************************               
C  FORTRAN PROGRAM TO READ AND PRINT THE INDIAN OCEAN RADIOCARBON               
C    DATA FROM THE INDIGO 1, 2, and 3 CRUISES.                                  
C****************************************************************               
C                                                                               
      CHARACTER STATION*3, DATE*6, CAST*3, SAMPLER*2                            
      INTEGER BOTTOM, LAT, LONG, DEPTH, POTTEMP, SALINITY,                      
     1        SIGTHETA, TCO2, DC13, DC14, NREC                                  
C                                                                               
C****************************************************************               
C * INITIALIZE A COUNTER FOR THE NUMBER OF RECORDS READ/WRITTEN.                
C****************************************************************               
C                                                                               
      NREC=0                                                                    
C                                                                               
C****************************************************************               
C * READ THE STATION INFORMATION.                                               
C****************************************************************               
C                                                                               
   10 READ(5,100,END=99) STATION, DATE, BOTTOM, LAT, LONG, CAST,                
     1                   DEPTH, POTTEMP, SALINITY, SIGTHETA,                    
     2                   TCO2, DC13, DC14, SAMPLER                              
C                                                                               
  100 FORMAT(1X,A3,2X,A6,2X,I4,2X,I5,2X,I4,2X,A3,2X,I4,2X,I5,                   
     1       2X,I5,2X,I5,2X,I4,2X,I5,2X,I7,2X,A2)                               
C                                                                               
C****************************************************************               
C * TEST THE RECORD COUNTER FOR THE PURPOSE OF WRITING A                        
C * DESCRIPTIVE HEADER AT THE TOP OF EACH PRINTER PAGE.                         
C****************************************************************               
C                                                                               
      IF(MOD(NREC,45).EQ.0) WRITE(6,101)                                        
C                                                                               
  101 FORMAT(1H1, 1X,'STATION',3X,'DATE',2X,'BOTTOM',2X,'LAT',                  
     1       3X,'LONG',1X,'CAST',1X,'DEPTH',1X,'POTTEMP',1X,                    
     2       'SALINITY',1X,'SIGTHETA',2X,'TCO2',3X,'DC13',4X,                   
     3       'DC14',2X,'SAMP'/)                                                 
C                                                                               
      WRITE(6,102) STATION, DATE, BOTTOM, LAT, LONG, CAST,                      
     1             DEPTH, POTTEMP, SALINITY, SIGTHETA,                          
     2             TCO2, DC13, DC14, SAMPLER                                    
C                                                                               
  102 FORMAT (4X,A3,4X,A6,2X,I4,2X,I5,2X,I4,2X,A3,2X,I4,2X,I5,                  
     1        3X,I5,4X,I5,4X,I4,2X,I5,2X,I7,2X,A2)                              
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 10                                                                  
   99 CONTINUE                                                                  
      STOP                                                                      
      END