nosamebathy
/infobank/programs/bat/nosamebathy/nosamebathy.for
Program to eliminate identical (stuck) bathy values.
Values must be identical to 0.1 meters to be eliminated. First and last record saved -- intermediate records removed.
Clint Steele 8/19/94
read (90, '(q,a)', end = 99) Length, ALine(1:Length) read (ALine(1:Length), '(t15,f)') Depth read (ALine(1:Star-1), '(t15,f)') Depth
write (91, '(a)') LastLine(1:LastLength) write (91, '(a)') ALine(1:Length)
call openem (1,1) call percentage (90) call percentage (0)