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

Fixed Fortran interface

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

8
src/qmckl_error.org
View File

@ -181,11 +181,11 @@ void qmckl_string_of_error(qmckl_exit_code error, char string[<<MAX_STRING_LENGT
# Fortran interface
#+begin_src f90 :tangle (eval fh) :noexport :noweb yes
interface
type (c_ptr) function qmckl_string_of_error (error, string) bind(C)
subroutine qmckl_string_of_error (error, string) bind(C)
use, intrinsic :: iso_c_binding
integer (c_int32_t), intent(in), value :: error
character*(<<MAX_STRING_LENGTH()>>), intent(out) :: string
end function qmckl_string_of_error
integer (c_int32_t), intent(in), value :: error
character, intent(out) :: string(<<MAX_STRING_LENGTH()>>)
end subroutine qmckl_string_of_error
end interface
#+end_src