Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,37 @@
+      SUBROUTINE quad3d(x1,x2,ss)
+      REAL ss,x1,x2,h
+      EXTERNAL h
+CU    USES h,qgausx
+      call qgausx(h,x1,x2,ss)
+      return
+      END
+      FUNCTION f(zz)
+      REAL f,zz,func,x,y,z
+      COMMON /xyz/ x,y,z
+CU    USES func
+      z=zz
+      f=func(x,y,z)
+      return
+      END
+      FUNCTION g(yy)
+      REAL g,yy,f,z1,z2,x,y,z
+      EXTERNAL f
+      COMMON /xyz/ x,y,z
+CU    USES f,qgausz,z1,z2
+      REAL ss
+      y=yy
+      call qgausz(f,z1(x,y),z2(x,y),ss)
+      g=ss
+      return
+      END
+      FUNCTION h(xx)
+      REAL h,xx,g,y1,y2,x,y,z
+      EXTERNAL g
+      COMMON /xyz/ x,y,z
+CU    USES g,qgausy,y1,y2
+      REAL ss
+      x=xx
+      call qgausy(g,y1(x),y2(x),ss)
+      h=ss
+      return
+      END