Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
fb998f54
Commit
fb998f54
authored
Feb 04, 2017
by
Andreas Marek
Browse files
Remove cuda-free call
parent
0d5844eb
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/elpa2_bandred_template.X90
View file @
fb998f54
...
...
@@ -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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment