Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
566f1f8e
Commit
566f1f8e
authored
Nov 14, 2018
by
Andreas Marek
Browse files
The C functions require the error argument
parent
85436222
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_impl.F90
View file @
566f1f8e
...
...
@@ -531,12 +531,7 @@ module elpa_impl
type
(
c_ptr
),
intent
(
in
),
value
::
name_p
character
(
len
=
elpa_strlen_c
(
name_p
)),
pointer
::
name
integer
(
kind
=
c_int
),
intent
(
in
),
value
::
value
#ifdef USE_FORTRAN2008
integer
(
kind
=
c_int
)
,
intent
(
in
),
optional
::
error
#else
integer
(
kind
=
c_int
)
,
intent
(
in
)
::
error
#endif
call
c_f_pointer
(
handle
,
self
)
call
c_f_pointer
(
name_p
,
name
)
...
...
@@ -560,11 +555,8 @@ module elpa_impl
type
(
c_ptr
),
intent
(
in
),
value
::
name_p
character
(
len
=
elpa_strlen_c
(
name_p
)),
pointer
::
name
integer
(
kind
=
c_int
)
::
value
#ifdef ISE_FORTRAN2008
integer
(
kind
=
c_int
),
intent
(
inout
),
optional
::
error
#else
integer
(
kind
=
c_int
),
intent
(
inout
)
::
error
#endif
call
c_f_pointer
(
handle
,
self
)
call
c_f_pointer
(
name_p
,
name
)
call
elpa_get_integer
(
self
,
name
,
value
,
error
)
...
...
@@ -651,11 +643,8 @@ module elpa_impl
type
(
c_ptr
),
intent
(
in
),
value
::
name_p
character
(
len
=
elpa_strlen_c
(
name_p
)),
pointer
::
name
real
(
kind
=
c_double
),
intent
(
in
),
value
::
value
#ifdef USE_FORTRAN2008
integer
(
kind
=
c_int
),
intent
(
in
),
optional
::
error
#else
integer
(
kind
=
c_int
),
intent
(
in
)
::
error
#endif
call
c_f_pointer
(
handle
,
self
)
call
c_f_pointer
(
name_p
,
name
)
call
elpa_set_double
(
self
,
name
,
value
,
error
)
...
...
@@ -678,11 +667,8 @@ module elpa_impl
type
(
c_ptr
),
intent
(
in
),
value
::
name_p
character
(
len
=
elpa_strlen_c
(
name_p
)),
pointer
::
name
real
(
kind
=
c_double
)
::
value
#ifdef USE_FORTRAN2008
integer
(
kind
=
c_int
),
intent
(
inout
),
optional
::
error
#else
integer
(
kind
=
c_int
),
intent
(
inout
)
::
error
#endif
call
c_f_pointer
(
handle
,
self
)
call
c_f_pointer
(
name_p
,
name
)
call
elpa_get_double
(
self
,
name
,
value
,
error
)
...
...
@@ -963,11 +949,7 @@ module elpa_impl
integer
(
kind
=
c_int
),
intent
(
in
),
value
::
level
integer
(
kind
=
c_int
),
intent
(
in
),
value
::
domain
type
(
c_ptr
)
::
ptr
#ifdef USE_FORTRAN2008
integer
(
kind
=
c_int
)
,
intent
(
in
),
optional
::
error
#else
integer
(
kind
=
c_int
)
,
intent
(
in
)
::
error
#endif
integer
(
kind
=
c_int
)
,
intent
(
in
)
::
error
call
c_f_pointer
(
handle
,
self
)
...
...
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