Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- batred

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
batred
Synopsis
/infobank/programs/bat/batred/batred.for
Description
  Program to calculate bathymetry travel-time and/or depth.

       
PROMPTS
  Enter name of input  file:

  Enter name of output file:
  Input format must read: (ida,ihr,imin,isec,iten,bathy)
  Enter format in parenthesis:
  Enter bathy units:
    1 = 1-way seconds      3 = meters
    2 = 2-way seconds      4 = feet
                           5 = fathoms
  Enter 1-way travel time [1507.35 m/sec]:
    
SUBROUTINES
  drsvt       (external include)

  openem      (external shareable)
  howlong     (external shareable)
  showlines   (external shareable)
  whatfmt     (external shareable)
  converttime (external shareable)
  forerror    (external shareable)
    
AUTHOR
  Clint Steele               12/26/83          .for

  based on program brmfr
  modified by Carolyn Degnan, 10/24/84
       (to accept ida,ihr,imin,isec,itenths)
  modified by Carolyn Degnan, 04/08/85
       (to use new standard formats and not merge navigation)
  changed travel times based on Bowditch, Vol I, p. 1124, 1977
  1-way travel time of 1507.35 - Carolyn Degnan, 04/22/88
  (old 731.6 meters/sec value was based on 800 fathoms/sec)
  added prompt for 1-way travel time - Carolyn Degnan, 08/16/88
  changed real *4 to real *8 -Harry Lucky, 10/12/90.

    
Reads
      read ( 5, 10 ) iunitbat
          read ( 90, 41, err = 20, end = 30, iostat = ierr )
     *        axy, rsecond
Writes
          write ( 91, 40 )
     *        axy, rmeter
Opens
Calls
      call openem ( 1, 1 )
      call showlines ( 90, 3 )
      call forerror ( ierr )

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/bat/batred/batred.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:52 PDT 2013  (chd)