mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-12-23 04:44:03 +01:00
Fixed fortran interface
This commit is contained in:
parent
ce480af775
commit
135c27c2ef
@ -23,6 +23,7 @@ MunitResult test_<<filename()>>() {
|
|||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
*
|
*
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:UNNUMBERED: t
|
:UNNUMBERED: t
|
||||||
@ -183,7 +184,7 @@ void qmckl_string_of_error(qmckl_exit_code error, char string[<<MAX_STRING_LENGT
|
|||||||
type (c_ptr) function qmckl_string_of_error (error, string) bind(C)
|
type (c_ptr) function qmckl_string_of_error (error, string) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
integer (c_int32_t), intent(in), value :: error
|
integer (c_int32_t), intent(in), value :: error
|
||||||
character*(<<MAX_STRING_LENTH>>), intent(out) :: string
|
character*(<<MAX_STRING_LENTH()>>), intent(out) :: string
|
||||||
end function qmckl_string_of_error
|
end function qmckl_string_of_error
|
||||||
end interface
|
end interface
|
||||||
#+end_src
|
#+end_src
|
||||||
|
Loading…
Reference in New Issue
Block a user