nozerobathy
/infobank/programs/bat/nozerobathy/nozerobathy.for
Program to remove records with a depth value of "0.0".
Clint Steele 8/17/94
read (90, '(q,a)', end = 99) Length, ALine(1:Length) read (ALine(16:Length), '(f)') Depth read (ALine(16:(StarLocation-1)), '(f)') Depth
write (91, '(a)') ALine(1:Length)
call openem (1,1)