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