USGS InfoBank program -- grd2sound

grd2sound

  Program to reformat 15 second gridded (*.grd) files from the NOS Hydrographic Database.


       

      read (90, '(q,a)', end = 9999) Length, Aline(1:Length)
      read (Aline(1:Length), 
     *    '(t1,f2.0,t3,f2.0,t5,f4.2,
     *    t9,f3.0,t12,f2.0,t14,f4.2,t18,f5.1)') 
     *    LatDegree, LatMinute, LatSecond,
     *    LonDegree, LonMinute, LonSecond, Depth

      write (91, 50)
      write (91, 51)
      write (91, 100)
     *    Year, JulianDay, Latitude, Longitude, 
     *    Depth, Code, SurveyNumber

      call openem (1,-1)