Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,34 @@
+      SUBROUTINE kendl1(data1,data2,n,tau,z,prob)
+      INTEGER n
+      REAL prob,tau,z,data1(n),data2(n)
+CU    USES erfcc
+      INTEGER is,j,k,n1,n2
+      REAL a1,a2,aa,var,erfcc
+      n1=0
+      n2=0
+      is=0
+      do 12 j=1,n-1
+        do 11 k=j+1,n
+          a1=data1(j)-data1(k)
+          a2=data2(j)-data2(k)
+          aa=a1*a2
+          if(aa.ne.0.)then
+            n1=n1+1
+            n2=n2+1
+            if(aa.gt.0.)then
+              is=is+1
+            else
+              is=is-1
+            endif
+          else
+            if(a1.ne.0.)n1=n1+1
+            if(a2.ne.0.)n2=n2+1
+          endif
+11      continue
+12    continue
+      tau=float(is)/sqrt(float(n1)*float(n2))
+      var=(4.*n+10.)/(9.*n*(n-1.))
+      z=tau/sqrt(var)
+      prob=erfcc(abs(z)/1.4142136)
+      return
+      END