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
On Thursday, 7th July from 1 to 3 pm there will be a maintenance with a short downtime of GitLab.
Open sidebar
elpa
elpa
Commits
8af19130
Commit
8af19130
authored
Mar 18, 2016
by
Andreas Marek
Browse files
Merge branch 'ELPA_GPU' of gitlab.mpcdf.mpg.de:elpa/elpa into ELPA_GPU
parents
647aa5a8
af16266d
Changes
2
Hide whitespace changes
Inline
Side-by-side
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
...
...
Write
Preview
Markdown
is supported
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