TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-03 01:46:12 +02:00
Code Issues Projects Releases Wiki Activity

Fixed fortran interface

Browse Source
This commit is contained in:
Anthony Scemama 2021-03-19 19:02:43 +01:00
parent ce480af775
commit 135c27c2ef
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/qmckl_error.org
View File

@ -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