WSJT-X/i1tor4.f90


!--------------------------------------------------- i1tor4
subroutine i1tor4(d,jz,data)

!  Convert wavefile byte data from to real*4.

  integer*1 d(jz)
  real data(jz)
  integer*1 i1
  equivalence(i1,i4)

  do i=1,jz
     n=d(i)
     i4=n-128
     data(i)=i1
  enddo

  return
end subroutine i1tor4
- Set prop svn:eol-style native on files. - Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2009-04-23 15:02:43 -04:00
			`!--------------------------------------------------- i1tor4`
			`subroutine i1tor4(d,jz,data)`

			`! Convert wavefile byte data from to real*4.`

			`integer*1 d(jz)`
			`real data(jz)`
			`integer*1 i1`
			`equivalence(i1,i4)`

			`do i=1,jz`
			`n=d(i)`
			`i4=n-128`
			`data(i)=i1`
			`enddo`

			`return`
			`end subroutine i1tor4`