You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
514 B
20 lines
514 B
C (C) Copr. 1986-92 Numerical Recipes Software ]2w.1,r1..
|
|
|
|
FUNCTION ovdpythag(a,b)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
REAL(DP):: a,b,ovdpythag
|
|
REAL(DP):: absa,absb
|
|
absa=abs(a)
|
|
absb=abs(b)
|
|
if(absa.gt.absb)then
|
|
ovdpythag=absa*sqrt(1.0d0+(absb/absa)**2)
|
|
else
|
|
if(absb.eq.0.0d0)then
|
|
ovdpythag=0.0d0
|
|
else
|
|
ovdpythag=absb*sqrt(1.0d0+(absa/absb)**2)
|
|
endif
|
|
endif
|
|
return
|
|
END
|