LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-07-27 12:57:24 +02:00
Code Releases Activity

Fixing again actions
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
Anthony Scemama 2024-06-28 21:32:04 +02:00
parent a5f4f0516e
commit c7df9a72cc
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gpu/gpu_module.F90
View File

@ -318,42 +318,42 @@ module gpu
subroutine gpu_upload_double1(cpu_ptr, gpu_ptr) subroutine gpu_upload_double1(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:) double precision, target, intent(in) :: cpu_ptr(*)
type(gpu_double1), intent(in) :: gpu_ptr type(gpu_double1), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, 8_8*size(gpu_ptr%f)) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, 8_8*size(gpu_ptr%f))
end subroutine end subroutine
subroutine gpu_upload_double2(cpu_ptr, gpu_ptr) subroutine gpu_upload_double2(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:,:) double precision, target, intent(in) :: cpu_ptr(:,:)
type(gpu_double2), intent(in) :: gpu_ptr type(gpu_double2), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8)
end subroutine end subroutine
subroutine gpu_upload_double3(cpu_ptr, gpu_ptr) subroutine gpu_upload_double3(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:,:,:) double precision, target, intent(in) :: cpu_ptr(:,:,:)
type(gpu_double3), intent(in) :: gpu_ptr type(gpu_double3), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8)
end subroutine end subroutine
subroutine gpu_upload_double4(cpu_ptr, gpu_ptr) subroutine gpu_upload_double4(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:,:,:,:) double precision, target, intent(in) :: cpu_ptr(:,:,:,:)
type(gpu_double4), intent(in) :: gpu_ptr type(gpu_double4), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8)
end subroutine end subroutine
subroutine gpu_upload_double5(cpu_ptr, gpu_ptr) subroutine gpu_upload_double5(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:,:,:,:,:) double precision, target, intent(in) :: cpu_ptr(:,:,:,:,:)
type(gpu_double5), intent(in) :: gpu_ptr type(gpu_double5), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8)
end subroutine end subroutine
subroutine gpu_upload_double6(cpu_ptr, gpu_ptr) subroutine gpu_upload_double6(cpu_ptr, gpu_ptr)
implicit none implicit none
double precision, intent(in) :: cpu_ptr(:,:,:,:,:,:) double precision, target, intent(in) :: cpu_ptr(:,:,:,:,:,:)
type(gpu_double6), intent(in) :: gpu_ptr type(gpu_double6), intent(in) :: gpu_ptr
call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8) call gpu_upload_c(c_loc(cpu_ptr), gpu_ptr%c, product(shape(gpu_ptr%f)*1_8)*8_8)
end subroutine end subroutine
@ -504,7 +504,7 @@ subroutine gpu_sdot(handle, n, dx, incx, dy, incy, res)
use gpu use gpu
type(gpu_blas), intent(in) :: handle type(gpu_blas), intent(in) :: handle
integer*8 :: n, incx, incy integer*8 :: n, incx, incy
real, intent(in) :: dx(*), dy(*) real, target, intent(in) :: dx(*), dy(*)
real, intent(out) :: res real, intent(out) :: res
call gpu_sdot_c(handle%c, n, c_loc(dx), incx, c_loc(dy), incy, res) call gpu_sdot_c(handle%c, n, c_loc(dx), incx, c_loc(dy), incy, res)
end subroutine end subroutine