PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 04:13:55 +01:00
Code Releases Activity

fix ccsd allocation by properly doing the i32 to i64 conversion

Browse Source
This commit is contained in:
Yann Damour 2024-09-28 12:00:25 +02:00
parent 13ae95fac5
commit 14a970a819
1 changed files with 45 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/gpu/gpu_module.F90
View File

@ -268,8 +268,12 @@ module gpu
implicit none implicit none
type(gpu_double1), intent(inout) :: ptr type(gpu_double1), intent(inout) :: ptr
integer, intent(in) :: s integer, intent(in) :: s
integer*8 :: s_8, n
call gpu_allocate_c(ptr%c, s*8_8) s_8 = s
n = s_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s /)) call c_f_pointer(ptr%c, ptr%f, (/ s /))
end subroutine end subroutine
@ -277,8 +281,13 @@ module gpu
implicit none implicit none
type(gpu_double2), intent(inout) :: ptr type(gpu_double2), intent(inout) :: ptr
integer, intent(in) :: s1, s2 integer, intent(in) :: s1, s2
integer*8 :: s1_8, s2_8, n
call gpu_allocate_c(ptr%c, s1*s2*8_8) s1_8 = s1
s2_8 = s2
n = s1_8 * s2_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s1, s2 /)) call c_f_pointer(ptr%c, ptr%f, (/ s1, s2 /))
end subroutine end subroutine
@ -286,8 +295,14 @@ module gpu
implicit none implicit none
type(gpu_double3), intent(inout) :: ptr type(gpu_double3), intent(inout) :: ptr
integer, intent(in) :: s1, s2, s3 integer, intent(in) :: s1, s2, s3
integer*8 :: s1_8, s2_8, s3_8, n
call gpu_allocate_c(ptr%c, s1*s2*s3*8_8) s1_8 = s1
s2_8 = s2
s3_8 = s3
n = s1_8 * s2_8 * s3_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3 /)) call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3 /))
end subroutine end subroutine
@ -295,8 +310,15 @@ module gpu
implicit none implicit none
type(gpu_double4), intent(inout) :: ptr type(gpu_double4), intent(inout) :: ptr
integer, intent(in) :: s1, s2, s3, s4 integer, intent(in) :: s1, s2, s3, s4
integer*8 :: s1_8, s2_8, s3_8, s4_8, n
call gpu_allocate_c(ptr%c, s1*s2*s3*s4*8_8) s1_8 = s1
s2_8 = s2
s3_8 = s3
s4_8 = s4
n = s1_8 * s2_8 * s3_8 * s4_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4 /)) call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4 /))
end subroutine end subroutine
@ -304,8 +326,16 @@ module gpu
implicit none implicit none
type(gpu_double5), intent(inout) :: ptr type(gpu_double5), intent(inout) :: ptr
integer, intent(in) :: s1, s2, s3, s4, s5 integer, intent(in) :: s1, s2, s3, s4, s5
integer*8 :: s1_8, s2_8, s3_8, s4_8, s5_8, n
call gpu_allocate_c(ptr%c, s1*s2*s3*s4*s5*8_8) s1_8 = s1
s2_8 = s2
s3_8 = s3
s4_8 = s4
s5_8 = s5
n = s1_8 * s2_8 * s3_8 * s4_8 * s5_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4, s5 /)) call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4, s5 /))
end subroutine end subroutine
@ -313,8 +343,17 @@ module gpu
implicit none implicit none
type(gpu_double6), intent(inout) :: ptr type(gpu_double6), intent(inout) :: ptr
integer, intent(in) :: s1, s2, s3, s4, s5, s6 integer, intent(in) :: s1, s2, s3, s4, s5, s6
integer*8 :: s1_8, s2_8, s3_8, s4_8, s5_8, s6_8, n
call gpu_allocate_c(ptr%c, s1*s2*s3*s4*s5*s6*8_8) s1_8 = s1
s2_8 = s2
s3_8 = s3
s4_8 = s4
s5_8 = s5
s6_8 = s6
n = s1_8 * s2_8 * s3_8 * s4_8 * s5_8 * s6_8 * 8_8
call gpu_allocate_c(ptr%c, n)
call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4, s5, s6 /)) call c_f_pointer(ptr%c, ptr%f, (/ s1, s2, s3, s4, s5, s6 /))
end subroutine end subroutine