From 1bfc8d0c6c801c85cedf80375be3c7666affd26e Mon Sep 17 00:00:00 2001 From: q-posev Date: Fri, 4 Jun 2021 17:02:14 +0200 Subject: [PATCH] fix typos --- src/templates_front/templator_front.org | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/templates_front/templator_front.org b/src/templates_front/templator_front.org index 4e013ff..f0e9741 100644 --- a/src/templates_front/templator_front.org +++ b/src/templates_front/templator_front.org @@ -617,7 +617,7 @@ interface integer function trexio_set_one_based(trex_file) bind(C) use, intrinsic :: iso_c_binding integer(8), intent(in), value :: trex_file - end function trexio_open_c + end function trexio_set_one_based end interface #+end_src @@ -1574,7 +1574,7 @@ contains endif rc = trexio_set_one_based(trexio_open) if (rc /= TREXIO_SUCCESS) then - call trexio_close(trexio_open) + rc = trexio_close(trexio_open) trexio_open = 0_8 endif end function trexio_open