LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 19:43:32 +01:00
Code Releases Activity

Fix intent

Browse Source
This commit is contained in:
Anthony Scemama 2024-07-09 22:14:19 +02:00
parent dd9c6dcc03
commit 6c275d54ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ccsd/ccsd_space_orb_sub_chol.irp.f
View File

@ -996,8 +996,8 @@ subroutine compute_J1_chol(nO,nV,t1,t2,v_ovvo,v_ovoo,v_vvoo,d_cc_space_v_vo_chol
integer, intent(in) :: nO,nV integer, intent(in) :: nO,nV
type(gpu_double2), intent(in) :: t1 type(gpu_double2), intent(in) :: t1
type(gpu_double4), intent(in) :: t2, v_ovvo, v_ovoo, v_vvoo type(gpu_double4), intent(in) :: t2, v_ovvo, v_ovoo, v_vvoo
type(gpu_double3), intent(in) :: d_cc_space_v_vo_chol,d_cc_space_v_vv_chol
type(gpu_double4), intent(out) :: J1 type(gpu_double4), intent(out) :: J1
type(gpu_double3), intent(out) :: d_cc_space_v_vo_chol,d_cc_space_v_vv_chol
integer :: a,tmp_a,b,k,l,c,d,tmp_c,tmp_d,i,j,u,v, beta, gam integer :: a,tmp_a,b,k,l,c,d,tmp_c,tmp_d,i,j,u,v, beta, gam