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 w=width amp=sig do i=1,npts iping=min(max(1,i/12000),14) t=(i*dt-t0(iping))/w 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