Updated internal comments

newG2L
Salvatore Filippone 4 years ago
parent 5d7b3471e2
commit c6a52d45bd

@ -297,7 +297,11 @@ contains
! 5. Record where the sample stopped in case ! 5. Record where the sample stopped in case
! you need to complete a sweep through the data ! you need to complete a sweep through the data
! 6. For each query, record where in the original vector ! 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) subroutine psi_get_sample(istart,idx,iprc,tidx,tsmpl,iend,ns_in,ns_out)

Loading…
Cancel
Save