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 avevar(data,n,ave,var)
+      INTEGER n
+      REAL ave,var,data(n)
+      INTEGER j
+      REAL s,ep
+      ave=0.0
+      do 11 j=1,n
+        ave=ave+data(j)
+11    continue
+      ave=ave/n
+      var=0.0
+      ep=0.0
+      do 12 j=1,n
+        s=data(j)-ave
+        ep=ep+s
+        var=var+s*s
+12    continue
+      var=(var-ep**2/n)/(n-1)
+      return
+      END