WSJT-X/lib/smo.f90

subroutine smo(x,npts,y,nadd)

  real x(npts)
  real y(npts)

  nh=nadd/2
  do i=1+nh,npts-nh
     sum=0.
     do j=-nh,nh
        sum=sum + x(i+j)
     enddo
     y(i)=sum
  enddo
  x=y
  x(:nh)=0.
  x(npts-nh+1:)=0.

  return
end subroutine smo
Another one... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3838 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-03-05 15:09:03 -05:00			`subroutine smo(x,npts,y,nadd)`

			`real x(npts)`
			`real y(npts)`

			`nh=nadd/2`
			`do i=1+nh,npts-nh`
			`sum=0.`
			`do j=-nh,nh`
			`sum=sum + x(i+j)`
			`enddo`
			`y(i)=sum`
			`enddo`
Reintegrate the wsjtx_exp branch into the trunk This merge brings the WSPR feature development into the main line ready for release in a future v1.6 release. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5424 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2015-05-27 09:08:28 -04:00			`x=y`
			`x(:nh)=0.`
			`x(npts-nh+1:)=0.`
Another one... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3838 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2014-03-05 15:09:03 -05:00
			`return`
			`end subroutine smo`