mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-05 14:47:54 -04:00
Remove the line that made deep65 fail with -O2.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@4602 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
baf2b62ad0
commit
7551ca642a
@ -157,8 +157,6 @@ set (CXXSRCS
|
|||||||
|
|
||||||
add_definitions (-DBIGSYM=1)
|
add_definitions (-DBIGSYM=1)
|
||||||
set_source_files_properties (sec_midn.f90 PROPERTIES COMPILE_FLAGS -fno-second-underscore)
|
set_source_files_properties (sec_midn.f90 PROPERTIES COMPILE_FLAGS -fno-second-underscore)
|
||||||
set_source_files_properties (deep65.f90 PROPERTIES COMPILE_FLAGS -O0)
|
|
||||||
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# build our targets
|
# build our targets
|
||||||
|
@ -131,16 +131,9 @@ subroutine deep65(s3,mode65,neme,flip,mycall,hiscall,hisgrid,decoded,qual)
|
|||||||
enddo
|
enddo
|
||||||
|
|
||||||
do i=1,ntot
|
do i=1,ntot
|
||||||
if(pp(i).gt.p2 .and. pp(i).ne.p1) p2=pp(i)
|
if(pp(i).gt.p2 .and. i.ne.ip1) p2=pp(i)
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
! ### DO NOT REMOVE ###
|
|
||||||
rewind 77
|
|
||||||
write(77,*) p1,p2
|
|
||||||
! ### Works OK without it (in both Windows and Linux) if compiled
|
|
||||||
! ### without optimization. However, in Windows this is a colossal
|
|
||||||
! ### pain because of the way F2PY wants to run the compile step.
|
|
||||||
|
|
||||||
if(mode65.eq.1) bias=max(1.12*p2,0.335)
|
if(mode65.eq.1) bias=max(1.12*p2,0.335)
|
||||||
if(mode65.eq.2) bias=max(1.08*p2,0.405)
|
if(mode65.eq.2) bias=max(1.08*p2,0.405)
|
||||||
if(mode65.ge.4) bias=max(1.04*p2,0.505)
|
if(mode65.ge.4) bias=max(1.04*p2,0.505)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
//--------------------------------------------------------------- MainWindow
|
//-------------------------------------------------------------- MainWindow
|
||||||
#include "mainwindow.h"
|
#include "mainwindow.h"
|
||||||
#include "ui_mainwindow.h"
|
#include "ui_mainwindow.h"
|
||||||
#include "devsetup.h"
|
#include "devsetup.h"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user