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

parent 4548b187
......@@ -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