Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,20 @@
+      SUBROUTINE tridag(a,b,c,r,u,n)
+      INTEGER n,NMAX
+      REAL a(n),b(n),c(n),r(n),u(n)
+      PARAMETER (NMAX=500)
+      INTEGER j
+      REAL bet,gam(NMAX)
+      if(b(1).eq.0.)pause 'tridag: rewrite equations'
+      bet=b(1)
+      u(1)=r(1)/bet
+      do 11 j=2,n
+        gam(j)=c(j-1)/bet
+        bet=b(j)-a(j)*gam(j)
+        if(bet.eq.0.)pause 'tridag failed'
+        u(j)=(r(j)-a(j)*u(j-1))/bet
+11    continue
+      do 12 j=n-1,1,-1
+        u(j)=u(j)-gam(j+1)*u(j+1)
+12    continue
+      return
+      END