Make sync8.f90 more robust. Increase number of candidates to 300.

This commit is contained in:
Steve Franke
2018-08-08 09:29:08 -05:00
parent 47078e997f
commit 20cfae891e
2 changed files with 8 additions and 8 deletions
+2 -1
View File
@@ -102,7 +102,8 @@ contains
lsubtract=.false.
endif
call timer('sync8 ',0)
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,s,candidate,ncand,sbase)
maxcand=300
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxcand,s,candidate,ncand,sbase)
call timer('sync8 ',1)
do icand=1,ncand
sync=candidate(3,icand)