C FORTRAN data retrieval routine to read and write the file named "ndp049.dat". 
C                                                                               
C Unit 1 is input.                                                              
C Unit 2 is output.                                                             
C                                                                               
      CHARACTER NSAMP, LOCN*27, LAT*9, LON*11, AFLAG, OFLAG, AVCODE*2           
      INTEGER CMONTH, CDAY, CYEAR, AMONTH, ADAY, AYEAR                          
      REAL CONC, C13MEAS, C13CORR                                               
      OPEN (UNIT=1, FILE='ndp049.dat')                                          
      OPEN (UNIT=2, FILE='output')                                              
      READ (1,10) CMONTH, CDAY, CYEAR, NSAMP, LOCN, LAT, LON, AMONTH,           
     2            ADAY, AYEAR, AFLAG, CONC, C13MEAS, OFLAG, C13CORR,            
     3            AVCODE                                                        
   10 FORMAT (//////I2,1X,I2,1X,I2,2X,A1,2X,A26,2X,A9,2X,A11,2X,I2,1X,          
     2              I2,1X,I2,1X,A1,2X,F5.3,2X,F6.2,1X,A1,2X,F6.2,1X,A2)         
   20 WRITE (2,30) CMONTH, CDAY, CYEAR, NSAMP, LOCN, LAT, LON, AMONTH,          
     2             ADAY, AYEAR, AFLAG, CONC, C13MEAS, OFLAG, C13CORR,           
     3             AVCODE                                                       
   30 FORMAT (I2.2,1X,I2.2,1X,I2.2,2X,A1,2X,A26,2X,A9,2X,A11,2X,I2.2,           
     2        1X,I2.2,1X,I2.2,1X,A1,2X,F5.3,2X,F6.2,1X,A1,2X,F6.2,1X,           
     3        A2)                                                               
      READ (1,40,END=99) CMONTH, CDAY, CYEAR, NSAMP, LOCN, LAT, LON,            
     2                   AMONTH, ADAY, AYEAR, AFLAG, CONC, C13MEAS,             
     3                   OFLAG, C13CORR, AVCODE                                 
   40 FORMAT (I2,1X,I2,1X,I2,2X,A1,2X,A26,2X,A9,2X,A11,2X,I2,1X,I2,1X,          
     2        I2,1X,A1,2X,F5.3,2X,F6.2,1X,A1,2X,F6.2,1X,A2)                     
      GO TO 20                                                                  
   99 CLOSE (1)                                                                 
      CLOSE (2)                                                                 
      STOP                                                                      
      END