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

Merge branch 'cangerer/elpa-ELPA_GPU' into ELPA_GPU

parents 2c93331c 8e89ad02
......@@ -274,7 +274,7 @@ extern "C" void launch_extract_hh_tau_c_kernel_complex(cuFloatComplex* bcast_buf
#ifdef DOUBLE_PRECISION_COMPLEX
extern "C" void launch_my_unpack_c_kernel_complex( const int row_count, const int n_offset, const int max_idx, const int stripe_width,const int a_dim2, const int stripe_count, const int l_nev, cuDoubleComplex* row_group_dev, cuDoubleComplex* a_dev)
#else
#else
extern "C" void launch_my_unpack_c_kernel_complex( const int row_count, const int n_offset, const int max_idx, const int stripe_width,const int a_dim2, const int stripe_count, const int l_nev, cuFloatComplex* row_group_dev, cuFloatComplex* a_dev)
#endif
{
......
......@@ -3017,7 +3017,6 @@ module ELPA1_compute
integer(kind=ik) :: max_threads, my_thread
integer(kind=ik) :: omp_get_max_threads, omp_get_thread_num
max_threads = omp_get_max_threads()
allocate(z_p(na,0:max_threads-1), stat=istat, errmsg=errorMessage)
......
......@@ -506,7 +506,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
......@@ -520,7 +520,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
......@@ -535,7 +535,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
......@@ -550,7 +550,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
......@@ -565,7 +565,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
......@@ -580,7 +580,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
......@@ -595,7 +595,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
......@@ -610,7 +610,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