From 74bfc17ebda945e470d1d232b63b3b2029891338 Mon Sep 17 00:00:00 2001 From: Bill Somerville Date: Sat, 17 Dec 2016 00:06:22 +0000 Subject: [PATCH] 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 --- lib/savec2.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/savec2.f90 b/lib/savec2.f90 index d1cafec92..6435a2158 100644 --- a/lib/savec2.f90 +++ b/lib/savec2.f90 @@ -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