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 )
|
|
