Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,26 @@
+subroutine makepings(pings,npts,width,sig)
+
+  real pings(npts)
+  real*8 t
+  real t0(14)
+
+  iping0=-999
+  dt=1.0/12000.0
+  do i=1,14
+     t0(i)=i                            !Make pings at t=1, 2, ... 14 s.
+  enddo
+  amp=sig
+
+  do i=1,npts
+     iping=min(max(1,i/12000),14)
+     t=(i*dt-t0(iping))/width
+     if(t.lt.0.d0 .and. t.lt.10.0) then    !????
+        fac=0.
+     else
+        fac=2.718*t*dexp(-t)
+     endif
+     pings(i)=fac*amp
+  enddo
+
+  return
+end subroutine makepings