fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated internal comments

Browse Source
This commit is contained in:
Salvatore Filippone
2021-01-18 09:39:10 +01:00
parent 5d7b3471e2
commit c6a52d45bd
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_graph_fnd_owner.F90
+5 -1
View File
@@ -297,7 +297,11 @@ contains
! 5. Record where the sample stopped in case
! you need to complete a sweep through the data
! 6. For each query, record where in the original vector
! it came from, you could have scattered answered/unanswered queries.
! it came from;
! 7. There could be scattered answered/unanswered queries,
! so the code needs to skip existing answers; hence, the
! number of items sampled and the index where it stops
! differ.
!
!
subroutine psi_get_sample(istart,idx,iprc,tidx,tsmpl,iend,ns_in,ns_out)