More work on Phase Equalization interface.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7506 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2026-08-14 15:33:36 -04:00 · 2017-01-15 22:13:59 +00:00
parent 391c501c1b
commit e6d7c73d20
2 changed files with 4 additions and 7 deletions
@@ -215,6 +215,7 @@ write(*,*) 'training ',navg,sqrt(chisqr),rmsdiff
        training_dxcall(1:12)=' '
        currently_training=.false.
        trained=.true.
+        btrain=.false.
        call date_and_time(date,time,zone,values)
        write(pcoeff_filename,'(i2.2,i2.2,i2.2,"_",i2.2,i2.2,i2.2)')    &
          values(1)-2000,values(2),values(3),values(5),values(6),values(7)