w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 20:28:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Added nblock to output files.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@423 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-06-27 02:28:25 +00:00
parent 5683ec4a42
commit 9f6950a555
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pulsar.f90
View File

@ -25,8 +25,8 @@ program pulsar
sq=0.
do i=1,NSPP
sq=sq + float(id(1,i))**2 + float(id(2,i))**2 + &
float(id(3,i))**2 + float(id(4,i))**2
sq=sq + float(int(id(1,i)))**2 + float(int(id(2,i)))**2 + &
float(int(id(3,i)))**2 + float(int(id(4,i)))**2
enddo
sqave=sqave + u*(sq-sqave)
rxnoise=10.0*log10(sqave) - 48.0
@ -34,10 +34,10 @@ program pulsar
k=k+1
id2(k)=0.001*sq
if(k.eq.1000) then
write(*,1000) center_freq,0.001*msec,sqave,rxnoise,id2(1)
write(13,1000) center_freq,0.001*msec,sqave,rxnoise,id2(1)
1000 format(f7.3,f11.3,f10.0,f8.2,i8)
write(12) center_freq,msec1,id2
write(*,1000) center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1)
write(13,1000) center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1)
1000 format(f7.3,f11.3,i7,f10.0,f8.2,i8)
write(12) center_freq,msec,nblock,id2
call flush(12)
call flush(13)
k=0