Commit 8e89ad02 authored by Angerer, Christoph (cangerer)'s avatar Angerer, Christoph (cangerer)
Browse files

fixed 'parameter 1 has illegal value' issues caused by the cublas interface (on gcc)

parent 4548b187
...@@ -506,7 +506,7 @@ module cuda_functions ...@@ -506,7 +506,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc integer(kind=C_INT), intent(in) :: lda,ldb,ldc
real(kind=C_DOUBLE) :: alpha,beta real(kind=C_DOUBLE) :: alpha,beta
...@@ -520,7 +520,7 @@ module cuda_functions ...@@ -520,7 +520,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc integer(kind=C_INT), intent(in) :: lda,ldb,ldc
real(kind=C_FLOAT) :: alpha,beta real(kind=C_FLOAT) :: alpha,beta
...@@ -535,7 +535,7 @@ module cuda_functions ...@@ -535,7 +535,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb integer(kind=C_INT), intent(in) :: lda,ldb
real(kind=C_DOUBLE) :: alpha real(kind=C_DOUBLE) :: alpha
...@@ -550,7 +550,7 @@ module cuda_functions ...@@ -550,7 +550,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb integer(kind=C_INT), intent(in) :: lda,ldb
real(kind=C_FLOAT) :: alpha real(kind=C_FLOAT) :: alpha
...@@ -565,7 +565,7 @@ module cuda_functions ...@@ -565,7 +565,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc integer(kind=C_INT), intent(in) :: lda,ldb,ldc
complex(kind=C_DOUBLE) :: alpha,beta complex(kind=C_DOUBLE) :: alpha,beta
...@@ -580,7 +580,7 @@ module cuda_functions ...@@ -580,7 +580,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n,k
integer(kind=C_INT), intent(in) :: lda,ldb,ldc integer(kind=C_INT), intent(in) :: lda,ldb,ldc
complex(kind=C_FLOAT) :: alpha,beta complex(kind=C_FLOAT) :: alpha,beta
...@@ -595,7 +595,7 @@ module cuda_functions ...@@ -595,7 +595,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb integer(kind=C_INT), intent(in) :: lda,ldb
complex(kind=C_DOUBLE) :: alpha complex(kind=C_DOUBLE) :: alpha
...@@ -610,7 +610,7 @@ module cuda_functions ...@@ -610,7 +610,7 @@ module cuda_functions
use iso_c_binding use iso_c_binding
implicit none 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) :: m,n
integer(kind=C_INT), intent(in) :: lda,ldb integer(kind=C_INT), intent(in) :: lda,ldb
complex(kind=C_FLOAT) :: alpha complex(kind=C_FLOAT) :: alpha
......
Supports Markdown
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