TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-11-03 20:54:07 +01:00
Code Issues Projects Releases Wiki Activity

templator_front.org: undo two unnecessary changes

Browse Source
This commit is contained in:
Pablo Lopez Rios 2022-01-19 10:38:01 +00:00
parent 9e5d81b292
commit 57973eaca0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/templates_front/templator_front.org
View File

@ -3348,7 +3348,7 @@ end interface
character, allocatable :: str_compiled(:) character, allocatable :: str_compiled(:)
integer(8) :: $group_dset_dim$ integer(8) :: $group_dset_dim$
integer(4) :: rc integer :: rc
rc = trexio_read_$group_dset_dim$_64(trex_file, $group_dset_dim$) rc = trexio_read_$group_dset_dim$_64(trex_file, $group_dset_dim$)
if (rc /= TREXIO_SUCCESS) trexio_read_$group_dset$ = rc if (rc /= TREXIO_SUCCESS) trexio_read_$group_dset$ = rc
@ -3369,7 +3369,7 @@ end interface
#+end_src #+end_src
#+begin_src f90 :tangle helper_write_dset_str_front_fortran.fh_90 #+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 implicit none
integer(8), intent(in), value :: trex_file integer(8), intent(in), value :: trex_file
integer(4), intent(in), value :: max_str_len integer(4), intent(in), value :: max_str_len