Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,49 @@
+subroutine wav12(d2,d1,npts,nbitsam2)
+
+! Convert i*2 or i*1 data at 11025 Hz (from WSJT *.wav files)
+! to i*2 data at 12000 Hz.
+
+! Input:  i*2 d2(npts) or i*1 d1(npts)
+!         i*2 nbitsam2 = 8 or 16 (bits per sample)
+
+! Output: npts = (12000*npts)/11025
+!         i*2 d2(npts)
+
+  parameter (NZ11=60*11025,NZ12=60*12000)
+  parameter (NFFT1=64*11025,NFFT2=64*12000)
+  integer*1 d1(NZ11)
+  integer*1 d1a(NZ11)
+  integer*1 i1
+  integer*2 i2
+  integer*2 d2(NZ12)
+  real x(NFFT2)
+  complex cx(0:NFFT2/2)
+  integer*2 nbitsam2
+  equivalence (x,cx),(i1,i2)
+
+  jz=min(NZ11,npts)
+  if(nbitsam2.eq.8) then
+     jz=min(NZ11,npts)
+     d1a(1:jz)=d1(1:jz)            !d1 and d2 may be same array in calling prog 
+     do i=1,jz                     !Move data from d1a into d2
+        i2=0
+        i1=d1a(i)
+        d2(i)=10*(i2-128)
+     enddo
+  endif
+
+  x(1:jz)=d2(1:jz)
+  x(jz+1:)=0.0
+  call four2a(x,nfft1,1,-1,0)                    !Forwarxd FFT, r2c
+  cx(nfft1/2:)=0.0
+  call four2a(cx,nfft2,1,1,-1)                   !Inverse FFT, c2r
+
+  npts=jz*12000.0/11025.0
+  fac=1.e-6
+!  if(nbitsam2.eq.16) fac=3.e-6
+  x=fac*x
+  d2(1:npts)=nint(x(1:npts))
+  if(npts.lt.NZ12) d2(npts+1:NZ12)=0
+
+  return
+end subroutine wav12