LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-12-22 12:23:50 +01:00
Code Releases Activity

rm timing

Browse Source
This commit is contained in:
AbdAmmar 2024-12-01 11:47:29 +01:00
parent 20900979c4
commit 43ee6924bf
2 changed files with 32 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/RPA/phRRPA.f90
View File

@ -75,14 +75,11 @@ subroutine phRRPA(dotest,TDA,doACFDT,exchange_kernel,singlet,triplet,nBas,nC,nO,
!call wall_time(t1)
call phLR_A(ispin,dRPA,nBas,nC,nO,nV,nR,nS,lambda,eHF,ERI,Aph)
!call wall_time(t2)
!print *, "wall time for A on CPU (sec) = ", t2 - t1
if(.not.TDA) call phLR_B(ispin,dRPA,nBas,nC,nO,nV,nR,nS,lambda,ERI,Bph)
!call wall_time(t1)
call phLR(TDA,nS,Aph,Bph,EcRPA(ispin),Om,XpY,XmY)
call wall_time(t2)
!print *, "wall time diag A on CPU (sec) = ", t2 - t1
!call wall_time(t2)
!print *, "wall time for dRPA on CPU (sec) = ", t2 - t1
!do ia = 1, nS
! write(112, *) Om(ia)
!enddo

5
src/RPA/phRRPA_GPU.f90
View File

@ -73,11 +73,10 @@ subroutine phRRPA_GPU(dotest,TDA,doACFDT,exchange_kernel,singlet,triplet,nBas,nC
else
!print*, 'start diag on GPU:'
!call wall_time(t1)
call ph_drpa_sing(nO, nBas, nS, eHF(1), ERI(1,1,1,1), Om(1), XpY(1,1), XmY(1,1))
!call wall_time(t2)
!print*, 'diag time on GPU (sec):', t2 - t1
call wall_time(t2)
print *, "wall time for dRPA on GPU (sec) = ", t2 - t1
!do ia = 1, nS
! write(111, *) Om(ia)
!enddo