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 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