nos2sound

  Program to reformat (*.nos) files from the NOS Hydrographic Database.

    

 read (90, '(q,a)', end = 9999) Length, Aline(1:Length)
 read (Aline(1:Length), 
*    '(i5,2i3,t12,2f2.0,f4.2,f3.0,f2.0,f4.2,a5,i3)')
*    SurveyNumber, JulianDay, Year,
*    LatDegree, LatMinute, LatSecond,
*    LonDegree, LonMinute, LonSecond, CharDepth, Code

     read (CharDepth, '(f5.0)') Feet
     read (CharDepth, '(f5.1)') Feet
     read (CharDepth, '(f3.0,2f1.0)')
*            Feet, Numerator, Denominator
     read (CharDepth, '(f5.0)') Fathoms
     read (CharDepth, '(f5.1)') Fathoms
     read (CharDepth, '(f3.0,2f1.0)')
*         Fathoms, Numerator, Denominator
     read (CharDepth, '(f5.0)') Depth
     read (CharDepth, '(f4.1)') Depth
    

 write (91, 50)
 write (91, 51)
 write (92, 50)
 write (92, 51)
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (CharDepth, '(f6.1)') Depth
     write (92, 100)
*        Year, JulianDay, Latitude, Longitude, 
*        CharDepth, Code, SurveyNumber
     write (91, 100)
*        Year, JulianDay, Latitude, Longitude, 
*        CharDepth, Code, SurveyNumber

    

 call openem (1,-2)