Updated to r8541

2018-03-05 14:49:51 -05:00
parent a4fa5b9988
commit a32fe6a4dc
200 changed files with 20394 additions and 4957 deletions
@@ -0,0 +1,22 @@
+subroutine genft8refsig(itone,cref,f0)
+  complex cref(79*1920)
+  integer itone(79)
+  real*8 twopi,phi,dphi,dt,xnsps
+  data twopi/0.d0/
+  save twopi
+  if( twopi .lt. 0.1 ) twopi=8.d0*atan(1.d0)
+
+  xnsps=1920.d0
+  dt=1.d0/12000.d0
+  phi=0.d0
+  k=1
+  do i=1,79
+    dphi=twopi*(f0*dt+itone(i)/xnsps)
+    do is=1,1920
+      cref(k)=cmplx(cos(phi),sin(phi))
+      phi=mod(phi+dphi,twopi)
+      k=k+1
+    enddo
+  enddo
+  return
+end subroutine genft8refsig