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

working write_num [fortran]

Browse Source
This commit is contained in:
q-posev 2021-03-23 14:57:11 +01:00
parent ac44fc29a6
commit d680120efe
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/templates_text/templator_text.org
View File

@ -314,7 +314,10 @@ DEBUG
return NULL;
}
uint64_t size_$group_dset$ = 1;
// workaround for the case of missing blocks in the file
uint64_t size_$group_dset$ = 0;
if ($group$->rank_$group_dset$ != 0) size_$group_dset$ = 1;
for (unsigned int i=0; i<$group$->rank_$group_dset$; i++){
unsigned int j=-1;
@ -462,7 +465,10 @@ trexio_exit_code trexio_text_flush_$group$(const trexio_text_t* file) {
fprintf(f, "rank_$group_dset$ %d\n", $group$->rank_$group_dset$);
uint64_t size_$group_dset$ = 1;
// workaround for the case of missing blocks in the file
uint64_t size_$group_dset$ = 0;
if ($group$->rank_$group_dset$ != 0) size_$group_dset$ = 1;
for (unsigned int i=0; i<$group$->rank_$group_dset$; i++){
fprintf(f, "dims_$group_dset$ %d %ld\n", i, $group$->dims_$group_dset$[i]);
size_$group_dset$ *= $group$->dims_$group_dset$[i];

2
src/test.f90
View File

@ -12,7 +12,7 @@ program test_trexio
rc = 0
num = 10
file1 = trexio_open('test_fort' // c_null_char, 'w', 1)
file1 = trexio_open('trexio_test' // c_null_char, 'w', 1)
! file1 = trexio_open('test_fort.h5' // c_null_char, 'w', 0)
rc = trexio_write_nucleus_num(file1, num)