TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

Fixed fortran interface

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

2
src/qmckl_error.org
View File

@ -184,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_LENGTH()>>), intent(out) :: string
end function qmckl_string_of_error end function qmckl_string_of_error
end interface end interface
#+end_src #+end_src