Commit e90f5e95 authored by Andreas Marek's avatar Andreas Marek
Browse files

Add missing useGPU clause to fix ELPA2 real GPU version

parent adf6a7d4
...@@ -1029,12 +1029,14 @@ ...@@ -1029,12 +1029,14 @@
endif endif
#if BAND_TO_FULL_BLOCKING #if BAND_TO_FULL_BLOCKING
deallocate(tmat_complete, t_tmp, t_tmp2, stat=istat, errmsg=errorMessage) if (.not.(useGPU)) then
if (istat .ne. 0) then deallocate(tmat_complete, t_tmp, t_tmp2, stat=istat, errmsg=errorMessage)
print *,"trans_ev_band_to_full_& if (istat .ne. 0) then
MATH_DATATYPE& print *,"trans_ev_band_to_full_&
&: error when deallocating tmat_complete, t_tmp, t_tmp2 "//errorMessage MATH_DATATYPE&
stop 1 &: error when deallocating tmat_complete, t_tmp, t_tmp2 "//errorMessage
stop 1
endif
endif endif
#endif #endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment