c********************************************************************
c* FORTRAN 90 data retrieval routine to read and print the file     *           
c* named "a15.dat" (File 6).                                        *
c********************************************************************
       CHARACTER qualt*13
       INTEGER sta, cast, samp, bot
       REAL pre, ctdtmp, ctdsal, ctdoxy, theta, sal, oxy, silca
       REAL nitrat, nitrit, phspht, cfc11, cfc12, tcarb, alkali 
       OPEN (unit=1, file='a15.dat')
       OPEN (unit=2, file='a15.data')

       read (1, 6)
 6     format (//////////)

 7     CONTINUE    
       read (1, 10, end=999) sta, cast, samp, bot, pre, ctdtmp,
     1 ctdsal, ctdoxy, theta, sal, oxy, silca, nitrat, nitrit,
     2 phspht, cfc11, cfc12, tcarb, alkali, qualt

 10    format (5X, I3, 7X, I1, 6X, I2, 6X, I2, 1X, F7.1, 1X, F7.4,
     1 1X, F7.4, 1X, F7.1, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2,
     2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F8.3, 1X, F8.3, 1X, F7.1, 
     3 1X, F7.1, 1X, A13)

       write (2, 20) sta, cast, samp, bot, pre, ctdtmp,
     1 ctdsal, ctdoxy, theta, sal, oxy, silca, nitrat, nitrit,
     2 phspht, cfc11, cfc12, tcarb, alkali, qualt

 20    format (5X, I3, 7X, I1, 6X, I2, 6X, I2, 1X, F7.1, 1X, F7.4,
     1 1X, F7.4, 1X, F7.1, 1X, F7.4, 1X, F9.4, 1X, F7.1, 1X, F7.2,
     2 1X, F7.2, 1X, F7.2, 1X, F7.2, 1X, F8.3, 1X, F8.3, 1X, F7.1, 
     3 1X, F7.1, 1X, A13)
     

       GOTO 7
 999   close(unit=1)    
       close(unit=2)
       stop
       end