From 57973eaca02aea6e3d3eb64abed4f5e930d80629 Mon Sep 17 00:00:00 2001 From: Pablo Lopez Rios Date: Wed, 19 Jan 2022 10:38:01 +0000 Subject: [PATCH] templator_front.org: undo two unnecessary changes --- 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 47ebcd9..ac8ede4 100644 --- a/src/templates_front/templator_front.org +++ b/src/templates_front/templator_front.org @@ -3348,7 +3348,7 @@ end interface character, allocatable :: str_compiled(:) integer(8) :: $group_dset_dim$ - integer(4) :: rc + integer :: rc rc = trexio_read_$group_dset_dim$_64(trex_file, $group_dset_dim$) if (rc /= TREXIO_SUCCESS) trexio_read_$group_dset$ = rc @@ -3369,7 +3369,7 @@ end interface #+end_src #+begin_src f90 :tangle helper_write_dset_str_front_fortran.fh_90 - integer(4) function trexio_write_$group_dset$ (trex_file, dset, max_str_len) + integer function trexio_write_$group_dset$ (trex_file, dset, max_str_len) implicit none integer(8), intent(in), value :: trex_file integer(4), intent(in), value :: max_str_len