Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,20 @@
+subroutine averms(x,n,nskip,ave,rms)
+  real x(n)
+  integer ipk(1)
+
+  ns=0
+  s=0.
+  sq=0.
+  ipk=maxloc(x)
+  do i=1,n
+     if(abs(i-ipk(1)).gt.nskip) then
+        s=s + x(i)
+        sq=sq + x(i)**2
+        ns=ns+1
+     endif
+  enddo
+  ave=s/ns
+  rms=sqrt(sq/ns - ave*ave)
+ 
+  return
+end subroutine averms