From b8d5bd8676e0287f91f946958827ba0aaa9352ee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ole=20Sch=C3=BCtt?= Date: Tue, 24 Sep 2013 11:34:53 +0000 Subject: [PATCH] DBCSR: Fix dbcsr_memtype_setup svn-origin-rev: 13161 --- src/dbcsr_lib/dbcsr_mem_methods.F | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/dbcsr_lib/dbcsr_mem_methods.F b/src/dbcsr_lib/dbcsr_mem_methods.F index 74c4817df2..74b5ba0c6b 100644 --- a/src/dbcsr_lib/dbcsr_mem_methods.F +++ b/src/dbcsr_lib/dbcsr_mem_methods.F @@ -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