OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
geom.f
Go to the documentation of this file.
1  subroutine geom(a,b,c,r,g)
2 c***********************************************************************
3  implicit real*8 (a-h,o-z)
4  g=c
5  r=0.0d0
6  if(g.le.1.0e-15)return
7  dif1=b-a
8  dif2=c-b
9  dif2p=dabs(100.0d0*dif2/c)
10  if(dif2p .lt. 1.0e-2) go to 10
11  r=dif2/dif1
12  g=a+dif1/(1.0-r)
13 10 continue
14  return
15  end
16 c***********************************************************************