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
Download Patch File Download Diff File Expand all files Collapse all files
lib/js8/syncjs8.f90
+1 -2
View File
@@ -116,8 +116,7 @@ subroutine syncjs8(dd,icos,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
sync_bc=t/t0 sync_bc=t/t0
!sync2d(i,j)=max(max(max(sync_abc, sync_ab), sync_ac), sync_bc) !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_ab, sync_bc)
sync2d(i,j)=max(sync_abc, sync_bc)
enddo enddo
enddo enddo