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 simp1(a,mp,np,mm,ll,nll,iabf,kp,bmax)
+      INTEGER iabf,kp,mm,mp,nll,np,ll(np)
+      REAL bmax,a(mp,np)
+      INTEGER k
+      REAL test
+      kp=ll(1)
+      bmax=a(mm+1,kp+1)
+      do 11 k=2,nll
+        if(iabf.eq.0)then
+          test=a(mm+1,ll(k)+1)-bmax
+        else
+          test=abs(a(mm+1,ll(k)+1))-abs(bmax)
+        endif
+        if(test.gt.0.)then
+          bmax=a(mm+1,ll(k)+1)
+          kp=ll(k)
+        endif
+11    continue
+      return
+      END