w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix WSPR c2 file writing 

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')
outfile=c2name(i1-11:i1+2)
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)
close(18)
endif