htcp

Properties of water suspended in clouds
git clone git://git.meso-star.fr/htcp.git
Log | Files | Refs | README | LICENSE

commit a6b3f5ea231a4e70937cc0f11b362b0fa86fbda8
parent 75e5bed179c30c0d81116af22df6059a509de2b5
Author: Vincent Forest <vincent.forest@meso-star.com>
Date:   Mon, 16 Jul 2018 09:57:32 +0200

Small adjustment of the htcp_load test

Diffstat:
Msrc/test_htcp_load.c | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/test_htcp_load.c b/src/test_htcp_load.c @@ -66,13 +66,13 @@ main(int argc, char** argv) fseek(stream, ALIGN_SIZE(ftell(stream), pagesize), SEEK_SET); /* padding */ FOR_EACH(i, 0, i32[0]*i32[1]*i32[2]*i32[3]) { /* PABST */ - dbl[0] =-(double)i; + dbl[0] =(double)(i*2); CHK(fwrite(dbl, sizeof(dbl[0]), 1, stream) == 1); } fseek(stream, ALIGN_SIZE(ftell(stream), pagesize), SEEK_SET); /* padding */ FOR_EACH(i, 0, i32[0]*i32[1]*i32[2]*i32[3]) { /* T */ - dbl[0] =-(double)i; + dbl[0] =-(double)(i*2); CHK(fwrite(dbl, sizeof(dbl[0]), 1, stream) == 1); } fseek(stream, ALIGN_SIZE(ftell(stream), pagesize), SEEK_SET); /* padding */ @@ -122,8 +122,8 @@ main(int argc, char** argv) FOR_EACH(x, 0, desc.spatial_definition[0]) { CHK(htcp_desc_RVT_at(&desc, x, y, z, t) == (double)i); CHK(htcp_desc_RCT_at(&desc, x, y, z, t) ==-(double)i); - CHK(htcp_desc_PABST_at(&desc, x, y, z, t) ==-(double)i); - CHK(htcp_desc_T_at(&desc, x, y, z, t) ==-(double)i); + CHK(htcp_desc_PABST_at(&desc, x, y, z, t) ==(double)(i*2)); + CHK(htcp_desc_T_at(&desc, x, y, z, t) ==-(double)(i*2)); ++i; }}}} CHK(htcp_ref_put(htcp) == RES_OK);