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
8e89ad02
Commit
8e89ad02
authored
Feb 26, 2016
by
Angerer, Christoph (cangerer)
Browse files
fixed 'parameter 1 has illegal value' issues caused by the cublas interface (on gcc)
parent
4548b187
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mod_cuda.F90
View file @
8e89ad02
...
...
@@ -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
...
...
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