mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-22 20:34:58 +01:00
Separated gpu and gpu_arch
This commit is contained in:
parent
5d80cb7b2d
commit
6c02ac0f0b
@ -107,7 +107,7 @@ module gpu
|
|||||||
double precision, pointer, intent(inout) :: ptr
|
double precision, pointer, intent(inout) :: ptr
|
||||||
type(c_ptr) :: cptr
|
type(c_ptr) :: cptr
|
||||||
cptr = c_loc(ptr)
|
cptr = c_loc(ptr)
|
||||||
call gpu_deallocate(cptr)
|
call gpu_deallocate_c(cptr)
|
||||||
NULLIFY(ptr)
|
NULLIFY(ptr)
|
||||||
end subroutine
|
end subroutine
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user