w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix WSPR c2 file writing

Browse Source 
Inverted error check skipped writing of the contents.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7390 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2016-12-17 00:06:22 +00:00
parent 336eb0c858
commit 74bfc17ebd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/savec2.f90
View File

@ -47,7 +47,7 @@ integer function savec2(c2name,ntrseconds,f0m1500)
i1=index(c2name,'.c2') i1=index(c2name,'.c2')
outfile=c2name(i1-11:i1+2) outfile=c2name(i1-11:i1+2)
open(18,file=c2name,status='unknown',access='stream', iostat=ioerr) open(18,file=c2name,status='unknown',access='stream', iostat=ioerr)
if (ioerr.ne.0) then if (ioerr.eq.0) then
write(18) outfile,ntrminutes,f0m1500,c2(0:45000-1) write(18) outfile,ntrminutes,f0m1500,c2(0:45000-1)
close(18) close(18)
endif endif