chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sync on ABC, AB, BC

Browse Source
This commit is contained in:
Jordan Sherer 2020-05-01 17:19:07 -04:00
parent c7354f1fc5
commit 123cf9c5a0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/js8/syncjs8.f90
View File

@ -116,8 +116,7 @@ subroutine syncjs8(dd,icos,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
sync_bc=t/t0
!sync2d(i,j)=max(max(max(sync_abc, sync_ab), sync_ac), sync_bc)
!sync2d(i,j)=max(sync_abc, sync_ab, sync_bc)
sync2d(i,j)=max(sync_abc, sync_bc)
sync2d(i,j)=max(sync_abc, sync_ab, sync_bc)
enddo
enddo