From 9ac09c23331a2fc587b579e2fa227cba02bccf0f Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 12 Oct 2010 20:43:21 +0000 Subject: [PATCH] Tweak pulsar. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2219 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- pulsar.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pulsar.f90 b/pulsar.f90 index bbe4fe4b2..639102e09 100644 --- a/pulsar.f90 +++ b/pulsar.f90 @@ -31,10 +31,9 @@ program pulsar 1001 format(3i2.2,'_',3i2.2,'.raw') open(20,file=fname20,access='stream',status='unknown') write(20) cdate,ctime,czone,nt,pname !Write header -! write(fname21,1002) nt(1)-2000,nt(2),nt(3),nt(5),nt(6),nt(7) -!1002 format(3i2.2,'_',3i2.2,'.sq') -! open(21,file=fname21,access='stream',status='unknown') -! write(21) cdate,ctime,czone,nt,pname !Write header + fname21=fname20(1:13)//'.sq' + open(21,file=fname21,access='stream',status='unknown') + write(21) cdate,ctime,czone,nt,pname !Write header call setup_rsocket !Prepare to receive UDP packets k=0 @@ -64,10 +63,11 @@ program pulsar is=mod(nsec,60) nw=nw+1 write(*,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1) -! write(13,1000) nw,center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1) + write(13,1000) nw,center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1) 1000 format(i10,f7.3,i4,2i3.2,i7,f10.0,f8.2,i8) write(21) id2 + call flush(13) call flush(20) call flush(21) k=0