17 lines
359 B
Fortran
17 lines
359 B
Fortran
FUNCTION pythag(a,b)
|
|
REAL a,b,pythag
|
|
REAL absa,absb
|
|
absa=abs(a)
|
|
absb=abs(b)
|
|
if(absa.gt.absb)then
|
|
pythag=absa*sqrt(1.+(absb/absa)**2)
|
|
else
|
|
if(absb.eq.0.)then
|
|
pythag=0.
|
|
else
|
|
pythag=absb*sqrt(1.+(absa/absb)**2)
|
|
endif
|
|
endif
|
|
return
|
|
END
|