TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-23 04:43:57 +01:00
Code Issues Projects Releases Wiki Activity

[WIP] temporarily disable calls to text back end

Browse Source
This commit is contained in:
q-posev 2021-05-31 16:40:25 +02:00
parent 1647e76fcf
commit edfe8817d1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/templates_front/templator_front.org
View File

@ -1449,7 +1449,7 @@ trexio_read_$group_dset$ (trexio_t* const file, char** const dset)
switch (file->back_end) { switch (file->back_end) {
case TREXIO_TEXT: case TREXIO_TEXT:
return trexio_text_read_$group_dset$(file, dset, rank, dims); //return trexio_text_read_$group_dset$(file, dset, rank, dims);
break; break;
case TREXIO_HDF5: case TREXIO_HDF5:
@ -1489,7 +1489,7 @@ trexio_write_$group_dset$ (trexio_t* const file, const char** dset)
switch (file->back_end) { switch (file->back_end) {
case TREXIO_TEXT: case TREXIO_TEXT:
return trexio_text_write_$group_dset$(file, dset, rank, dims); //return trexio_text_write_$group_dset$(file, dset, rank, dims);
break; break;
case TREXIO_HDF5: case TREXIO_HDF5:
@ -1517,7 +1517,7 @@ trexio_has_$group_dset$ (trexio_t* const file)
switch (file->back_end) { switch (file->back_end) {
case TREXIO_TEXT: case TREXIO_TEXT:
return trexio_text_has_$group_dset$(file); //return trexio_text_has_$group_dset$(file);
break; break;
case TREXIO_HDF5: case TREXIO_HDF5:
@ -1543,7 +1543,7 @@ interface
integer function trexio_write_$group_dset$ (trex_file, dset) bind(C) integer function trexio_write_$group_dset$ (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file 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 function trexio_write_$group_dset$
end interface end interface
#+end_src #+end_src
@ -1553,7 +1553,7 @@ interface
integer function trexio_read_$group_dset$ (trex_file, dset) bind(C) integer function trexio_read_$group_dset$ (trex_file, dset) bind(C)
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
integer(8), intent(in), value :: trex_file 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 function trexio_read_$group_dset$
end interface end interface
#+end_src #+end_src