Commit ca9dc94b authored by Pavel Kus's avatar Pavel Kus

forgotten if useGPU added

parent b15d27f2
......@@ -2585,12 +2585,13 @@
#endif /* WITH_MPI */
if (useGPU) then
!#if REALCASE == 1
! copy q to q_dev needed in trans_ev_band_to_full
successCUDA = cuda_malloc(q_dev, ldq*matrixCols* size_of_datatype)
if (.not.(successCUDA)) then
print *,"trans_ev_tridi_to_band_&
&MAATH_DATATYPE&
&MATH_DATATYPE&
&: error in cudaMalloc"
stop 1
endif
......@@ -2605,6 +2606,7 @@
stop 1
endif
!#endif
endif !use GPU
! deallocate all working space
......
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