|
|
|
!--------------------------------------------------- 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
|