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