Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
elpa
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
13
Issues
13
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
elpa
elpa
Commits
da095029
Commit
da095029
authored
Dec 04, 2018
by
Pavel Kus
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fixing C interface for saving and loading and adding a corresponding test
parent
166a8a66
Changes
3
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
388 additions
and
6 deletions
+388
-6
generate_automake_test_programs.py
generate_automake_test_programs.py
+12
-0
src/elpa_impl.F90
src/elpa_impl.F90
+7
-6
test/C/test_multiple_objs.c
test/C/test_multiple_objs.c
+369
-0
No files found.
generate_automake_test_programs.py
View file @
da095029
...
...
@@ -274,3 +274,15 @@ print(" " + " \\\n ".join([
prec_flag
[
'double'
]]))
print
(
"endif"
)
name
=
"test_multiple_objs_real_double_c_version"
print
(
"if ENABLE_AUTOTUNING"
)
print
(
"check_SCRIPTS += "
+
name
+
"_extended.sh"
)
print
(
"noinst_PROGRAMS += "
+
name
)
print
(
name
+
"_SOURCES = test/C/test_multiple_objs.c"
)
print
(
name
+
"_LDADD = $(test_program_ldadd) $(FCLIBS)"
)
print
(
name
+
"_CFLAGS = $(test_program_cflags)
\\
"
)
print
(
" "
+
"
\\\n
"
.
join
([
domain_flag
[
'real'
],
prec_flag
[
'double'
]]))
print
(
"endif"
)
src/elpa_impl.F90
View file @
da095029
...
...
@@ -1260,6 +1260,7 @@ module elpa_impl
endif
end
subroutine
!c> /*! \brief C interface for the implementation of the elpa_store_settings method
!c> *
!c> * \param elpa_t handle
...
...
@@ -1269,7 +1270,7 @@ module elpa_impl
subroutine
elpa_store_settings_c
(
handle
,
filename_p
,
error
)
bind
(
C
,
name
=
"elpa_store_settings"
)
type
(
c_ptr
),
value
::
handle
type
(
elpa_impl_t
),
pointer
::
self
type
(
c_ptr
),
intent
(
in
)
::
filename_p
type
(
c_ptr
),
intent
(
in
)
,
value
::
filename_p
character
(
len
=
elpa_strlen_c
(
filename_p
)),
pointer
::
filename
integer
(
kind
=
c_int
)
::
error
...
...
@@ -1316,7 +1317,7 @@ module elpa_impl
type
(
elpa_impl_t
),
pointer
::
self
integer
(
kind
=
c_int
)
::
error
type
(
c_ptr
),
intent
(
in
)
::
filename_p
type
(
c_ptr
),
intent
(
in
)
,
value
::
filename_p
character
(
len
=
elpa_strlen_c
(
filename_p
)),
pointer
::
filename
call
c_f_pointer
(
handle
,
self
)
...
...
@@ -1436,13 +1437,13 @@ module elpa_impl
!c> * \param error int *
!c> * \result none
!c> */
!c> void elpa_autotune_save_state(elpa_t handle, elpa_autotune_t autotune_handle, int *error);
!c> void elpa_autotune_save_state(elpa_t handle, elpa_autotune_t autotune_handle,
const char *filename,
int *error);
subroutine
elpa_autotune_save_state_c
(
handle
,
autotune_handle
,
filename_p
,
error
)
bind
(
C
,
name
=
"elpa_autotune_save_state"
)
type
(
c_ptr
),
intent
(
in
),
value
::
handle
type
(
c_ptr
),
intent
(
in
),
value
::
autotune_handle
type
(
elpa_impl_t
),
pointer
::
self
type
(
elpa_autotune_impl_t
),
pointer
::
tune_state
type
(
c_ptr
),
intent
(
in
)
::
filename_p
type
(
c_ptr
),
intent
(
in
)
,
value
::
filename_p
character
(
len
=
elpa_strlen_c
(
filename_p
)),
pointer
::
filename
integer
(
kind
=
c_int
)
::
error
...
...
@@ -1508,13 +1509,13 @@ module elpa_impl
!c> * \param error int *
!c> * \result none
!c> */
!c> void elpa_autotune_load_state(elpa_t handle, elpa_autotune_t autotune_handle, int *error);
!c> void elpa_autotune_load_state(elpa_t handle, elpa_autotune_t autotune_handle,
const char *filename,
int *error);
subroutine
elpa_autotune_load_state_c
(
handle
,
autotune_handle
,
filename_p
,
error
)
bind
(
C
,
name
=
"elpa_autotune_load_state"
)
type
(
c_ptr
),
intent
(
in
),
value
::
handle
type
(
c_ptr
),
intent
(
in
),
value
::
autotune_handle
type
(
elpa_impl_t
),
pointer
::
self
type
(
elpa_autotune_impl_t
),
pointer
::
tune_state
type
(
c_ptr
),
intent
(
in
)
::
filename_p
type
(
c_ptr
),
intent
(
in
)
,
value
::
filename_p
character
(
len
=
elpa_strlen_c
(
filename_p
)),
pointer
::
filename
integer
(
kind
=
c_int
)
::
error
...
...
test/C/test_multiple_objs.c
0 → 100644
View file @
da095029
This diff is collapsed.
Click to expand it.
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