mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-08-29 22:33:41 +02:00
Prefetch in sparse-full-mv
This commit is contained in:
parent
3ccee1b3f0
commit
033025c0ea
@ -690,6 +690,14 @@ subroutine sparse_full_mv(A,LDA, &
|
|||||||
|
|
||||||
! LDC and LDA have to be factors of simd_sp
|
! LDC and LDA have to be factors of simd_sp
|
||||||
|
|
||||||
|
IRP_IF NO_PREFETCH
|
||||||
|
IRP_ELSE
|
||||||
|
call MM_PREFETCH (A(j,indices(1)),3)
|
||||||
|
call MM_PREFETCH (A(j,indices(2)),3)
|
||||||
|
call MM_PREFETCH (A(j,indices(3)),3)
|
||||||
|
call MM_PREFETCH (A(j,indices(4)),3)
|
||||||
|
IRP_ENDIF
|
||||||
|
|
||||||
!DIR$ VECTOR ALIGNED
|
!DIR$ VECTOR ALIGNED
|
||||||
do j=1,LDC
|
do j=1,LDC
|
||||||
C1(j) = 0.
|
C1(j) = 0.
|
||||||
|
Loading…
Reference in New Issue
Block a user