Minor updates to osd300.f90

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8583 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2018-03-22 14:04:17 +00:00
parent 29c60f5f42
commit 3bb0ec9c78

View File

@ -130,12 +130,12 @@ elseif(ndeep.eq.4) then
ntheta=12 ntheta=12
ntau=15 ntau=15
elseif(ndeep.eq.5) then elseif(ndeep.eq.5) then
nord=4 nord=3
npre1=1 npre1=1
npre2=1 npre2=1
nt=120 nt=80
ntheta=20 ntheta=40
ntau=15 ntau=16
endif endif
do iorder=1,nord do iorder=1,nord