LCPQ/qmcchem
10
1
Fork 1
mirror of https://gitlab.com/scemama/qmcchem.git synced 2024-11-07 06:33:38 +01:00
Code Releases Activity

Prefetch in sparse-full-mv

Browse Source
This commit is contained in:
Anthony Scemama 2016-06-03 13:54:23 +02:00
parent 3ccee1b3f0
commit 033025c0ea
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mo.irp.f
View File

@ -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.