Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,9 @@
+      SUBROUTINE hypdrv(s,y,dyds)
+      REAL s
+      COMPLEX y(2),dyds(2),aa,bb,cc,z0,dz,z
+      COMMON /hypg/ aa,bb,cc,z0,dz
+      z=z0+s*dz
+      dyds(1)=y(2)*dz
+      dyds(2)=((aa*bb)*y(1)-(cc-((aa+bb)+1.)*z)*y(2))*dz/(z*(1.-z))
+      return
+      END