Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,18 @@
+      FUNCTION bessy(n,x)
+      INTEGER n
+      REAL bessy,x
+CU    USES bessy0,bessy1
+      INTEGER j
+      REAL by,bym,byp,tox,bessy0,bessy1
+      if(n.lt.2)pause 'bad argument n in bessy'
+      tox=2./x
+      by=bessy1(x)
+      bym=bessy0(x)
+      do 11 j=1,n-1
+        byp=j*tox*by-bym
+        bym=by
+        by=byp
+11    continue
+      bessy=by
+      return
+      END