c********************************************************************
c* FORTRAN 90 data retrieval routine to read and print the file     *           
c* named "p10.dat" (File 5)                                         *
c********************************************************************
       CHARACTER bot*5, qualt*14
       INTEGER sta, cast, samp
       REAL pre, ctdtmp, ctdsal, ctdoxy, theta, sal, oxy, silca
       REAL nitrat, nitrit, phspht, cfc11, cfc12, delc14, tco2
       REAL talk, c14er
       OPEN (unit=1, file='p10.dat')
       OPEN (unit=2, file='p10.data')
       write (2, 5)

c*Writes out column labels*

 5     format (2X,'STNNBR',2X,'CASTNO',2X,'SAMPNO',2X,'BTLNBR',
     1 2X,'CTDPRS',2X,'CTDTMP',2X,'CTDSAL',2X,'CTDOXY',3X,'THETA',
     2 4X,'SALNTY',2X,'OXYGEN',2X,'SILCAT',2X,'NITRAT',2X,'NITRIT',
     3 2X,'PHSPHT',3X,'CFC-11',3X,'CFC-12',2X,'DELC14',2X,'TCARBN',
     4 2X,'ALKALI',2X,'C14ERR',10X,'QUALT',/,
     5 36X,'DBAR',2X,'ITS-90',2X,'PSS-78',1X,'UMOL/KG',3X,'DEG C',
     6 4X,'PSS-78',1X,5('UMOL/KG',1X),1X,'PMOL/KG',2X,'PMOL/KG',2X,
     7 '/MILLE',1X,'UMOL/KG',1X,'UMOL/KG',2X,'/MILLE',14X,'*',/,
     8 25X,'*******',17X,2('*******',1X),10X,6('*******',1X),
     9 1X, '*******',2X,4('*******',1X),21X,'*')

c*Sets up a loop to read and format all the data in the file*

       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, delc14, tco2, talk, c14er, qualt

 10    format (5X, I3, 7X, I1, 6X, I2, 3X, A5, 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, F7.1, 1X, F7.1, 1X, A14)

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

 20    format (5X, I3, 7X, I1, 6X, I2, 3X, A5, 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, F7.1, 1X, F7.1, 1X, A14)

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