From 170fc770f55fe6a9e56b694889dfa936e11bd8cb Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 19 Mar 2021 19:05:02 +0100
Subject: [PATCH] Fixed fortran interface

---
 src/qmckl_error.org | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/qmckl_error.org b/src/qmckl_error.org
index 35d9ee6..595814f 100644
--- a/src/qmckl_error.org
+++ b/src/qmckl_error.org
@@ -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)
        use, intrinsic :: iso_c_binding
        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 interface
   #+end_src