Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,19 @@
+      SUBROUTINE piksr2(n,arr,brr)
+      INTEGER n
+      REAL arr(n),brr(n)
+      INTEGER i,j
+      REAL a,b
+      do 12 j=2,n
+        a=arr(j)
+        b=brr(j)
+        do 11 i=j-1,1,-1
+          if(arr(i).le.a)goto 10
+          arr(i+1)=arr(i)
+          brr(i+1)=brr(i)
+11      continue
+        i=0
+10      arr(i+1)=a
+        brr(i+1)=b
+12    continue
+      return
+      END