Remove cuda-free call

fb998f54 · Andreas Marek · 0d5844eb · fb998f54
Commit fb998f54 authored Feb 04, 2017 by Andreas Marek
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 9 deletions

src/elpa2_bandred_template.X90 src/elpa2_bandred_template.X90 +9 -9

No files found.
--- a/src/elpa2_bandred_template.X90
+++ b/src/elpa2_bandred_template.X90
@@ -1506,7 +1506,7 @@
         successCUDA = cuda_memcpy(umc_dev, loc(umcCUDA(1)), umc_size*size_of_PRECISION_real, cudaMemcpyHostToDevice)
 #endif
 #if COMPLEXCASE == 1
-          successCUDA = cuda_memcpy(umc_dev, loc(umcCUDA(1,1)),umc_size*size_of_PRECISION_complex,cudaMemcpyHostToDevice)
+         successCUDA = cuda_memcpy(umc_dev, loc(umcCUDA(1,1)),umc_size*size_of_PRECISION_complex,cudaMemcpyHostToDevice)
 #endif
         if (.not.(successCUDA)) then
           print *,"bandred_&
@@ -2027,14 +2027,14 @@
       endif
     endif

-#if COMPLEXCASE == 1
-       successCUDA = cuda_free(umc_dev)
-       if (.not.(successCUDA)) then
-         print *,"bandred_complex: error in cudaFree"
-
-         stop
-       endif
-#endif
+!#if COMPLEXCASE == 1
+!       successCUDA = cuda_free(umc_dev)
+!       if (.not.(successCUDA)) then
+!         print *,"bandred_complex: error in cudaFree"
+!
+!         stop
+!       endif
+!#endif

     if (useGPU) then
       successCUDA = cuda_free(vmr_dev)