TOPIO/BigWhoop
TOPIO/BigWhoop
4
1
Fork 0
Code Issues 26 Pull requests 1 Projects 6 Releases Packages Wiki Activity

adjust write_eas3

Browse source
This commit is contained in:
Gregor Weiss 2024-10-16 11:14:36 +02:00
parent 858808a46c
commit 62c9bc1a21
Signed by: Gregor Weiss
GPG key ID: 61E170A8BBFE5756
2 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/interfaces/reader/eas3.h
View file

@ -402,5 +402,5 @@
! !
\*----------------------------------------------------------------------------------------------------------*/
uchar
write_eas3(bwc_data *const file, char *const filename);
write_eas3(eas3_data *const file, char *const filename);
#endif

23
src/interfaces/reader/eas3.c
View file

@ -1488,13 +1488,14 @@ read_eas3(char *const filename)
! !
\*----------------------------------------------------------------------------------------------------------*/
uchar
write_eas3(bwc_data *const data, char *const filename)
write_eas3(eas3_data *const data, char *const filename)
{
/*-----------------------*\
! DEFINE INT VARIABLES: !
\*-----------------------*/
uint64 Lfield;
uint64 i;
FILE *fp;
/*-----------------------*\
! DEFINE ASSERTIONS: !
@ -1506,7 +1507,7 @@ write_eas3(bwc_data *const data, char *const filename)
! exist, discard its content. If the file cannot be creat- !
! ed, exit the bwc command-line tool. !
\*--------------------------------------------------------*/
if((data->fp = fopen(filename, "wb")) == NULL)
if((fp = fopen(filename, "wb")) == NULL)
{
// error opening file
fprintf(stderr, "o##########################################################o\n"\
@ -1518,7 +1519,7 @@ write_eas3(bwc_data *const data, char *const filename)
/*--------------------------------------------------------*\
! Write the eas3 header to the specified file. !
\*--------------------------------------------------------*/
if(write_eas3_header(data))
if(write_eas3_header(fp, data))
{
//error reading eas3 header
return 1;
@ -1528,10 +1529,10 @@ write_eas3(bwc_data *const data, char *const filename)
! Calculate the size of the data field used for the endian !
! conversion and write operations. !
\*--------------------------------------------------------*/
Lfield = data->info.nX * data->info.nY *
data->info.nZ * data->info.nTS * data->info.nPar;
Lfield = data->params.ndim1 * data->params.ndim2 *
data->params.ndim3 * data->params.nts * data->params.npar;
if(data->info.parameter->precision == 4)
if(data->params.accuracy == 1)
{
/*--------------------------------------------------------*\
! Convert the flow field data from big endian to endian. !
@ -1544,14 +1545,14 @@ write_eas3(bwc_data *const data, char *const filename)
/*--------------------------------------------------------*\
! Write the flow field data to the specified eas3 file. !
\*--------------------------------------------------------*/
if(fwrite(data->field.f, sizeof(float), Lfield, data->fp) != Lfield)
if(fwrite(data->field.f, sizeof(float), Lfield, fp) != Lfield)
{
// invalid read
fprintf(stderr, WRTERROR);
return 1;
}
}
else if(data->info.parameter->precision == 8)
else if(data->params.accuracy == 2)
{
/*--------------------------------------------------------*\
! Convert the flow field data from big endian to endian. !
@ -1564,7 +1565,7 @@ write_eas3(bwc_data *const data, char *const filename)
/*--------------------------------------------------------*\
! Write the flow field data to the specified eas3 file. !
\*--------------------------------------------------------*/
if(fwrite(data->field.d, sizeof(double), Lfield, data->fp) != Lfield)
if(fwrite(data->field.d, sizeof(double), Lfield, fp) != Lfield)
{
// invalid read
fprintf(stderr, WRTERROR);
@ -1575,7 +1576,7 @@ write_eas3(bwc_data *const data, char *const filename)
/*--------------------------------------------------------*\
! Close the file pointer and return to the function caller.!
\*--------------------------------------------------------*/
fclose(data->fp);
data->fp = NULL;
fclose(fp);
fp = NULL;
return 0;
}