WSJT-X/lib/makepings.f90

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
Starting to build JTMSK short messages into WSJT-X. Beware: this will NOT build correctly. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6413 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2016-01-21 17:53:34 +00:00			`subroutine makepings(pings,npts,width,sig)`

			`real pings(npts)`
			`real*8 t`
			`real t0(14)`

			`iping0=-999`
			`dt=1.0/12000.0`
Make frequency search more efficient in msk144 realtime decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7111 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2016-09-25 20:37:30 +00:00			`do i=1,14`
			`t0(i)=i !Make pings at t=1, 2, ... 14 s.`
Starting to build JTMSK short messages into WSJT-X. Beware: this will NOT build correctly. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6413 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2016-01-21 17:53:34 +00:00			`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.718tdexp(-t)`
			`endif`
			`pings(i)=fac*amp`
			`enddo`

			`return`
			`end subroutine makepings`