Skip to content

GitLab

Commit 8af19130 authored by Andreas Marek's avatar Andreas Marek
Browse files

Merge branch 'ELPA_GPU' of gitlab.mpcdf.mpg.de:elpa/elpa into ELPA_GPU

parents 647aa5a8 af16266d
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 12 deletions
src/elpa1_compute.F90
View file @ 8af19130
......@@ -316,8 +316,4 @@ module ELPA1_compute
#endif /* WANT_SINGLE_PRECISION_COMPLEX */
end module ELPA1_compute
src/mod_cuda.F90
View file @ 8af19130
......@@ -547,7 +547,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: cta, ctb
character(1,C_CHAR),value :: cta, ctb
integer(kind=C_INT) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc
real(kind=C_DOUBLE) :: alpha,beta
......@@ -561,7 +561,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: cta, ctb
character(1,C_CHAR),value :: cta, ctb
integer(kind=C_INT) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc
real(kind=C_FLOAT) :: alpha,beta
......@@ -576,7 +576,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: side, uplo, trans, diag
character(1,C_CHAR),value :: side, uplo, trans, diag
integer(kind=C_INT) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb
real(kind=C_DOUBLE) :: alpha
......@@ -591,7 +591,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: side, uplo, trans, diag
character(1,C_CHAR),value :: side, uplo, trans, diag
integer(kind=C_INT) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb
real(kind=C_FLOAT) :: alpha
......@@ -606,7 +606,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: cta, ctb
character(1,C_CHAR),value :: cta, ctb
integer(kind=C_INT) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc
complex(kind=C_DOUBLE) :: alpha,beta
......@@ -621,7 +621,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: cta, ctb
character(1,C_CHAR),value :: cta, ctb
integer(kind=C_INT) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc
complex(kind=C_FLOAT) :: alpha,beta
......@@ -636,7 +636,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: side, uplo, trans, diag
character(1,C_CHAR),value :: side, uplo, trans, diag
integer(kind=C_INT) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb
complex(kind=C_DOUBLE) :: alpha
......@@ -651,7 +651,7 @@ module cuda_functions
use iso_c_binding
implicit none
character(1,C_CHAR) :: side, uplo, trans, diag
character(1,C_CHAR),value :: side, uplo, trans, diag
integer(kind=C_INT) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb
complex(kind=C_FLOAT) :: alpha
......
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