From edfe8817d1ba21c95565bdaab3c064d4a80d470c Mon Sep 17 00:00:00 2001 From: q-posev Date: Mon, 31 May 2021 16:40:25 +0200 Subject: [PATCH] [WIP] temporarily disable calls to text back end --- src/templates_front/templator_front.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/templates_front/templator_front.org b/src/templates_front/templator_front.org index 5e070cc..7dbfb23 100644 --- a/src/templates_front/templator_front.org +++ b/src/templates_front/templator_front.org @@ -1449,7 +1449,7 @@ trexio_read_$group_dset$ (trexio_t* const file, char** const dset) switch (file->back_end) { case TREXIO_TEXT: - return trexio_text_read_$group_dset$(file, dset, rank, dims); + //return trexio_text_read_$group_dset$(file, dset, rank, dims); break; case TREXIO_HDF5: @@ -1489,7 +1489,7 @@ trexio_write_$group_dset$ (trexio_t* const file, const char** dset) switch (file->back_end) { case TREXIO_TEXT: - return trexio_text_write_$group_dset$(file, dset, rank, dims); + //return trexio_text_write_$group_dset$(file, dset, rank, dims); break; case TREXIO_HDF5: @@ -1517,7 +1517,7 @@ trexio_has_$group_dset$ (trexio_t* const file) switch (file->back_end) { case TREXIO_TEXT: - return trexio_text_has_$group_dset$(file); + //return trexio_text_has_$group_dset$(file); break; case TREXIO_HDF5: @@ -1543,7 +1543,7 @@ interface integer function trexio_write_$group_dset$ (trex_file, dset) bind(C) use, intrinsic :: iso_c_binding integer(8), intent(in), value :: trex_file - $group_dset_f_dtype$, intent(in) :: dset$group_dset_f_dims$ + character(len=*), intent(in) :: dset(*) end function trexio_write_$group_dset$ end interface #+end_src @@ -1553,7 +1553,7 @@ interface integer function trexio_read_$group_dset$ (trex_file, dset) bind(C) use, intrinsic :: iso_c_binding integer(8), intent(in), value :: trex_file - $group_dset_f_dtype$, intent(out) :: dset$group_dset_f_dims$ + character(len=*), intent(out) :: dset(*) end function trexio_read_$group_dset$ end interface #+end_src