comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

DBCSR: Fix dbcsr_memtype_setup

Browse source 
svn-origin-rev: 13161
This commit is contained in:
Ole Schütt 2013-09-24 11:34:53 +00:00
parent 0d27b1b04b
commit b8d5bd8676
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/dbcsr_lib/dbcsr_mem_methods.F
View file

@ -265,11 +265,12 @@ MODULE dbcsr_mem_methods
ENDIF
IF(.NOT.is_ok) THEN
IF(ASSOCIATED(memtype%pool)) &
CALL dbcsr_mempool_destruct(memtype%pool, error)
memtype%cuda_hostalloc = aim%cuda_hostalloc
memtype%cuda_devalloc = aim%cuda_devalloc
memtype%mpi = aim%mpi
IF(ASSOCIATED(memtype%pool)) &
CALL dbcsr_mempool_destruct(memtype%pool, error)
IF(capacity>0) &
CALL dbcsr_mempool_create(memtype%pool, capacity=capacity, name=pool_name)
ENDIF