Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,16 @@
+      FUNCTION dpythag(a,b)
+      DOUBLE PRECISION a,b,dpythag
+      DOUBLE PRECISION absa,absb
+      absa=abs(a)
+      absb=abs(b)
+      if(absa.gt.absb)then
+        dpythag=absa*sqrt(1.0d0+(absb/absa)**2)
+      else
+        if(absb.eq.0.0d0)then
+          dpythag=0.0d0
+        else
+          dpythag=absb*sqrt(1.0d0+(absa/absb)**2)
+        endif
+      endif
+      return
+      END