mirror of
https://github.com/TREX-CoE/trexio.git
synced 2024-08-25 06:31:43 +02:00
templator_front.org: undo two unnecessary changes
This commit is contained in:
parent
9e5d81b292
commit
57973eaca0
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user