Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,58 @@
+      FUNCTION select(k,n,arr)
+      INTEGER k,n
+      REAL select,arr(n)
+      INTEGER i,ir,j,l,mid
+      REAL a,temp
+      l=1
+      ir=n
+1     if(ir-l.le.1)then
+        if(ir-l.eq.1)then
+          if(arr(ir).lt.arr(l))then
+            temp=arr(l)
+            arr(l)=arr(ir)
+            arr(ir)=temp
+          endif
+        endif
+        select=arr(k)
+        return
+      else
+        mid=(l+ir)/2
+        temp=arr(mid)
+        arr(mid)=arr(l+1)
+        arr(l+1)=temp
+        if(arr(l).gt.arr(ir))then
+          temp=arr(l)
+          arr(l)=arr(ir)
+          arr(ir)=temp
+        endif
+        if(arr(l+1).gt.arr(ir))then
+          temp=arr(l+1)
+          arr(l+1)=arr(ir)
+          arr(ir)=temp
+        endif
+        if(arr(l).gt.arr(l+1))then
+          temp=arr(l)
+          arr(l)=arr(l+1)
+          arr(l+1)=temp
+        endif
+        i=l+1
+        j=ir
+        a=arr(l+1)
+3       continue
+          i=i+1
+        if(arr(i).lt.a)goto 3
+4       continue
+          j=j-1
+        if(arr(j).gt.a)goto 4
+        if(j.lt.i)goto 5
+        temp=arr(i)
+        arr(i)=arr(j)
+        arr(j)=temp
+        goto 3
+5       arr(l+1)=arr(j)
+        arr(j)=a
+        if(j.ge.k)ir=j-1
+        if(j.le.k)l=i
+      endif
+      goto 1
+      END