Commit 566f1f8e authored by Andreas Marek's avatar Andreas Marek

The C functions require the error argument

parent 85436222
......@@ -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
call c_f_pointer(handle, self)
......
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