Changeset 625
- Timestamp:
- 10/30/08 15:46:39 (4 months ago)
- Files:
-
- trunk/CDF3/src/lib/attr.c (modified) (71 diffs)
- trunk/CDF3/src/lib/dim.c (modified) (17 diffs)
- trunk/CDF3/src/lib/header.c (modified) (46 diffs)
- trunk/CDF3/src/lib/mpincio.c (modified) (1 diff)
- trunk/CDF3/src/lib/mpinetcdf.c (modified) (423 diffs)
- trunk/CDF3/src/lib/nc.c (modified) (24 diffs)
- trunk/CDF3/src/lib/nc.h (modified) (21 diffs)
- trunk/CDF3/src/lib/ncio.h (modified) (3 diffs)
- trunk/CDF3/src/lib/ncmpidtype.c (modified) (4 diffs)
- trunk/CDF3/src/lib/ncmpidtype.h (modified) (1 diff)
- trunk/CDF3/src/lib/ncx.c (modified) (131 diffs)
- trunk/CDF3/src/lib/ncx.h (modified) (4 diffs)
- trunk/CDF3/src/lib/pnetcdf.h (modified) (53 diffs)
- trunk/CDF3/src/lib/string.c (modified) (2 diffs)
- trunk/CDF3/src/lib/validator.c (modified) (15 diffs)
- trunk/CDF3/src/lib/var.c (modified) (34 diffs)
- trunk/CDF3/src/libf/copy_attf.c (modified) (1 diff)
- trunk/CDF3/src/libf/def_dimf.c (modified) (1 diff)
- trunk/CDF3/src/libf/def_varf.c (modified) (1 diff)
- trunk/CDF3/src/libf/del_attf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_att_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_var_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vara_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varaf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varm_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varmf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_vars_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/get_varsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_attf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_attidf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_attlenf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_attnamef.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_atttypef.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_dimf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_dimidf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_dimlenf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_dimnamef.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_nattsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_ndimsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_nvarsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_unlimdimf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_vardimidf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_varf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_varidf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_varnamef.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_varnattsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_varndimsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/inq_vartypef.c (modified) (1 diff)
- trunk/CDF3/src/libf/inqf.c (modified) (1 diff)
- trunk/CDF3/src/libf/mpifnetcdf.h (modified) (1 diff)
- trunk/CDF3/src/libf/pnetcdf.inc.in (modified) (2 diffs)
- trunk/CDF3/src/libf/put_att_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_att_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_att_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_att_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_att_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_att_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_var_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vara_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varaf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varm_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varmf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_double_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_doublef.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_int1_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_int1f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_int2_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_int2f.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_int_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_intf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_real_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_realf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_text_allf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_vars_textf.c (modified) (1 diff)
- trunk/CDF3/src/libf/put_varsf.c (modified) (1 diff)
- trunk/CDF3/src/libf/rename_attf.c (modified) (1 diff)
- trunk/CDF3/src/libf/rename_dimf.c (modified) (1 diff)
- trunk/CDF3/src/libf/rename_varf.c (modified) (1 diff)
- trunk/CDF3/src/utils/ncdump/ncdump.c (modified) (4 diffs)
- trunk/CDF3/src/utils/ncdump/ncdump.h (modified) (3 diffs)
- trunk/CDF3/src/utils/ncdump/vardata.c (modified) (13 diffs)
- trunk/CDF3/src/utils/ncdump/vardata.h (modified) (1 diff)
- trunk/CDF3/test/fandc/csnap.c (modified) (3 diffs)
- trunk/CDF3/test/fandc/pnctest.c (modified) (2 diffs)
- trunk/CDF3/test/fandc/pnctestf.F (modified) (1 diff)
- trunk/CDF3/test/largefile/large_files.c (modified) (6 diffs)
- trunk/CDF3/test/nc_test/util.c (modified) (2 diffs)
- trunk/CDF3/test/test_double/test_read.c (modified) (1 diff)
- trunk/CDF3/test/test_double/test_read_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_double/test_write.c (modified) (1 diff)
- trunk/CDF3/test/test_double/test_write_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_double_int/test_read.c (modified) (1 diff)
- trunk/CDF3/test/test_double_int/test_read_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_double_int/test_write.c (modified) (1 diff)
- trunk/CDF3/test/test_double_int/test_write_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_dtype/test_nonblocking.c (modified) (6 diffs)
- trunk/CDF3/test/test_float/test_read.c (modified) (1 diff)
- trunk/CDF3/test/test_float/test_read_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_float/test_write.c (modified) (1 diff)
- trunk/CDF3/test/test_float/test_write_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_int/Makefile.in (modified) (2 diffs)
- trunk/CDF3/test/test_int/test_read.c (modified) (1 diff)
- trunk/CDF3/test/test_int/test_read64.c (modified) (1 diff)
- trunk/CDF3/test/test_int/test_read_indep.c (modified) (1 diff)
- trunk/CDF3/test/test_int/test_write.c (modified) (1 diff)
- trunk/CDF3/test/test_int/test_write64.c (modified) (1 diff)
- trunk/CDF3/test/test_int/test_write_indep.c (modified) (1 diff)
- trunk/CDF3/test/testcases/ncmpi_vars_null_stride.c (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/CDF3/src/lib/attr.c
r613 r625 17 17 18 18 /* Prototypes of functions only used in this file */ 19 static NC_attr *elem_NC_attrarray(const NC_attrarray *ncap, int64_t elem);19 static NC_attr *elem_NC_attrarray(const NC_attrarray *ncap, size_t elem); 20 20 21 21 /* … … 39 39 * external representation (as the values of an attribute)? 40 40 */ 41 static int64_t42 ncmpix_len_NC_attrV(nc_type type, int64_t nelems)41 static size_t 42 ncmpix_len_NC_attrV(nc_type type, size_t nelems) 43 43 { 44 44 switch(type) { … … 65 65 NC_string *strp, 66 66 nc_type type, 67 int64_t nelems)68 { 69 NC_attr *attrp; 70 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);71 int64_t sz = M_RNDUP(sizeof(NC_attr));67 MPI_Offset nelems) 68 { 69 NC_attr *attrp; 70 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 71 size_t sz = M_RNDUP(sizeof(NC_attr)); 72 72 73 73 assert(!(xsz == 0 && nelems != 0)); … … 101 101 const char *name, 102 102 nc_type type, 103 int64_t nelems)103 MPI_Offset nelems) 104 104 { 105 105 NC_string *strp; … … 196 196 if(ref->nelems != 0) 197 197 { 198 const int64_t sz = ref->nelems * sizeof(NC_attr *);198 const size_t sz = ref->nelems * sizeof(NC_attr *); 199 199 ncap->value = (NC_attr **) malloc(sz); 200 200 if(ncap->value == NULL) … … 276 276 277 277 static NC_attr * 278 elem_NC_attrarray(const NC_attrarray *ncap, int64_t elem)278 elem_NC_attrarray(const NC_attrarray *ncap, size_t elem) 279 279 { 280 280 assert(ncap != NULL); 281 /* cast needed for braindead systems with signed int64_t*/281 /* cast needed for braindead systems with signed size_t*/ 282 282 if(ncap->nelems == 0 || (unsigned long) elem >= ncap->nelems) 283 283 return NULL; … … 295 295 */ 296 296 static NC_attrarray * 297 NC_attrarray0( NC *ncp, int 64_tvarid)297 NC_attrarray0( NC *ncp, int varid) 298 298 { 299 299 NC_attrarray *ap; … … 303 303 ap = &ncp->attrs; 304 304 } 305 else if(varid >= 0 && ( int64_t) varid < ncp->vars.nelems)305 else if(varid >= 0 && (size_t) varid < ncp->vars.nelems) 306 306 { 307 307 NC_var **vpp; … … 324 324 { 325 325 NC_attr **attrpp; 326 int64_t attrid;327 int64_t slen;326 size_t attrid; 327 size_t slen; 328 328 329 329 assert(ncap != NULL); … … 353 353 static int 354 354 NC_lookupattr(int ncid, 355 int 64_tvarid,355 int varid, 356 356 const char *name, /* attribute name */ 357 357 NC_attr **attrpp) /* modified on return */ … … 383 383 384 384 int 385 ncmpi_inq_attname(int ncid, int 64_t varid, int64_t attnum, char *name)385 ncmpi_inq_attname(int ncid, int varid, int attnum, char *name) 386 386 387 387 { … … 399 399 return NC_ENOTVAR; 400 400 401 attrp = elem_NC_attrarray(ncap, ( int64_t)attnum);401 attrp = elem_NC_attrarray(ncap, (size_t)attnum); 402 402 if(attrp == NULL) 403 403 return NC_ENOTATT; … … 411 411 412 412 int 413 ncmpi_inq_attid(int ncid, int 64_t varid, const char *name, int64_t *attnump)413 ncmpi_inq_attid(int ncid, int varid, const char *name, int *attnump) 414 414 { 415 415 int status; … … 432 432 433 433 if(attnump != NULL) 434 *attnump = (int 64_t)(attrpp - ncap->value);434 *attnump = (int)(attrpp - ncap->value); 435 435 436 436 return NC_NOERR; … … 438 438 439 439 int 440 ncmpi_inq_atttype(int ncid, int 64_tvarid, const char *name, nc_type *datatypep)440 ncmpi_inq_atttype(int ncid, int varid, const char *name, nc_type *datatypep) 441 441 { 442 442 int status; … … 454 454 455 455 int 456 ncmpi_inq_attlen(int ncid, int 64_t varid, const char *name, int64_t *lenp)456 ncmpi_inq_attlen(int ncid, int varid, const char *name, MPI_Offset *lenp) 457 457 { 458 458 int status; … … 471 471 int 472 472 ncmpi_inq_att(int ncid, 473 int 64_tvarid,473 int varid, 474 474 const char *name, /* input, attribute name */ 475 475 nc_type *datatypep, 476 int64_t *lenp)476 MPI_Offset *lenp) 477 477 { 478 478 int status; … … 493 493 494 494 int 495 ncmpi_rename_att( int ncid, int 64_tvarid, const char *name, const char *newname)495 ncmpi_rename_att( int ncid, int varid, const char *name, const char *newname) 496 496 { 497 497 int status; … … 562 562 563 563 int 564 ncmpi_copy_att(int ncid_in, int 64_t varid_in, const char *name, int64_t ncid_out, int64_t ovarid)564 ncmpi_copy_att(int ncid_in, int varid_in, const char *name, int ncid_out, int ovarid) 565 565 { 566 566 int status; … … 656 656 657 657 int 658 ncmpi_del_att(int ncid, int 64_tvarid, const char *name)658 ncmpi_del_att(int ncid, int varid, const char *name) 659 659 { 660 660 int status; … … 664 664 NC_attr *old = NULL; 665 665 int attrid; 666 int64_t slen;666 MPI_Offset slen; 667 667 668 668 status = ncmpii_NC_check_id(ncid, &ncp); … … 681 681 682 682 attrpp = (NC_attr **) ncap->value; 683 for(attrid = 0; ( int64_t) attrid < ncap->nelems; attrid++, attrpp++)683 for(attrid = 0; (size_t) attrid < ncap->nelems; attrid++, attrpp++) 684 684 { 685 685 if( slen == (*attrpp)->name->nchars && … … 690 690 } 691 691 } 692 if( ( int64_t) attrid == ncap->nelems )692 if( (size_t) attrid == ncap->nelems ) 693 693 return NC_ENOTATT; 694 694 /* end inline NC_findattr() */ 695 695 696 696 /* shuffle down */ 697 for(attrid++; ( int64_t) attrid < ncap->nelems; attrid++)697 for(attrid++; (size_t) attrid < ncap->nelems; attrid++) 698 698 { 699 699 *attrpp = *(attrpp + 1); … … 711 711 712 712 static int 713 ncmpix_pad_putn_Iuchar(void **xpp, int64_t nelems, const uchar *tp, nc_type type)713 ncmpix_pad_putn_Iuchar(void **xpp, MPI_Offset nelems, const uchar *tp, nc_type type) 714 714 { 715 715 switch(type) { … … 733 733 734 734 static int 735 ncmpix_pad_getn_Iuchar(const void **xpp, int64_t nelems, uchar *tp, nc_type type)735 ncmpix_pad_getn_Iuchar(const void **xpp, MPI_Offset nelems, uchar *tp, nc_type type) 736 736 { 737 737 switch(type) { … … 756 756 757 757 static int 758 ncmpix_pad_putn_Ischar(void **xpp, int64_t nelems, const schar *tp, nc_type type)758 ncmpix_pad_putn_Ischar(void **xpp, MPI_Offset nelems, const schar *tp, nc_type type) 759 759 { 760 760 switch(type) { … … 778 778 779 779 static int 780 ncmpix_pad_getn_Ischar(const void **xpp, int64_t nelems, schar *tp, nc_type type)780 ncmpix_pad_getn_Ischar(const void **xpp, MPI_Offset nelems, schar *tp, nc_type type) 781 781 { 782 782 switch(type) { … … 801 801 802 802 static int 803 ncmpix_pad_putn_Ishort(void **xpp, int64_t nelems, const short *tp, nc_type type)803 ncmpix_pad_putn_Ishort(void **xpp, MPI_Offset nelems, const short *tp, nc_type type) 804 804 { 805 805 switch(type) { … … 823 823 824 824 static int 825 ncmpix_pad_getn_Ishort(const void **xpp, int64_t nelems, short *tp, nc_type type)825 ncmpix_pad_getn_Ishort(const void **xpp, MPI_Offset nelems, short *tp, nc_type type) 826 826 { 827 827 switch(type) { … … 846 846 847 847 static int 848 ncmpix_pad_putn_Iint(void **xpp, int64_t nelems, const int *tp, nc_type type)848 ncmpix_pad_putn_Iint(void **xpp, MPI_Offset nelems, const int *tp, nc_type type) 849 849 { 850 850 switch(type) { … … 868 868 869 869 static int 870 ncmpix_pad_getn_Iint(const void **xpp, int64_t nelems, int *tp, nc_type type)870 ncmpix_pad_getn_Iint(const void **xpp, MPI_Offset nelems, int *tp, nc_type type) 871 871 { 872 872 switch(type) { … … 891 891 892 892 static int 893 ncmpix_pad_putn_Ilong(void **xpp, int64_t nelems, const long *tp, nc_type type)893 ncmpix_pad_putn_Ilong(void **xpp, MPI_Offset nelems, const long *tp, nc_type type) 894 894 { 895 895 switch(type) { … … 913 913 914 914 static int 915 ncmpix_pad_getn_Ilong(const void **xpp, int64_t nelems, long *tp, nc_type type)915 ncmpix_pad_getn_Ilong(const void **xpp, MPI_Offset nelems, long *tp, nc_type type) 916 916 { 917 917 switch(type) { … … 936 936 937 937 static int 938 ncmpix_pad_putn_Ifloat(void **xpp, int64_t nelems, const float *tp, nc_type type)938 ncmpix_pad_putn_Ifloat(void **xpp, MPI_Offset nelems, const float *tp, nc_type type) 939 939 { 940 940 switch(type) { … … 958 958 959 959 static int 960 ncmpix_pad_getn_Ifloat(const void **xpp, int64_t nelems, float *tp, nc_type type)960 ncmpix_pad_getn_Ifloat(const void **xpp, MPI_Offset nelems, float *tp, nc_type type) 961 961 { 962 962 switch(type) { … … 981 981 982 982 static int 983 ncmpix_pad_putn_Idouble(void **xpp, int64_t nelems, const double *tp, nc_type type)983 ncmpix_pad_putn_Idouble(void **xpp, MPI_Offset nelems, const double *tp, nc_type type) 984 984 { 985 985 switch(type) { … … 1003 1003 1004 1004 static int 1005 ncmpix_pad_getn_Idouble(const void **xpp, int64_t nelems, double *tp, nc_type type)1005 ncmpix_pad_getn_Idouble(const void **xpp, MPI_Offset nelems, double *tp, nc_type type) 1006 1006 { 1007 1007 switch(type) { … … 1027 1027 1028 1028 int 1029 ncmpi_put_att_text(int ncid, int 64_tvarid, const char *name,1030 int64_t nelems, const char *value)1029 ncmpi_put_att_text(int ncid, int varid, const char *name, 1030 MPI_Offset nelems, const char *value) 1031 1031 { 1032 1032 int status; … … 1052 1052 return status; 1053 1053 1054 /* cast needed for braindead systems with signed int64_t */1054 /* cast needed for braindead systems with signed size_t */ 1055 1055 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1056 1056 return NC_EINVAL; /* Invalid nelems */ … … 1064 1064 if(!NC_indef(ncp) ) 1065 1065 { 1066 const int64_t xsz = ncmpix_len_NC_attrV(NC_CHAR, nelems);1066 const size_t xsz = ncmpix_len_NC_attrV(NC_CHAR, nelems); 1067 1067 attrp = *attrpp; /* convenience */ 1068 1068 … … 1139 1139 1140 1140 int 1141 ncmpi_get_att_text(int ncid, int 64_tvarid, const char *name, char *str)1141 ncmpi_get_att_text(int ncid, int varid, const char *name, char *str) 1142 1142 { 1143 1143 int status; … … 1165 1165 1166 1166 int 1167 ncmpi_put_att_schar(int ncid, int 64_tvarid, const char *name,1168 nc_type type, int64_t nelems, const signed char *value)1167 ncmpi_put_att_schar(int ncid, int varid, const char *name, 1168 nc_type type, MPI_Offset nelems, const signed char *value) 1169 1169 { 1170 1170 int status; … … 1193 1193 return NC_ECHAR; 1194 1194 1195 /* cast needed for braindead systems with signed int64_t */1195 /* cast needed for braindead systems with signed size_t */ 1196 1196 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1197 1197 return NC_EINVAL; /* Invalid nelems */ … … 1205 1205 if(!NC_indef(ncp) ) 1206 1206 { 1207 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1207 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1208 1208 attrp = *attrpp; /* convenience */ 1209 1209 … … 1289 1289 1290 1290 int 1291 ncmpi_get_att_schar(int ncid, int 64_tvarid, const char *name, signed char *tp)1291 ncmpi_get_att_schar(int ncid, int varid, const char *name, signed char *tp) 1292 1292 { 1293 1293 int status; … … 1312 1312 1313 1313 int 1314 ncmpi_put_att_uchar(int ncid, int 64_tvarid, const char *name,1315 nc_type type, int64_t nelems, const unsigned char *value)1314 ncmpi_put_att_uchar(int ncid, int varid, const char *name, 1315 nc_type type, MPI_Offset nelems, const unsigned char *value) 1316 1316 { 1317 1317 int status; … … 1340 1340 return NC_ECHAR; 1341 1341 1342 /* cast needed for braindead systems with signed int64_t */1342 /* cast needed for braindead systems with signed size_t */ 1343 1343 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1344 1344 return NC_EINVAL; /* Invalid nelems */ … … 1352 1352 if(!NC_indef(ncp) ) 1353 1353 { 1354 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1354 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1355 1355 attrp = *attrpp; /* convenience */ 1356 1356 … … 1436 1436 1437 1437 int 1438 ncmpi_get_att_uchar(int ncid, int 64_tvarid, const char *name, unsigned char *tp)1438 ncmpi_get_att_uchar(int ncid, int varid, const char *name, unsigned char *tp) 1439 1439 { 1440 1440 int status; … … 1459 1459 1460 1460 int 1461 ncmpi_put_att_short(int ncid, int 64_tvarid, const char *name,1462 nc_type type, int64_t nelems, const short *value)1461 ncmpi_put_att_short(int ncid, int varid, const char *name, 1462 nc_type type, MPI_Offset nelems, const short *value) 1463 1463 { 1464 1464 int status; … … 1487 1487 return NC_ECHAR; 1488 1488 1489 /* cast needed for braindead systems with signed int64_t */1489 /* cast needed for braindead systems with signed size_t */ 1490 1490 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1491 1491 return NC_EINVAL; /* Invalid nelems */ … … 1499 1499 if(!NC_indef(ncp) ) 1500 1500 { 1501 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1501 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1502 1502 attrp = *attrpp; /* convenience */ 1503 1503 … … 1583 1583 1584 1584 int 1585 ncmpi_get_att_short(int ncid, int 64_tvarid, const char *name, short *tp)1585 ncmpi_get_att_short(int ncid, int varid, const char *name, short *tp) 1586 1586 { 1587 1587 int status; … … 1606 1606 1607 1607 int 1608 ncmpi_put_att_int(int ncid, int 64_tvarid, const char *name,1609 nc_type type, int64_t nelems, const int *value)1608 ncmpi_put_att_int(int ncid, int varid, const char *name, 1609 nc_type type, MPI_Offset nelems, const int *value) 1610 1610 { 1611 1611 int status; … … 1634 1634 return NC_ECHAR; 1635 1635 1636 /* cast needed for braindead systems with signed int64_t */1636 /* cast needed for braindead systems with signed size_t */ 1637 1637 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1638 1638 return NC_EINVAL; /* Invalid nelems */ … … 1646 1646 if(!NC_indef(ncp) ) 1647 1647 { 1648 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1648 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1649 1649 attrp = *attrpp; /* convenience */ 1650 1650 … … 1730 1730 1731 1731 int 1732 ncmpi_get_att_int(int ncid, int 64_tvarid, const char *name, int *tp)1732 ncmpi_get_att_int(int ncid, int varid, const char *name, int *tp) 1733 1733 { 1734 1734 int status; … … 1753 1753 1754 1754 int 1755 ncmpi_put_att_long(int ncid, int 64_tvarid, const char *name,1756 nc_type type, int64_t nelems, const long *value)1755 ncmpi_put_att_long(int ncid, int varid, const char *name, 1756 nc_type type, MPI_Offset nelems, const long *value) 1757 1757 { 1758 1758 int status; … … 1781 1781 return NC_ECHAR; 1782 1782 1783 /* cast needed for braindead systems with signed int64_t */1783 /* cast needed for braindead systems with signed size_t */ 1784 1784 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1785 1785 return NC_EINVAL; /* Invalid nelems */ … … 1793 1793 if(!NC_indef(ncp) ) 1794 1794 { 1795 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1795 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1796 1796 attrp = *attrpp; /* convenience */ 1797 1797 … … 1877 1877 1878 1878 int 1879 ncmpi_get_att_long(int ncid, int 64_tvarid, const char *name, long *tp)1879 ncmpi_get_att_long(int ncid, int varid, const char *name, long *tp) 1880 1880 { 1881 1881 int status; … … 1900 1900 1901 1901 int 1902 ncmpi_put_att_float(int ncid, int 64_tvarid, const char *name,1903 nc_type type, int64_t nelems, const float *value)1902 ncmpi_put_att_float(int ncid, int varid, const char *name, 1903 nc_type type, MPI_Offset nelems, const float *value) 1904 1904 { 1905 1905 int status; … … 1928 1928 return NC_ECHAR; 1929 1929 1930 /* cast needed for braindead systems with signed int64_t */1930 /* cast needed for braindead systems with signed size_t */ 1931 1931 if((unsigned long) nelems > X_INT_MAX) /* backward compat */ 1932 1932 return NC_EINVAL; /* Invalid nelems */ … … 1940 1940 if(!NC_indef(ncp) ) 1941 1941 { 1942 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);1942 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 1943 1943 attrp = *attrpp; /* convenience */ 1944 1944 … … 2024 2024 2025 2025 int 2026 ncmpi_get_att_float(int ncid, int 64_tvarid, const char *name, float *tp)2026 ncmpi_get_att_float(int ncid, int varid, const char *name, float *tp) 2027 2027 { 2028 2028 int status; … … 2047 2047 2048 2048 int 2049 ncmpi_put_att_double(int ncid, int 64_tvarid, const char *name,2050 nc_type type, int64_t nelems, const double *value)2049 ncmpi_put_att_double(int ncid, int varid, const char *name, 2050 nc_type type, MPI_Offset nelems, const double *value) 2051 2051 { 2052 2052 int status; … … 2075 2075 return NC_ECHAR; 2076 2076 2077 /* cast needed for braindead systems with signed int64_t */2078 if((unsigned long long) nelems > X_INT_MAX) /* backward compat */2079 return NC_EINVAL; /* Invalid nelems */2077 /* cast needed for braindead systems with signed size_t */ 2078 /* if((unsigned long long) nelems > X_INT_MAX) /* backward compat */ 2079 /* return NC_EINVAL; /* Invalid nelems */ 2080 2080 2081 2081 if(nelems != 0 && value == NULL) … … 2087 2087 if(!NC_indef(ncp) ) 2088 2088 { 2089 const int64_t xsz = ncmpix_len_NC_attrV(type, nelems);2089 const size_t xsz = ncmpix_len_NC_attrV(type, nelems); 2090 2090 attrp = *attrpp; /* convenience */ 2091 2091 … … 2170 2170 2171 2171 int 2172 ncmpi_get_att_double(int ncid, int 64_tvarid, const char *name, double *tp)2172 ncmpi_get_att_double(int ncid, int varid, const char *name, double *tp) 2173 2173 { 2174 2174 int status; … … 2197 2197 ncmpii_put_att( 2198 2198 int ncid, 2199 int 64_tvarid,2199 int varid, 2200 2200 const char *name, 2201 2201 nc_type type, 2202 int64_t nelems,2202 MPI_Offset nelems, 2203 2203 const void *value) 2204 2204 { … … 2235 2235 /* deprecated, used to support the 2.x interface */ 2236 2236 int 2237 ncmpii_get_att(int ncid, int 64_tvarid, const char *name, void *value)2237 ncmpii_get_att(int ncid, int varid, const char *name, void *value) 2238 2238 { 2239 2239 int status; trunk/CDF3/src/lib/dim.c
r622 r625 50 50 */ 51 51 static NC_dim * 52 ncmpii_new_NC_dim(const char *name, int64_t size)52 ncmpii_new_NC_dim(const char *name, MPI_Offset size) 53 53 { 54 54 NC_string *strp; … … 75 75 dup_NC_dim(const NC_dim *dimp) 76 76 { 77 return ncmpii_new_NC_dim(dimp->name->cp, (int64_t)dimp->size);77 return ncmpii_new_NC_dim(dimp->name->cp, dimp->size); 78 78 } 79 79 … … 97 97 NC_dim **loc = ncap->value; 98 98 99 for(; ( int64_t) dimid < ncap->nelems99 for(; (MPI_Offset) dimid < ncap->nelems 100 100 && (*loc)->size != NC_UNLIMITED; dimid++, loc++) 101 101 { … … 129 129 130 130 { 131 int64_t slen = strlen(name);131 MPI_Offset slen = strlen(name); 132 132 int dimid = 0; 133 133 NC_dim **loc = (NC_dim **) ncap->value; 134 134 135 for(; ( int64_t) dimid < ncap->nelems135 for(; (MPI_Offset) dimid < ncap->nelems 136 136 && (strlen((*loc)->name->cp) != slen 137 137 || strncmp((*loc)->name->cp, name, slen) != 0); … … 213 213 if(ref->nelems != 0) 214 214 { 215 const int64_t sz = ref->nelems * sizeof(NC_dim *);215 const MPI_Offset sz = ref->nelems * sizeof(NC_dim *); 216 216 ncap->value = (NC_dim **) malloc(sz); 217 217 if(ncap->value == NULL) … … 290 290 291 291 NC_dim * 292 ncmpii_elem_NC_dimarray(const NC_dimarray *ncap, int64_t elem)293 { 294 assert(ncap != NULL); 295 /* cast needed for braindead systems with signed int64_t */296 if(ncap->nelems == 0 || (unsigned long ) elem >= ncap->nelems)292 ncmpii_elem_NC_dimarray(const NC_dimarray *ncap, size_t elem) 293 { 294 assert(ncap != NULL); 295 /* cast needed for braindead systems with signed MPI_Offset */ 296 if(ncap->nelems == 0 || (unsigned long long) elem >= ncap->nelems) 297 297 return NULL; 298 298 … … 306 306 307 307 int 308 ncmpi_def_dim(int ncid, const char *name, int64_t size, int64_t *dimidp)308 ncmpi_def_dim(int ncid, const char *name, MPI_Offset size, int *dimidp) 309 309 { 310 310 int status; 311 311 NC *ncp; 312 int 64_tdimid;312 int dimid; 313 313 NC_dim *dimp; 314 314 … … 324 324 return status; 325 325 326 /* int64_t is usually a signed value, but serial netcdf uses327 * int64_t -- normally unsigned */326 /* MPI_Offset is usually a signed value, but serial netcdf uses 327 * MPI_Offset -- normally unsigned */ 328 328 if ((ncp->flags & NC_64BIT_OFFSET) && sizeof(off_t) > 4) { 329 329 /* CDF2 format and LFS */ … … 376 376 377 377 int 378 ncmpi_inq_dimid(int ncid, const char *name, int 64_t*dimid_ptr)378 ncmpi_inq_dimid(int ncid, const char *name, int *dimid_ptr) 379 379 { 380 380 int status; 381 381 NC *ncp; 382 int 64_tdimid;382 int dimid; 383 383 384 384 status = ncmpii_NC_check_id(ncid, &ncp); … … 397 397 398 398 int 399 ncmpi_inq_dim(int ncid, int 64_t dimid, char *name, int64_t *sizep)399 ncmpi_inq_dim(int ncid, int dimid, char *name, MPI_Offset *sizep) 400 400 { 401 401 int status; … … 407 407 return status; 408 408 409 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, ( int64_t)dimid);409 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, (size_t) dimid); 410 410 if(dimp == NULL) 411 411 return NC_EBADDIM; … … 429 429 430 430 int 431 ncmpi_inq_dimname(int ncid, int 64_tdimid, char *name)431 ncmpi_inq_dimname(int ncid, int dimid, char *name) 432 432 { 433 433 int status; … … 439 439 return status; 440 440 441 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, ( int64_t)dimid);441 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, (size_t) dimid); 442 442 if(dimp == NULL) 443 443 return NC_EBADDIM; … … 455 455 456 456 int 457 ncmpi_inq_dimlen(int ncid, int 64_t dimid, int64_t *lenp)457 ncmpi_inq_dimlen(int ncid, int dimid, MPI_Offset *lenp) 458 458 { 459 459 int status; … … 465 465 return status; 466 466 467 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, ( int64_t)dimid);467 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, (size_t) dimid); 468 468 if(dimp == NULL) 469 469 return NC_EBADDIM; … … 481 481 482 482 int 483 ncmpi_rename_dim( int ncid, int 64_tdimid, const char *newname)483 ncmpi_rename_dim( int ncid, int dimid, const char *newname) 484 484 { 485 485 int status; … … 503 503 return NC_ENAMEINUSE; 504 504 505 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, ( int64_t)dimid);505 dimp = ncmpii_elem_NC_dimarray(&ncp->dims, (size_t) dimid); 506 506 if(dimp == NULL) 507 507 return NC_EBADDIM; trunk/CDF3/src/lib/header.c
r614 r625 29 29 30 30 /* Prototypes for functions used only in this file */ 31 static int64_t hdr_len_NC_string(const NC_string *ncstrp, int64_t sizeof_t);32 static int64_t hdr_len_NC_dim(const NC_dim *dimp, int64_t sizeof_t);33 static int64_t hdr_len_NC_dimarray(const NC_dimarray *ncap, int64_t sizeof_t);34 static int64_t hdr_len_NC_attr(const NC_attr *attrp, int64_t sizeof_t);35 static int64_t hdr_len_NC_attrarray(const NC_attrarray *ncap, int64_t sizeof_t);36 static int64_t hdr_len_NC_var(const NC_var *varp, int64_t sizeof_off_t, int64_t sizeof_t);37 static int64_t hdr_len_NC_vararray(const NC_vararray *ncap, int64_t sizeof_off_t, int64_t sizeof_t);31 static MPI_Offset hdr_len_NC_string(const NC_string *ncstrp, MPI_Offset sizeof_t); 32 static MPI_Offset hdr_len_NC_dim(const NC_dim *dimp, MPI_Offset sizeof_t); 33 static MPI_Offset hdr_len_NC_dimarray(const NC_dimarray *ncap, MPI_Offset sizeof_t); 34 static MPI_Offset hdr_len_NC_attr(const NC_attr *attrp, MPI_Offset sizeof_t); 35 static MPI_Offset hdr_len_NC_attrarray(const NC_attrarray *ncap, MPI_Offset sizeof_t); 36 static MPI_Offset hdr_len_NC_var(const NC_var *varp, MPI_Offset sizeof_off_t, MPI_Offset sizeof_t); 37 static MPI_Offset hdr_len_NC_vararray(const NC_vararray *ncap, MPI_Offset sizeof_off_t, MPI_Offset sizeof_t); 38 38 static int hdr_put_NCtype(bufferinfo *pbp, NCtype type); 39 39 static int hdr_put_nc_type(bufferinfo *pbp, const nc_type *typep); … … 47 47 static int hdr_put_NC_vararray(bufferinfo *pbp, const NC_vararray *ncap); 48 48 static int hdr_fetch(bufferinfo *gbp); 49 static int hdr_check_buffer(bufferinfo *gbp, int64_t nextread);49 static int hdr_check_buffer(bufferinfo *gbp, MPI_Offset nextread); 50 50 static int hdr_get_NCtype(bufferinfo *gbp, NCtype *typep); 51 static int hdr_get_size_t(bufferinfo *gbp, int64_t *sp);51 static int hdr_get_size_t(bufferinfo *gbp, MPI_Offset *sp); 52 52 static int hdr_get_NC_string(bufferinfo *gbp, NC_string **ncstrpp); 53 53 static int hdr_get_NC_dim(bufferinfo *gbp, NC_dim **dimpp); … … 65 65 static const schar ncmagic[] = {'C', 'D', 'F', 0x02}; 66 66 static const schar ncmagic1[] = {'C', 'D', 'F', 0x01}; 67 static const schar ncmagic2[] = {'C', 'D', 'F', 0x0 3};67 static const schar ncmagic2[] = {'C', 'D', 'F', 0x05}; 68 68 69 69 /* … … 76 76 */ 77 77 int 78 ncmpii_NC_computeshapes(NC *ncp , int sizeof_t)78 ncmpii_NC_computeshapes(NC *ncp) 79 79 { 80 80 NC_var **vpp = (NC_var **)ncp->vars.value; … … 83 83 NC_var *first_rec = NULL; /* first "record" var */ 84 84 int status; 85 int i, j; 86 87 ncp->begin_var = (int64_t) ncp->xsz; 88 ncp->begin_rec = (int64_t) ncp->xsz; 85 86 ncp->begin_var = (MPI_Offset) ncp->xsz; 87 ncp->begin_rec = (MPI_Offset) ncp->xsz; 89 88 ncp->recsize = 0; 90 89 … … 116 115 * Usually overwritten in first_rec != NULL clause. 117 116 */ 118 ncp->begin_rec = (*vpp)->begin + ( int64_t)(*vpp)->len;117 ncp->begin_rec = (*vpp)->begin + (MPI_Offset)(*vpp)->len; 119 118 } 120 119 } … … 155 154 #define X_SIZEOF_NCTYPE X_SIZEOF_INT 156 155 157 static int64_t158 hdr_len_NC_string(const NC_string *ncstrp, int64_t sizeof_t)156 static MPI_Offset 157 hdr_len_NC_string(const NC_string *ncstrp, MPI_Offset sizeof_t) 159 158 { 160 // int64_t sz = X_SIZEOF_SIZE_T; /* nchars */159 // MPI_Offset sz = X_SIZEOF_SIZE_T; /* nchars */ 161 160 int sz = sizeof_t; /* nchars */ 162 161 … … 169 168 } 170 169 171 static int64_t172 hdr_len_NC_dim(const NC_dim *dimp, int64_t sizeof_t)170 static MPI_Offset 171 hdr_len_NC_dim(const NC_dim *dimp, MPI_Offset sizeof_t) 173 172 { 174 int64_t sz;173 MPI_Offset sz; 175 174 176 175 assert(dimp != NULL); … … 183 182 } 184 183 185 static int64_t186 hdr_len_NC_dimarray(const NC_dimarray *ncap, int64_t sizeof_t)184 static MPI_Offset 185 hdr_len_NC_dimarray(const NC_dimarray *ncap, MPI_Offset sizeof_t) 187 186 { 188 int64_t xlen = X_SIZEOF_NCTYPE; /* type */187 MPI_Offset xlen = X_SIZEOF_NCTYPE; /* type */ 189 188 // xlen += X_SIZEOF_SIZE_T; /* count */ 190 189 xlen += sizeof_t; /* count */ … … 203 202 } 204 203 205 static int64_t206 hdr_len_NC_attr(const NC_attr *attrp, int64_t sizeof_t)204 static MPI_Offset 205 hdr_len_NC_attr(const NC_attr *attrp, MPI_Offset sizeof_t) 207 206 { 208 int64_t sz;207 MPI_Offset sz; 209 208 210 209 assert(attrp != NULL); … … 219 218 } 220 219 221 static int64_t222 hdr_len_NC_attrarray(const NC_attrarray *ncap, int64_t sizeof_t)220 static MPI_Offset 221 hdr_len_NC_attrarray(const NC_attrarray *ncap, MPI_Offset sizeof_t) 223 222 { 224 int64_t xlen = X_SIZEOF_NCTYPE; /* type */223 MPI_Offset xlen = X_SIZEOF_NCTYPE; /* type */ 225 224 // xlen += X_SIZEOF_SIZE_T; /* count */ 226 225 xlen += sizeof_t; /* count */ … … 239 238 } 240 239 241 static int64_t242 hdr_len_NC_var(const NC_var *varp, int64_t sizeof_off_t, int64_t sizeof_t)240 static MPI_Offset 241 hdr_len_NC_var(const NC_var *varp, MPI_Offset sizeof_off_t, MPI_Offset sizeof_t) 243 242 { 244 int64_t sz;243 MPI_Offset sz; 245 244 246 245 assert(varp != NULL); … … 263 262 } 264 263 265 static int64_t266 hdr_len_NC_vararray(const NC_vararray *ncap, int64_t sizeof_off_t, int64_t sizeof_t)264 static MPI_Offset 265 hdr_len_NC_vararray(const NC_vararray *ncap, MPI_Offset sizeof_off_t, MPI_Offset sizeof_t) 267 266 { 268 int64_t xlen = X_SIZEOF_NCTYPE; /* type */267 MPI_Offset xlen = X_SIZEOF_NCTYPE; /* type */ 269 268 // xlen += X_SIZEOF_SIZE_T; /* count */ 270 269 xlen += sizeof_t; /* count */ … … 283 282 } 284 283 285 int64_t286 ncmpii_hdr_len_NC(const NC *ncp, int64_t sizeof_off_t)284 MPI_Offset 285 ncmpii_hdr_len_NC(const NC *ncp, MPI_Offset sizeof_off_t) 287 286 { 288 int64_t xlen = sizeof(ncmagic);287 MPI_Offset xlen = sizeof(ncmagic); 289 288 290 289 assert(ncp != NULL); … … 337 336 int status; 338 337 339 status = ncmpix_put_size_t(&pbp->pos, &ncstrp->nchars, pbp->version == 3? 8 : 4);338 status = ncmpix_put_size_t(&pbp->pos, &ncstrp->nchars, pbp->version == 5 ? 8 : 4); 340 339 if (status != ENOERR) 341 340 return status; … … 354 353 hdr_put_NC_attrV(bufferinfo *pbp, const NC_attr *attrp) { 355 354 void *value = attrp->xvalue; 356 int64_t padding, esz;355 MPI_Offset padding, esz; 357 356 358 357 esz = ncmpix_len_nctype(attrp->type); … … 375 374 return status; 376 375 377 status = ncmpix_put_size_t(&pbp->pos, &dimp->size, pbp->version == 3? 8 : 4);376 status = ncmpix_put_size_t(&pbp->pos, &dimp->size, pbp->version == 5 ? 8 : 4); 378 377 if (status != ENOERR) 379 378 return status; … … 394 393 return status; 395 394 396 status = ncmpix_put_size_t(&pbp->pos, &attrp->nelems, pbp->version == 3? 8 : 4);395 status = ncmpix_put_size_t(&pbp->pos, &attrp->nelems, pbp->version == 5 ? 8 : 4); 397 396 if (status != ENOERR) 398 397 return status; … … 409 408 int status; 410 409 int i; 410 MPI_Offset tmp_ndims; 411 411 status = hdr_put_NC_string(pbp, varp->name); 412 412 if (status != ENOERR) 413 413 return status; 414 414 415 status = ncmpix_put_size_t(&pbp->pos, &varp->ndims, pbp->version == 3 ? 8 : 4); 415 tmp_ndims = varp->ndims; 416 status = ncmpix_put_size_t(&pbp->pos, &tmp_ndims, pbp->version == 5 ? 8 : 4); 416 417 if (status != ENOERR) 417 418 return status; 418 419 419 420 for (i=0; i< varp->ndims; i++){ 420 const int64_t dim_id = (const int64_t) varp->dimids[i];421 status = ncmpix_put_size_t(&pbp->pos, &dim_id, pbp->version == 3? 8 : 4);421 const MPI_Offset dim_id = (const MPI_Offset) varp->dimids[i]; 422 status = ncmpix_put_size_t(&pbp->pos, &dim_id, pbp->version == 5 ? 8 : 4); 422 423 } 423 424 /* … … 444 445 return status; 445 446 446 status = ncmpix_put_size_t(&pbp->pos, &varp->len, pbp->version == 3? 8 : 4);447 status = ncmpix_put_size_t(&pbp->pos, &varp->len, pbp->version == 5 ? 8 : 4); 447 448 if (status != ENOERR) 448 449 return status; … … 463 464 if (ncap == NULL || ncap->nelems == 0) { 464 465 /* ABSENT */ 465 const int64_t nosz = 0;466 const MPI_Offset nosz = 0; 466 467 status = hdr_put_NCtype(pbp, NC_UNSPECIFIED); 467 468 if (status != ENOERR) 468 469 return status; 469 470 470 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 3? 8 : 4);471 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 5 ? 8 : 4); 471 472 if (status != ENOERR) 472 473 return status; … … 479 480 return status; 480 481 481 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 3? 8 : 4);482 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 5 ? 8 : 4); 482 483 if (status != ENOERR) 483 484 return status; … … 501 502 if (ncap == NULL || ncap->nelems == 0) { 502 503 /* ABSENT */ 503 const int64_t nosz = 0;504 const MPI_Offset nosz = 0; 504 505 status = hdr_put_NCtype(pbp, NC_UNSPECIFIED); 505 506 if (status != ENOERR) 506 507 return status; 507 508 508 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 3? 8 : 4);509 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 5 ? 8 : 4); 509 510 if (status != ENOERR) 510 511 return status; … … 517 518 return status; 518 519 519 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 3? 8 : 4);520 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 5 ? 8 : 4); 520 521 if (status != ENOERR) 521 522 return status; … … 539 540 if (ncap == NULL || ncap->nelems == 0) { 540 541 /* ABSENT */ 541 const int64_t nosz = 0;542 const MPI_Offset nosz = 0; 542 543 status = hdr_put_NCtype(pbp, NC_UNSPECIFIED); 543 544 if (status != ENOERR) 544 545 return status; 545 546 546 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 3? 8 : 4);547 status = ncmpix_put_size_t(&pbp->pos, &nosz, pbp->version == 5 ? 8 : 4); 547 548 if (status != ENOERR) 548 549 return status; … … 555 556 return status; 556 557 557 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 3? 8 : 4);558 status = ncmpix_put_size_t(&pbp->pos, &ncap->nelems, pbp->version == 5 ? 8 : 4); 558 559 if (status != ENOERR) 559 560 return status; … … 573 574 int status; 574 575 bufferinfo putbuf; 575 int64_t nrecs;576 MPI_Offset nrecs; 576 577 577 578 putbuf.nciop = NULL; … … 581 582 582 583 if (ncp->flags & NC_64BIT_DATA) 583 putbuf.version = 3;584 putbuf.version = 5; 584 585 else if (ncp->flags & NC_64BIT_OFFSET) 585 586 putbuf.version = 2; … … 587 588 putbuf.version = 1; 588 589 589 if (putbuf.version == 3)590 if (putbuf.version == 5) 590 591 status = ncmpix_putn_schar_schar(&putbuf.pos, sizeof(ncmagic2), ncmagic2); 591 592 else if (putbuf.version == 2) … … 598 599 599 600 nrecs = ncp->numrecs; 600 status = ncmpix_put_size_t(&putbuf.pos, &nrecs, putbuf.version == 3? 8 : 4);601 status = ncmpix_put_size_t(&putbuf.pos, &nrecs, putbuf.version == 5 ? 8 : 4); 601 602 if (status != ENOERR) 602 603 return status; … … 638 639 MPI_Comm comm; 639 640 int mpireturn; 640 int64_t slack; /* any leftover data in the buffer */641 MPI_Offset slack; /* any leftover data in the buffer */ 641 642 642 643 assert(gbp->base != NULL); … … 688 689 */ 689 690 static int 690 hdr_check_buffer(bufferinfo *gbp, int64_t nextread) {691 hdr_check_buffer(bufferinfo *gbp, MPI_Offset nextread) { 691 692 if ((char *)gbp->pos + nextread <= (char *)gbp->base + gbp->size) 692 693 return ENOERR; … … 697 698 hdr_get_NCtype(bufferinfo *gbp, NCtype *typep) { 698 699 int type = 0; 699 // int sizeof_t = (gbp->version == 3) ? 8 : 4;700 // int sizeof_t = (gbp->version == 5) ? 8 : 4; 700 701 int sizeof_t = 4; 701 702 int status = hdr_check_buffer(gbp, sizeof_t); … … 713 714 714 715 static int 715 hdr_get_size_t(bufferinfo *gbp, int64_t *sp) {716 int64_t sizeof_t = (gbp->version == 3) ? 8 : 4;716 hdr_get_size_t(bufferinfo *gbp, MPI_Offset *sp) { 717 MPI_Offset sizeof_t = (gbp->version == 5) ? 8 : 4; 717 718 int status = hdr_check_buffer(gbp, sizeof_t); 718 719 if (status != ENOERR) … … 725 726 hdr_get_NC_string(bufferinfo *gbp, NC_string **ncstrpp) { 726 727 int status; 727 int64_t nchars = 0, nbytes, padding, bufremain, strcount;728 MPI_Offset nchars = 0, nbytes, padding, bufremain, strcount; 728 729 NC_string *ncstrp; 729 730 char *cpos; … … 742 743 padding = _RNDUP(X_SIZEOF_CHAR * ncstrp->nchars, X_ALIGN) 743 744 - X_SIZEOF_CHAR * ncstrp->nchars; 744 bufremain = gbp->size - ( int64_t)((char *)gbp->pos - (char *)gbp->base);745 bufremain = gbp->size - (MPI_Offset)((char *)gbp->pos - (char *)gbp->base); 745 746 cpos = ncstrp->cp; 746 747 … … 876 877 } 877 878 878 int64_t879 MPI_Offset 879 880 ncmpix_len_nctype(nc_type type) { 880 881 switch(type) { … … 904 905 void *value = attrp->xvalue; 905 906 char pad[X_ALIGN-1]; 906 int64_t nbytes, esz, padding, bufremain, attcount;907 MPI_Offset nbytes, esz, padding, bufremain, attcount; 907 908 908 909 esz = ncmpix_len_nctype(attrp->type); 909 910 padding = attrp->xsz - esz * attrp->nelems; 910 bufremain = gbp->size - ( int64_t)((char *)gbp->pos - (char *)gbp->base);911 bufremain = gbp->size - (MPI_Offset)((char *)gbp->pos - (char *)gbp->base); 911 912 nbytes = esz * attrp->nelems; 912 913 … … 944 945 int status; 945 946 nc_type type; 946 int64_t nelems;947 MPI_Offset nelems; 947 948 NC_attr *attrp; 948 949 … … 1029 1030 NC_string *strp; 1030 1031 int status; 1031 int64_t ndims, dim; 1032 MPI_Offset ndims, dim; 1033 MPI_Offset tmp_dimids; 1032 1034 NC_var *varp; 1033 1035 int i; … … 1050 1052 1051 1053 for (dim = 0; dim < ndims; dim++ ) { 1052 status = hdr_check_buffer(gbp, (gbp->version == 3? 8 : 4));1054 status = hdr_check_buffer(gbp, (gbp->version == 5 ? 8 : 4)); 1053 1055 if(status != ENOERR) { 1054 1056 ncmpii_free_NC_var(varp); 1055 1057 return status; 1056 1058 } 1057 status = hdr_get_size_t(gbp, &(varp->dimids[dim])); 1059 status = hdr_get_size_t(gbp, &tmp_dimids); 1060 varp->dimids[dim] = (int)tmp_dimids; 1058 1061 if(status != ENOERR) { 1059 1062 return status; … … 1061 1064 1062 1065 /* 1063 if (gbp->version == 3) {1066 if (gbp->version == 5) { 1064 1067 status = ncmpix_getn_long_long((const void **)(&gbp->pos), 1065 1, ( int64_t*)varp->dimids + dim);1068 1, (MPI_Offset*)varp->dimids + dim); 1066 1069 } else { 1067 1070 status = ncmpix_getn_int_int((const void **)(&gbp->pos), … … 1167 1170 bufferinfo getbuf; 1168 1171 schar magic[sizeof(ncmagic)]; 1169 int64_t nrecs = 0;1172 MPI_Offset nrecs = 0; 1170 1173 1171 1174 assert(ncp != NULL); … … 1208 1211 return NC_ESMALL; 1209 1212 } 1210 } else if (magic[sizeof(ncmagic)-1] == 0x 3) {1211 getbuf.version = 3;1213 } else if (magic[sizeof(ncmagic)-1] == 0x5) { 1214 getbuf.version = 5; 1212 1215 fSet(ncp->flags, NC_64BIT_DATA); 1213 1216 if (sizeof(MPI_Offset) != 8) { … … 1226 1229 return status; 1227 1230 } 1228 status = ncmpix_get_size_t((const void **)(&getbuf.pos), &nrecs, (getbuf.version == 3) ? 8 : 4);1229 1230 if (getbuf.version == 3) {1231 status = ncmpix_get_size_t((const void **)(&getbuf.pos), &nrecs, (getbuf.version == 5) ? 8 : 4); 1232 1233 if (getbuf.version == 5) { 1231 1234 getbuf.index += X_SIZEOF_LONG; 1232 1235 } else { … … 1264 1267 1265 1268 ncp->xsz = ncmpii_hdr_len_NC(ncp, (getbuf.version == 1) ? 4 : 8 ); 1266 status = ncmpii_NC_computeshapes(ncp , (getbuf.version == 3) ? 8 : 4);1269 status = ncmpii_NC_computeshapes(ncp); 1267 1270 free(getbuf.base); 1268 1271 trunk/CDF3/src/lib/mpincio.c
r613 r625 271 271 272 272 int 273 ncmpiio_move(ncio *const nciop, int64_t to, int64_t from, int64_t nbytes) {273 ncmpiio_move(ncio *const nciop, MPI_Offset to, MPI_Offset from, MPI_Offset nbytes) { 274 274 int mpireturn, mpierr = 0, errcheck; 275 const int64_t bufsize = 4096;276 int64_t movesize, bufcount;275 const MPI_Offset bufsize = 4096; 276 MPI_Offset movesize, bufcount; 277 277 int rank, grpsize; 278 278 void *buf = malloc(bufsize); trunk/CDF3/src/lib/mpinetcdf.c
r622 r625 30 30 static int need_convert(nc_type nctype,MPI_Datatype mpitype); 31 31 static int need_swap(nc_type nctype,MPI_Datatype mpitype); 32 static int x_putn_schar(void *xbuf, const void *buf, int64_t nelems,32 static int x_putn_schar(void *xbuf, const void *buf, MPI_Offset nelems, 33 33 MPI_Datatype datatype); 34 static int x_putn_short(void *xbuf, const void *buf, int64_t nelems,34 static int x_putn_short(void *xbuf, const void *buf, MPI_Offset nelems, 35 35 MPI_Datatype datatype); 36 static int x_putn_int(void *xbuf, const void *buf, int64_t nelems,36 static int x_putn_int(void *xbuf, const void *buf, MPI_Offset nelems, 37 37 MPI_Datatype datatype); 38 static int x_putn_float(void *xbuf, const void *buf, int64_t nelems,38 static int x_putn_float(void *xbuf, const void *buf, MPI_Offset nelems, 39 39 MPI_Datatype datatype); 40 static int x_putn_double(void *xbuf, const void *buf, int64_t nelems,40 static int x_putn_double(void *xbuf, const void *buf, MPI_Offset nelems, 41 41 MPI_Datatype datatype); 42 static int x_getn_schar(const void *xbuf, void *buf, int64_t nelems,42 static int x_getn_schar(const void *xbuf, void *buf, MPI_Offset nelems, 43 43 MPI_Datatype datatype); 44 static int x_getn_short(const void *xbuf, void *buf, int64_t nelems,44 static int x_getn_short(const void *xbuf, void *buf, MPI_Offset nelems, 45 45 MPI_Datatype datatype); 46 static int x_getn_int(const void *xbuf, void *buf, int64_t nelems,46 static int x_getn_int(const void *xbuf, void *buf, MPI_Offset nelems, 47 47 MPI_Datatype datatype); 48 static int x_getn_float(const void *xbuf, void *buf, int64_t nelems,48 static int x_getn_float(const void *xbuf, void *buf, MPI_Offset nelems, 49 49 MPI_Datatype datatype); 50 static int x_getn_double(const void *xbuf, void *buf, int64_t nelems,50 static int x_getn_double(const void *xbuf, void *buf, MPI_Offset nelems, 51 51 MPI_Datatype datatype); 52 52 static int set_var1_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, 53 const int64_t index[]);53 const MPI_Offset index[]); 54 54 static int set_var_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp); 55 55 static int set_vara_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, 56 const int64_t start[], const int64_t count[],56 const MPI_Offset start[], const MPI_Offset count[], 57 57 int getnotput); 58 58 static int set_vars_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, 59 const int64_t start[], const int64_t count[],60 const int64_t stride[], int getnotput);59 const MPI_Offset start[], const MPI_Offset count[], 60 const MPI_Offset stride[], int getnotput); 61 61 static int check_mpifh(NC* ncp, MPI_File *mpifh, MPI_Comm comm, 62 62 int collective); … … 67 67 ncmpi_create(MPI_Comm comm, const char *path, int cmode, MPI_Info info, int *ncidp) { 68 68 int status = NC_NOERR; 69 int64_t sizeof_off_t = 0;70 int64_t chunksize=4098; /* might be a good thing to hint later */69 MPI_Offset sizeof_off_t = 0; 70 MPI_Offset chunksize=4098; /* might be a good thing to hint later */ 71 71 NC *ncp; 72 72 … … 128 128 int status = NC_NOERR; 129 129 NC *ncp; 130 int64_t chunksize=4098; /* might be a good thing to hint later */130 MPI_Offset chunksize=4098; /* might be a good thing to hint later */ 131 131 132 132 ncp = ncmpii_new_NC(&chunksize); … … 195 195 int status; 196 196 NC *ncp; 197 int64_t mynumrecs, numrecs;197 MPI_Offset mynumrecs, numrecs; 198 198 199 199 status = ncmpii_NC_check_id(ncid, &ncp); … … 221 221 222 222 mynumrecs = ncp->numrecs; 223 MPI_Allreduce(&mynumrecs, &numrecs, 1, MPI_LONG , MPI_MAX, ncp->nciop->comm);223 MPI_Allreduce(&mynumrecs, &numrecs, 1, MPI_LONG_LONG_INT, MPI_MAX, ncp->nciop->comm); 224 224 if (numrecs > ncp->numrecs) { 225 225 ncp->numrecs = numrecs; … … 494 494 495 495 static void 496 swapn(void *dst, const void *src, int64_t nn, int xsize)496 swapn(void *dst, const void *src, MPI_Offset nn, int xsize) 497 497 { 498 498 int i; … … 508 508 509 509 static int 510 x_putn_schar(void *xbuf, const void *buf, int64_t nelems, MPI_Datatype datatype) {510 x_putn_schar(void *xbuf, const void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 511 511 void *xp, *data; 512 512 int status = ENOERR; … … 533 533 534 534 static int 535 x_putn_short(void *xbuf, const void *buf, int64_t nelems, MPI_Datatype datatype) {535 x_putn_short(void *xbuf, const void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 536 536 void *xp, *data; 537 537 int datainc; … … 563 563 564 564 static int 565 x_putn_int(void *xbuf, const void *buf, int64_t nelems, MPI_Datatype datatype) {565 x_putn_int(void *xbuf, const void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 566 566 void *xp, *data; 567 567 int datainc; … … 593 593 594 594 static int 595 x_putn_float(void *xbuf, const void *buf, int64_t nelems, MPI_Datatype datatype) {595 x_putn_float(void *xbuf, const void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 596 596 void *xp, *data; 597 597 int datainc; … … 623 623 624 624 int 625 x_putn_double(void *xbuf, const void *buf, int64_t nelems, MPI_Datatype datatype) {625 x_putn_double(void *xbuf, const void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 626 626 void *xp, *data; 627 627 int datainc; … … 653 653 654 654 static int 655 x_getn_schar(const void *xbuf, void *buf, int64_t nelems, MPI_Datatype datatype) {655 x_getn_schar(const void *xbuf, void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 656 656 void *xp, *data; 657 657 int status = ENOERR; … … 677 677 678 678 static int 679 x_getn_short(const void *xbuf, void *buf, int64_t nelems, MPI_Datatype datatype) {679 x_getn_short(const void *xbuf, void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 680 680 char *xp, *data; 681 681 int datainc; … … 707 707 708 708 static int 709 x_getn_int(const void *xbuf, void *buf, int64_t nelems, MPI_Datatype datatype) {709 x_getn_int(const void *xbuf, void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 710 710 char *xp, *data; 711 711 int datainc; … … 737 737 738 738 static int 739 x_getn_float(const void *xbuf, void *buf, int64_t nelems, MPI_Datatype datatype) {739 x_getn_float(const void *xbuf, void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 740 740 char *xp, *data; 741 741 int datainc; … … 767 767 768 768 static int 769 x_getn_double(const void *xbuf, void *buf, int64_t nelems, MPI_Datatype datatype) {769 x_getn_double(const void *xbuf, void *buf, MPI_Offset nelems, MPI_Datatype datatype) { 770 770 char *xp, *data; 771 771 int datainc; … … 833 833 */ 834 834 static int 835 NCcoordck(NC *ncp, const NC_var *varp, const int64_t *coord)836 { 837 const int64_t *ip;838 int64_t *up;835 NCcoordck(NC *ncp, const NC_var *varp, const MPI_Offset *coord) 836 { 837 const MPI_Offset *ip; 838 MPI_Offset *up; 839 839 840 840 if(varp->ndims == 0) … … 845 845 { 846 846 847 if(*coord > X_INT64_T_MAX)847 /* if(*coord > X_INT64_T_MAX) 848 848 return NC_EINVALCOORDS; /* sanity check */ 849 849 if(NC_readonly(ncp) && *coord >= ncp->numrecs) … … 872 872 for(; ip < coord + varp->ndims; ip++, up++) 873 873 { 874 /* cast needed for braindead systems with signed int64_t */875 if( *ip >= ( uint64_t)*up )874 /* cast needed for braindead systems with signed MPI_Offset */ 875 if( *ip >= (MPI_Offset)*up ) 876 876 return NC_EINVALCOORDS; 877 877 } … … 885 885 static int 886 886 NCedgeck(const NC *ncp, const NC_var *varp, 887 const int64_t *start, const int64_t *edges)888 { 889 const int64_t *const end = start + varp->ndims;890 const int64_t *shp = varp->shape;887 const MPI_Offset *start, const MPI_Offset *edges) 888 { 889 const MPI_Offset *const end = start + varp->ndims; 890 const MPI_Offset *shp = varp->shape; 891 891 892 892 if(varp->ndims == 0) … … 902 902 for(; start < end; start++, edges++, shp++) 903 903 { 904 /* cast needed for braindead systems with signed int64_t */905 if( *edges > ( uint64_t)*shp || *start + *edges > (uint64_t)*shp)904 /* cast needed for braindead systems with signed MPI_Offset */ 905 if( *edges > (MPI_Offset)*shp || *start + *edges > (MPI_Offset)*shp) 906 906 { 907 907 return(NC_EEDGE); … … 916 916 static int 917 917 NCstrideedgeck(const NC *ncp, const NC_var *varp, 918 const int64_t *start, const int64_t *edges, const int64_t *stride)919 { 920 const int64_t *const end = start + varp->ndims;921 const int64_t *shp = varp->shape; /* use int64_t for now :( */918 const MPI_Offset *start, const MPI_Offset *edges, const MPI_Offset *stride) 919 { 920 const MPI_Offset *const end = start + varp->ndims; 921 const MPI_Offset *shp = varp->shape; /* use MPI_Offset for now :( */ 922 922 923 923 if(varp->ndims == 0) … … 926 926 if(IS_RECVAR(varp)) 927 927 { 928 if ( *stride == 0 || *stride >= X_INT64_T_MAX)929 /* cast needed for braindead systems with signed int64_t */928 if ( *stride == 0 ) /*|| *stride >= X_INT64_T_MAX)*/ 929 /* cast needed for braindead systems with signed MPI_Offset */ 930 930 return NC_ESTRIDE; 931 931 … … 938 938 for(; start < end; start++, edges++, shp++, stride++) 939 939 { 940 /* cast needed for braindead systems with signed int64_t */941 if( (*edges > ( uint64_t)*shp) ||942 (*edges > 0 && *start+1 + (*edges-1) * *stride > ( uint64_t)*shp) ||943 (*edges == 0 && *start > ( uint64_t)*shp) )940 /* cast needed for braindead systems with signed MPI_Offset */ 941 if( (*edges > (MPI_Offset)*shp) || 942 (*edges > 0 && *start+1 + (*edges-1) * *stride > (MPI_Offset)*shp) || 943 (*edges == 0 && *start > (MPI_Offset)*shp) ) 944 944 { 945 945 return(NC_EEDGE); 946 946 } 947 947 948 if ( *stride == 0 || *stride >= X_INT64_T_MAX)949 /* cast needed for braindead systems with signed int64_t */948 if ( *stride == 0)/* || *stride >= X_INT64_T_MAX)*/ 949 /* cast needed for braindead systems with signed MPI_Offset */ 950 950 return NC_ESTRIDE; 951 951 } … … 956 956 957 957 static int 958 set_var1_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, const int64_t index[]) {959 int64_t offset;960 int status; 961 int 64_tdim, ndims;958 set_var1_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, const MPI_Offset index[]) { 959 MPI_Offset offset; 960 int status; 961 int dim, ndims; 962 962 int mpireturn; 963 963 … … 1002 1002 static int 1003 1003 set_var_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp) { 1004 int64_t offset;1004 MPI_Offset offset; 1005 1005 int mpireturn; 1006 1006 … … 1057 1057 1058 1058 static int 1059 set_vara_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, const int64_t start[], const int64_t count[], int getnotput) {1060 1061 int64_t offset;1062 int status; 1063 int 64_tdim, ndims;1059 set_vara_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, const MPI_Offset start[], const MPI_Offset count[], int getnotput) { 1060 1061 MPI_Offset offset; 1062 int status; 1063 int dim, ndims; 1064 1064 int *shape = NULL, *subcount = NULL, *substart = NULL; /* all in bytes */ 1065 int64_t *shape64 = NULL, *subcount64 = NULL, *substart64 = NULL;1065 MPI_Offset *shape64 = NULL, *subcount64 = NULL, *substart64 = NULL; 1066 1066 MPI_Datatype rectype; 1067 1067 MPI_Datatype filetype; … … 1069 1069 MPI_Datatype types[3]; 1070 1070 MPI_Datatype type1; 1071 int64_t size, disps[3];1071 MPI_Offset size, disps[3]; 1072 1072 int blklens[3]; 1073 1073 int tag = 0; … … 1222 1222 MPI_Type_commit(&filetype); 1223 1223 } else { 1224 shape64 = ( int64_t *)malloc(sizeof(int64_t) * ndims);1225 subcount64 = ( int64_t *)malloc(sizeof(int64_t) * ndims);1226 substart64 = ( int64_t *)malloc(sizeof(int64_t) * ndims);1224 shape64 = (MPI_Offset *)malloc(sizeof(MPI_Offset) * ndims); 1225 subcount64 = (MPI_Offset *)malloc(sizeof(MPI_Offset) * ndims); 1226 substart64 = (MPI_Offset *)malloc(sizeof(MPI_Offset) * ndims); 1227 1227 1228 1228 if (ndims == 1){ // for 64-bit support, added July 23, 2008 … … 1292 1292 MPI_Type_struct(3, 1293 1293 blklens, 1294 disps,1294 (MPI_Aint*) disps, 1295 1295 types, 1296 1296 &filetype); … … 1331 1331 static int 1332 1332 set_vars_fileview(NC* ncp, MPI_File *mpifh, NC_var* varp, 1333 const int64_t start[], const int64_t count[],1334 const int64_t stride[], int getnotput) {1335 int64_t offset;1333 const MPI_Offset start[], const MPI_Offset count[], 1334 const MPI_Offset stride[], int getnotput) { 1335 MPI_Offset offset; 1336 1336 int status; 1337 1337 int mpireturn; 1338 int 64_tdim, ndims;1338 int dim, ndims; 1339 1339 MPI_Datatype *subtypes, *filetype; 1340 int64_t *blocklens = NULL, *blockstride = NULL, *blockcount = NULL;1340 MPI_Offset *blocklens = NULL, *blockstride = NULL, *blockcount = NULL; 1341 1341 1342 1342 ndims = varp->ndims; … … 1393 1393 1394 1394 if(getnotput && IS_RECVAR(varp) && 1395 ( uint64_t)*start + (uint64_t)*count > NC_get_numrecs(ncp))1395 (MPI_Offset)*start + (MPI_Offset)*count > NC_get_numrecs(ncp)) 1396 1396 return NC_EEDGE; 1397 1397 */ … … 1408 1408 } else { 1409 1409 1410 blocklens = ( int64_t *) malloc(ndims * sizeof(int64_t));1411 blockstride = ( int64_t *) malloc(ndims * sizeof(int64_t));1412 blockcount = ( int64_t *) malloc(ndims * sizeof(int64_t));1410 blocklens = (MPI_Offset *) malloc(ndims * sizeof(MPI_Offset)); 1411 blockstride = (MPI_Offset *) malloc(ndims * sizeof(MPI_Offset)); 1412 blockcount = (MPI_Offset *) malloc(ndims * sizeof(MPI_Offset)); 1413 1413 1414 1414 dim = 0; … … 1497 1497 1498 1498 int 1499 ncmpi_put_var1(int ncid, int 64_tvarid,1500 const int64_t index[],1501 const void *buf, int64_t bufcount,1499 ncmpi_put_var1(int ncid, int varid, 1500 const MPI_Offset index[], 1501 const void *buf, MPI_Offset bufcount, 1502 1502 MPI_Datatype datatype) { 1503 1503 NC_var *varp; … … 1505 1505 void *xbuf = NULL, *cbuf = NULL; 1506 1506 int status = NC_NOERR, warning = NC_NOERR; 1507 int64_t nelems, cnelems, nbytes;1507 MPI_Offset nelems, cnelems, nbytes; 1508 1508 int el_size; 1509 1509 MPI_Status mpistatus; … … 1636 1636 /* update the number of records in NC */ 1637 1637 1638 int64_t newnumrecs;1638 MPI_Offset newnumrecs; 1639 1639 newnumrecs = index[0] + 1; 1640 1640 if (ncp->numrecs < newnumrecs) { … … 1648 1648 1649 1649 int 1650 ncmpi_get_var1(int ncid, int 64_tvarid,1651 const int64_t index[],1652 void *buf, int64_t bufcount,1650 ncmpi_get_var1(int ncid, int varid, 1651 const MPI_Offset index[], 1652 void *buf, MPI_Offset bufcount, 1653 1653 MPI_Datatype datatype) { 1654 1654 NC_var *varp; … … 1656 1656 void *xbuf = NULL, *cbuf = NULL; 1657 1657 int status = NC_NOERR, warning = NC_NOERR; 1658 int64_t nelems, cnelems, nbytes;1658 MPI_Offset nelems, cnelems, nbytes; 1659 1659 int el_size; 1660 1660 MPI_Status mpistatus; … … 1791 1791 1792 1792 int 1793 ncmpi_get_var_all(int ncid, int 64_t varid, void *buf, int64_t bufcount, MPI_Datatype datatype) {1793 ncmpi_get_var_all(int ncid, int varid, void *buf, MPI_Offset bufcount, MPI_Datatype datatype) { 1794 1794 NC_var *varp; 1795 1795 NC *ncp; 1796 1796 void *xbuf = NULL, *cbuf = NULL; 1797 1797 int status = NC_NOERR, warning = NC_NOERR; 1798 int64_t nelems, cnelems, nbytes;1798 MPI_Offset nelems, cnelems, nbytes; 1799 1799 int el_size; 1800 1800 MPI_Status mpistatus; … … 1940 1940 1941 1941 int 1942 ncmpi_put_var(int ncid, int 64_t varid, const void *buf, int64_t bufcount, MPI_Datatype datatype) {1942 ncmpi_put_var(int ncid, int varid, const void *buf, MPI_Offset bufcount, MPI_Datatype datatype) { 1943 1943 NC_var *varp; 1944 1944 NC *ncp; 1945 1945 void *xbuf = NULL, *cbuf = NULL; 1946 1946 int status = NC_NOERR, warning = NC_NOERR; 1947 int64_t nelems, cnelems, nbytes;1947 MPI_Offset nelems, cnelems, nbytes; 1948 1948 int el_size; 1949 1949 MPI_Status mpistatus; … … 2083 2083 /* update the number of records in NC */ 2084 2084 2085 int64_t newnumrecs;2085 MPI_Offset newnumrecs; 2086 2086 if (varp->ndims > 1) 2087 2087 newnumrecs = nelems / varp->dsizes[1]; … … 2098 2098 2099 2099 int 2100 ncmpi_get_var(int ncid, int 64_t varid, void *buf, int64_t bufcount, MPI_Datatype datatype) {2100 ncmpi_get_var(int ncid, int varid, void *buf, MPI_Offset bufcount, MPI_Datatype datatype) { 2101 2101 NC_var *varp; 2102 2102 NC *ncp; 2103 2103 void *xbuf = NULL, *cbuf = NULL; 2104 2104 int status = NC_NOERR, warning = NC_NOERR; 2105 int64_t nelems, cnelems, nbytes;2105 MPI_Offset nelems, cnelems, nbytes; 2106 2106 int el_size; 2107 2107 MPI_Status mpistatus; … … 2246 2246 2247 2247 int 2248 ncmpi_put_vara_all(int ncid, int 64_tvarid,2249 const int64_t start[], const int64_t count[],2250 const void *buf, int64_t bufcount,2248 ncmpi_put_vara_all(int ncid, int varid, 2249 const MPI_Offset start[], const MPI_Offset count[], 2250 const void *buf, MPI_Offset bufcount, 2251 2251 MPI_Datatype datatype) { 2252 2252 … … 2255 2255 void *xbuf = NULL, *cbuf = NULL; 2256 2256 int status = NC_NOERR, warning = NC_NOERR; 2257 int 64_tdim;2258 int64_t nelems, cnelems, nbytes;2257 int dim; 2258 MPI_Offset nelems, cnelems, nbytes; 2259 2259 int el_size; 2260 2260 MPI_Status mpistatus; … … 2398 2398 and write it back to file header, if necessary 2399 2399 */ 2400 int64_t newnumrecs, max_numrecs;2400 MPI_Offset newnumrecs, max_numrecs; 2401 2401 newnumrecs = start[0] + count[0]; 2402 2402 if (ncp->numrecs < newnumrecs) { … … 2405 2405 } 2406 2406 if (NC_doNsync(ncp)) { 2407 MPI_Allreduce( &newnumrecs, &max_numrecs, 1, MPI_LONG , MPI_MAX, comm );2407 MPI_Allreduce( &newnumrecs, &max_numrecs, 1, MPI_LONG_LONG_INT, MPI_MAX, comm ); 2408 2408 2409 2409 if (ncp->numrecs < max_numrecs) { … … 2425 2425 2426 2426 int 2427 ncmpi_get_vara_all(int ncid, int 64_tvarid,2428 const int64_t start[], const int64_t count[],2429 void *buf, int64_t bufcount,2427 ncmpi_get_vara_all(int ncid, int varid, 2428 const MPI_Offset start[], const MPI_Offset count[], 2429 void *buf, MPI_Offset bufcount, 2430 2430 MPI_Datatype datatype) { 2431 2431 … … 2434 2434 void *xbuf = NULL, *cbuf = NULL; 2435 2435 int status = NC_NOERR, warning = NC_NOERR; 2436 int 64_tdim;2437 int64_t nelems, cnelems, nbytes;2436 int dim; 2437 MPI_Offset nelems, cnelems, nbytes; 2438 2438 int el_size; 2439 2439 MPI_Status mpistatus; … … 2576 2576 2577 2577 int 2578 ncmpi_put_vara(int ncid, int 64_tvarid,2579 const int64_t start[], const int64_t count[],2580 const void *buf, int64_t bufcount,2578 ncmpi_put_vara(int ncid, int varid, 2579 const MPI_Offset start[], const MPI_Offset count[], 2580 const void *buf, MPI_Offset bufcount, 2581 2581 MPI_Datatype datatype) { 2582 2582 NC_var *varp; … … 2584 2584 void *xbuf = NULL, *cbuf = NULL; 2585 2585 int status = NC_NOERR, warning = NC_NOERR; 2586 int 64_tdim;2587 int64_t nelems, cnelems, nbytes;2586 int dim; 2587 MPI_Offset nelems, cnelems, nbytes; 2588 2588 int el_size; 2589 2589 MPI_Status mpistatus; … … 2721 2721 /* update the number of records in NC */ 2722 2722 2723 int64_t newnumrecs;2723 MPI_Offset newnumrecs; 2724 2724 newnumrecs = start[0] + count[0]; 2725 2725 if (ncp->numrecs < newnumrecs) { … … 2733 2733 2734 2734 int 2735 ncmpi_get_vara(int ncid, int 64_tvarid,2736 const int64_t start[], const int64_t count[],2737 void *buf, int64_t bufcount,2735 ncmpi_get_vara(int ncid, int varid, 2736 const MPI_Offset start[], const MPI_Offset count[], 2737 void *buf, MPI_Offset bufcount, 2738 2738 MPI_Datatype datatype) { 2739 2739 NC_var *varp; … … 2741 2741 void *xbuf = NULL, *cbuf = NULL; 2742 2742 int status = NC_NOERR, warning = NC_NOERR; 2743 int 64_tdim;2744 int64_t nelems, cnelems, nbytes;2743 int dim; 2744 MPI_Offset nelems, cnelems, nbytes; 2745 2745 int el_size; 2746 2746 MPI_Status mpistatus; … … 2883 2883 2884 2884 int 2885 ncmpi_put_vars_all(int ncid, int 64_tvarid,2886 const int64_t start[],2887 const int64_t count[],2888 const int64_t stride[],2889 const void *buf, int64_t bufcount,2885 ncmpi_put_vars_all(int ncid, int varid, 2886 const MPI_Offset start[], 2887 const MPI_Offset count[], 2888 const MPI_Offset stride[], 2889 const void *buf, MPI_Offset bufcount, 2890 2890 MPI_Datatype datatype) { 2891 2891 NC_var *varp; … … 2893 2893 void *xbuf = NULL, *cbuf = NULL; 2894 2894 int status = NC_NOERR, warning = NC_NOERR; 2895 int 64_tdim;2896 int64_t nelems, cnelems, nbytes;2895 int dim; 2896 MPI_Offset nelems, cnelems, nbytes; 2897 2897 int el_size; 2898 2898 MPI_Status mpistatus; … … 2901 2901 MPI_Datatype ptype; 2902 2902 int isderived, iscontig_of_ptypes; 2903 int64_t *stride_was_null=NULL, *stride_ptr;2903 MPI_Offset *stride_was_null=NULL, *stride_ptr; 2904 2904 2905 2905 status = ncmpii_NC_check_id(ncid, &ncp); … … 2953 2953 2954 2954 /* NULL stride is legal and means (1,1,1,..1) */ 2955 stride_ptr = ( int64_t *)stride;2955 stride_ptr = (MPI_Offset *)stride; 2956 2956 if (stride == NULL) { 2957 stride_was_null=( int64_t*)malloc(varp->ndims*sizeof(int64_t));2957 stride_was_null=(MPI_Offset*)malloc(varp->ndims*sizeof(MPI_Offset)); 2958 2958 for (dim=0; dim < varp->ndims; dim++) { 2959 2959 stride_was_null[dim] = 1; … … 3047 3047 and write it back to file header, if necessary 3048 3048 */ 3049 int64_t newnumrecs, max_numrecs;3049 MPI_Offset newnumrecs, max_numrecs; 3050 3050 newnumrecs = start[0] + (count[0] - 1) * stride_ptr[0] + 1; 3051 3051 if (ncp->numrecs < newnumrecs) { … … 3054 3054 } 3055 3055 if (NC_doNsync(ncp)) { 3056 MPI_Allreduce( &newnumrecs, &max_numrecs, 1, MPI_LONG , MPI_MAX, comm );3056 MPI_Allreduce( &newnumrecs, &max_numrecs, 1, MPI_LONG_LONG_INT, MPI_MAX, comm ); 3057 3057 3058 3058 if (ncp->numrecs < max_numrecs) { … … 3075 3075 3076 3076 int 3077 ncmpi_get_vars_all(int ncid, int 64_tvarid,3078 const int64_t start[],3079 const int64_t count[],3080 const int64_t stride[],3081 void *buf, int64_t bufcount,3077 ncmpi_get_vars_all(int ncid, int varid, 3078 const MPI_Offset start[], 3079 const MPI_Offset count[], 3080 const MPI_Offset stride[], 3081 void *buf, MPI_Offset bufcount, 3082 3082 MPI_Datatype datatype) { 3083 3083 … … 3086 3086 void *xbuf = NULL, *cbuf = NULL; 3087 3087 int status = NC_NOERR, warning = NC_NOERR; 3088 int 64_tdim;3089 int64_t nelems, cnelems, nbytes;3088 int dim; 3089 MPI_Offset nelems, cnelems, nbytes; 3090 3090 int el_size; 3091 3091 MPI_Status mpistatus; … … 3229 3229 3230 3230 int 3231 ncmpi_put_vars(int ncid, int 64_tvarid,3232 const int64_t start[],3233 const int64_t count[],3234 const int64_t stride[],3235 const void *buf, int64_t bufcount,3231 ncmpi_put_vars(int ncid, int varid, 3232 const MPI_Offset start[], 3233 const MPI_Offset count[], 3234 const MPI_Offset stride[], 3235 const void *buf, MPI_Offset bufcount, 3236 3236 MPI_Datatype datatype) { 3237 3237 NC_var *varp; … … 3239 3239 void *xbuf = NULL, *cbuf = NULL; 3240 3240 int status = NC_NOERR, warning = NC_NOERR; 3241 int 64_tdim;3242 int64_t nelems, cnelems, nbytes;3241 int dim; 3242 MPI_Offset nelems, cnelems, nbytes; 3243 3243 int el_size; 3244 3244 MPI_Status mpistatus; … … 3377 3377 /* update the number of records in NC */ 3378 3378 3379 int64_t newnumrecs;3379 MPI_Offset newnumrecs; 3380 3380 newnumrecs = start[0] + (count[0] - 1) * stride[0] + 1; 3381 3381 if (ncp->numrecs < newnumrecs) { … … 3389 3389 3390 3390 int 3391 ncmpi_get_vars(int ncid, int 64_tvarid,3392 const int64_t start[],3393 const int64_t count[],3394 const int64_t stride[],3395 void *buf, int64_t bufcount,3391 ncmpi_get_vars(int ncid, int varid, 3392 const MPI_Offset start[], 3393 const MPI_Offset count[], 3394 const MPI_Offset stride[], 3395 void *buf, MPI_Offset bufcount, 3396 3396 MPI_Datatype datatype) { 3397 3397 NC_var *varp; … … 3399 3399 void *xbuf = NULL, *cbuf = NULL; 3400 3400 int status = NC_NOERR, warning = NC_NOERR; 3401 int 64_tdim;3402 int64_t nelems, cnelems, nbytes;3401 int dim; 3402 MPI_Offset nelems, cnelems, nbytes; 3403 3403 int el_size; 3404 3404 MPI_Status mpistatus; … … 3564 3564 3565 3565 int 3566 ncmpi_put_varm_all(int ncid, int 64_tvarid,3567 const int64_t start[],3568 const int64_t count[],3569 const int64_t stride[],3570 const int64_t imap[],3571 const void *buf, int64_t bufcount,3566 ncmpi_put_varm_all(int ncid, int varid, 3567 const MPI_Offset start[], 3568 const MPI_Offset count[], 3569 const MPI_Offset stride[], 3570 const MPI_Offset imap[], 3571 const void *buf, MPI_Offset bufcount, 3572 3572 MPI_Datatype datatype) 3573 3573 { 3574 3574 NC_var *varp; 3575 3575 NC *ncp; 3576 int64_t ndims, dim;3576 MPI_Offset ndims, dim; 3577 3577 void *lbuf = NULL, *cbuf = NULL; 3578 3578 int status = NC_NOERR, warning = NC_NOERR; 3579 int64_t lnelems, cnelems;3579 MPI_Offset lnelems, cnelems; 3580 3580 int el_size; 3581 3581 MPI_Datatype ptype, tmptype, imaptype; … … 3690 3690 3691 3691 int 3692 ncmpi_get_varm_all(int ncid, int 64_tvarid,3693 const int64_t start[],3694 const int64_t count[],3695 const int64_t stride[],3696 const int64_t imap[],3697 void *buf, int64_t bufcount,3692 ncmpi_get_varm_all(int ncid, int varid, 3693 const MPI_Offset start[], 3694 const MPI_Offset count[], 3695 const MPI_Offset stride[], 3696 const MPI_Offset imap[], 3697 void *buf, MPI_Offset bufcount, 3698 3698 MPI_Datatype datatype) 3699 3699 { 3700 3700 NC_var *varp; 3701 3701 NC *ncp; 3702 int64_t ndims, dim;3702 MPI_Offset ndims, dim; 3703 3703 void *lbuf = NULL, *cbuf = NULL; 3704 3704 int status = NC_NOERR, warning = NC_NOERR; 3705 int64_t lnelems, cnelems;3705 MPI_Offset lnelems, cnelems; 3706 3706 int el_size; 3707 3707 MPI_Datatype ptype, tmptype, imaptype; … … 3832 3832 3833 3833 int 3834 ncmpi_put_varm(int ncid, int 64_tvarid,3835 const int64_t start[],3836 const int64_t count[],3837 const int64_t stride[],3838 const int64_t imap[],3839 const void *buf, int64_t bufcount,3834 ncmpi_put_varm(int ncid, int varid, 3835 const MPI_Offset start[], 3836 const MPI_Offset count[], 3837 const MPI_Offset stride[], 3838 const MPI_Offset imap[], 3839 const void *buf, MPI_Offset bufcount, 3840 3840 MPI_Datatype datatype) 3841 3841 { 3842 3842 NC_var *varp; 3843 3843 NC *ncp; 3844 int64_t ndims, dim;3844 MPI_Offset ndims, dim; 3845 3845 void *lbuf = NULL, *cbuf = NULL; 3846 3846 int status = NC_NOERR, warning = NC_NOERR; 3847 int64_t lnelems, cnelems;3847 MPI_Offset lnelems, cnelems; 3848 3848 int el_size; 3849 3849 MPI_Datatype ptype, tmptype, imaptype; … … 3958 3958 3959 3959 int 3960 ncmpi_get_varm(int ncid, int 64_tvarid,3961 const int64_t start[],3962 const int64_t count[],3963 const int64_t stride[],3964 const int64_t imap[],3965 void *buf, int64_t bufcount,3960 ncmpi_get_varm(int ncid, int varid, 3961 const MPI_Offset start[], 3962 const MPI_Offset count[], 3963 const MPI_Offset stride[], 3964 const MPI_Offset imap[], 3965 void *buf, MPI_Offset bufcount, 3966 3966 MPI_Datatype datatype) 3967 3967 { 3968 3968 NC_var *varp; 3969 3969 NC *ncp; 3970 int64_t ndims, dim;3970 MPI_Offset ndims, dim; 3971 3971 void *lbuf = NULL, *cbuf = NULL; 3972 3972 int status = NC_NOERR, warning = NC_NOERR; 3973 int64_t lnelems, cnelems;3973 MPI_Offset lnelems, cnelems; 3974 3974 int el_size; 3975 3975 MPI_Datatype ptype, tmptype, imaptype; … … 4100 4100 4101 4101 int 4102 ncmpi_put_var1_uchar(int ncid, int 64_tvarid,4103 const int64_t index[],4102 ncmpi_put_var1_uchar(int ncid, int varid, 4103 const MPI_Offset index[], 4104 4104 const unsigned char *op) { 4105 4105 NC_var *varp; … … 4120 4120 4121 4121 int 4122 ncmpi_put_var1_schar(int ncid, int 64_tvarid,4123 const int64_t index[],4122 ncmpi_put_var1_schar(int ncid, int varid, 4123 const MPI_Offset index[], 4124 4124 const signed char *op) { 4125 4125 NC_var *varp; … … 4140 4140 4141 4141 int 4142 ncmpi_put_var1_text(int ncid, int 64_tvarid,4143 const int64_t index[],4142 ncmpi_put_var1_text(int ncid, int varid, 4143 const MPI_Offset index[], 4144 4144 const char *op) { 4145 4145 NC_var *varp; … … 4161 4161 4162 4162 int 4163 ncmpi_put_var1_short(int ncid, int 64_tvarid,4164 const int64_t index[],4163 ncmpi_put_var1_short(int ncid, int varid, 4164 const MPI_Offset index[], 4165 4165 const short *op) { 4166 4166 NC_var *varp; … … 4181 4181 4182 4182 int 4183 ncmpi_put_var1_int(int ncid, int 64_tvarid,4184 const int64_t index[],4183 ncmpi_put_var1_int(int ncid, int varid, 4184 const MPI_Offset index[], 4185 4185 const int *op) { 4186 4186 NC_var *varp; … … 4201 4201 4202 4202 int 4203 ncmpi_put_var1_long(int ncid, int 64_tvarid,4204 const int64_t index[],4203 ncmpi_put_var1_long(int ncid, int varid, 4204 const MPI_Offset index[], 4205 4205 const long *op) { 4206 4206 NC_var *varp; … … 4221 4221 4222 4222 int 4223 ncmpi_put_var1_float(int ncid, int 64_tvarid,4224 const int64_t index[],4223 ncmpi_put_var1_float(int ncid, int varid, 4224 const MPI_Offset index[], 4225 4225 const float *op) { 4226 4226 NC_var *varp; … … 4241 4241 4242 4242 int 4243 ncmpi_put_var1_double(int ncid, int 64_tvarid,4244 const int64_t index[],4243 ncmpi_put_var1_double(int ncid, int varid, 4244 const MPI_Offset index[], 4245 4245 const double *op) { 4246 4246 NC_var *varp; … … 4261 4261 4262 4262 int 4263 ncmpi_get_var1_uchar(int ncid, int 64_tvarid,4264 const int64_t index[],4263 ncmpi_get_var1_uchar(int ncid, int varid, 4264 const MPI_Offset index[], 4265 4265 unsigned char *ip) { 4266 4266 NC_var *varp; … … 4281 4281 4282 4282 int 4283 ncmpi_get_var1_schar(int ncid, int 64_tvarid,4284 const int64_t index[],4283 ncmpi_get_var1_schar(int ncid, int varid, 4284 const MPI_Offset index[], 4285 4285 signed char *ip) { 4286 4286 NC_var *varp; … … 4301 4301 4302 4302 int 4303 ncmpi_get_var1_text(int ncid, int 64_tvarid,4304 const int64_t index[],4303 ncmpi_get_var1_text(int ncid, int varid, 4304 const MPI_Offset index[], 4305 4305 char *ip) { 4306 4306 NC_var *varp; … … 4321 4321 4322 4322 int 4323 ncmpi_get_var1_short(int ncid, int 64_tvarid,4324 const int64_t index[],4323 ncmpi_get_var1_short(int ncid, int varid, 4324 const MPI_Offset index[], 4325 4325 short *ip) { 4326 4326 NC_var *varp; … … 4341 4341 4342 4342 int 4343 ncmpi_get_var1_int(int ncid, int 64_tvarid,4344 const int64_t index[],4343 ncmpi_get_var1_int(int ncid, int varid, 4344 const MPI_Offset index[], 4345 4345 int *ip) { 4346 4346 NC_var *varp; … … 4361 4361 4362 4362 int 4363 ncmpi_get_var1_long(int ncid, int 64_tvarid,4364 const int64_t index[],4363 ncmpi_get_var1_long(int ncid, int varid, 4364 const MPI_Offset index[], 4365 4365 long *ip) { 4366 4366 NC_var *varp; … … 4381 4381 4382 4382 int 4383 ncmpi_get_var1_float(int ncid, int 64_tvarid,4384 const int64_t index[],4383 ncmpi_get_var1_float(int ncid, int varid, 4384 const MPI_Offset index[], 4385 4385 float *ip) { 4386 4386 NC_var *varp; … … 4401 4401 4402 4402 int 4403 ncmpi_get_var1_double(int ncid, int 64_tvarid,4404 const int64_t index[],4403 ncmpi_get_var1_double(int ncid, int varid, 4404 const MPI_Offset index[], 4405 4405 double *ip) { 4406 4406 NC_var *varp; … … 4421 4421 4422 4422 int 4423 ncmpi_put_var_uchar(int ncid, int 64_tvarid, const unsigned char *op) {4423 ncmpi_put_var_uchar(int ncid, int varid, const unsigned char *op) { 4424 4424 NC_var *varp; 4425 4425 NC *ncp; 4426 4426 int status; 4427 4427 int ndims; 4428 int64_t nelems;4428 MPI_Offset nelems; 4429 4429 4430 4430 status = ncmpii_NC_check_id(ncid, &ncp); … … 4455 4455 4456 4456 int 4457 ncmpi_put_var_schar(int ncid, int 64_tvarid, const signed char *op) {4457 ncmpi_put_var_schar(int ncid, int varid, const signed char *op) { 4458 4458 NC_var *varp; 4459 4459 NC *ncp; 4460 4460 int status; 4461 4461 int ndims; 4462 int64_t nelems;4462 MPI_Offset nelems; 4463 4463 4464 4464 status = ncmpii_NC_check_id(ncid, &ncp); … … 4490 4490 4491 4491 int 4492 ncmpi_put_var_text(int ncid, int 64_tvarid, const char *op) {4492 ncmpi_put_var_text(int ncid, int varid, const char *op) { 4493 4493 NC_var *varp; 4494 4494 NC *ncp; 4495 4495 int status; 4496 4496 int ndims; 4497 int64_t nelems;4497 MPI_Offset nelems; 4498 4498 4499 4499 status = ncmpii_NC_check_id(ncid, &ncp); … … 4524 4524 4525 4525 int 4526 ncmpi_put_var_short(int ncid, int 64_tvarid, const short *op) {4526 ncmpi_put_var_short(int ncid, int varid, const short *op) { 4527 4527 NC_var *varp; 4528 4528 NC *ncp; 4529 4529 int status; 4530 4530 int ndims; 4531 int64_t nelems;4531 MPI_Offset nelems; 4532 4532 4533 4533 status = ncmpii_NC_check_id(ncid, &ncp); … … 4558 4558 4559 4559 int 4560 ncmpi_put_var_int(int ncid, int 64_tvarid, const int *op) {4560 ncmpi_put_var_int(int ncid, int varid, const int *op) { 4561 4561 NC_var *varp; 4562 4562 NC *ncp; 4563 4563 int status; 4564 4564 int ndims; 4565 int64_t nelems;4565 MPI_Offset nelems; 4566 4566 4567 4567 status = ncmpii_NC_check_id(ncid, &ncp); … … 4592 4592 4593 4593 int 4594 ncmpi_put_var_long(int ncid, int 64_tvarid, const long *op) {4594 ncmpi_put_var_long(int ncid, int varid, const long *op) { 4595 4595 NC_var *varp; 4596 4596 NC *ncp; 4597 4597 int status; 4598 4598 int ndims; 4599 int64_t nelems;4599 MPI_Offset nelems; 4600 4600 4601 4601 status = ncmpii_NC_check_id(ncid, &ncp); … … 4626 4626 4627 4627 int 4628 ncmpi_put_var_float(int ncid, int 64_tvarid, const float *op) {4628 ncmpi_put_var_float(int ncid, int varid, const float *op) { 4629 4629 NC_var *varp; 4630 4630 NC *ncp; 4631 4631 int status; 4632 4632 int ndims; 4633 int64_t nelems;4633 MPI_Offset nelems; 4634 4634 4635 4635 status = ncmpii_NC_check_id(ncid, &ncp); … … 4660 4660 4661 4661 int 4662 ncmpi_put_var_double(int ncid, int 64_tvarid, const double *op) {4662 ncmpi_put_var_double(int ncid, int varid, const double *op) { 4663 4663 NC_var *varp; 4664 4664 NC *ncp; 4665 4665 int status; 4666 4666 int ndims; 4667 int64_t nelems;4667 MPI_Offset nelems; 4668 4668 4669 4669 status = ncmpii_NC_check_id(ncid, &ncp); … … 4694 4694 4695 4695 int 4696 ncmpi_get_var_uchar(int ncid, int 64_tvarid, unsigned char *ip) {4696 ncmpi_get_var_uchar(int ncid, int varid, unsigned char *ip) { 4697 4697 NC_var *varp; 4698 4698 NC *ncp; 4699 4699 int status; 4700 4700 int ndims; 4701 int64_t nelems;4701 MPI_Offset nelems; 4702 4702 4703 4703 status = ncmpii_NC_check_id(ncid, &ncp); … … 4728 4728 4729 4729 int 4730 ncmpi_get_var_schar(int ncid, int 64_tvarid, signed char *ip) {4730 ncmpi_get_var_schar(int ncid, int varid, signed char *ip) { 4731 4731 NC_var *varp; 4732 4732 NC *ncp; 4733 4733 int status; 4734 4734 int ndims; 4735 int64_t nelems;4735 MPI_Offset nelems; 4736 4736 4737 4737 status = ncmpii_NC_check_id(ncid, &ncp); … … 4762 4762 4763 4763 int 4764 ncmpi_get_var_text(int ncid, int 64_tvarid, char *ip) {4764 ncmpi_get_var_text(int ncid, int varid, char *ip) { 4765 4765 NC_var *varp; 4766 4766 NC *ncp; 4767 4767 int status; 4768 4768 int ndims; 4769 int64_t nelems;4769 MPI_Offset nelems; 4770 4770 4771 4771 status = ncmpii_NC_check_id(ncid, &ncp); … … 4796 4796 4797 4797 int 4798 ncmpi_get_var_short(int ncid, int 64_tvarid, short *ip) {4798 ncmpi_get_var_short(int ncid, int varid, short *ip) { 4799 4799 NC_var *varp; 4800 4800 NC *ncp; 4801 4801 int status; 4802 4802 int ndims; 4803 int64_t nelems;4803 MPI_Offset nelems; 4804 4804 4805 4805 status = ncmpii_NC_check_id(ncid, &ncp); … … 4830 4830 4831 4831 int 4832 ncmpi_get_var_int(int ncid, int 64_tvarid, int *ip) {4832 ncmpi_get_var_int(int ncid, int varid, int *ip) { 4833 4833 NC_var *varp; 4834 4834 NC *ncp; 4835 4835 int status; 4836 4836 int ndims; 4837 int64_t nelems;4837 MPI_Offset nelems; 4838 4838 4839 4839 status = ncmpii_NC_check_id(ncid, &ncp); … … 4864 4864 4865 4865 int 4866 ncmpi_get_var_long(int ncid, int 64_tvarid, long *ip) {4866 ncmpi_get_var_long(int ncid, int varid, long *ip) { 4867 4867 NC_var *varp; 4868 4868 NC *ncp; 4869 4869 int status; 4870 4870 int ndims; 4871 int64_t nelems;4871 MPI_Offset nelems; 4872 4872 4873 4873 status = ncmpii_NC_check_id(ncid, &ncp); … … 4898 4898 4899 4899 int 4900 ncmpi_get_var_float(int ncid, int 64_tvarid, float *ip) {4900 ncmpi_get_var_float(int ncid, int varid, float *ip) { 4901 4901 NC_var *varp; 4902 4902 NC *ncp; 4903 4903 int status; 4904 4904 int ndims; 4905 int64_t nelems;4905 MPI_Offset nelems; 4906 4906 4907 4907 status = ncmpii_NC_check_id(ncid, &ncp); … … 4932 4932 4933 4933 int 4934 ncmpi_get_var_double(int ncid, int 64_tvarid, double *ip) {4934 ncmpi_get_var_double(int ncid, int varid, double *ip) { 4935 4935 NC_var *varp; 4936 4936 NC *ncp; 4937 4937 int status; 4938 4938 int ndims; 4939 int64_t nelems;4939 MPI_Offset nelems; 4940 4940 4941 4941 status = ncmpii_NC_check_id(ncid, &ncp); … … 4966 4966 4967 4967 int 4968 ncmpi_get_var_uchar_all(int ncid, int 64_tvarid, unsigned char *ip) {4968 ncmpi_get_var_uchar_all(int ncid, int varid, unsigned char *ip) { 4969 4969 NC_var *varp; 4970 4970 NC *ncp; 4971 4971 int status; 4972 4972 int ndims; 4973 int64_t nelems;4973 MPI_Offset nelems; 4974 4974 4975 4975 status = ncmpii_NC_check_id(ncid, &ncp); … … 5000 5000 5001 5001 int 5002 ncmpi_get_var_schar_all(int ncid, int 64_tvarid, signed char *ip) {5002 ncmpi_get_var_schar_all(int ncid, int varid, signed char *ip) { 5003 5003 NC_var *varp; 5004 5004 NC *ncp; 5005 5005 int status; 5006 5006 int ndims; 5007 int64_t nelems;5007 MPI_Offset nelems; 5008 5008 5009 5009 status = ncmpii_NC_check_id(ncid, &ncp); … … 5034 5034 5035 5035 int 5036 ncmpi_get_var_text_all(int ncid, int 64_tvarid, char *ip) {5036 ncmpi_get_var_text_all(int ncid, int varid, char *ip) { 5037 5037 NC_var *varp; 5038 5038 NC *ncp; 5039 5039 int status; 5040 5040 int ndims; 5041 int64_t nelems;5041 MPI_Offset nelems; 5042 5042 5043 5043 status = ncmpii_NC_check_id(ncid, &ncp); … … 5068 5068 5069 5069 int 5070 ncmpi_get_var_short_all(int ncid, int 64_tvarid, short *ip) {5070 ncmpi_get_var_short_all(int ncid, int varid, short *ip) { 5071 5071 NC_var *varp; 5072 5072 NC *ncp; 5073 5073 int status; 5074 5074 int ndims; 5075 int64_t nelems;5075 MPI_Offset nelems; 5076 5076 5077 5077 status = ncmpii_NC_check_id(ncid, &ncp); … … 5102 5102 5103 5103 int 5104 ncmpi_get_var_int_all(int ncid, int 64_tvarid, int *ip) {5104 ncmpi_get_var_int_all(int ncid, int varid, int *ip) { 5105 5105 NC_var *varp; 5106 5106 NC *ncp; 5107 5107 int status; 5108 5108 int ndims; 5109 int64_t nelems;5109 MPI_Offset nelems; 5110 5110 5111 5111 status = ncmpii_NC_check_id(ncid, &ncp); … … 5136 5136 5137 5137 int 5138 ncmpi_get_var_long_all(int ncid, int 64_tvarid, long *ip) {5138 ncmpi_get_var_long_all(int ncid, int varid, long *ip) { 5139 5139 NC_var *varp; 5140 5140 NC *ncp; 5141 5141 int status; 5142 5142 int ndims; 5143 int64_t nelems;5143 MPI_Offset nelems; 5144 5144 5145 5145 status = ncmpii_NC_check_id(ncid, &ncp); … … 5170 5170 5171 5171 int 5172 ncmpi_get_var_float_all(int ncid, int 64_tvarid, float *ip) {5172 ncmpi_get_var_float_all(int ncid, int varid, float *ip) { 5173 5173 NC_var *varp; 5174 5174 NC *ncp; 5175 5175 int status; 5176 5176 int ndims; 5177 int64_t nelems;5177 MPI_Offset nelems; 5178 5178 5179 5179 status = ncmpii_NC_check_id(ncid, &ncp); … … 5204 5204 5205 5205 int 5206 ncmpi_get_var_double_all(int ncid, int 64_tvarid, double *ip) {5206 ncmpi_get_var_double_all(int ncid, int varid, double *ip) { 5207 5207 NC_var *varp; 5208 5208 NC *ncp; 5209 5209 int status; 5210 5210 int ndims; 5211 int64_t nelems;5211 MPI_Offset nelems; 5212 5212 5213 5213 status = ncmpii_NC_check_id(ncid, &ncp); … … 5238 5238 5239 5239 int 5240 ncmpi_put_vara_uchar_all(int ncid, int 64_tvarid,5241 const int64_t start[], const int64_t count[],5240 ncmpi_put_vara_uchar_all(int ncid, int varid, 5241 const MPI_Offset start[], const MPI_Offset count[], 5242 5242 const unsigned char *op) { 5243 5243 NC_var *varp; 5244 5244 NC *ncp; 5245 5245 int status; 5246 int 64_tdim;5247 int64_t nelems;5246 int dim; 5247 MPI_Offset nelems; 5248 5248 5249 5249 status = ncmpii_NC_check_id(ncid, &ncp); … … 5264 5264 5265 5265 int 5266 ncmpi_put_vara_uchar(int ncid, int 64_tvarid,5267 const int64_t start[], const int64_t count[],5266 ncmpi_put_vara_uchar(int ncid, int varid, 5267 const MPI_Offset start[], const MPI_Offset count[], 5268 5268 const unsigned char *op) { 5269 5269 NC_var *varp; 5270 5270 NC *ncp; 5271 5271 int status; 5272 int 64_tdim;5273 int64_t nelems;5272 int dim; 5273 MPI_Offset nelems; 5274 5274 5275 5275 status = ncmpii_NC_check_id(ncid, &ncp); … … 5290 5290 5291 5291 int 5292 ncmpi_put_vara_schar_all(int ncid, int 64_tvarid,5293 const int64_t start[], const int64_t count[],5292 ncmpi_put_vara_schar_all(int ncid, int varid, 5293 const MPI_Offset start[], const MPI_Offset count[], 5294 5294 const signed char *op) { 5295 5295 NC_var *varp; 5296 5296 NC *ncp; 5297 5297 int status; 5298 int 64_tdim;5299 int64_t nelems;5298 int dim; 5299 MPI_Offset nelems; 5300 5300 5301 5301 status = ncmpii_NC_check_id(ncid, &ncp); … … 5316 5316 5317 5317 int 5318 ncmpi_put_vara_schar(int ncid, int 64_tvarid,5319 const int64_t start[], const int64_t count[],5318 ncmpi_put_vara_schar(int ncid, int varid, 5319 const MPI_Offset start[], const MPI_Offset count[], 5320 5320 const signed char *op) { 5321 5321 NC_var *varp; 5322 5322 NC *ncp; 5323 5323 int status; 5324 int 64_tdim;5325 int64_t nelems;5324 int dim; 5325 MPI_Offset nelems; 5326 5326 5327 5327 status = ncmpii_NC_check_id(ncid, &ncp); … … 5342 5342 5343 5343 int 5344 ncmpi_put_vara_text_all(int ncid, int 64_tvarid,5345 const int64_t start[], const int64_t count[],5344 ncmpi_put_vara_text_all(int ncid, int varid, 5345 const MPI_Offset start[], const MPI_Offset count[], 5346 5346 const char *op) { 5347 5347 NC_var *varp; 5348 5348 NC *ncp; 5349 5349 int status; 5350 int 64_tdim;5351 int64_t nelems;5350 int dim; 5351 MPI_Offset nelems; 5352 5352 5353 5353 status = ncmpii_NC_check_id(ncid, &ncp); … … 5368 5368 5369 5369 int 5370 ncmpi_put_vara_text(int ncid, int 64_tvarid,5371 const int64_t start[], const int64_t count[],5370 ncmpi_put_vara_text(int ncid, int varid, 5371 const MPI_Offset start[], const MPI_Offset count[], 5372 5372 const char *op) { 5373 5373 NC_var *varp; 5374 5374 NC *ncp; 5375 5375 int status; 5376 int 64_tdim;5377 int64_t nelems;5376 int dim; 5377 MPI_Offset nelems; 5378 5378 5379 5379 status = ncmpii_NC_check_id(ncid, &ncp); … … 5394 5394 5395 5395 int 5396 ncmpi_put_vara_short_all(int ncid, int 64_tvarid,5397 const int64_t start[], const int64_t count[],5396 ncmpi_put_vara_short_all(int ncid, int varid, 5397 const MPI_Offset start[], const MPI_Offset count[], 5398 5398 const short *op) { 5399 5399 NC_var *varp; 5400 5400 NC *ncp; 5401 5401 int status; 5402 int 64_tdim;5403 int64_t nelems;5402 int dim; 5403 MPI_Offset nelems; 5404 5404 5405 5405 status = ncmpii_NC_check_id(ncid, &ncp); … … 5420 5420 5421 5421 int 5422 ncmpi_put_vara_short(int ncid, int 64_tvarid,5423 const int64_t start[], const int64_t count[],5422 ncmpi_put_vara_short(int ncid, int varid, 5423 const MPI_Offset start[], const MPI_Offset count[], 5424 5424 const short *op) { 5425 5425 NC_var *varp; 5426 5426 NC *ncp; 5427 5427 int status; 5428 int 64_tdim;5429 int64_t nelems;5428 int dim; 5429 MPI_Offset nelems; 5430 5430 5431 5431 status = ncmpii_NC_check_id(ncid, &ncp); … … 5446 5446 5447 5447 int 5448 ncmpi_put_vara_int_all(int ncid, int 64_tvarid,5449 const int64_t start[], const int64_t count[],5448 ncmpi_put_vara_int_all(int ncid, int varid, 5449 const MPI_Offset start[], const MPI_Offset count[], 5450 5450 const int *op) { 5451 5451 NC_var *varp; 5452 5452 NC *ncp; 5453 5453 int status; 5454 int 64_tdim;5455 int64_t nelems;5454 int dim; 5455 MPI_Offset nelems; 5456 5456 5457 5457 status = ncmpii_NC_check_id(ncid, &ncp); … … 5472 5472 5473 5473 int 5474 ncmpi_put_vara_int(int ncid, int 64_tvarid,5475 const int64_t start[], const int64_t count[],5474 ncmpi_put_vara_int(int ncid, int varid, 5475 const MPI_Offset start[], const MPI_Offset count[], 5476 5476 const int *op) { 5477 5477 NC_var *varp; 5478 5478 NC *ncp; 5479 5479 int status; 5480 int 64_tdim;5481 int64_t nelems;5480 int dim; 5481 MPI_Offset nelems; 5482 5482 5483 5483 status = ncmpii_NC_check_id(ncid, &ncp); … … 5498 5498 5499 5499 int 5500 ncmpi_put_vara_long_all(int ncid, int 64_tvarid,5501 const int64_t start[], const int64_t count[],5500 ncmpi_put_vara_long_all(int ncid, int varid, 5501 const MPI_Offset start[], const MPI_Offset count[], 5502 5502 const long *op) { 5503 5503 NC_var *varp; 5504 5504 NC *ncp; 5505 5505 int status; 5506 int 64_tdim;5507 int64_t nelems;5506 int dim; 5507 MPI_Offset nelems; 5508 5508 5509 5509 status = ncmpii_NC_check_id(ncid, &ncp); … … 5524 5524 5525 5525 int 5526 ncmpi_put_vara_long(int ncid, int 64_tvarid,5527 const int64_t start[], const int64_t count[],5526 ncmpi_put_vara_long(int ncid, int varid, 5527 const MPI_Offset start[], const MPI_Offset count[], 5528 5528 const long *op) { 5529 5529 NC_var *varp; 5530 5530 NC *ncp; 5531 5531 int status; 5532 int 64_tdim;5533 int64_t nelems;5532 int dim; 5533 MPI_Offset nelems; 5534 5534 5535 5535 status = ncmpii_NC_check_id(ncid, &ncp); … … 5550 5550 5551 5551 int 5552 ncmpi_put_vara_float_all(int ncid, int 64_tvarid,5553 const int64_t start[], const int64_t count[],5552 ncmpi_put_vara_float_all(int ncid, int varid, 5553 const MPI_Offset start[], const MPI_Offset count[], 5554 5554 const float *op) { 5555 5555 NC_var *varp; 5556 5556 NC *ncp; 5557 5557 int status; 5558 int 64_tdim;5559 int64_t nelems;5558 int dim; 5559 MPI_Offset nelems; 5560 5560 5561 5561 status = ncmpii_NC_check_id(ncid, &ncp); … … 5576 5576 5577 5577 int 5578 ncmpi_put_vara_float(int ncid, int 64_tvarid,5579 const int64_t start[], const int64_t count[],5578 ncmpi_put_vara_float(int ncid, int varid, 5579 const MPI_Offset start[], const MPI_Offset count[], 5580 5580 const float *op) { 5581 5581 NC_var *varp; 5582 5582 NC *ncp; 5583 5583 int status; 5584 int 64_tdim;5585 int64_t nelems;5584 int dim; 5585 MPI_Offset nelems; 5586 5586 5587 5587 status = ncmpii_NC_check_id(ncid, &ncp); … … 5602 5602 5603 5603 int 5604 ncmpi_put_vara_double_all(int ncid, int 64_tvarid,5605 const int64_t start[], const int64_t count[],5604 ncmpi_put_vara_double_all(int ncid, int varid, 5605 const MPI_Offset start[], const MPI_Offset count[], 5606 5606 const double *op) { 5607 5607 NC_var *varp; 5608 5608 NC *ncp; 5609 5609 int status; 5610 int 64_tdim;5611 int64_t nelems;5610 int dim; 5611 MPI_Offset nelems; 5612 5612 5613 5613 status = ncmpii_NC_check_id(ncid, &ncp); … … 5628 5628 5629 5629 int 5630 ncmpi_put_vara_double(int ncid, int 64_tvarid,5631 const int64_t start[], const int64_t count[],5630 ncmpi_put_vara_double(int ncid, int varid, 5631 const MPI_Offset start[], const MPI_Offset count[], 5632 5632 const double *op) { 5633 5633 NC_var *varp; 5634 5634 NC *ncp; 5635 5635 int status; 5636 int 64_tdim;5637 int64_t nelems;5636 int dim; 5637 MPI_Offset nelems; 5638 5638 5639 5639 status = ncmpii_NC_check_id(ncid, &ncp); … … 5654 5654 5655 5655 int 5656 ncmpi_get_vara_uchar_all(int ncid, int 64_tvarid,5657 const int64_t start[], const int64_t count[],5656 ncmpi_get_vara_uchar_all(int ncid, int varid, 5657 const MPI_Offset start[], const MPI_Offset count[], 5658 5658 unsigned char *ip) { 5659 5659 … … 5661 5661 NC *ncp; 5662 5662 int status; 5663 int 64_tdim;5664 int64_t nelems;5663 int dim; 5664 MPI_Offset nelems; 5665 5665 5666 5666 status = ncmpii_NC_check_id(ncid, &ncp); … … 5681 5681 5682 5682 int 5683 ncmpi_get_vara_uchar(int ncid, int 64_tvarid,5684 const int64_t start[], const int64_t count[],5683 ncmpi_get_vara_uchar(int ncid, int varid, 5684 const MPI_Offset start[], const MPI_Offset count[], 5685 5685 unsigned char *ip) { 5686 5686 … … 5688 5688 NC *ncp; 5689 5689 int status; 5690 int 64_tdim;5691 int64_t nelems;5690 int dim; 5691 MPI_Offset nelems; 5692 5692 5693 5693 status = ncmpii_NC_check_id(ncid, &ncp); … … 5708 5708 5709 5709 int 5710 ncmpi_get_vara_schar_all(int ncid, int 64_tvarid,5711 const int64_t start[], const int64_t count[],5710 ncmpi_get_vara_schar_all(int ncid, int varid, 5711 const MPI_Offset start[], const MPI_Offset count[], 5712 5712 signed char *ip) { 5713 5713 … … 5715 5715 NC *ncp; 5716 5716 int status; 5717 int 64_tdim;5718 int64_t nelems;5717 int dim; 5718 MPI_Offset nelems; 5719 5719 5720 5720 status = ncmpii_NC_check_id(ncid, &ncp); … … 5734 5734 5735 5735 int 5736 ncmpi_get_vara_schar(int ncid, int 64_tvarid,5737 const int64_t start[], const int64_t count[],5736 ncmpi_get_vara_schar(int ncid, int varid, 5737 const MPI_Offset start[], const MPI_Offset count[], 5738 5738 signed char *ip) { 5739 5739 … … 5741 5741 NC *ncp; 5742 5742 int status; 5743 int 64_tdim;5744 int64_t nelems;5743 int dim; 5744 MPI_Offset nelems; 5745 5745 5746 5746 status = ncmpii_NC_check_id(ncid, &ncp); … … 5761 5761 5762 5762 int 5763 ncmpi_get_vara_text_all(int ncid, int 64_tvarid,5764 const int64_t start[], const int64_t count[],5763 ncmpi_get_vara_text_all(int ncid, int varid, 5764 const MPI_Offset start[], const MPI_Offset count[], 5765 5765 char *ip) { 5766 5766 … … 5768 5768 NC *ncp; 5769 5769 int status; 5770 int 64_tdim;5771 int64_t nelems;5770 int dim; 5771 MPI_Offset nelems; 5772 5772 5773 5773 status = ncmpii_NC_check_id(ncid, &ncp); … … 5788 5788 5789 5789 int 5790 ncmpi_get_vara_text(int ncid, int 64_tvarid,5791 const int64_t start[], const int64_t count[],5790 ncmpi_get_vara_text(int ncid, int varid, 5791 const MPI_Offset start[], const MPI_Offset count[], 5792 5792 char *ip) { 5793 5793 … … 5795 5795 NC *ncp; 5796 5796 int status; 5797 int 64_tdim;5798 int64_t nelems;5797 int dim; 5798 MPI_Offset nelems; 5799 5799 5800 5800 status = ncmpii_NC_check_id(ncid, &ncp); … … 5815 5815 5816 5816 int 5817 ncmpi_get_vara_short_all(int ncid, int 64_tvarid,5818 const int64_t start[], const int64_t count[],5817 ncmpi_get_vara_short_all(int ncid, int varid, 5818 const MPI_Offset start[], const MPI_Offset count[], 5819 5819 short *ip) { 5820 5820 … … 5822 5822 NC *ncp; 5823 5823 int status; 5824 int 64_tdim;5825 int64_t nelems;5824 int dim; 5825 MPI_Offset nelems; 5826 5826 5827 5827 status = ncmpii_NC_check_id(ncid, &ncp); … … 5842 5842 5843 5843 int 5844 ncmpi_get_vara_short(int ncid, int 64_tvarid,5845 const int64_t start[], const int64_t count[],5844 ncmpi_get_vara_short(int ncid, int varid, 5845 const MPI_Offset start[], const MPI_Offset count[], 5846 5846 short *ip) { 5847 5847 … … 5849 5849 NC *ncp; 5850 5850 int status; 5851 int 64_tdim;5852 int64_t nelems;5851 int dim; 5852 MPI_Offset nelems; 5853 5853 5854 5854 status = ncmpii_NC_check_id(ncid, &ncp); … … 5869 5869 5870 5870 int 5871 ncmpi_get_vara_int_all(int ncid, int 64_tvarid,5872 const int64_t start[], const int64_t count[],5871 ncmpi_get_vara_int_all(int ncid, int varid, 5872 const MPI_Offset start[], const MPI_Offset count[], 5873 5873 int *ip) { 5874 5874 … … 5876 5876 NC *ncp; 5877 5877 int status; 5878 int 64_tdim;5879 int64_t nelems;5878 int dim; 5879 MPI_Offset nelems; 5880 5880 5881 5881 status = ncmpii_NC_check_id(ncid, &ncp); … … 5896 5896 5897 5897 int 5898 ncmpi_get_vara_int(int ncid, int 64_tvarid,5899 const int64_t start[], const int64_t count[],5898 ncmpi_get_vara_int(int ncid, int varid, 5899 const MPI_Offset start[], const MPI_Offset count[], 5900 5900 int *ip) { 5901 5901 NC_var *varp; 5902 5902 NC *ncp; 5903 5903 int status; 5904 int 64_tdim;5905 int64_t nelems;5904 int dim; 5905 MPI_Offset nelems; 5906 5906 5907 5907 status = ncmpii_NC_check_id(ncid, &ncp); … … 5922 5922 5923 5923 int 5924 ncmpi_get_vara_long_all(int ncid, int 64_tvarid,5925 const int64_t start[], const int64_t count[],5924 ncmpi_get_vara_long_all(int ncid, int varid, 5925 const MPI_Offset start[], const MPI_Offset count[], 5926 5926 long *ip) { 5927 5927 … … 5929 5929 NC *ncp; 5930 5930 int status; 5931 int 64_tdim;5932 int64_t nelems;5931 int dim; 5932 MPI_Offset nelems; 5933 5933 5934 5934 status = ncmpii_NC_check_id(ncid, &ncp); … … 5949 5949 5950 5950 int 5951 ncmpi_get_vara_long(int ncid, int 64_tvarid,5952 const int64_t start[], const int64_t count[],5951 ncmpi_get_vara_long(int ncid, int varid, 5952 const MPI_Offset start[], const MPI_Offset count[], 5953 5953 long *ip) { 5954 5954 NC_var *varp; 5955 5955 NC *ncp; 5956 5956 int status; 5957 int 64_tdim;5958 int64_t nelems;5957 int dim; 5958 MPI_Offset nelems; 5959 5959 5960 5960 status = ncmpii_NC_check_id(ncid, &ncp); … … 5975 5975 5976 5976 int 5977 ncmpi_get_vara_float_all(int ncid, int 64_tvarid,5978 const int64_t start[], const int64_t count[],5977 ncmpi_get_vara_float_all(int ncid, int varid, 5978 const MPI_Offset start[], const MPI_Offset count[], 5979 5979 float *ip) { 5980 5980 … … 5982 5982 NC *ncp; 5983 5983 int status; 5984 int 64_tdim;5985 int64_t nelems;5984 int dim; 5985 MPI_Offset nelems; 5986 5986 5987 5987 status = ncmpii_NC_check_id(ncid, &ncp); … … 6002 6002 6003 6003 int 6004 ncmpi_get_vara_float(int ncid, int 64_tvarid,6005 const int64_t start[], const int64_t count[],6004 ncmpi_get_vara_float(int ncid, int varid, 6005 const MPI_Offset start[], const MPI_Offset count[], 6006 6006 float *ip) { 6007 6007 NC_var *varp; 6008 6008 NC *ncp; 6009 6009 int status; 6010 int 64_tdim;6011 int64_t nelems;6010 int dim; 6011 MPI_Offset nelems; 6012 6012 6013 6013 status = ncmpii_NC_check_id(ncid, &ncp); … … 6028 6028 6029 6029 int 6030 ncmpi_get_vara_double_all(int ncid, int 64_tvarid,6031 const int64_t start[], const int64_t count[],6030 ncmpi_get_vara_double_all(int ncid, int varid, 6031 const MPI_Offset start[], const MPI_Offset count[], 6032 6032 double *ip) { 6033 6033 … … 6035 6035 NC *ncp; 6036 6036 int status; 6037 int 64_tdim;6038 int64_t nelems;6037 int dim; 6038 MPI_Offset nelems; 6039 6039 6040 6040 status = ncmpii_NC_check_id(ncid, &ncp); … … 6055 6055 6056 6056 int 6057 ncmpi_get_vara_double(int ncid, int 64_tvarid,6058 const int64_t start[], const int64_t count[],6057 ncmpi_get_vara_double(int ncid, int varid, 6058 const MPI_Offset start[], const MPI_Offset count[], 6059 6059 double *ip) { 6060 6060 NC_var *varp; 6061 6061 NC *ncp; 6062 6062 int status; 6063 int 64_tdim;6064 int64_t nelems;6063 int dim; 6064 MPI_Offset nelems; 6065 6065 6066 6066 status = ncmpii_NC_check_id(ncid, &ncp); … … 6081 6081 6082 6082 int 6083 ncmpi_put_vars_uchar_all(int ncid, int 64_tvarid,6084 const int64_t start[],6085 const int64_t count[],6086 const int64_t stride[],6083 ncmpi_put_vars_uchar_all(int ncid, int varid, 6084 const MPI_Offset start[], 6085 const MPI_Offset count[], 6086 const MPI_Offset stride[], 6087 6087 const unsigned char *op) { 6088 6088 NC_var *varp; 6089 6089 NC *ncp; 6090 6090 int status; 6091 int 64_tdim;6092 int64_t nelems;6091 int dim; 6092 MPI_Offset nelems; 6093 6093 6094 6094 status = ncmpii_NC_check_id(ncid, &ncp); … … 6109 6109 6110 6110 int 6111 ncmpi_put_vars_uchar(int ncid, int 64_tvarid,6112 const int64_t start[],6113 const int64_t count[],6114 const int64_t stride[],6111 ncmpi_put_vars_uchar(int ncid, int varid, 6112 const MPI_Offset start[], 6113 const MPI_Offset count[], 6114 const MPI_Offset stride[], 6115 6115 const unsigned char *op) { 6116 6116 NC_var *varp; 6117 6117 NC *ncp; 6118 6118 int status; 6119 int 64_tdim;6120 int64_t nelems;6119 int dim; 6120 MPI_Offset nelems; 6121 6121 6122 6122 status = ncmpii_NC_check_id(ncid, &ncp); … … 6137 6137 6138 6138 int 6139 ncmpi_put_vars_schar_all(int ncid, int 64_tvarid,6140 const int64_t start[],6141 const int64_t count[],6142 const int64_t stride[],6139 ncmpi_put_vars_schar_all(int ncid, int varid, 6140 const MPI_Offset start[], 6141 const MPI_Offset count[], 6142 const MPI_Offset stride[], 6143 6143 const signed char *op) { 6144 6144 NC_var *varp; 6145 6145 NC *ncp; 6146 6146 int status; 6147 int 64_tdim;6148 int64_t nelems;6147 int dim; 6148 MPI_Offset nelems; 6149 6149 6150 6150 status = ncmpii_NC_check_id(ncid, &ncp); … … 6165 6165 6166 6166 int 6167 ncmpi_put_vars_schar(int ncid, int 64_tvarid,6168 const int64_t start[],6169 const int64_t count[],6170 const int64_t stride[],6167 ncmpi_put_vars_schar(int ncid, int varid, 6168 const MPI_Offset start[], 6169 const MPI_Offset count[], 6170 const MPI_Offset stride[], 6171 6171 const signed char *op) { 6172 6172 NC_var *varp; 6173 6173 NC *ncp; 6174 6174 int status; 6175 int 64_tdim;6176 int64_t nelems;6175 int dim; 6176 MPI_Offset nelems; 6177 6177 6178 6178 status = ncmpii_NC_check_id(ncid, &ncp); … … 6193 6193 6194 6194 int 6195 ncmpi_put_vars_text_all(int ncid, int 64_tvarid,6196 const int64_t start[],6197 const int64_t count[],6198 const int64_t stride[],6195 ncmpi_put_vars_text_all(int ncid, int varid, 6196 const MPI_Offset start[], 6197 const MPI_Offset count[], 6198 const MPI_Offset stride[], 6199 6199 const char *op) { 6200 6200 NC_var *varp; 6201 6201 NC *ncp; 6202 6202 int status; 6203 int 64_tdim;6204 int64_t nelems;6203 int dim; 6204 MPI_Offset nelems; 6205 6205 6206 6206 status = ncmpii_NC_check_id(ncid, &ncp); … … 6221 6221 6222 6222 int 6223 ncmpi_put_vars_text(int ncid, int 64_tvarid,6224 const int64_t start[],6225 const int64_t count[],6226 const int64_t stride[],6223 ncmpi_put_vars_text(int ncid, int varid, 6224 const MPI_Offset start[], 6225 const MPI_Offset count[], 6226 const MPI_Offset stride[], 6227 6227 const char *op) { 6228 6228 NC_var *varp; 6229 6229 NC *ncp; 6230 6230 int status; 6231 int 64_tdim;6232 int64_t nelems;6231 int dim; 6232 MPI_Offset nelems; 6233 6233 6234 6234 status = ncmpii_NC_check_id(ncid, &ncp); … … 6249 6249 6250 6250 int 6251 ncmpi_put_vars_short_all(int ncid, int 64_tvarid,6252 const int64_t start[],6253 const int64_t count[],6254 const int64_t stride[],6251 ncmpi_put_vars_short_all(int ncid, int varid, 6252 const MPI_Offset start[], 6253 const MPI_Offset count[], 6254 const MPI_Offset stride[], 6255 6255 const short *op) { 6256 6256 NC_var *varp; 6257 6257 NC *ncp; 6258 6258 int status; 6259 int 64_tdim;6260 int64_t nelems;6259 int dim; 6260 MPI_Offset nelems; 6261 6261 6262 6262 status = ncmpii_NC_check_id(ncid, &ncp); … … 6277 6277 6278 6278 int 6279 ncmpi_put_vars_short(int ncid, int 64_tvarid,6280 const int64_t start[],6281 const int64_t count[],6282 const int64_t stride[],6279 ncmpi_put_vars_short(int ncid, int varid, 6280 const MPI_Offset start[], 6281 const MPI_Offset count[], 6282 const MPI_Offset stride[], 6283 6283 const short *op) { 6284 6284 NC_var *varp; 6285 6285 NC *ncp; 6286 6286 int status; 6287 int 64_tdim;6288 int64_t nelems;6287 int dim; 6288 MPI_Offset nelems; 6289 6289 6290 6290 status = ncmpii_NC_check_id(ncid, &ncp); … … 6305 6305 6306 6306 int 6307 ncmpi_put_vars_int_all(int ncid, int 64_tvarid,6308 const int64_t start[],6309 const int64_t count[],6310 const int64_t stride[],6307 ncmpi_put_vars_int_all(int ncid, int varid, 6308 const MPI_Offset start[], 6309 const MPI_Offset count[], 6310 const MPI_Offset stride[], 6311 6311 const int *op) { 6312 6312 NC_var *varp; 6313 6313 NC *ncp; 6314 6314 int status; 6315 int 64_tdim;6316 int64_t nelems;6315 int dim; 6316 MPI_Offset nelems; 6317 6317 6318 6318 status = ncmpii_NC_check_id(ncid, &ncp); … … 6333 6333 6334 6334 int 6335 ncmpi_put_vars_int(int ncid, int 64_tvarid,6336 const int64_t start[],6337 const int64_t count[],6338 const int64_t stride[],6335 ncmpi_put_vars_int(int ncid, int varid, 6336 const MPI_Offset start[], 6337 const MPI_Offset count[], 6338 const MPI_Offset stride[], 6339 6339 const int *op) { 6340 6340 NC_var *varp; 6341 6341 NC *ncp; 6342 6342 int status; 6343 int 64_tdim;6344 int64_t nelems;6343 int dim; 6344 MPI_Offset nelems; 6345 6345 6346 6346 status = ncmpii_NC_check_id(ncid, &ncp); … … 6361 6361 6362 6362 int 6363 ncmpi_put_vars_long_all(int ncid, int 64_tvarid,6364 const int64_t start[],6365 const int64_t count[],6366 const int64_t stride[],6363 ncmpi_put_vars_long_all(int ncid, int varid, 6364 const MPI_Offset start[], 6365 const MPI_Offset count[], 6366 const MPI_Offset stride[], 6367 6367 const long *op) { 6368 6368 NC_var *varp; 6369 6369 NC *ncp; 6370 6370 int status; 6371 int 64_tdim;6372 int64_t nelems;6371 int dim; 6372 MPI_Offset nelems; 6373 6373 6374 6374 status = ncmpii_NC_check_id(ncid, &ncp); … … 6389 6389 6390 6390 int 6391 ncmpi_put_vars_long(int ncid, int 64_tvarid,6392 const int64_t start[],6393 const int64_t count[],6394 const int64_t stride[],6391 ncmpi_put_vars_long(int ncid, int varid, 6392 const MPI_Offset start[], 6393 const MPI_Offset count[], 6394 const MPI_Offset stride[], 6395 6395 const long *op) { 6396 6396 NC_var *varp; 6397 6397 NC *ncp; 6398 6398 int status; 6399 int 64_tdim;6400 int64_t nelems;6399 int dim; 6400 MPI_Offset nelems; 6401 6401 6402 6402 status = ncmpii_NC_check_id(ncid, &ncp); … … 6417 6417 6418 6418 int 6419 ncmpi_put_vars_float_all(int ncid, int 64_tvarid,6420 const int64_t start[],6421 const int64_t count[],6422 const int64_t stride[],6419 ncmpi_put_vars_float_all(int ncid, int varid, 6420 const MPI_Offset start[], 6421 const MPI_Offset count[], 6422 const MPI_Offset stride[], 6423 6423 const float *op) { 6424 6424 NC_var *varp; 6425 6425 NC *ncp; 6426 6426 int status; 6427 int 64_tdim;6428 int64_t nelems;6427 int dim; 6428 MPI_Offset nelems; 6429 6429 6430 6430 status = ncmpii_NC_check_id(ncid, &ncp); … … 6445 6445 6446 6446 int 6447 ncmpi_put_vars_float(int ncid, int 64_tvarid,6448 const int64_t start[],6449 const int64_t count[],6450 const int64_t stride[],6447 ncmpi_put_vars_float(int ncid, int varid, 6448 const MPI_Offset start[], 6449 const MPI_Offset count[], 6450 const MPI_Offset stride[], 6451 6451 const float *op) { 6452 6452 NC_var *varp; 6453 6453 NC *ncp; 6454 6454 int status; 6455 int 64_tdim;6456 int64_t nelems;6455 int dim; 6456 MPI_Offset nelems; 6457 6457 6458 6458 status = ncmpii_NC_check_id(ncid, &ncp); … … 6473 6473 6474 6474 int 6475 ncmpi_put_vars_double_all(int ncid, int 64_tvarid,6476 const int64_t start[],6477 const int64_t count[],6478 const int64_t stride[],6475 ncmpi_put_vars_double_all(int ncid, int varid, 6476 const MPI_Offset start[], 6477 const MPI_Offset count[], 6478 const MPI_Offset stride[], 6479 6479 const double *op) { 6480 6480 … … 6482 6482 NC *ncp; 6483 6483 int status; 6484 int 64_tdim;6485 int64_t nelems;6484 int dim; 6485 MPI_Offset nelems; 6486 6486 6487 6487 status = ncmpii_NC_check_id(ncid, &ncp); … … 6503 6503 6504 6504 int 6505 ncmpi_put_vars_double(int ncid, int 64_tvarid,6506 const int64_t start[],6507 const int64_t count[],6508 const int64_t stride[],6505 ncmpi_put_vars_double(int ncid, int varid, 6506 const MPI_Offset start[], 6507 const MPI_Offset count[], 6508 const MPI_Offset stride[], 6509 6509 const double *op) { 6510 6510 … … 6512 6512 NC *ncp; 6513 6513 int status; 6514 int 64_tdim;6515 int64_t nelems;6514 int dim; 6515 MPI_Offset nelems; 6516 6516 6517 6517 status = ncmpii_NC_check_id(ncid, &ncp); … … 6533 6533 6534 6534 int 6535 ncmpi_get_vars_uchar_all(int ncid, int 64_tvarid,6536 const int64_t start[],6537 const int64_t count[],6538 const int64_t stride[],6535 ncmpi_get_vars_uchar_all(int ncid, int varid, 6536 const MPI_Offset start[], 6537 const MPI_Offset count[], 6538 const MPI_Offset stride[], 6539 6539 unsigned char *ip) { 6540 6540 NC_var *varp; 6541 6541 NC *ncp; 6542 6542 int status; 6543 int 64_tdim;6544 int64_t nelems;6543 int dim; 6544 MPI_Offset nelems; 6545 6545 6546 6546 status = ncmpii_NC_check_id(ncid, &ncp); … … 6561 6561 6562 6562 int 6563 ncmpi_get_vars_uchar(int ncid, int 64_tvarid,6564 const int64_t start[],6565 const int64_t count[],6566 const int64_t stride[],6563 ncmpi_get_vars_uchar(int ncid, int varid, 6564 const MPI_Offset start[], 6565 const MPI_Offset count[], 6566 const MPI_Offset stride[], 6567 6567 unsigned char *ip) { 6568 6568 NC_var *varp; 6569 6569 NC *ncp; 6570 6570 int status; 6571 int 64_tdim;6572 int64_t nelems;6571 int dim; 6572 MPI_Offset nelems; 6573 6573 6574 6574 status = ncmpii_NC_check_id(ncid, &ncp); … … 6589 6589 6590 6590 int 6591 ncmpi_get_vars_schar_all(int ncid, int 64_tvarid,6592 const int64_t start[],6593 const int64_t count[],6594 const int64_t stride[],6591 ncmpi_get_vars_schar_all(int ncid, int varid, 6592 const MPI_Offset start[], 6593 const MPI_Offset count[], 6594 const MPI_Offset stride[], 6595 6595 signed char *ip) { 6596 6596 NC_var *varp; 6597 6597 NC *ncp; 6598 6598 int status; 6599 int 64_tdim;6600 int64_t nelems;6599 int dim; 6600 MPI_Offset nelems; 6601 6601 6602 6602 status = ncmpii_NC_check_id(ncid, &ncp); … … 6617 6617 6618 6618 int 6619 ncmpi_get_vars_schar(int ncid, int 64_tvarid,6620 const int64_t start[],6621 const int64_t count[],6622 const int64_t stride[],6619 ncmpi_get_vars_schar(int ncid, int varid, 6620 const MPI_Offset start[], 6621 const MPI_Offset count[], 6622 const MPI_Offset stride[], 6623 6623 signed char *ip) { 6624 6624 NC_var *varp; 6625 6625 NC *ncp; 6626 6626 int status; 6627 int 64_tdim;6628 int64_t nelems;6627 int dim; 6628 MPI_Offset nelems; 6629 6629 6630 6630 status = ncmpii_NC_check_id(ncid, &ncp); … … 6645 6645 6646 6646 int 6647 ncmpi_get_vars_text_all(int ncid, int 64_tvarid,6648 const int64_t start[],6649 const int64_t count[],6650 const int64_t stride[],6647 ncmpi_get_vars_text_all(int ncid, int varid, 6648 const MPI_Offset start[], 6649 const MPI_Offset count[], 6650 const MPI_Offset stride[], 6651 6651 char *ip) { 6652 6652 NC_var *varp; 6653 6653 NC *ncp; 6654 6654 int status; 6655 int 64_tdim;6656 int64_t nelems;6655 int dim; 6656 MPI_Offset nelems; 6657 6657 6658 6658 status = ncmpii_NC_check_id(ncid, &ncp); … … 6673 6673 6674 6674 int 6675 ncmpi_get_vars_text(int ncid, int 64_tvarid,6676 const int64_t start[],6677 const int64_t count[],6678 const int64_t stride[],6675 ncmpi_get_vars_text(int ncid, int varid, 6676 const MPI_Offset start[], 6677 const MPI_Offset count[], 6678 const MPI_Offset stride[], 6679 6679 char *ip) { 6680 6680 NC_var *varp; 6681 6681 NC *ncp; 6682 6682 int status; 6683 int 64_tdim;6684 int64_t nelems;6683 int dim; 6684 MPI_Offset nelems; 6685 6685 6686 6686 status = ncmpii_NC_check_id(ncid, &ncp); … … 6701 6701 6702 6702 int 6703 ncmpi_get_vars_short_all(int ncid, int 64_tvarid,6704 const int64_t start[],6705 const int64_t count[],6706 const int64_t stride[],6703 ncmpi_get_vars_short_all(int ncid, int varid, 6704 const MPI_Offset start[], 6705 const MPI_Offset count[], 6706 const MPI_Offset stride[], 6707 6707 short *ip) { 6708 6708 NC_var *varp; 6709 6709 NC *ncp; 6710 6710 int status; 6711 int 64_tdim;6712 int64_t nelems;6711 int dim; 6712 MPI_Offset nelems; 6713 6713 6714 6714 status = ncmpii_NC_check_id(ncid, &ncp); … … 6729 6729 6730 6730 int 6731 ncmpi_get_vars_short(int ncid, int 64_tvarid,6732 const int64_t start[],6733 const int64_t count[],6734 const int64_t stride[],6731 ncmpi_get_vars_short(int ncid, int varid, 6732 const MPI_Offset start[], 6733 const MPI_Offset count[], 6734 const MPI_Offset stride[], 6735 6735 short *ip) { 6736 6736 NC_var *varp; 6737 6737 NC *ncp; 6738 6738 int status; 6739 int 64_tdim;6740 int64_t nelems;6739 int dim; 6740 MPI_Offset nelems; 6741 6741 6742 6742 status = ncmpii_NC_check_id(ncid, &ncp); … … 6757 6757 6758 6758 int 6759 ncmpi_get_vars_int_all(int ncid, int 64_tvarid,6760 const int64_t start[],6761 const int64_t count[],6762 const int64_t stride[],6759 ncmpi_get_vars_int_all(int ncid, int varid, 6760 const MPI_Offset start[], 6761 const MPI_Offset count[], 6762 const MPI_Offset stride[], 6763 6763 int *ip) { 6764 6764 NC_var *varp; 6765 6765 NC *ncp; 6766 6766 int status; 6767 int 64_tdim;6768 int64_t nelems;6767 int dim; 6768 MPI_Offset nelems; 6769 6769 6770 6770 status = ncmpii_NC_check_id(ncid, &ncp); … … 6785 6785 6786 6786 int 6787 ncmpi_get_vars_int(int ncid, int 64_tvarid,6788 const int64_t start[],6789 const int64_t count[],6790 const int64_t stride[],6787 ncmpi_get_vars_int(int ncid, int varid, 6788 const MPI_Offset start[], 6789 const MPI_Offset count[], 6790 const MPI_Offset stride[], 6791 6791 int *ip) { 6792 6792 NC_var *varp; 6793 6793 NC *ncp; 6794 6794 int status; 6795 int 64_tdim;6796 int64_t nelems;6795 int dim; 6796 MPI_Offset nelems; 6797 6797 6798 6798 status = ncmpii_NC_check_id(ncid, &ncp); … … 6813 6813 6814 6814 int 6815 ncmpi_get_vars_long_all(int ncid, int 64_tvarid,6816 const int64_t start[],6817 const int64_t count[],6818 const int64_t stride[],6815 ncmpi_get_vars_long_all(int ncid, int varid, 6816 const MPI_Offset start[], 6817 const MPI_Offset count[], 6818 const MPI_Offset stride[], 6819 6819 long *ip) { 6820 6820 NC_var *varp; 6821 6821 NC *ncp; 6822 6822 int status; 6823 int 64_tdim;6824 int64_t nelems;6823 int dim; 6824 MPI_Offset nelems; 6825 6825 6826 6826 status = ncmpii_NC_check_id(ncid, &ncp); … … 6841 6841 6842 6842 int 6843 ncmpi_get_vars_long(int ncid, int 64_tvarid,6844 const int64_t start[],6845 const int64_t count[],6846 const int64_t stride[],6843 ncmpi_get_vars_long(int ncid, int varid, 6844 const MPI_Offset start[], 6845 const MPI_Offset count[], 6846 const MPI_Offset stride[], 6847 6847 long *ip) { 6848 6848 NC_var *varp; 6849 6849 NC *ncp; 6850 6850 int status; 6851 int 64_tdim;6852 int64_t nelems;6851 int dim; 6852 MPI_Offset nelems; 6853 6853 6854 6854 status = ncmpii_NC_check_id(ncid, &ncp); … … 6869 6869 6870 6870 int 6871 ncmpi_get_vars_float_all(int ncid, int 64_tvarid,6872 const int64_t start[],6873 const int64_t count[],6874 const int64_t stride[],6871 ncmpi_get_vars_float_all(int ncid, int varid, 6872 const MPI_Offset start[], 6873 const MPI_Offset count[], 6874 const MPI_Offset stride[], 6875 6875 float *ip) { 6876 6876 NC_var *varp; 6877 6877 NC *ncp; 6878 6878 int status; 6879 int 64_tdim;6880 int64_t nelems;6879 int dim; 6880 MPI_Offset nelems; 6881 6881 6882 6882 status = ncmpii_NC_check_id(ncid, &ncp); … … 6897 6897 6898 6898 int 6899 ncmpi_get_vars_float(int ncid, int 64_tvarid,6900 const int64_t start[],6901 const int64_t count[],6902 const int64_t stride[],6899 ncmpi_get_vars_float(int ncid, int varid, 6900 const MPI_Offset start[], 6901 const MPI_Offset count[], 6902 const MPI_Offset stride[], 6903 6903 float *ip) { 6904 6904 NC_var *varp; 6905 6905 NC *ncp; 6906 6906 int status; 6907 int 64_tdim;6908 int64_t nelems;6907 int dim; 6908 MPI_Offset nelems; 6909 6909 6910 6910 status = ncmpii_NC_check_id(ncid, &ncp); … … 6925 6925 6926 6926 int 6927 ncmpi_get_vars_double_all(int ncid, int 64_tvarid,6928 const int64_t start[],6929 const int64_t count[],6930 const int64_t stride[],6927 ncmpi_get_vars_double_all(int ncid, int varid, 6928 const MPI_Offset start[], 6929 const MPI_Offset count[], 6930 const MPI_Offset stride[], 6931 6931 double *ip) { 6932 6932 … … 6934 6934 NC *ncp; 6935 6935 int status; 6936 int 64_tdim;6937 int64_t nelems;6936 int dim; 6937 MPI_Offset nelems; 6938 6938 6939 6939 status = ncmpii_NC_check_id(ncid, &ncp); … … 6954 6954 6955 6955 int 6956 ncmpi_get_vars_double(int ncid, int 64_tvarid,6957 const int64_t start[],6958 const int64_t count[],6959 const int64_t stride[],6956 ncmpi_get_vars_double(int ncid, int varid, 6957 const MPI_Offset start[], 6958 const MPI_Offset count[], 6959 const MPI_Offset stride[], 6960 6960 double *ip) { 6961 6961 … … 6963 6963 NC *ncp; 6964 6964 int status; 6965 int 64_tdim;6966 int64_t nelems;6965 int dim; 6966 MPI_Offset nelems; 6967 6967 6968 6968 status = ncmpii_NC_check_id(ncid, &ncp); … … 6983 6983 6984 6984 int 6985 ncmpi_put_varm_uchar_all(int ncid, int 64_tvarid,6986 const int64_t start[],6987 const int64_t count[],6988 const int64_t stride[],6989 const int64_t imap[],6985 ncmpi_put_varm_uchar_all(int ncid, int varid, 6986 const MPI_Offset start[], 6987 const MPI_Offset count[], 6988 const MPI_Offset stride[], 6989 const MPI_Offset imap[], 6990 6990 const unsigned char *op) 6991 6991 { … … 6993 6993 NC *ncp; 6994 6994 int status; 6995 int 64_tdim;6996 int64_t nelems;6995 int dim; 6996 MPI_Offset nelems; 6997 6997 6998 6998 status = ncmpii_NC_check_id(ncid, &ncp); … … 7013 7013 7014 7014 int 7015 ncmpi_put_varm_uchar(int ncid, int 64_tvarid,7016 const int64_t start[],7017 const int64_t count[],7018 const int64_t stride[],7019 const int64_t imap[],7015 ncmpi_put_varm_uchar(int ncid, int varid, 7016 const MPI_Offset start[], 7017 const MPI_Offset count[], 7018 const MPI_Offset stride[], 7019 const MPI_Offset imap[], 7020 7020 const unsigned char *op) 7021 7021 { … … 7023 7023 NC *ncp; 7024 7024 int status; 7025 int 64_tdim;7026 int64_t nelems;7025 int dim; 7026 MPI_Offset nelems; 7027 7027 7028 7028 status = ncmpii_NC_check_id(ncid, &ncp); … … 7043 7043 7044 7044 int 7045 ncmpi_put_varm_schar_all(int ncid, int 64_tvarid,7046 const int64_t start[],7047 const int64_t count[],7048 const int64_t stride[],7049 const int64_t imap[],7045 ncmpi_put_varm_schar_all(int ncid, int varid, 7046 const MPI_Offset start[], 7047 const MPI_Offset count[], 7048 const MPI_Offset stride[], 7049 const MPI_Offset imap[], 7050 7050 const signed char *op) 7051 7051 { … … 7053 7053 NC *ncp; 7054 7054 int status; 7055 int 64_tdim;7056 int64_t nelems;7055 int dim; 7056 MPI_Offset nelems; 7057 7057 7058 7058 status = ncmpii_NC_check_id(ncid, &ncp); … … 7073 7073 7074 7074 int 7075 ncmpi_put_varm_schar(int ncid, int 64_tvarid,7076 const int64_t start[],7077 const int64_t count[],7078 const int64_t stride[],7079 const int64_t imap[],7075 ncmpi_put_varm_schar(int ncid, int varid, 7076 const MPI_Offset start[], 7077 const MPI_Offset count[], 7078 const MPI_Offset stride[], 7079 const MPI_Offset imap[], 7080 7080 const signed char *op) 7081 7081 { … … 7083 7083 NC *ncp; 7084 7084 int status; 7085 int 64_tdim;7086 int64_t nelems;7085 int dim; 7086 MPI_Offset nelems; 7087 7087 7088 7088 status = ncmpii_NC_check_id(ncid, &ncp); … … 7103 7103 7104 7104 int 7105 ncmpi_put_varm_text_all(int ncid, int 64_tvarid,7106 const int64_t start[],7107 const int64_t count[],7108 const int64_t stride[],7109 const int64_t imap[],7105 ncmpi_put_varm_text_all(int ncid, int varid, 7106 const MPI_Offset start[], 7107 const MPI_Offset count[], 7108 const MPI_Offset stride[], 7109 const MPI_Offset imap[], 7110 7110 const char *op) 7111 7111 { … … 7113 7113 NC *ncp; 7114 7114 int status; 7115 int 64_tdim;7116 int64_t nelems;7115 int dim; 7116 MPI_Offset nelems; 7117 7117 7118 7118 status = ncmpii_NC_check_id(ncid, &ncp); … … 7133 7133 7134 7134 int 7135 ncmpi_put_varm_text(int ncid, int 64_tvarid,7136 const int64_t start[],7137 const int64_t count[],7138 const int64_t stride[],7139 const int64_t imap[],7135 ncmpi_put_varm_text(int ncid, int varid, 7136 const MPI_Offset start[], 7137 const MPI_Offset count[], 7138 const MPI_Offset stride[], 7139 const MPI_Offset imap[], 7140 7140 const char *op) 7141 7141 { … … 7143 7143 NC *ncp; 7144 7144 int status; 7145 int 64_tdim;7146 int64_t nelems;7145 int dim; 7146 MPI_Offset nelems; 7147 7147 7148 7148 status = ncmpii_NC_check_id(ncid, &ncp); … … 7163 7163 7164 7164 int 7165 ncmpi_put_varm_short_all(int ncid, int 64_tvarid,7166 const int64_t start[],7167 const int64_t count[],7168 const int64_t stride[],7169 const int64_t imap[],7165 ncmpi_put_varm_short_all(int ncid, int varid, 7166 const MPI_Offset start[], 7167 const MPI_Offset count[], 7168 const MPI_Offset stride[], 7169 const MPI_Offset imap[], 7170 7170 const short *op) 7171 7171 { … … 7173 7173 NC *ncp; 7174 7174 int status; 7175 int 64_tdim;7176 int64_t nelems;7175 int dim; 7176 MPI_Offset nelems; 7177 7177 7178 7178 status = ncmpii_NC_check_id(ncid, &ncp); … … 7193 7193 7194 7194 int 7195 ncmpi_put_varm_short(int ncid, int 64_tvarid,7196 const int64_t start[],7197 const int64_t count[],7198 const int64_t stride[],7199 const int64_t imap[],7195 ncmpi_put_varm_short(int ncid, int varid, 7196 const MPI_Offset start[], 7197 const MPI_Offset count[], 7198 const MPI_Offset stride[], 7199 const MPI_Offset imap[], 7200 7200 const short *op) 7201 7201 { … … 7203 7203 NC *ncp; 7204 7204 int status; 7205 int 64_tdim;7206 int64_t nelems;7205 int dim; 7206 MPI_Offset nelems; 7207 7207 7208 7208 status = ncmpii_NC_check_id(ncid, &ncp); … … 7223 7223 7224 7224 int 7225 ncmpi_put_varm_int_all(int ncid, int 64_tvarid,7226 const int64_t start[],7227 const int64_t count[],7228 const int64_t stride[],7229 const int64_t imap[],7225 ncmpi_put_varm_int_all(int ncid, int varid, 7226 const MPI_Offset start[], 7227 const MPI_Offset count[], 7228 const MPI_Offset stride[], 7229 const MPI_Offset imap[], 7230 7230 const int *op) 7231 7231 { … … 7233 7233 NC *ncp; 7234 7234 int status; 7235 int 64_tdim;7236 int64_t nelems;7235 int dim; 7236 MPI_Offset nelems; 7237 7237 7238 7238 status = ncmpii_NC_check_id(ncid, &ncp); … … 7253 7253 7254 7254 int 7255 ncmpi_put_varm_int(int ncid, int 64_tvarid,7256 const int64_t start[],7257 const int64_t count[],7258 const int64_t stride[],7259 const int64_t imap[],7255 ncmpi_put_varm_int(int ncid, int varid, 7256 const MPI_Offset start[], 7257 const MPI_Offset count[], 7258 const MPI_Offset stride[], 7259 const MPI_Offset imap[], 7260 7260 const int *op) 7261 7261 { … … 7263 7263 NC *ncp; 7264 7264 int status; 7265 int 64_tdim;7266 int64_t nelems;7265 int dim; 7266 MPI_Offset nelems; 7267 7267 7268 7268 status = ncmpii_NC_check_id(ncid, &ncp); … … 7283 7283 7284 7284 int 7285 ncmpi_put_varm_long_all(int ncid, int 64_tvarid,7286 const int64_t start[],7287 const int64_t count[],7288 const int64_t stride[],7289 const int64_t imap[],7285 ncmpi_put_varm_long_all(int ncid, int varid, 7286 const MPI_Offset start[], 7287 const MPI_Offset count[], 7288 const MPI_Offset stride[], 7289 const MPI_Offset imap[], 7290 7290 const long *op) 7291 7291 { … … 7293 7293 NC *ncp; 7294 7294 int status; 7295 int 64_tdim;7296 int64_t nelems;7295 int dim; 7296 MPI_Offset nelems; 7297 7297 7298 7298 status = ncmpii_NC_check_id(ncid, &ncp); … … 7313 7313 7314 7314 int 7315 ncmpi_put_varm_long(int ncid, int 64_tvarid,7316 const int64_t start[],7317 const int64_t count[],7318 const int64_t stride[],7319 const int64_t imap[],7315 ncmpi_put_varm_long(int ncid, int varid, 7316 const MPI_Offset start[], 7317 const MPI_Offset count[], 7318 const MPI_Offset stride[], 7319 const MPI_Offset imap[], 7320 7320 const long *op) 7321 7321 { … … 7323 7323 NC *ncp; 7324 7324 int status; 7325 int 64_tdim;7326 int64_t nelems;7325 int dim; 7326 MPI_Offset nelems; 7327 7327 7328 7328 status = ncmpii_NC_check_id(ncid, &ncp); … … 7343 7343 7344 7344 int 7345 ncmpi_put_varm_float_all(int ncid, int 64_tvarid,7346 const int64_t start[],7347 const int64_t count[],7348 const int64_t stride[],7349 const int64_t imap[],7345 ncmpi_put_varm_float_all(int ncid, int varid, 7346 const MPI_Offset start[], 7347 const MPI_Offset count[], 7348 const MPI_Offset stride[], 7349 const MPI_Offset imap[], 7350 7350 const float *op) 7351 7351 { … … 7353 7353 NC *ncp; 7354 7354 int status; 7355 int 64_tdim;7356 int64_t nelems;7355 int dim; 7356 MPI_Offset nelems; 7357 7357 7358 7358 status = ncmpii_NC_check_id(ncid, &ncp); … … 7373 7373 7374 7374 int 7375 ncmpi_put_varm_float(int ncid, int 64_tvarid,7376 const int64_t start[],7377 const int64_t count[],7378 const int64_t stride[],7379 const int64_t imap[],7375 ncmpi_put_varm_float(int ncid, int varid, 7376 const MPI_Offset start[], 7377 const MPI_Offset count[], 7378 const MPI_Offset stride[], 7379 const MPI_Offset imap[], 7380 7380 const float *op) 7381 7381 { … … 7383 7383 NC *ncp; 7384 7384 int status; 7385 int 64_tdim;7386 int64_t nelems;7385 int dim; 7386 MPI_Offset nelems; 7387 7387 7388 7388 status = ncmpii_NC_check_id(ncid, &ncp); … … 7403 7403 7404 7404 int 7405 ncmpi_put_varm_double_all(int ncid, int 64_tvarid,7406 const int64_t start[],7407 const int64_t count[],7408 const int64_t stride[],7409 const int64_t imap[],7405 ncmpi_put_varm_double_all(int ncid, int varid, 7406 const MPI_Offset start[], 7407 const MPI_Offset count[], 7408 const MPI_Offset stride[], 7409 const MPI_Offset imap[], 7410 7410 const double *op) 7411 7411 { … … 7413 7413 NC *ncp; 7414 7414 int status; 7415 int 64_tdim;7416 int64_t nelems;7415 int dim; 7416 MPI_Offset nelems; 7417 7417 7418 7418 status = ncmpii_NC_check_id(ncid, &ncp); … … 7433 7433 7434 7434 int 7435 ncmpi_put_varm_double(int ncid, int 64_tvarid,7436 const int64_t start[],7437 const int64_t count[],7438 const int64_t stride[],7439 const int64_t imap[],7435 ncmpi_put_varm_double(int ncid, int varid, 7436 const MPI_Offset start[], 7437 const MPI_Offset count[], 7438 const MPI_Offset stride[], 7439 const MPI_Offset imap[], 7440 7440 const double *op) 7441 7441 { … … 7443 7443 NC *ncp; 7444 7444 int status; 7445 int 64_tdim;7446 int64_t nelems;7445 int dim; 7446 MPI_Offset nelems; 7447 7447 7448 7448 status = ncmpii_NC_check_id(ncid, &ncp); … … 7463 7463 7464 7464 int 7465 ncmpi_get_varm_uchar_all(int ncid, int 64_tvarid,7466 const int64_t start[],7467 const int64_t count[],7468 const int64_t stride[],7469 const int64_t imap[],7465 ncmpi_get_varm_uchar_all(int ncid, int varid, 7466 const MPI_Offset start[], 7467 const MPI_Offset count[], 7468 const MPI_Offset stride[], 7469 const MPI_Offset imap[], 7470 7470 unsigned char *ip) 7471 7471 { … … 7473 7473 NC *ncp; 7474 7474 int status; 7475 int 64_tdim;7476 int64_t nelems;7475 int dim; 7476 MPI_Offset nelems; 7477 7477 7478 7478 status = ncmpii_NC_check_id(ncid, &ncp); … … 7493 7493 7494 7494 int 7495 ncmpi_get_varm_uchar(int ncid, int 64_tvarid,7496 const int64_t start[],7497 const int64_t count[],7498 const int64_t stride[],7499 const int64_t imap[],7495 ncmpi_get_varm_uchar(int ncid, int varid, 7496 const MPI_Offset start[], 7497 const MPI_Offset count[], 7498 const MPI_Offset stride[], 7499 const MPI_Offset imap[], 7500 7500 unsigned char *ip) 7501 7501 { … … 7503 7503 NC *ncp; 7504 7504 int status; 7505 int 64_tdim;7506 int64_t nelems;7505 int dim; 7506 MPI_Offset nelems; 7507 7507 7508 7508 status = ncmpii_NC_check_id(ncid, &ncp); … … 7523 7523 7524 7524 int 7525 ncmpi_get_varm_schar_all(int ncid, int 64_tvarid,7526 const int64_t start[],7527 const int64_t count[],7528 const int64_t stride[],7529 const int64_t imap[],7525 ncmpi_get_varm_schar_all(int ncid, int varid, 7526 const MPI_Offset start[], 7527 const MPI_Offset count[], 7528 const MPI_Offset stride[], 7529 const MPI_Offset imap[], 7530 7530 signed char *ip) 7531 7531 { … … 7533 7533 NC *ncp; 7534 7534 int status; 7535 int 64_tdim;7536 int64_t nelems;7535 int dim; 7536 MPI_Offset nelems; 7537 7537 7538 7538 status = ncmpii_NC_check_id(ncid, &ncp); … … 7553 7553 7554 7554 int 7555 ncmpi_get_varm_schar(int ncid, int 64_tvarid,7556 const int64_t start[],7557 const int64_t count[],7558 const int64_t stride[],7559 const int64_t imap[],7555 ncmpi_get_varm_schar(int ncid, int varid, 7556 const MPI_Offset start[], 7557 const MPI_Offset count[], 7558 const MPI_Offset stride[], 7559 const MPI_Offset imap[], 7560 7560 signed char *ip) 7561 7561 { … … 7563 7563 NC *ncp; 7564 7564 int status; 7565 int 64_tdim;7566 int64_t nelems;7565 int dim; 7566 MPI_Offset nelems; 7567 7567 7568 7568 status = ncmpii_NC_check_id(ncid, &ncp); … … 7583 7583 7584 7584 int 7585 ncmpi_get_varm_text_all(int ncid, int 64_tvarid,7586 const int64_t start[],7587 const int64_t count[],7588 const int64_t stride[],7589 const int64_t imap[],7585 ncmpi_get_varm_text_all(int ncid, int varid, 7586 const MPI_Offset start[], 7587 const MPI_Offset count[], 7588 const MPI_Offset stride[], 7589 const MPI_Offset imap[], 7590 7590 char *ip) 7591 7591 { … … 7593 7593 NC *ncp; 7594 7594 int status; 7595 int 64_tdim;7596 int64_t nelems;7595 int dim; 7596 MPI_Offset nelems; 7597 7597 7598 7598 status = ncmpii_NC_check_id(ncid, &ncp); … … 7613 7613 7614 7614 int 7615 ncmpi_get_varm_text(int ncid, int 64_tvarid,7616 const int64_t start[],7617 const int64_t count[],7618 const int64_t stride[],7619 const int64_t imap[],7615 ncmpi_get_varm_text(int ncid, int varid, 7616 const MPI_Offset start[], 7617 const MPI_Offset count[], 7618 const MPI_Offset stride[], 7619 const MPI_Offset imap[], 7620 7620 char *ip) 7621 7621 { … … 7623 7623 NC *ncp; 7624 7624 int status; 7625 int 64_tdim;7626 int64_t nelems;7625 int dim; 7626 MPI_Offset nelems; 7627 7627 7628 7628 status = ncmpii_NC_check_id(ncid, &ncp); … … 7643 7643 7644 7644 int 7645 ncmpi_get_varm_short_all(int ncid, int 64_tvarid,7646 const int64_t start[],7647 const int64_t count[],7648 const int64_t stride[],7649 const int64_t imap[],7645 ncmpi_get_varm_short_all(int ncid, int varid, 7646 const MPI_Offset start[], 7647 const MPI_Offset count[], 7648 const MPI_Offset stride[], 7649 const MPI_Offset imap[], 7650 7650 short *ip) 7651 7651 { … … 7653 7653 NC *ncp; 7654 7654 int status; 7655 int 64_tdim;7656 int64_t nelems;7655 int dim; 7656 MPI_Offset nelems; 7657 7657 7658 7658 status = ncmpii_NC_check_id(ncid, &ncp); … … 7673 7673 7674 7674 int 7675 ncmpi_get_varm_short(int ncid, int 64_tvarid,7676 const int64_t start[],7677 const int64_t count[],7678 const int64_t stride[],7679 const int64_t imap[],7675 ncmpi_get_varm_short(int ncid, int varid, 7676 const MPI_Offset start[], 7677 const MPI_Offset count[], 7678 const MPI_Offset stride[], 7679 const MPI_Offset imap[], 7680 7680 short *ip) 7681 7681 { … … 7683 7683 NC *ncp; 7684 7684 int status; 7685 int 64_tdim;7686 int64_t nelems;7685 int dim; 7686 MPI_Offset nelems; 7687 7687 7688 7688 status = ncmpii_NC_check_id(ncid, &ncp); … … 7703 7703 7704 7704 int 7705 ncmpi_get_varm_int_all(int ncid, int 64_tvarid,7706 const int64_t start[],7707 const int64_t count[],7708 const int64_t stride[],7709 const int64_t imap[],7705 ncmpi_get_varm_int_all(int ncid, int varid, 7706 const MPI_Offset start[], 7707 const MPI_Offset count[], 7708 const MPI_Offset stride[], 7709 const MPI_Offset imap[], 7710 7710 int *ip) 7711 7711 { … … 7713 7713 NC *ncp; 7714 7714 int status; 7715 int 64_tdim;7716 int64_t nelems;7715 int dim; 7716 MPI_Offset nelems; 7717 7717 7718 7718 status = ncmpii_NC_check_id(ncid, &ncp); … … 7733 7733 7734 7734 int 7735 ncmpi_get_varm_int(int ncid, int 64_tvarid,7736 const int64_t start[],7737 const int64_t count[],7738 const int64_t stride[],7739 const int64_t imap[],7735 ncmpi_get_varm_int(int ncid, int varid, 7736 const MPI_Offset start[], 7737 const MPI_Offset count[], 7738 const MPI_Offset stride[], 7739 const MPI_Offset imap[], 7740 7740 int *ip) 7741 7741 { … … 7743 7743 NC *ncp; 7744 7744 int status; 7745 int 64_tdim;7746 int64_t nelems;7745 int dim; 7746 MPI_Offset nelems; 7747 7747 7748 7748 status = ncmpii_NC_check_id(ncid, &ncp); … … 7763 7763 7764 7764 int 7765 ncmpi_get_varm_long_all(int ncid, int 64_tvarid,7766 const int64_t start[],7767 const int64_t count[],7768 const int64_t stride[],7769 const int64_t imap[],7765 ncmpi_get_varm_long_all(int ncid, int varid, 7766 const MPI_Offset start[], 7767 const MPI_Offset count[], 7768 const MPI_Offset stride[], 7769 const MPI_Offset imap[], 7770 7770 long *ip) 7771 7771 { … … 7773 7773 NC *ncp; 7774 7774 int status; 7775 int 64_tdim;7776 int64_t nelems;7775 int dim; 7776 MPI_Offset nelems; 7777 7777 7778 7778 status = ncmpii_NC_check_id(ncid, &ncp); … … 7793 7793 7794 7794 int 7795 ncmpi_get_varm_long(int ncid, int 64_tvarid,7796 const int64_t start[],7797 const int64_t count[],7798 const int64_t stride[],7799 const int64_t imap[],7795 ncmpi_get_varm_long(int ncid, int varid, 7796 const MPI_Offset start[], 7797 const MPI_Offset count[], 7798 const MPI_Offset stride[], 7799 const MPI_Offset imap[], 7800 7800 long *ip) 7801 7801 { … … 7803 7803 NC *ncp; 7804 7804 int status; 7805 int 64_tdim;7806 int64_t nelems;7805 int dim; 7806 MPI_Offset nelems; 7807 7807 7808 7808 status = ncmpii_NC_check_id(ncid, &ncp); … … 7823 7823 7824 7824 int 7825 ncmpi_get_varm_float_all(int ncid, int 64_tvarid,7826 const int64_t start[],7827 const int64_t count[],7828 const int64_t stride[],7829 const int64_t imap[],7825 ncmpi_get_varm_float_all(int ncid, int varid, 7826 const MPI_Offset start[], 7827 const MPI_Offset count[], 7828 const MPI_Offset stride[], 7829 const MPI_Offset imap[], 7830 7830 float *ip) 7831 7831 { … … 7833 7833 NC *ncp; 7834 7834 int status; 7835 int 64_tdim;7836 int64_t nelems;7835 int dim; 7836 MPI_Offset nelems; 7837 7837 7838 7838 status = ncmpii_NC_check_id(ncid, &ncp); … … 7853 7853 7854 7854 int 7855 ncmpi_get_varm_float(int ncid, int 64_tvarid,7856 const int64_t start[],7857 const int64_t count[],7858 const int64_t stride[],7859 const int64_t imap[],7855 ncmpi_get_varm_float(int ncid, int varid, 7856 const MPI_Offset start[], 7857 const MPI_Offset count[], 7858 const MPI_Offset stride[], 7859 const MPI_Offset imap[], 7860 7860 float *ip) 7861 7861 { … … 7863 7863 NC *ncp; 7864 7864 int status; 7865 int 64_tdim;7866 int64_t nelems;7865 int dim; 7866 MPI_Offset nelems; 7867 7867 7868 7868 status = ncmpii_NC_check_id(ncid, &ncp); … … 7883 7883 7884 7884 int 7885 ncmpi_get_varm_double_all(int ncid, int 64_tvarid,7886 const int64_t start[],7887 const int64_t count[],7888 const int64_t stride[],7889 const int64_t imap[],7885 ncmpi_get_varm_double_all(int ncid, int varid, 7886 const MPI_Offset start[], 7887 const MPI_Offset count[], 7888 const MPI_Offset stride[], 7889 const MPI_Offset imap[], 7890 7890 double *ip) 7891 7891 { … … 7893 7893 NC *ncp; 7894 7894 int status; 7895 int 64_tdim;7896 int64_t nelems;7895 int dim; 7896 MPI_Offset nelems; 7897 7897 7898 7898 status = ncmpii_NC_check_id(ncid, &ncp); … … 7913 7913 7914 7914 int 7915 ncmpi_get_varm_double(int ncid, int 64_tvarid,7916 const int64_t start[],7917 const int64_t count[],7918 const int64_t stride[],7919 const int64_t imap[],7915 ncmpi_get_varm_double(int ncid, int varid, 7916 const MPI_Offset start[], 7917 const MPI_Offset count[], 7918 const MPI_Offset stride[], 7919 const MPI_Offset imap[], 7920 7920 double *ip) 7921 7921 { … … 7923 7923 NC *ncp; 7924 7924 int status; 7925 int 64_tdim;7926 int64_t nelems;7925 int dim; 7926 MPI_Offset nelems; 7927 7927 7928 7928 status = ncmpii_NC_check_id(ncid, &ncp); … … 7958 7958 void *xbuf, 7959 7959 void *cbuf, 7960 int64_t nelems,7960 MPI_Offset nelems, 7961 7961 int cnelems, 7962 7962 int iscontig_of_ptypes, … … 8345 8345 8346 8346 int 8347 ncmpi_iput_var1(int ncid, int 64_tvarid,8348 const int64_t index[],8349 const void *buf, int64_t bufcount,8347 ncmpi_iput_var1(int ncid, int varid, 8348 const MPI_Offset index[], 8349 const void *buf, MPI_Offset bufcount, 8350 8350 MPI_Datatype datatype, 8351 8351 NCMPI_Request *request) … … 8355 8355 void *xbuf = NULL, *cbuf = NULL; 8356 8356 int status = NC_NOERR, warning = NC_NOERR; 8357 int64_t nelems, cnelems, nbytes;8357 MPI_Offset nelems, cnelems, nbytes; 8358 8358 int el_size; 8359 8359 int mpireturn; … … 8488 8488 /* update the number of records in NC */ 8489 8489 8490 int64_t newnumrecs;8490 MPI_Offset newnumrecs; 8491 8491 newnumrecs = index[0] + 1; 8492 8492 if (ncp->numrecs < newnumrecs) { … … 8500 8500 8501 8501 int 8502 ncmpi_iget_var1(int ncid, int 64_tvarid,8503 const int64_t index[],8504 void *buf, int64_t bufcount,8502 ncmpi_iget_var1(int ncid, int varid, 8503 const MPI_Offset index[], 8504 void *buf, MPI_Offset bufcount, 8505 8505 MPI_Datatype datatype, 8506 8506 NCMPI_Request *request) … … 8510 8510 void *xbuf = NULL, *cbuf = NULL; 8511 8511 int status = NC_NOERR, warning = NC_NOERR; 8512 int64_t nelems, cnelems, nbytes;8512 MPI_Offset nelems, cnelems, nbytes; 8513 8513 int el_size; 8514 8514 int mpireturn; … … 8614 8614 8615 8615 int 8616 ncmpi_iput_var(int ncid, int 64_tvarid,8617 const void *buf, int64_t bufcount, MPI_Datatype datatype,8616 ncmpi_iput_var(int ncid, int varid, 8617 const void *buf, MPI_Offset bufcount, MPI_Datatype datatype, 8618 8618 NCMPI_Request *request) 8619 8619 { … … 8622 8622 void *xbuf = NULL, *cbuf = NULL; 8623 8623 int status = NC_NOERR, warning = NC_NOERR; 8624 int64_t nelems, cnelems, nbytes;8624 MPI_Offset nelems, cnelems, nbytes; 8625 8625 int el_size; 8626 8626 int mpireturn; … … 8763 8763 /* update the number of records in NC */ 8764 8764 8765 int64_t newnumrecs;8765 MPI_Offset newnumrecs; 8766 8766 if (varp->ndims > 1) 8767 8767 newnumrecs = nelems / varp->dsizes[1]; … … 8778 8778 8779 8779 int 8780 ncmpi_iget_var(int ncid, int 64_tvarid,8781 void *buf, int64_t bufcount, MPI_Datatype datatype,8780 ncmpi_iget_var(int ncid, int varid, 8781 void *buf, MPI_Offset bufcount, MPI_Datatype datatype, 8782 8782 NCMPI_Request *request) 8783 8783 { … … 8786 8786 void *xbuf = NULL, *cbuf = NULL; 8787 8787 int status = NC_NOERR, warning = NC_NOERR; 8788 int64_t nelems, cnelems, nbytes;8788 MPI_Offset nelems, cnelems, nbytes; 8789 8789 int el_size; 8790 8790 int mpireturn; … … 8898 8898 8899 8899 int 8900 ncmpi_iput_vara(int ncid, int 64_tvarid,8901 const int64_t start[], const int64_t count[],8902 const void *buf, int64_t bufcount,8900 ncmpi_iput_vara(int ncid, int varid, 8901 const MPI_Offset start[], const MPI_Offset count[], 8902 const void *buf, MPI_Offset bufcount, 8903 8903 MPI_Datatype datatype, 8904 8904 NCMPI_Request *request) … … 8908 8908 void *xbuf = NULL, *cbuf = NULL; 8909 8909 int status = NC_NOERR, warning = NC_NOERR; 8910 int 64_tdim;8911 int64_t nelems, cnelems, nbytes;8910 int dim; 8911 MPI_Offset nelems, cnelems, nbytes; 8912 8912 int el_size; 8913 8913 int mpireturn; … … 9048 9048 /* update the number of records in NC */ 9049 9049 9050 int64_t newnumrecs;9050 MPI_Offset newnumrecs; 9051 9051 newnumrecs = start[0] + count[0]; 9052 9052 if (ncp->numrecs < newnumrecs) { … … 9060 9060 9061 9061 int 9062 ncmpi_iget_vara(int ncid, int 64_tvarid,9063 const int64_t start[], const int64_t count[],9064 void *buf, int64_t bufcount,9062 ncmpi_iget_vara(int ncid, int varid, 9063 const MPI_Offset start[], const MPI_Offset count[], 9064 void *buf, MPI_Offset bufcount, 9065 9065 MPI_Datatype datatype, 9066 9066 NCMPI_Request *request) … … 9070 9070 void *xbuf = NULL, *cbuf = NULL; 9071 9071 int status = NC_NOERR, warning = NC_NOERR; 9072 int 64_tdim;9073 int64_t nelems, cnelems, nbytes;9072 int dim; 9073 MPI_Offset nelems, cnelems, nbytes; 9074 9074 int el_size; 9075 9075 int mpireturn; … … 9181 9181 9182 9182 int 9183 ncmpi_iput_vars(int ncid, int 64_tvarid,9184 const int64_t start[],9185 const int64_t count[],9186 const int64_t stride[],9187 const void *buf, int64_t bufcount,9183 ncmpi_iput_vars(int ncid, int varid, 9184 const MPI_Offset start[], 9185 const MPI_Offset count[], 9186 const MPI_Offset stride[], 9187 const void *buf, MPI_Offset bufcount, 9188 9188 MPI_Datatype datatype, 9189 9189 NCMPI_Request *request) … … 9193 9193 void *xbuf = NULL, *cbuf = NULL; 9194 9194 int status = NC_NOERR, warning = NC_NOERR; 9195 int 64_tdim;9196 int64_t nelems, cnelems, nbytes;9195 int dim; 9196 MPI_Offset nelems, cnelems, nbytes; 9197 9197 int el_size; 9198 9198 int mpireturn; … … 9334 9334 /* update the number of records in NC */ 9335 9335 9336 int64_t newnumrecs;9336 MPI_Offset newnumrecs; 9337 9337 newnumrecs = start[0] + (count[0] - 1) * stride[0] + 1; 9338 9338 if (ncp->numrecs < newnumrecs) { … … 9346 9346 9347 9347 int 9348 ncmpi_iget_vars(int ncid, int 64_tvarid,9349 const int64_t start[],9350 const int64_t count[],9351 const int64_t stride[],9352 void *buf, int64_t bufcount,9348 ncmpi_iget_vars(int ncid, int varid, 9349 const MPI_Offset start[], 9350 const MPI_Offset count[], 9351 const MPI_Offset stride[], 9352 void *buf, MPI_Offset bufcount, 9353 9353 MPI_Datatype datatype, 9354 9354 NCMPI_Request *request) … … 9358 9358 void *xbuf = NULL, *cbuf = NULL; 9359 9359 int status = NC_NOERR, warning = NC_NOERR; 9360 int 64_tdim;9361 int64_t nelems, cnelems, nbytes;9360 int dim; 9361 MPI_Offset nelems, cnelems, nbytes; 9362 9362 int el_size; 9363 9363 int mpireturn; … … 9470 9470 9471 9471 int 9472 ncmpi_iput_varm(int ncid, int 64_tvarid,9473 const int64_t start[],9474 const int64_t count[],9475 const int64_t stride[],9476 const int64_t imap[],9477 const void *buf, int64_t bufcount,9472 ncmpi_iput_varm(int ncid, int varid, 9473 const MPI_Offset start[], 9474 const MPI_Offset count[], 9475 const MPI_Offset stride[], 9476 const MPI_Offset imap[], 9477 const void *buf, MPI_Offset bufcount, 9478 9478 MPI_Datatype datatype, 9479 9479 NCMPI_Request *request) … … 9481 9481 NC_var *varp; 9482 9482 NC *ncp; 9483 int64_t ndims, dim;9483 MPI_Offset ndims, dim; 9484 9484 void *lbuf = NULL, *cbuf = NULL; 9485 9485 int status = NC_NOERR, warning = NC_NOERR; 9486 int64_t lnelems, cnelems;9486 MPI_Offset lnelems, cnelems; 9487 9487 int el_size; 9488 9488 MPI_Datatype ptype, tmptype, imaptype; … … 9597 9597 9598 9598 int 9599 ncmpi_iget_varm(int ncid, int 64_tvarid,9600 const int64_t start[],9601 const int64_t count[],9602 const int64_t stride[],9603 const int64_t imap[],9604 void *buf, int64_t bufcount,9599 ncmpi_iget_varm(int ncid, int varid, 9600 const MPI_Offset start[], 9601 const MPI_Offset count[], 9602 const MPI_Offset stride[], 9603 const MPI_Offset imap[], 9604 void *buf, MPI_Offset bufcount, 9605 9605 MPI_Datatype datatype, 9606 9606 NCMPI_Request *request) … … 9608 9608 NC_var *varp; 9609 9609 NC *ncp; 9610 int64_t ndims, dim;9610 MPI_Offset ndims, dim; 9611 9611 void *lbuf = NULL, *cbuf = NULL; 9612 9612 int status = NC_NOERR, warning = NC_NOERR; 9613 int64_t lnelems, cnelems;9613 MPI_Offset lnelems, cnelems; 9614 9614 int el_size; 9615 9615 MPI_Datatype ptype, tmptype, imaptype; … … 9728 9728 9729 9729 int 9730 ncmpi_iput_var1_uchar(int ncid, int 64_tvarid,9731 const int64_t index[],9730 ncmpi_iput_var1_uchar(int ncid, int varid, 9731 const MPI_Offset index[], 9732 9732 const unsigned char *op, 9733 9733 NCMPI_Request *request) … … 9750 9750 9751 9751 int 9752 ncmpi_iput_var1_schar(int ncid, int 64_tvarid,9753 const int64_t index[],9752 ncmpi_iput_var1_schar(int ncid, int varid, 9753 const MPI_Offset index[], 9754 9754 const signed char *op, 9755 9755 NCMPI_Request *request) … … 9772 9772 9773 9773 int 9774 ncmpi_iput_var1_text(int ncid, int 64_tvarid,9775 const int64_t index[],9774 ncmpi_iput_var1_text(int ncid, int varid, 9775 const MPI_Offset index[], 9776 9776 const char *op, 9777 9777 NCMPI_Request *request) … … 9795 9795 9796 9796 int 9797 ncmpi_iput_var1_short(int ncid, int 64_tvarid,9798 const int64_t index[],9797 ncmpi_iput_var1_short(int ncid, int varid, 9798 const MPI_Offset index[], 9799 9799 const short *op, 9800 9800 NCMPI_Request *request) … … 9817 9817 9818 9818 int 9819 ncmpi_iput_var1_int(int ncid, int 64_tvarid,9820 const int64_t index[],9819 ncmpi_iput_var1_int(int ncid, int varid, 9820 const MPI_Offset index[], 9821 9821 const int *op, 9822 9822 NCMPI_Request *request) … … 9839 9839 9840 9840 int 9841 ncmpi_iput_var1_long(int ncid, int 64_tvarid,9842 const int64_t index[],9841 ncmpi_iput_var1_long(int ncid, int varid, 9842 const MPI_Offset index[], 9843 9843 const long *op, 9844 9844 NCMPI_Request *request) … … 9861 9861 9862 9862 int 9863 ncmpi_iput_var1_float(int ncid, int 64_tvarid,9864 const int64_t index[],9863 ncmpi_iput_var1_float(int ncid, int varid, 9864 const MPI_Offset index[], 9865 9865 const float *op, 9866 9866 NCMPI_Request *request) … … 9883 9883 9884 9884 int 9885 ncmpi_iput_var1_double(int ncid, int 64_tvarid,9886 const int64_t index[],9885 ncmpi_iput_var1_double(int ncid, int varid, 9886 const MPI_Offset index[], 9887 9887 const double *op, 9888 9888 NCMPI_Request *request) … … 9905 9905 9906 9906 int 9907 ncmpi_iget_var1_uchar(int ncid, int 64_tvarid,9908 const int64_t index[],9907 ncmpi_iget_var1_uchar(int ncid, int varid, 9908 const MPI_Offset index[], 9909 9909 unsigned char *ip, 9910 9910 NCMPI_Request *request) … … 9927 9927 9928 9928 int 9929 ncmpi_iget_var1_schar(int ncid, int 64_tvarid,9930 const int64_t index[],9929 ncmpi_iget_var1_schar(int ncid, int varid, 9930 const MPI_Offset index[], 9931 9931 signed char *ip, 9932 9932 NCMPI_Request *request) … … 9949 9949 9950 9950 int 9951 ncmpi_iget_var1_text(int ncid, int 64_tvarid,9952 const int64_t index[],9951 ncmpi_iget_var1_text(int ncid, int varid, 9952 const MPI_Offset index[], 9953 9953 char *ip, 9954 9954 NCMPI_Request *request) … … 9971 9971 9972 9972 int 9973 ncmpi_iget_var1_short(int ncid, int 64_tvarid,9974 const int64_t index[],9973 ncmpi_iget_var1_short(int ncid, int varid, 9974 const MPI_Offset index[], 9975 9975 short *ip, 9976 9976 NCMPI_Request *request) … … 9993 9993 9994 9994 int 9995 ncmpi_iget_var1_int(int ncid, int 64_tvarid,9996 const int64_t index[],9995 ncmpi_iget_var1_int(int ncid, int varid, 9996 const MPI_Offset index[], 9997 9997 int *ip, 9998 9998 NCMPI_Request *request) … … 10015 10015 10016 10016 int 10017 ncmpi_iget_var1_long(int ncid, int 64_tvarid,10018 const int64_t index[],10017 ncmpi_iget_var1_long(int ncid, int varid, 10018 const MPI_Offset index[], 10019 10019 long *ip, 10020 10020 NCMPI_Request *request) … … 10037 10037 10038 10038 int 10039 ncmpi_iget_var1_float(int ncid, int 64_tvarid,10040 const int64_t index[],10039 ncmpi_iget_var1_float(int ncid, int varid, 10040 const MPI_Offset index[], 10041 10041 float *ip, 10042 10042 NCMPI_Request *request) … … 10059 10059 10060 10060 int 10061 ncmpi_iget_var1_double(int ncid, int 64_tvarid,10062 const int64_t index[],10061 ncmpi_iget_var1_double(int ncid, int varid, 10062 const MPI_Offset index[], 10063 10063 double *ip, 10064 10064 NCMPI_Request *request) … … 10081 10081 10082 10082 int 10083 ncmpi_iput_var_uchar(int ncid, int 64_tvarid, const unsigned char *op,10083 ncmpi_iput_var_uchar(int ncid, int varid, const unsigned char *op, 10084 10084 NCMPI_Request *request) 10085 10085 { … … 10088 10088 int status; 10089 10089 int ndims; 10090 int64_t nelems;10090 MPI_Offset nelems; 10091 10091 10092 10092 status = ncmpii_NC_check_id(ncid, &ncp); … … 10117 10117 10118 10118 int 10119 ncmpi_iput_var_schar(int ncid, int 64_tvarid, const signed char *op,10119 ncmpi_iput_var_schar(int ncid, int varid, const signed char *op, 10120 10120 NCMPI_Request *request) 10121 10121 { … … 10124 10124 int status; 10125 10125 int ndims; 10126 int64_t nelems;10126 MPI_Offset nelems; 10127 10127 10128 10128 status = ncmpii_NC_check_id(ncid, &ncp); … … 10154 10154 10155 10155 int 10156 ncmpi_iput_var_text(int ncid, int 64_tvarid, const char *op,10156 ncmpi_iput_var_text(int ncid, int varid, const char *op, 10157 10157 NCMPI_Request *request) 10158 10158 { … … 10161 10161 int status; 10162 10162 int ndims; 10163 int64_t nelems;10163 MPI_Offset nelems; 10164 10164 10165 10165 status = ncmpii_NC_check_id(ncid, &ncp); … … 10190 10190 10191 10191 int 10192 ncmpi_iput_var_short(int ncid, int 64_tvarid, const short *op,10192 ncmpi_iput_var_short(int ncid, int varid, const short *op, 10193 10193 NCMPI_Request *request) 10194 10194 { … … 10197 10197 int status; 10198 10198 int ndims; 10199 int64_t nelems;10199 MPI_Offset nelems; 10200 10200 10201 10201 status = ncmpii_NC_check_id(ncid, &ncp); … … 10226 10226 10227 10227 int 10228 ncmpi_iput_var_int(int ncid, int 64_tvarid, const int *op,10228 ncmpi_iput_var_int(int ncid, int varid, const int *op, 10229 10229 NCMPI_Request *request) 10230 10230 { … … 10233 10233 int status; 10234 10234 int ndims; 10235 int64_t nelems;10235 MPI_Offset nelems; 10236 10236 10237 10237 status = ncmpii_NC_check_id(ncid, &ncp); … … 10262 10262 10263 10263 int 10264 ncmpi_iput_var_long(int ncid, int 64_tvarid, const long *op,10264 ncmpi_iput_var_long(int ncid, int varid, const long *op, 10265 10265 NCMPI_Request *request) 10266 10266 { … … 10269 10269 int status; 10270 10270 int ndims; 10271 int64_t nelems;10271 MPI_Offset nelems; 10272 10272 10273 10273 status = ncmpii_NC_check_id(ncid, &ncp); … … 10298 10298 10299 10299 int 10300 ncmpi_iput_var_float(int ncid, int 64_tvarid, const float *op,10300 ncmpi_iput_var_float(int ncid, int varid, const float *op, 10301 10301 NCMPI_Request *request) 10302 10302 { … … 10305 10305 int status; 10306 10306 int ndims; 10307 int64_t nelems;10307 MPI_Offset nelems; 10308 10308 10309 10309 status = ncmpii_NC_check_id(ncid, &ncp); … … 10334 10334 10335 10335 int 10336 ncmpi_iput_var_double(int ncid, int 64_tvarid, const double *op,10336 ncmpi_iput_var_double(int ncid, int varid, const double *op, 10337 10337 NCMPI_Request *request) 10338 10338 { … … 10341 10341 int status; 10342 10342 int ndims; 10343 int64_t nelems;10343 MPI_Offset nelems; 10344 10344 10345 10345 status = ncmpii_NC_check_id(ncid, &ncp); … … 10370 10370 10371 10371 int 10372 ncmpi_iget_var_uchar(int ncid, int 64_tvarid, unsigned char *ip,10372 ncmpi_iget_var_uchar(int ncid, int varid, unsigned char *ip, 10373 10373 NCMPI_Request *request) 10374 10374 { … … 10377 10377 int status; 10378 10378 int ndims; 10379 int64_t nelems;10379 MPI_Offset nelems; 10380 10380 10381 10381 status = ncmpii_NC_check_id(ncid, &ncp); … … 10406 10406 10407 10407 int 10408 ncmpi_iget_var_schar(int ncid, int 64_tvarid, signed char *ip,10408 ncmpi_iget_var_schar(int ncid, int varid, signed char *ip, 10409 10409 NCMPI_Request *request) 10410 10410 { … … 10413 10413 int status; 10414 10414 int ndims; 10415 int64_t nelems;10415 MPI_Offset nelems; 10416 10416 10417 10417 status = ncmpii_NC_check_id(ncid, &ncp); … … 10442 10442 10443 10443 int 10444 ncmpi_iget_var_text(int ncid, int 64_tvarid, char *ip,10444 ncmpi_iget_var_text(int ncid, int varid, char *ip, 10445 10445 NCMPI_Request *request) 10446 10446 { … … 10449 10449 int status; 10450 10450 int ndims; 10451 int64_t nelems;10451 MPI_Offset nelems; 10452 10452 10453 10453 status = ncmpii_NC_check_id(ncid, &ncp); … … 10478 10478 10479 10479 int 10480 ncmpi_iget_var_short(int ncid, int 64_tvarid, short *ip,10480 ncmpi_iget_var_short(int ncid, int varid, short *ip, 10481 10481 NCMPI_Request *request) 10482 10482 { … … 10485 10485 int status; 10486 10486 int ndims; 10487 int64_t nelems;10487 MPI_Offset nelems; 10488 10488 10489 10489 status = ncmpii_NC_check_id(ncid, &ncp); … … 10514 10514 10515 10515 int 10516 ncmpi_iget_var_int(int ncid, int 64_tvarid, int *ip,10516 ncmpi_iget_var_int(int ncid, int varid, int *ip, 10517 10517 NCMPI_Request *request) 10518 10518 { … … 10521 10521 int status; 10522 10522 int ndims; 10523 int64_t nelems;10523 MPI_Offset nelems; 10524 10524 10525 10525 status = ncmpii_NC_check_id(ncid, &ncp); … … 10550 10550 10551 10551 int 10552 ncmpi_iget_var_long(int ncid, int 64_tvarid, long *ip,10552 ncmpi_iget_var_long(int ncid, int varid, long *ip, 10553 10553 NCMPI_Request *request) 10554 10554 { … … 10557 10557 int status; 10558 10558 int ndims; 10559 int64_t nelems;10559 MPI_Offset nelems; 10560 10560 10561 10561 status = ncmpii_NC_check_id(ncid, &ncp); … … 10586 10586 10587 10587 int 10588 ncmpi_iget_var_float(int ncid, int 64_tvarid, float *ip,10588 ncmpi_iget_var_float(int ncid, int varid, float *ip, 10589 10589 NCMPI_Request *request) 10590 10590 { … … 10593 10593 int status; 10594 10594 int ndims; 10595 int64_t nelems;10595 MPI_Offset nelems; 10596 10596 10597 10597 status = ncmpii_NC_check_id(ncid, &ncp); … … 10622 10622 10623 10623 int 10624 ncmpi_iget_var_double(int ncid, int 64_tvarid, double *ip,10624 ncmpi_iget_var_double(int ncid, int varid, double *ip, 10625 10625 NCMPI_Request *request) 10626 10626 { … … 10629 10629 int status; 10630 10630 int ndims; 10631 int64_t nelems;10631 MPI_Offset nelems; 10632 10632 10633 10633 status = ncmpii_NC_check_id(ncid, &ncp); … … 10658 10658 10659 10659 int 10660 ncmpi_iput_vara_uchar(int ncid, int 64_tvarid,10661 const int64_t start[], const int64_t count[],10660 ncmpi_iput_vara_uchar(int ncid, int varid, 10661 const MPI_Offset start[], const MPI_Offset count[], 10662 10662 const unsigned char *op, 10663 10663 NCMPI_Request *request) … … 10666 10666 NC *ncp; 10667 10667 int status; 10668 int 64_tdim;10669 int64_t nelems;10668 int dim; 10669 MPI_Offset nelems; 10670 10670 10671 10671 status = ncmpii_NC_check_id(ncid, &ncp); … … 10686 10686 10687 10687 int 10688 ncmpi_iput_vara_schar(int ncid, int 64_tvarid,10689 const int64_t start[], const int64_t count[],10688 ncmpi_iput_vara_schar(int ncid, int varid, 10689 const MPI_Offset start[], const MPI_Offset count[], 10690 10690 const signed char *op, 10691 10691 NCMPI_Request *request) … … 10694 10694 NC *ncp; 10695 10695 int status; 10696 int 64_tdim;10697 int64_t nelems;10696 int dim; 10697 MPI_Offset nelems; 10698 10698 10699 10699 status = ncmpii_NC_check_id(ncid, &ncp); … … 10714 10714 10715 10715 int 10716 ncmpi_iput_vara_text(int ncid, int 64_tvarid,10717 const int64_t start[], const int64_t count[],10716 ncmpi_iput_vara_text(int ncid, int varid, 10717 const MPI_Offset start[], const MPI_Offset count[], 10718 10718 const char *op, 10719 10719 NCMPI_Request *request) … … 10722 10722 NC *ncp; 10723 10723 int status; 10724 int 64_tdim;10725 int64_t nelems;10724 int dim; 10725 MPI_Offset nelems; 10726 10726 10727 10727 status = ncmpii_NC_check_id(ncid, &ncp); … … 10742 10742 10743 10743 int 10744 ncmpi_iput_vara_short(int ncid, int 64_tvarid,10745 const int64_t start[], const int64_t count[],10744 ncmpi_iput_vara_short(int ncid, int varid, 10745 const MPI_Offset start[], const MPI_Offset count[], 10746 10746 const short *op, 10747 10747 NCMPI_Request *request) … … 10750 10750 NC *ncp; 10751 10751 int status; 10752 int 64_tdim;10753 int64_t nelems;10752 int dim; 10753 MPI_Offset nelems; 10754 10754 10755 10755 status = ncmpii_NC_check_id(ncid, &ncp); … … 10770 10770 10771 10771 int 10772 ncmpi_iput_vara_int(int ncid, int 64_tvarid,10773 const int64_t start[], const int64_t count[],10772 ncmpi_iput_vara_int(int ncid, int varid, 10773 const MPI_Offset start[], const MPI_Offset count[], 10774 10774 const int *op, 10775 10775 NCMPI_Request *request) … … 10778 10778 NC *ncp; 10779 10779 int status; 10780 int 64_tdim;10781 int64_t nelems;10780 int dim; 10781 MPI_Offset nelems; 10782 10782 10783 10783 status = ncmpii_NC_check_id(ncid, &ncp); … … 10798 10798 10799 10799 int 10800 ncmpi_iput_vara_long(int ncid, int 64_tvarid,10801 const int64_t start[], const int64_t count[],10800 ncmpi_iput_vara_long(int ncid, int varid, 10801 const MPI_Offset start[], const MPI_Offset count[], 10802 10802 const long *op, 10803 10803 NCMPI_Request *request) … … 10806 10806 NC *ncp; 10807 10807 int status; 10808 int 64_tdim;10809 int64_t nelems;10808 int dim; 10809 MPI_Offset nelems; 10810 10810 10811 10811 status = ncmpii_NC_check_id(ncid, &ncp); … … 10826 10826 10827 10827 int 10828 ncmpi_iput_vara_float(int ncid, int 64_tvarid,10829 const int64_t start[], const int64_t count[],10828 ncmpi_iput_vara_float(int ncid, int varid, 10829 const MPI_Offset start[], const MPI_Offset count[], 10830 10830 const float *op, 10831 10831 NCMPI_Request *request) … … 10834 10834 NC *ncp; 10835 10835 int status; 10836 int 64_tdim;10837 int64_t nelems;10836 int dim; 10837 MPI_Offset nelems; 10838 10838 10839 10839 status = ncmpii_NC_check_id(ncid, &ncp); … … 10854 10854 10855 10855 int 10856 ncmpi_iput_vara_double(int ncid, int 64_tvarid,10857 const int64_t start[], const int64_t count[],10856 ncmpi_iput_vara_double(int ncid, int varid, 10857 const MPI_Offset start[], const MPI_Offset count[], 10858 10858 const double *op, 10859 10859 NCMPI_Request *request) … … 10862 10862 NC *ncp; 10863 10863 int status; 10864 int 64_tdim;10865 int64_t nelems;10864 int dim; 10865 MPI_Offset nelems; 10866 10866 10867 10867 status = ncmpii_NC_check_id(ncid, &ncp); … … 10882 10882 10883 10883 int 10884 ncmpi_iget_vara_uchar(int ncid, int 64_tvarid,10885 const int64_t start[], const int64_t count[],10884 ncmpi_iget_vara_uchar(int ncid, int varid, 10885 const MPI_Offset start[], const MPI_Offset count[], 10886 10886 unsigned char *ip, 10887 10887 NCMPI_Request *request) … … 10891 10891 NC *ncp; 10892 10892 int status; 10893 int 64_tdim;10894 int64_t nelems;10893 int dim; 10894 MPI_Offset nelems; 10895 10895 10896 10896 status = ncmpii_NC_check_id(ncid, &ncp); … … 10911 10911 10912 10912 int 10913 ncmpi_iget_vara_schar(int ncid, int 64_tvarid,10914 const int64_t start[], const int64_t count[],10913 ncmpi_iget_vara_schar(int ncid, int varid, 10914 const MPI_Offset start[], const MPI_Offset count[], 10915 10915 signed char *ip, 10916 10916 NCMPI_Request *request) … … 10920 10920 NC *ncp; 10921 10921 int status; 10922 int 64_tdim;10923 int64_t nelems;10922 int dim; 10923 MPI_Offset nelems; 10924 10924 10925 10925 status = ncmpii_NC_check_id(ncid, &ncp); … … 10940 10940 10941 10941 int 10942 ncmpi_iget_vara_text(int ncid, int 64_tvarid,10943 const int64_t start[], const int64_t count[],10942 ncmpi_iget_vara_text(int ncid, int varid, 10943 const MPI_Offset start[], const MPI_Offset count[], 10944 10944 char *ip, 10945 10945 NCMPI_Request *request) … … 10949 10949 NC *ncp; 10950 10950 int status; 10951 int 64_tdim;10952 int64_t nelems;10951 int dim; 10952 MPI_Offset nelems; 10953 10953 10954 10954 status = ncmpii_NC_check_id(ncid, &ncp); … … 10969 10969 10970 10970 int 10971 ncmpi_iget_vara_short(int ncid, int 64_tvarid,10972 const int64_t start[], const int64_t count[],10971 ncmpi_iget_vara_short(int ncid, int varid, 10972 const MPI_Offset start[], const MPI_Offset count[], 10973 10973 short *ip, 10974 10974 NCMPI_Request *request) … … 10978 10978 NC *ncp; 10979 10979 int status; 10980 int 64_tdim;10981 int64_t nelems;10980 int dim; 10981 MPI_Offset nelems; 10982 10982 10983 10983 status = ncmpii_NC_check_id(ncid, &ncp); … … 10998 10998 10999 10999 int 11000 ncmpi_iget_vara_int(int ncid, int 64_tvarid,11001 const int64_t start[], const int64_t count[],11000 ncmpi_iget_vara_int(int ncid, int varid, 11001 const MPI_Offset start[], const MPI_Offset count[], 11002 11002 int *ip, 11003 11003 NCMPI_Request *request) … … 11006 11006 NC *ncp; 11007 11007 int status; 11008 int 64_tdim;11009 int64_t nelems;11008 int dim; 11009 MPI_Offset nelems; 11010 11010 11011 11011 status = ncmpii_NC_check_id(ncid, &ncp); … … 11026 11026 11027 11027 int 11028 ncmpi_iget_vara_long(int ncid, int 64_tvarid,11029 const int64_t start[], const int64_t count[],11028 ncmpi_iget_vara_long(int ncid, int varid, 11029 const MPI_Offset start[], const MPI_Offset count[], 11030 11030 long *ip, 11031 11031 NCMPI_Request *request) … … 11034 11034 NC *ncp; 11035 11035 int status; 11036 int 64_tdim;11037 int64_t nelems;11036 int dim; 11037 MPI_Offset nelems; 11038 11038 11039 11039 status = ncmpii_NC_check_id(ncid, &ncp); … … 11054 11054 11055 11055 int 11056 ncmpi_iget_vara_float(int ncid, int 64_tvarid,11057 const int64_t start[], const int64_t count[],11056 ncmpi_iget_vara_float(int ncid, int varid, 11057 const MPI_Offset start[], const MPI_Offset count[], 11058 11058 float *ip, 11059 11059 NCMPI_Request *request) … … 11062 11062 NC *ncp; 11063 11063 int status; 11064 int 64_tdim;11065 int64_t nelems;11064 int dim; 11065 MPI_Offset nelems; 11066 11066 11067 11067 status = ncmpii_NC_check_id(ncid, &ncp); … … 11082 11082 11083 11083 int 11084 ncmpi_iget_vara_double(int ncid, int 64_tvarid,11085 const int64_t start[], const int64_t count[],11084 ncmpi_iget_vara_double(int ncid, int varid, 11085 const MPI_Offset start[], const MPI_Offset count[], 11086 11086 double *ip, 11087 11087 NCMPI_Request *request) … … 11090 11090 NC *ncp; 11091 11091 int status; 11092 int 64_tdim;11093 int64_t nelems;11092 int dim; 11093 MPI_Offset nelems; 11094 11094 11095 11095 status = ncmpii_NC_check_id(ncid, &ncp); … … 11110 11110 11111 11111 int 11112 ncmpi_iput_vars_uchar(int ncid, int 64_tvarid,11113 const int64_t start[],11114 const int64_t count[],11115 const int64_t stride[],11112 ncmpi_iput_vars_uchar(int ncid, int varid, 11113 const MPI_Offset start[], 11114 const MPI_Offset count[], 11115 const MPI_Offset stride[], 11116 11116 const unsigned char *op, 11117 11117 NCMPI_Request *request) … … 11120 11120 NC *ncp; 11121 11121 int status; 11122 int 64_tdim;11123 int64_t nelems;11122 int dim; 11123 MPI_Offset nelems; 11124 11124 11125 11125 status = ncmpii_NC_check_id(ncid, &ncp); … … 11140 11140 11141 11141 int 11142 ncmpi_iput_vars_schar(int ncid, int 64_tvarid,11143 const int64_t start[],11144 const int64_t count[],11145 const int64_t stride[],11142 ncmpi_iput_vars_schar(int ncid, int varid, 11143 const MPI_Offset start[], 11144 const MPI_Offset count[], 11145 const MPI_Offset stride[], 11146 11146 const signed char *op, 11147 11147 NCMPI_Request *request) … … 11150 11150 NC *ncp; 11151 11151 int status; 11152 int 64_tdim;11153 int64_t nelems;11152 int dim; 11153 MPI_Offset nelems; 11154 11154 11155 11155 status = ncmpii_NC_check_id(ncid, &ncp); … … 11170 11170 11171 11171 int 11172 ncmpi_iput_vars_text(int ncid, int 64_tvarid,11173 const int64_t start[],11174 const int64_t count[],11175 const int64_t stride[],11172 ncmpi_iput_vars_text(int ncid, int varid, 11173 const MPI_Offset start[], 11174 const MPI_Offset count[], 11175 const MPI_Offset stride[], 11176 11176 const char *op, 11177 11177 NCMPI_Request *request) … … 11180 11180 NC *ncp; 11181 11181 int status; 11182 int 64_tdim;11183 int64_t nelems;11182 int dim; 11183 MPI_Offset nelems; 11184 11184 11185 11185 status = ncmpii_NC_check_id(ncid, &ncp); … … 11200 11200 11201 11201 int 11202 ncmpi_iput_vars_short(int ncid, int 64_tvarid,11203 const int64_t start[],11204 const int64_t count[],11205 const int64_t stride[],11202 ncmpi_iput_vars_short(int ncid, int varid, 11203 const MPI_Offset start[], 11204 const MPI_Offset count[], 11205 const MPI_Offset stride[], 11206 11206 const short *op, 11207 11207 NCMPI_Request *request) … … 11210 11210 NC *ncp; 11211 11211 int status; 11212 int 64_tdim;11213 int64_t nelems;11212 int dim; 11213 MPI_Offset nelems; 11214 11214 11215 11215 status = ncmpii_NC_check_id(ncid, &ncp); … … 11230 11230 11231 11231 int 11232 ncmpi_iput_vars_int(int ncid, int 64_tvarid,11233 const int64_t start[],11234 const int64_t count[],11235 const int64_t stride[],11232 ncmpi_iput_vars_int(int ncid, int varid, 11233 const MPI_Offset start[], 11234 const MPI_Offset count[], 11235 const MPI_Offset stride[], 11236 11236 const int *op, 11237 11237 NCMPI_Request *request) … … 11240 11240 NC *ncp; 11241 11241 int status; 11242 int 64_tdim;11243 int64_t nelems;11242 int dim; 11243 MPI_Offset nelems; 11244 11244 11245 11245 status = ncmpii_NC_check_id(ncid, &ncp); … … 11260 11260 11261 11261 int 11262 ncmpi_iput_vars_long(int ncid, int 64_tvarid,11263 const int64_t start[],11264 const int64_t count[],11265 const int64_t stride[],11262 ncmpi_iput_vars_long(int ncid, int varid, 11263 const MPI_Offset start[], 11264 const MPI_Offset count[], 11265 const MPI_Offset stride[], 11266 11266 const long *op, 11267 11267 NCMPI_Request *request) … … 11270 11270 NC *ncp; 11271 11271 int status; 11272 int 64_tdim;11273 int64_t nelems;11272 int dim; 11273 MPI_Offset nelems; 11274 11274 11275 11275 status = ncmpii_NC_check_id(ncid, &ncp); … … 11290 11290 11291 11291 int 11292 ncmpi_iput_vars_float(int ncid, int 64_tvarid,11293 const int64_t start[],11294 const int64_t count[],11295 const int64_t stride[],11292 ncmpi_iput_vars_float(int ncid, int varid, 11293 const MPI_Offset start[], 11294 const MPI_Offset count[], 11295 const MPI_Offset stride[], 11296 11296 const float *op, 11297 11297 NCMPI_Request *request) … … 11300 11300 NC *ncp; 11301 11301 int status; 11302 int 64_tdim;11303 int64_t nelems;11302 int dim; 11303 MPI_Offset nelems; 11304 11304 11305 11305 status = ncmpii_NC_check_id(ncid, &ncp); … … 11320 11320 11321 11321 int 11322 ncmpi_iput_vars_double(int ncid, int 64_tvarid,11323 const int64_t start[],11324 const int64_t count[],11325 const int64_t stride[],11322 ncmpi_iput_vars_double(int ncid, int varid, 11323 const MPI_Offset start[], 11324 const MPI_Offset count[], 11325 const MPI_Offset stride[], 11326 11326 const double *op, 11327 11327 NCMPI_Request *request) … … 11331 11331 NC *ncp; 11332 11332 int status; 11333 int 64_tdim;11334 int64_t nelems;11333 int dim; 11334 MPI_Offset nelems; 11335 11335 11336 11336 status = ncmpii_NC_check_id(ncid, &ncp); … … 11352 11352 11353 11353 int 11354 ncmpi_iget_vars_uchar(int ncid, int 64_tvarid,11355 const int64_t start[],11356 const int64_t count[],11357 const int64_t stride[],11354 ncmpi_iget_vars_uchar(int ncid, int varid, 11355 const MPI_Offset start[], 11356 const MPI_Offset count[], 11357 const MPI_Offset stride[], 11358 11358 unsigned char *ip, 11359 11359 NCMPI_Request *request) … … 11362 11362 NC *ncp; 11363 11363 int status; 11364 int 64_tdim;11365 int64_t nelems;11364 int dim; 11365 MPI_Offset nelems; 11366 11366 11367 11367 status = ncmpii_NC_check_id(ncid, &ncp); … … 11382 11382 11383 11383 int 11384 ncmpi_iget_vars_schar(int ncid, int 64_tvarid,11385 const int64_t start[],11386 const int64_t count[],11387 const int64_t stride[],11384 ncmpi_iget_vars_schar(int ncid, int varid, 11385 const MPI_Offset start[], 11386 const MPI_Offset count[], 11387 const MPI_Offset stride[], 11388 11388 signed char *ip, 11389 11389 NCMPI_Request *request) … … 11392 11392 NC *ncp; 11393 11393 int status; 11394 int 64_tdim;11395 int64_t nelems;11394 int dim; 11395 MPI_Offset nelems; 11396 11396 11397 11397 status = ncmpii_NC_check_id(ncid, &ncp); … … 11412 11412 11413 11413 int 11414 ncmpi_iget_vars_text(int ncid, int 64_tvarid,11415 const int64_t start[],11416 const int64_t count[],11417 const int64_t stride[],11414 ncmpi_iget_vars_text(int ncid, int varid, 11415 const MPI_Offset start[], 11416 const MPI_Offset count[], 11417 const MPI_Offset stride[], 11418 11418 char *ip, 11419 11419 NCMPI_Request *request) … … 11422 11422 NC *ncp; 11423 11423 int status; 11424 int 64_tdim;11425 int64_t nelems;11424 int dim; 11425 MPI_Offset nelems; 11426 11426 11427 11427 status = ncmpii_NC_check_id(ncid, &ncp); … … 11442 11442 11443 11443 int 11444 ncmpi_iget_vars_short(int ncid, int 64_tvarid,11445 const int64_t start[],11446 const int64_t count[],11447 const int64_t stride[],11444 ncmpi_iget_vars_short(int ncid, int varid, 11445 const MPI_Offset start[], 11446 const MPI_Offset count[], 11447 const MPI_Offset stride[], 11448 11448 short *ip, 11449 11449 NCMPI_Request *request) … … 11452 11452 NC *ncp; 11453 11453 int status; 11454 int 64_tdim;11455 int64_t nelems;11454 int dim; 11455 MPI_Offset nelems; 11456 11456 11457 11457 status = ncmpii_NC_check_id(ncid, &ncp); … … 11472 11472 11473 11473 int 11474 ncmpi_iget_vars_int(int ncid, int 64_tvarid,11475 const int64_t start[],11476 const int64_t count[],11477 const int64_t stride[],11474 ncmpi_iget_vars_int(int ncid, int varid, 11475 const MPI_Offset start[], 11476 const MPI_Offset count[], 11477 const MPI_Offset stride[], 11478 11478 int *ip, 11479 11479 NCMPI_Request *request) … … 11482 11482 NC *ncp; 11483 11483 int status; 11484 int 64_tdim;11485 int64_t nelems;11484 int dim; 11485 MPI_Offset nelems; 11486 11486 11487 11487 status = ncmpii_NC_check_id(ncid, &ncp); … … 11502 11502 11503 11503 int 11504 ncmpi_iget_vars_long(int ncid, int 64_tvarid,11505 const int64_t start[],11506 const int64_t count[],11507 const int64_t stride[],11504 ncmpi_iget_vars_long(int ncid, int varid, 11505 const MPI_Offset start[], 11506 const MPI_Offset count[], 11507 const MPI_Offset stride[], 11508 11508 long *ip, 11509 11509 NCMPI_Request *request) … … 11512 11512 NC *ncp; 11513 11513 int status; 11514 int 64_tdim;11515 int64_t nelems;11514 int dim; 11515 MPI_Offset nelems; 11516 11516 11517 11517 status = ncmpii_NC_check_id(ncid, &ncp); … … 11532 11532 11533 11533 int 11534 ncmpi_iget_vars_float(int ncid, int 64_tvarid,11535 const int64_t start[],11536 const int64_t count[],11537 const int64_t stride[],11534 ncmpi_iget_vars_float(int ncid, int varid, 11535 const MPI_Offset start[], 11536 const MPI_Offset count[], 11537 const MPI_Offset stride[], 11538 11538 float *ip, 11539 11539 NCMPI_Request *request) … … 11542 11542 NC *ncp; 11543 11543 int status; 11544 int 64_tdim;11545 int64_t nelems;11544 int dim; 11545 MPI_Offset nelems; 11546 11546 11547 11547 status = ncmpii_NC_check_id(ncid, &ncp); … … 11562 11562 11563 11563 int 11564 ncmpi_iget_vars_double(int ncid, int 64_tvarid,11565 const int64_t start[],11566 const int64_t count[],11567 const int64_t stride[],11564 ncmpi_iget_vars_double(int ncid, int varid, 11565 const MPI_Offset start[], 11566 const MPI_Offset count[], 11567 const MPI_Offset stride[], 11568 11568 double *ip, 11569 11569 NCMPI_Request *request) … … 11573 11573 NC *ncp; 11574 11574 int status; 11575 int 64_tdim;11576 int64_t nelems;11575 int dim; 11576 MPI_Offset nelems; 11577 11577 11578 11578 status = ncmpii_NC_check_id(ncid, &ncp); … … 11593 11593 11594 11594 int 11595 ncmpi_iput_varm_uchar(int ncid, int 64_tvarid,11596 const int64_t start[],11597 const int64_t count[],11598 const int64_t stride[],11599 const int64_t imap[],11595 ncmpi_iput_varm_uchar(int ncid, int varid, 11596 const MPI_Offset start[], 11597 const MPI_Offset count[], 11598 const MPI_Offset stride[], 11599 const MPI_Offset imap[], 11600 11600 const unsigned char *op, 11601 11601 NCMPI_Request *request) … … 11604 11604 NC *ncp; 11605 11605 int status; 11606 int 64_tdim;11607 int64_t nelems;11606 int dim; 11607 MPI_Offset nelems; 11608 11608 11609 11609 status = ncmpii_NC_check_id(ncid, &ncp); … … 11624 11624 11625 11625 int 11626 ncmpi_iput_varm_schar(int ncid, int 64_tvarid,11627 const int64_t start[],11628 const int64_t count[],11629 const int64_t stride[],11630 const int64_t imap[],11626 ncmpi_iput_varm_schar(int ncid, int varid, 11627 const MPI_Offset start[], 11628 const MPI_Offset count[], 11629 const MPI_Offset stride[], 11630 const MPI_Offset imap[], 11631 11631 const signed char *op, 11632 11632 NCMPI_Request *request) … … 11635 11635 NC *ncp; 11636 11636 int status; 11637 int 64_tdim;11638 int64_t nelems;11637 int dim; 11638 MPI_Offset nelems; 11639 11639 11640 11640 status = ncmpii_NC_check_id(ncid, &ncp); … … 11655 11655 11656 11656 int 11657 ncmpi_iput_varm_text(int ncid, int 64_tvarid,11658 const int64_t start[],11659 const int64_t count[],11660 const int64_t stride[],11661 const int64_t imap[],11657 ncmpi_iput_varm_text(int ncid, int varid, 11658 const MPI_Offset start[], 11659 const MPI_Offset count[], 11660 const MPI_Offset stride[], 11661 const MPI_Offset imap[], 11662 11662 const char *op, 11663 11663 NCMPI_Request *request) … … 11666 11666 NC *ncp; 11667 11667 int status; 11668 int 64_tdim;11669 int64_t nelems;11668 int dim; 11669 MPI_Offset nelems; 11670 11670 11671 11671 status = ncmpii_NC_check_id(ncid, &ncp); … … 11686 11686 11687 11687 int 11688 ncmpi_iput_varm_short(int ncid, int 64_tvarid,11689 const int64_t start[],11690 const int64_t count[],11691 const int64_t stride[],11692 const int64_t imap[],11688 ncmpi_iput_varm_short(int ncid, int varid, 11689 const MPI_Offset start[], 11690 const MPI_Offset count[], 11691 const MPI_Offset stride[], 11692 const MPI_Offset imap[], 11693 11693 const short *op, 11694 11694 NCMPI_Request *request) … … 11697 11697 NC *ncp; 11698 11698 int status; 11699 int 64_tdim;11700 int64_t nelems;11699 int dim; 11700 MPI_Offset nelems; 11701 11701 11702 11702 status = ncmpii_NC_check_id(ncid, &ncp); … … 11717 11717 11718 11718 int 11719 ncmpi_iput_varm_int(int ncid, int 64_tvarid,11720 const int64_t start[],11721 const int64_t count[],11722 const int64_t stride[],11723 const int64_t imap[],11719 ncmpi_iput_varm_int(int ncid, int varid, 11720 const MPI_Offset start[], 11721 const MPI_Offset count[], 11722 const MPI_Offset stride[], 11723 const MPI_Offset imap[], 11724 11724 const int *op, 11725 11725 NCMPI_Request *request) … … 11728 11728 NC *ncp; 11729 11729 int status; 11730 int 64_tdim;11731 int64_t nelems;11730 int dim; 11731 MPI_Offset nelems; 11732 11732 11733 11733 status = ncmpii_NC_check_id(ncid, &ncp); … … 11748 11748 11749 11749 int 11750 ncmpi_iput_varm_long(int ncid, int 64_tvarid,11751 const int64_t start[],11752 const int64_t count[],11753 const int64_t stride[],11754 const int64_t imap[],11750 ncmpi_iput_varm_long(int ncid, int varid, 11751 const MPI_Offset start[], 11752 const MPI_Offset count[], 11753 const MPI_Offset stride[], 11754 const MPI_Offset imap[], 11755 11755 const long *op, 11756 11756 NCMPI_Request *request) … … 11759 11759 NC *ncp; 11760 11760 int status; 11761 int 64_tdim;11761 int dim; 11762 11762 long int nelems; 11763 11763 … … 11779 11779 11780 11780 int 11781 ncmpi_iput_varm_float(int ncid, int 64_tvarid,11782 const int64_t start[],11783 const int64_t count[],11784 const int64_t stride[],11785 const int64_t imap[],11781 ncmpi_iput_varm_float(int ncid, int varid, 11782 const MPI_Offset start[], 11783 const MPI_Offset count[], 11784 const MPI_Offset stride[], 11785 const MPI_Offset imap[], 11786 11786 const float *op, 11787 11787 NCMPI_Request *request) … … 11790 11790 NC *ncp; 11791 11791 int status; 11792 int 64_tdim;11793 int64_t nelems;11792 int dim; 11793 MPI_Offset nelems; 11794 11794 11795 11795 status = ncmpii_NC_check_id(ncid, &ncp); … … 11810 11810 11811 11811 int 11812 ncmpi_iput_varm_double(int ncid, int 64_tvarid,11813 const int64_t start[],11814 const int64_t count[],11815 const int64_t stride[],11816 const int64_t imap[],11812 ncmpi_iput_varm_double(int ncid, int varid, 11813 const MPI_Offset start[], 11814 const MPI_Offset count[], 11815 const MPI_Offset stride[], 11816 const MPI_Offset imap[], 11817 11817 const double *op, 11818 11818 NCMPI_Request *request) … … 11821 11821 NC *ncp; 11822 11822 int status; 11823 int 64_tdim;11824 int64_t nelems;11823 int dim; 11824 MPI_Offset nelems; 11825 11825 11826 11826 status = ncmpii_NC_check_id(ncid, &ncp); … … 11841 11841 11842 11842 int 11843 ncmpi_iget_varm_uchar(int ncid, int 64_tvarid,11844 const int64_t start[],11845 const int64_t count[],11846 const int64_t stride[],11847 const int64_t imap[],11843 ncmpi_iget_varm_uchar(int ncid, int varid, 11844 const MPI_Offset start[], 11845 const MPI_Offset count[], 11846 const MPI_Offset stride[], 11847 const MPI_Offset imap[], 11848 11848 unsigned char *ip, 11849 11849 NCMPI_Request *request) … … 11852 11852 NC *ncp; 11853 11853 int status; 11854 int 64_tdim;11855 int64_t nelems;11854 int dim; 11855 MPI_Offset nelems; 11856 11856 11857 11857 status = ncmpii_NC_check_id(ncid, &ncp); … … 11872 11872 11873 11873 int 11874 ncmpi_iget_varm_schar(int ncid, int 64_tvarid,11875 const int64_t start[],11876 const int64_t count[],11877 const int64_t stride[],11878 const int64_t imap[],11874 ncmpi_iget_varm_schar(int ncid, int varid, 11875 const MPI_Offset start[], 11876 const MPI_Offset count[], 11877 const MPI_Offset stride[], 11878 const MPI_Offset imap[], 11879 11879 signed char *ip, 11880 11880 NCMPI_Request *request) … … 11883 11883 NC *ncp; 11884 11884 int status; 11885 int 64_tdim;11886 int64_t nelems;11885 int dim; 11886 MPI_Offset nelems; 11887 11887 11888 11888 status = ncmpii_NC_check_id(ncid, &ncp); … … 11903 11903 11904 11904 int 11905 ncmpi_iget_varm_text(int ncid, int 64_tvarid,11906 const int64_t start[],11907 const int64_t count[],11908 const int64_t stride[],11909 const int64_t imap[],11905 ncmpi_iget_varm_text(int ncid, int varid, 11906 const MPI_Offset start[], 11907 const MPI_Offset count[], 11908 const MPI_Offset stride[], 11909 const MPI_Offset imap[], 11910 11910 char *ip, 11911 11911 NCMPI_Request *request) … … 11914 11914 NC *ncp; 11915 11915 int status; 11916 int 64_tdim;11917 int64_t nelems;11916 int dim; 11917 MPI_Offset nelems; 11918 11918 11919 11919 status = ncmpii_NC_check_id(ncid, &ncp); … … 11934 11934 11935 11935 int 11936 ncmpi_iget_varm_short(int ncid, int 64_tvarid,11937 const int64_t start[],11938 const int64_t count[],11939 const int64_t stride[],11940 const int64_t imap[],11936 ncmpi_iget_varm_short(int ncid, int varid, 11937 const MPI_Offset start[], 11938 const MPI_Offset count[], 11939 const MPI_Offset stride[], 11940 const MPI_Offset imap[], 11941 11941 short *ip, 11942 11942 NCMPI_Request *request) … … 11945 11945 NC *ncp; 11946 11946 int status; 11947 int 64_tdim;11948 int64_t nelems;11947 int dim; 11948 MPI_Offset nelems; 11949 11949 11950 11950 status = ncmpii_NC_check_id(ncid, &ncp); … … 11965 11965 11966 11966 int 11967 ncmpi_iget_varm_int(int ncid, int 64_tvarid,11968 const int64_t start[],11969 const int64_t count[],11970 const int64_t stride[],11971 const int64_t imap[],11967 ncmpi_iget_varm_int(int ncid, int varid, 11968 const MPI_Offset start[], 11969 const MPI_Offset count[], 11970 const MPI_Offset stride[], 11971 const MPI_Offset imap[], 11972 11972 int *ip, 11973 11973 NCMPI_Request *request) … … 11976 11976 NC *ncp; 11977 11977 int status; 11978 int 64_tdim;11979 int64_t nelems;11978 int dim; 11979 MPI_Offset nelems; 11980 11980 11981 11981 status = ncmpii_NC_check_id(ncid, &ncp); … … 11996 11996 11997 11997 int 11998 ncmpi_iget_varm_long(int ncid, int 64_tvarid,11999 const int64_t start[],12000 const int64_t count[],12001 const int64_t stride[],12002 const int64_t imap[],11998 ncmpi_iget_varm_long(int ncid, int varid, 11999 const MPI_Offset start[], 12000 const MPI_Offset count[], 12001 const MPI_Offset stride[], 12002 const MPI_Offset imap[], 12003 12003 long *ip, 12004 12004 NCMPI_Request *request) … … 12007 12007 NC *ncp; 12008 12008 int status; 12009 int 64_tdim;12010 int64_t nelems;12009 int dim; 12010 MPI_Offset nelems; 12011 12011 12012 12012 status = ncmpii_NC_check_id(ncid, &ncp); … … 12027 12027 12028 12028 int 12029 ncmpi_iget_varm_float(int ncid, int 64_tvarid,12030 const int64_t start[],12031 const int64_t count[],12032 const int64_t stride[],12033 const int64_t imap[],12029 ncmpi_iget_varm_float(int ncid, int varid, 12030 const MPI_Offset start[], 12031 const MPI_Offset count[], 12032 const MPI_Offset stride[], 12033 const MPI_Offset imap[], 12034 12034 float *ip, 12035 12035 NCMPI_Request *request) … … 12038 12038 NC *ncp; 12039 12039 int status; 12040 int 64_tdim;12041 int64_t nelems;12040 int dim; 12041 MPI_Offset nelems; 12042 12042 12043 12043 status = ncmpii_NC_check_id(ncid, &ncp); … … 12058 12058 12059 12059 int 12060 ncmpi_iget_varm_double(int ncid, int 64_tvarid,12061 const int64_t start[],12062 const int64_t count[],12063 const int64_t stride[],12064 const int64_t imap[],12060 ncmpi_iget_varm_double(int ncid, int varid, 12061 const MPI_Offset start[], 12062 const MPI_Offset count[], 12063 const MPI_Offset stride[], 12064 const MPI_Offset imap[], 12065 12065 double *ip, 12066 12066 NCMPI_Request *request) … … 12069 12069 NC *ncp; 12070 12070 int status; 12071 int 64_tdim;12072 int64_t nelems;12071 int dim; 12072 MPI_Offset nelems; 12073 12073 12074 12074 status = ncmpii_NC_check_id(ncid, &ncp); trunk/CDF3/src/lib/nc.c
r613 r625 25 25 #define VER_CLASSIC 1 26 26 #define VER_64BIT_OFFSET 2 27 #define VER_64BIT_DATA 2.528 27 #define VER_HDF5 3 28 #define VER_64BIT_DATA 5 29 29 30 30 … … 36 36 static int move_vars_r(NC *ncp, NC *old); 37 37 static int write_NC(NC *ncp); 38 static int NC_begins(NC *ncp, int64_t h_minfree, int64_t v_align,39 int64_t v_minfree, int64_t r_align);40 static int NC_check_def(MPI_Comm comm, void *buf, int64_t nn);38 static int NC_begins(NC *ncp, MPI_Offset h_minfree, MPI_Offset v_align, 39 MPI_Offset v_minfree, MPI_Offset r_align); 40 static int NC_check_def(MPI_Comm comm, void *buf, MPI_Offset nn); 41 41 42 42 #if 0 … … 86 86 */ 87 87 static int 88 NC_check_def(MPI_Comm comm, void *buf, int64_t nn) {88 NC_check_def(MPI_Comm comm, void *buf, MPI_Offset nn) { 89 89 int rank; 90 90 int errcheck; 91 int64_t compare = 0;91 MPI_Offset compare = 0; 92 92 void *cmpbuf; 93 int64_t max_size;93 MPI_Offset max_size; 94 94 95 95 MPI_Comm_rank(comm, &rank); … … 97 97 if (rank == 0) 98 98 max_size = nn; 99 MPI_Bcast(&max_size, 1, MPI_LONG , 0, comm);99 MPI_Bcast(&max_size, 1, MPI_LONG_LONG_INT, 0, comm); 100 100 101 101 compare = max_size - nn; 102 102 103 MPI_Allreduce(&compare, &errcheck, 1, MPI_LONG , MPI_LOR, comm);103 MPI_Allreduce(&compare, &errcheck, 1, MPI_LONG_LONG_INT, MPI_LOR, comm); 104 104 105 105 if (errcheck) … … 118 118 } 119 119 120 MPI_Allreduce(&compare, &errcheck, 1, MPI_LONG , MPI_LOR, comm);120 MPI_Allreduce(&compare, &errcheck, 1, MPI_LONG_LONG_INT, MPI_LOR, comm); 121 121 122 122 if (errcheck){ … … 164 164 /* static */ 165 165 NC * 166 ncmpii_new_NC(const int64_t *chunkp)166 ncmpii_new_NC(const MPI_Offset *chunkp) 167 167 { 168 168 NC *ncp; … … 274 274 * will fit into xbufsize? 275 275 */ 276 int64_t277 ncmpix_howmany(nc_type type, int64_t xbufsize)276 MPI_Offset 277 ncmpix_howmany(nc_type type, MPI_Offset xbufsize) 278 278 { 279 279 switch(type){ … … 303 303 static int 304 304 NC_begins(NC *ncp, 305 int64_t h_minfree, int64_t v_align,306 int64_t v_minfree, int64_t r_align)307 { 308 int64_t ii;309 int64_t sizeof_off_t;305 MPI_Offset h_minfree, MPI_Offset v_align, 306 MPI_Offset v_minfree, MPI_Offset r_align) 307 { 308 MPI_Offset ii; 309 MPI_Offset sizeof_off_t; 310 310 off_t index = 0; 311 311 NC_var **vpp; … … 434 434 ncmpii_read_numrecs(NC *ncp) { 435 435 int status = NC_NOERR, mpireturn; 436 int64_t nrecs;436 MPI_Offset nrecs; 437 437 void *buf, *pos; 438 438 MPI_Status mpistatus; … … 493 493 ncmpii_write_numrecs(NC *ncp) { 494 494 int status = NC_NOERR, mpireturn; 495 int64_t nrecs;495 MPI_Offset nrecs; 496 496 void *buf, *pos; 497 497 MPI_Status mpistatus; … … 645 645 ncmpii_NC_sync(NC *ncp) 646 646 { 647 int64_t mynumrecs, numrecs;647 MPI_Offset mynumrecs, numrecs; 648 648 649 649 assert(!NC_readonly(ncp)); … … 652 652 653 653 mynumrecs = ncp->numrecs; 654 MPI_Allreduce(&mynumrecs, &numrecs, 1, MPI_LONG , MPI_MAX, ncp->nciop->comm);654 MPI_Allreduce(&mynumrecs, &numrecs, 1, MPI_LONG_LONG_INT, MPI_MAX, ncp->nciop->comm); 655 655 if (numrecs > ncp->numrecs) { 656 656 ncp->numrecs = numrecs; … … 688 688 move_recs_r(NC *ncp, NC *old) { 689 689 int status; 690 int64_t recno;691 const int64_t old_nrecs = old->numrecs;692 const int64_t ncp_recsize = ncp->recsize;693 const int64_t old_recsize = old->recsize;690 MPI_Offset recno; 691 const MPI_Offset old_nrecs = old->numrecs; 692 const MPI_Offset ncp_recsize = ncp->recsize; 693 const MPI_Offset old_recsize = old->recsize; 694 694 const off_t ncp_off = ncp->begin_rec; 695 695 const off_t old_off = old->begin_rec; … … 709 709 /* else, new rec var inserted, to be moved one record at a time */ 710 710 711 for (recno = ( int64_t)old_nrecs -1; recno >= 0; recno--) {711 for (recno = (MPI_Offset)old_nrecs -1; recno >= 0; recno--) { 712 712 status = ncmpiio_move(ncp->nciop, 713 713 ncp_off+recno*ncp_recsize, … … 748 748 of a record variable) in bytes. This is different for format 1 749 749 and format 2. */ 750 int64_t vlen_max;751 int64_t ii;752 int64_t large_vars_count;753 int64_t rec_vars_count;750 MPI_Offset vlen_max; 751 MPI_Offset ii; 752 MPI_Offset large_vars_count; 753 MPI_Offset rec_vars_count; 754 754 int last=-1; 755 755 … … 973 973 int 974 974 ncmpi_inq(int ncid, 975 int 64_t*ndimsp,976 int 64_t*nvarsp,977 int 64_t*nattsp,978 int 64_t*xtendimp)975 int *ndimsp, 976 int *nvarsp, 977 int *nattsp, 978 int *xtendimp) 979 979 { 980 980 int status; … … 986 986 987 987 if(ndimsp != NULL) 988 *ndimsp = (int 64_t) ncp->dims.nelems;988 *ndimsp = (int) ncp->dims.nelems; 989 989 if(nvarsp != NULL) 990 *nvarsp = (int 64_t) ncp->vars.nelems;990 *nvarsp = (int) ncp->vars.nelems; 991 991 if(nattsp != NULL) 992 *nattsp = (int 64_t) ncp->attrs.nelems;992 *nattsp = (int) ncp->attrs.nelems; 993 993 if(xtendimp != NULL) 994 994 *xtendimp = ncmpii_find_NC_Udim(&ncp->dims, NULL); … … 1021 1021 1022 1022 int 1023 ncmpi_inq_ndims(int ncid, int 64_t*ndimsp)1023 ncmpi_inq_ndims(int ncid, int *ndimsp) 1024 1024 { 1025 1025 int status; … … 1031 1031 1032 1032 if(ndimsp != NULL) 1033 *ndimsp = (int 64_t) ncp->dims.nelems;1033 *ndimsp = (int) ncp->dims.nelems; 1034 1034 1035 1035 return NC_NOERR; … … 1037 1037 1038 1038 int 1039 ncmpi_inq_nvars(int ncid, int 64_t*nvarsp)1039 ncmpi_inq_nvars(int ncid, int *nvarsp) 1040 1040 { 1041 1041 int status; … … 1047 1047 1048 1048 if(nvarsp != NULL) 1049 *nvarsp = (int 64_t) ncp->vars.nelems;1049 *nvarsp = (int) ncp->vars.nelems; 1050 1050 1051 1051 return NC_NOERR; … … 1053 1053 1054 1054 int 1055 ncmpi_inq_natts(int ncid, int 64_t*nattsp)1055 ncmpi_inq_natts(int ncid, int *nattsp) 1056 1056 { 1057 1057 int status; … … 1063 1063 1064 1064 if(nattsp != NULL) 1065 *nattsp = (int 64_t) ncp->attrs.nelems;1065 *nattsp = (int) ncp->attrs.nelems; 1066 1066 1067 1067 return NC_NOERR; … … 1069 1069 1070 1070 int 1071 ncmpi_inq_unlimdim(int ncid, int 64_t*xtendimp)1071 ncmpi_inq_unlimdim(int ncid, int *xtendimp) 1072 1072 { 1073 1073 int status; trunk/CDF3/src/lib/nc.h
r613 r625 13 13 #include "ncconfig.h" 14 14 15 #include <stddef.h> /* int64_t */16 #include <sys/types.h> /* int64_t */15 #include <stddef.h> /* MPI_Offset */ 16 #include <sys/types.h> /* MPI_Offset */ 17 17 #include "pnetcdf.h" 18 18 #include "ncio.h" /* ncio */ … … 51 51 typedef struct { 52 52 /* all xdr'd */ 53 int64_t nchars;53 MPI_Offset nchars; 54 54 char *cp; 55 55 } NC_string; 56 56 57 57 extern NC * 58 ncmpii_new_NC(const int64_t *chunkp);58 ncmpii_new_NC(const MPI_Offset *chunkp); 59 59 60 60 extern NC * … … 69 69 70 70 extern NC_string * 71 ncmpii_new_NC_string( int64_t slen, const char *str);71 ncmpii_new_NC_string(MPI_Offset slen, const char *str); 72 72 73 73 extern int … … 82 82 /* all xdr'd */ 83 83 NC_string *name; 84 int64_t size;84 MPI_Offset size; 85 85 } NC_dim; 86 86 87 87 typedef struct NC_dimarray { 88 int64_t nalloc; /* number allocated >= nelems */88 size_t nalloc; /* number allocated >= nelems */ 89 89 /* below gets xdr'd */ 90 90 /* NCtype type = NC_DIMENSION */ 91 int64_t nelems; /* length of the array */91 MPI_Offset nelems; /* length of the array */ 92 92 NC_dim **value; 93 93 } NC_dimarray; … … 116 116 117 117 extern NC_dim * 118 ncmpii_elem_NC_dimarray(const NC_dimarray *ncap, int64_t elem);119 120 extern int 121 ncmpi_def_dim(int ncid, const char *name, int64_t size, int64_t *dimidp);122 123 extern int 124 ncmpi_rename_dim( int ncid, int 64_tdimid, const char *newname);125 126 extern int 127 ncmpi_inq_dimid(int ncid, const char *name, int 64_t*dimid_ptr);128 129 extern int 130 ncmpi_inq_dim(int ncid, int 64_t dimid, char *name, int64_t *sizep);131 132 extern int 133 ncmpi_inq_dimname(int ncid, int 64_tdimid, char *name);134 135 extern int 136 ncmpi_inq_dimlen(int ncid, int 64_t dimid, int64_t *lenp);118 ncmpii_elem_NC_dimarray(const NC_dimarray *ncap, size_t elem); 119 120 extern int 121 ncmpi_def_dim(int ncid, const char *name, MPI_Offset size, int *dimidp); 122 123 extern int 124 ncmpi_rename_dim( int ncid, int dimid, const char *newname); 125 126 extern int 127 ncmpi_inq_dimid(int ncid, const char *name, int *dimid_ptr); 128 129 extern int 130 ncmpi_inq_dim(int ncid, int dimid, char *name, MPI_Offset *sizep); 131 132 extern int 133 ncmpi_inq_dimname(int ncid, int dimid, char *name); 134 135 extern int 136 ncmpi_inq_dimlen(int ncid, int dimid, MPI_Offset *lenp); 137 137 /* End defined in dim.c */ 138 138 … … 141 141 */ 142 142 typedef struct { 143 int64_t xsz; /* amount of space at xvalue */143 MPI_Offset xsz; /* amount of space at xvalue */ 144 144 /* below gets xdr'd */ 145 145 NC_string *name; 146 146 nc_type type; /* the discriminant */ 147 int64_t nelems; /* length of the array */147 MPI_Offset nelems; /* length of the array */ 148 148 void *xvalue; /* the actual data, in external representation */ 149 149 } NC_attr; 150 150 151 151 typedef struct NC_attrarray { 152 int64_t nalloc; /* number allocated >= nelems */152 MPI_Offset nalloc; /* number allocated >= nelems */ 153 153 /* below gets xdr'd */ 154 154 /* NCtype type = NC_ATTRIBUTE */ 155 int64_t nelems; /* length of the array */155 MPI_Offset nelems; /* length of the array */ 156 156 NC_attr **value; 157 157 } NC_attrarray; … … 166 166 NC_string *strp, 167 167 nc_type type, 168 int64_t nelems);168 MPI_Offset nelems); 169 169 170 170 extern NC_attr ** … … 183 183 184 184 extern NC_attr * 185 ncmpii_elem_NC_attrarray(const NC_attrarray *ncap, int 64_telem);186 187 extern int 188 ncmpi_put_att_text(int ncid, int 64_tvarid, const char *name,189 int64_t nelems, const char *value);190 191 extern int 192 ncmpi_get_att_text(int ncid, int 64_tvarid, const char *name, char *str);193 194 extern int 195 ncmpi_put_att_schar(int ncid, int 64_tvarid, const char *name,196 nc_type type, int64_t nelems, const signed char *value);197 198 extern int 199 ncmpi_get_att_schar(int ncid, int 64_tvarid, const char *name, signed char *tp);200 201 extern int 202 ncmpi_put_att_uchar(int ncid, int 64_tvarid, const char *name,203 nc_type type, int64_t nelems, const unsigned char *value);204 205 extern int 206 ncmpi_get_att_uchar(int ncid, int 64_tvarid, const char *name, unsigned char *tp);207 208 extern int 209 ncmpi_put_att_short(int ncid, int 64_tvarid, const char *name,210 nc_type type, int64_t nelems, const short *value);211 212 extern int 213 ncmpi_get_att_short(int ncid, int 64_tvarid, const char *name, short *tp);214 215 extern int 216 ncmpi_put_att_int(int ncid, int 64_tvarid, const char *name,217 nc_type type, int64_t nelems, const int *value);218 219 extern int 220 ncmpi_get_att_int(int ncid, int 64_tvarid, const char *name, int *tp);221 222 extern int 223 ncmpi_put_att_long(int ncid, int 64_tvarid, const char *name,224 nc_type type, int64_t nelems, const long *value);225 226 extern int 227 ncmpi_get_att_long(int ncid, int 64_tvarid, const char *name, long *tp);228 229 extern int 230 ncmpi_put_att_float(int ncid, int 64_tvarid, const char *name,231 nc_type type, int64_t nelems, const float *value);232 extern int 233 ncmpi_get_att_float(int ncid, int 64_tvarid, const char *name, float *tp);234 extern int 235 ncmpi_put_att_double(int ncid, int 64_tvarid, const char *name,236 nc_type type, int64_t nelems, const double *value);237 extern int 238 ncmpi_get_att_double(int ncid, int 64_tvarid, const char *name, double *tp);239 240 extern int 241 ncmpi_inq_attid(int ncid, int 64_t varid, const char *name, int64_t *attnump);242 243 extern int 244 ncmpi_inq_atttype(int ncid, int 64_tvarid, const char *name, nc_type *datatypep);245 246 extern int 247 ncmpi_inq_attlen(int ncid, int 64_t varid, const char *name, int64_t *lenp);248 249 extern int 250 ncmpi_inq_att(int ncid, int 64_tvarid, const char *name,251 nc_type *datatypep, int64_t *lenp);252 253 extern int 254 ncmpi_copy_att(int ncid_in, int 64_tvarid_in, const char *name,255 int 64_t ncid_out, int64_t ovarid);256 257 extern int 258 ncmpi_rename_att( int ncid, int 64_tvarid, const char *name, const char *newname);259 260 extern int 261 ncmpi_del_att(int ncid, int 64_tvarid, const char *name);262 263 extern int 264 ncmpi_inq_attname(int ncid, int 64_t varid, int64_t attnum, char *name);185 ncmpii_elem_NC_attrarray(const NC_attrarray *ncap, int elem); 186 187 extern int 188 ncmpi_put_att_text(int ncid, int varid, const char *name, 189 MPI_Offset nelems, const char *value); 190 191 extern int 192 ncmpi_get_att_text(int ncid, int varid, const char *name, char *str); 193 194 extern int 195 ncmpi_put_att_schar(int ncid, int varid, const char *name, 196 nc_type type, MPI_Offset nelems, const signed char *value); 197 198 extern int 199 ncmpi_get_att_schar(int ncid, int varid, const char *name, signed char *tp); 200 201 extern int 202 ncmpi_put_att_uchar(int ncid, int varid, const char *name, 203 nc_type type, MPI_Offset nelems, const unsigned char *value); 204 205 extern int 206 ncmpi_get_att_uchar(int ncid, int varid, const char *name, unsigned char *tp); 207 208 extern int 209 ncmpi_put_att_short(int ncid, int varid, const char *name, 210 nc_type type, MPI_Offset nelems, const short *value); 211 212 extern int 213 ncmpi_get_att_short(int ncid, int varid, const char *name, short *tp); 214 215 extern int 216 ncmpi_put_att_int(int ncid, int varid, const char *name, 217 nc_type type, MPI_Offset nelems, const int *value); 218 219 extern int 220 ncmpi_get_att_int(int ncid, int varid, const char *name, int *tp); 221 222 extern int 223 ncmpi_put_att_long(int ncid, int varid, const char *name, 224 nc_type type, MPI_Offset nelems, const long *value); 225 226 extern int 227 ncmpi_get_att_long(int ncid, int varid, const char *name, long *tp); 228 229 extern int 230 ncmpi_put_att_float(int ncid, int varid, const char *name, 231 nc_type type, MPI_Offset nelems, const float *value); 232 extern int 233 ncmpi_get_att_float(int ncid, int varid, const char *name, float *tp); 234 extern int 235 ncmpi_put_att_double(int ncid, int varid, const char *name, 236 nc_type type, MPI_Offset nelems, const double *value); 237 extern int 238 ncmpi_get_att_double(int ncid, int varid, const char *name, double *tp); 239 240 extern int 241 ncmpi_inq_attid(int ncid, int varid, const char *name, int *attnump); 242 243 extern int 244 ncmpi_inq_atttype(int ncid, int varid, const char *name, nc_type *datatypep); 245 246 extern int 247 ncmpi_inq_attlen(int ncid, int varid, const char *name, MPI_Offset *lenp); 248 249 extern int 250 ncmpi_inq_att(int ncid, int varid, const char *name, 251 nc_type *datatypep, MPI_Offset *lenp); 252 253 extern int 254 ncmpi_copy_att(int ncid_in, int varid_in, const char *name, 255 int ncid_out, int ovarid); 256 257 extern int 258 ncmpi_rename_att( int ncid, int varid, const char *name, const char *newname); 259 260 extern int 261 ncmpi_del_att(int ncid, int varid, const char *name); 262 263 extern int 264 ncmpi_inq_attname(int ncid, int varid, int attnum, char *name); 265 265 /* End defined in attr.c */ 266 266 /* … … 268 268 */ 269 269 typedef struct { 270 int64_t xsz; /* xszof 1 element */271 int64_t *shape; /* compiled info: dim->size of each dim */272 int64_t *dsizes; /* compiled info: the right to left product of shape */270 MPI_Offset xsz; /* xszof 1 element */ 271 MPI_Offset *shape; /* compiled info: dim->size of each dim */ 272 MPI_Offset *dsizes; /* compiled info: the right to left product of shape */ 273 273 /* below gets xdr'd */ 274 274 NC_string *name; 275 275 /* next two: formerly NC_iarray *assoc */ /* user definition */ 276 int64_t ndims; /* assoc->count */277 int 64_t*dimids; /* assoc->value */276 size_t ndims; /* assoc->count */ 277 int *dimids; /* assoc->value */ 278 278 NC_attrarray attrs; 279 279 nc_type type; /* the discriminant */ 280 int64_t len; /* the total length originally allocated */281 int64_t begin;280 MPI_Offset len; /* the total length originally allocated */ 281 MPI_Offset begin; 282 282 } NC_var; 283 283 284 284 typedef struct NC_vararray { 285 int64_t nalloc; /* number allocated >= nelems */285 MPI_Offset nalloc; /* number allocated >= nelems */ 286 286 /* below gets xdr'd */ 287 287 /* NCtype type = NC_VARIABLE */ 288 int64_t nelems; /* length of the array */288 MPI_Offset nelems; /* length of the array */ 289 289 NC_var **value; 290 290 } NC_vararray; … … 298 298 ncmpii_new_x_NC_var( 299 299 NC_string *strp, 300 int64_t ndims300 size_t ndims 301 301 ); 302 302 … … 319 319 320 320 extern int 321 ncmpii_NC_check_vlen(NC_var *varp, int64_t vlen_max);321 ncmpii_NC_check_vlen(NC_var *varp, MPI_Offset vlen_max); 322 322 323 323 extern NC_var * 324 ncmpii_NC_lookupvar(NC *ncp, int 64_tvarid);324 ncmpii_NC_lookupvar(NC *ncp, int varid); 325 325 326 326 extern int 327 327 ncmpi_def_var( int ncid, const char *name, nc_type type, 328 int 64_t ndims, const int64_t *dimidsp, int64_t *varidp);329 330 extern int 331 ncmpi_rename_var(int ncid, int 64_tvarid, const char *newname);332 333 extern int 334 ncmpi_inq_var(int ncid, int 64_tvarid, char *name, nc_type *typep,335 int 64_t *ndimsp, int64_t *dimids, int64_t *nattsp);336 337 extern int 338 ncmpi_inq_varid(int ncid, const char *name, int 64_t*varid_ptr);339 340 extern int 341 ncmpi_inq_varname(int ncid, int 64_tvarid, char *name);342 343 extern int 344 ncmpi_inq_vartype(int ncid, int 64_tvarid, nc_type *typep);345 346 extern int 347 ncmpi_inq_varndims(int ncid, int 64_t varid, int64_t *ndimsp);348 349 extern int 350 ncmpi_inq_vardimid(int ncid, int 64_t varid, int64_t *dimids);351 352 extern int 353 ncmpi_inq_varnatts(int ncid, int 64_t varid, int64_t *nattsp);354 355 extern int 356 ncmpi_rename_var(int ncid, int 64_tvarid, const char *newname);328 int ndims, const int *dimidsp, int *varidp); 329 330 extern int 331 ncmpi_rename_var(int ncid, int varid, const char *newname); 332 333 extern int 334 ncmpi_inq_var(int ncid, int varid, char *name, nc_type *typep, 335 int *ndimsp, int *dimids, int *nattsp); 336 337 extern int 338 ncmpi_inq_varid(int ncid, const char *name, int *varid_ptr); 339 340 extern int 341 ncmpi_inq_varname(int ncid, int varid, char *name); 342 343 extern int 344 ncmpi_inq_vartype(int ncid, int varid, nc_type *typep); 345 346 extern int 347 ncmpi_inq_varndims(int ncid, int varid, int *ndimsp); 348 349 extern int 350 ncmpi_inq_vardimid(int ncid, int varid, int *dimids); 351 352 extern int 353 ncmpi_inq_varnatts(int ncid, int varid, int *nattsp); 354 355 extern int 356 ncmpi_rename_var(int ncid, int varid, const char *newname); 357 357 /* End defined in var.c */ 358 358 … … 377 377 int flags; 378 378 ncio *nciop; 379 int64_t chunk; /* largest extent this layer will request from ncio->get() */380 int64_t xsz; /* external size of this header, <= var[0].begin */381 int64_t begin_var; /* position of the first (non-record) var */382 int64_t begin_rec; /* position of the first 'record' */379 MPI_Offset chunk; /* largest extent this layer will request from ncio->get() */ 380 MPI_Offset xsz; /* external size of this header, <= var[0].begin */ 381 MPI_Offset begin_var; /* position of the first (non-record) var */ 382 MPI_Offset begin_rec; /* position of the first 'record' */ 383 383 /* don't constrain maximu sinze of record unnecessarily */ 384 int64_t recsize; /* length of 'record' */384 MPI_Offset recsize; /* length of 'record' */ 385 385 /* below gets xdr'd */ 386 int64_t numrecs; /* number of 'records' allocated */386 MPI_Offset numrecs; /* number of 'records' allocated */ 387 387 NC_dimarray dims; 388 388 NC_attrarray attrs; … … 439 439 ncmpii_cktype(nc_type datatype); 440 440 441 extern int64_t442 ncmpix_howmany(nc_type type, int64_t xbufsize);441 extern MPI_Offset 442 ncmpix_howmany(nc_type type, MPI_Offset xbufsize); 443 443 444 444 extern int … … 470 470 471 471 extern int 472 ncmpi_inq(int ncid, int 64_t *ndimsp, int64_t *nvarsp, int64_t *nattsp, int64_t *xtendimp);473 474 extern int 475 ncmpi_inq_ndims(int ncid, int 64_t*ndimsp);476 477 extern int 478 ncmpi_inq_nvars(int ncid, int 64_t*nvarsp);479 480 extern int 481 ncmpi_inq_natts(int ncid, int 64_t*nattsp);482 483 extern int 484 ncmpi_inq_unlimdim(int ncid, int 64_t*xtendimp);472 ncmpi_inq(int ncid, int *ndimsp, int *nvarsp, int *nattsp, int *xtendimp); 473 474 extern int 475 ncmpi_inq_ndims(int ncid, int *ndimsp); 476 477 extern int 478 ncmpi_inq_nvars(int ncid, int *nvarsp); 479 480 extern int 481 ncmpi_inq_natts(int ncid, int *nattsp); 482 483 extern int 484 ncmpi_inq_unlimdim(int ncid, int *xtendimp); 485 485 486 486 extern int … … 491 491 492 492 extern size_t 493 ncx_len_NC(const NC *ncp, int64_t sizeof_off_t);494 495 extern int 496 ncx_put_NC(const NC *ncp, void **xpp, int64_t offset, int64_t extent);493 ncx_len_NC(const NC *ncp, MPI_Offset sizeof_off_t); 494 495 extern int 496 ncx_put_NC(const NC *ncp, void **xpp, MPI_Offset offset, MPI_Offset extent); 497 497 498 498 extern int … … 505 505 506 506 extern int 507 ncmpii_fill_NC_var(NC *ncp, const NC_var *varp, int64_t recno);508 509 extern int 510 ncmpii_inq_rec(int ncid, int64_t *nrecvars, int64_t *recvarids, int64_t *recsizes);511 512 extern int 513 ncmpii_get_rec(int ncid, int64_t recnum, void **datap);514 515 extern int 516 ncmpii_put_rec(int ncid, int64_t recnum, void *const *datap);507 ncmpii_fill_NC_var(NC *ncp, const NC_var *varp, MPI_Offset recno); 508 509 extern int 510 ncmpii_inq_rec(int ncid, MPI_Offset *nrecvars, MPI_Offset *recvarids, MPI_Offset *recsizes); 511 512 extern int 513 ncmpii_get_rec(int ncid, MPI_Offset recnum, void **datap); 514 515 extern int 516 ncmpii_put_rec(int ncid, MPI_Offset recnum, void *const *datap); 517 517 #endif 518 518 … … 522 522 typedef struct bufferinfo { 523 523 ncio *nciop; 524 int64_t offset; /* current read/write offset in the file */524 MPI_Offset offset; /* current read/write offset in the file */ 525 525 int version; /* either 1 for normal netcdf or 526 526 2 for 8-byte offset version */ 527 527 void *base; /* beginning of read/write buffer */ 528 528 void *pos; /* current position in buffer */ 529 int64_t size; /* size of the buffer */530 int64_t index; /* index of current position in buffer */529 MPI_Offset size; /* size of the buffer */ 530 MPI_Offset index; /* index of current position in buffer */ 531 531 } bufferinfo; 532 532 533 extern int64_t533 extern MPI_Offset 534 534 ncmpix_len_nctype(nc_type type); 535 535 … … 539 539 #endif 540 540 541 extern int64_t542 ncmpii_hdr_len_NC(const NC *ncp, int64_t sizeof_off_t);541 extern MPI_Offset 542 ncmpii_hdr_len_NC(const NC *ncp, MPI_Offset sizeof_off_t); 543 543 544 544 extern int … … 549 549 550 550 extern int 551 ncmpii_NC_computeshapes(NC *ncp , int sizeof_t);551 ncmpii_NC_computeshapes(NC *ncp); 552 552 553 553 /* end defined in header.c */ … … 565 565 566 566 extern int 567 ncmpiio_move(ncio *const nciop, int64_t to, int64_t from, int64_t nbytes);567 ncmpiio_move(ncio *const nciop, MPI_Offset to, MPI_Offset from, MPI_Offset nbytes); 568 568 569 569 extern int … … 586 586 587 587 extern int 588 ncmpii_put_att(int ncid, int 64_tvarid, const char *name, nc_type datatype,589 int64_t len, const void *value);590 591 extern int 592 ncmpii_get_att(int ncid, int 64_tvarid, const char *name, void *value);593 594 extern int 595 ncmpii_put_var1(int ncid, int 64_t varid, const int64_t *index, const void *value);596 597 extern int 598 ncmpii_get_var1(int ncid, int 64_t varid, const int64_t *index, void *value);599 600 extern int 601 ncmpii_put_vara(int ncid, int 64_tvarid,602 const int64_t *start, const int64_t *count, const void *value);603 604 extern int 605 ncmpii_get_vara(int ncid, int 64_tvarid,606 const int64_t *start, const int64_t *count, void *value);607 608 extern int 609 ncmpii_put_vars(int ncid, int 64_tvarid,610 const int64_t *start, const int64_t *count, const ptrdiff_t *stride,588 ncmpii_put_att(int ncid, int varid, const char *name, nc_type datatype, 589 MPI_Offset len, const void *value); 590 591 extern int 592 ncmpii_get_att(int ncid, int varid, const char *name, void *value); 593 594 extern int 595 ncmpii_put_var1(int ncid, int varid, const MPI_Offset *index, const void *value); 596 597 extern int 598 ncmpii_get_var1(int ncid, int varid, const MPI_Offset *index, void *value); 599 600 extern int 601 ncmpii_put_vara(int ncid, int varid, 602 const MPI_Offset *start, const MPI_Offset *count, const void *value); 603 604 extern int 605 ncmpii_get_vara(int ncid, int varid, 606 const MPI_Offset *start, const MPI_Offset *count, void *value); 607 608 extern int 609 ncmpii_put_vars(int ncid, int varid, 610 const MPI_Offset *start, const MPI_Offset *count, const ptrdiff_t *stride, 611 611 const void * value); 612 612 613 613 extern int 614 ncmpii_get_vars(int ncid, int 64_tvarid,615 const int64_t *start, const int64_t *count, const ptrdiff_t *stride,614 ncmpii_get_vars(int ncid, int varid, 615 const MPI_Offset *start, const MPI_Offset *count, const ptrdiff_t *stride, 616 616 void * value); 617 617 618 618 extern int 619 ncmpii_put_varm(int ncid, int 64_tvarid,620 const int64_t *start, const int64_t *count, const ptrdiff_t *stride,619 ncmpii_put_varm(int ncid, int varid, 620 const MPI_Offset *start, const MPI_Offset *count, const ptrdiff_t *stride, 621 621 const ptrdiff_t * map, const void *value); 622 622 623 623 extern int 624 ncmpii_get_varm(int ncid, int 64_tvarid,625 const int64_t *start, const int64_t *count, const ptrdiff_t *stride,624 ncmpii_get_varm(int ncid, int varid, 625 const MPI_Offset *start, const MPI_Offset *count, const ptrdiff_t *stride, 626 626 const ptrdiff_t * map, void *value); 627 627 trunk/CDF3/src/lib/ncio.h
r613 r625 9 9 10 10 #include <stddef.h> /* size_t */ 11 #include <sys/types.h> /* int64_t */11 #include <sys/types.h> /* MPI_Offset */ 12 12 #include "pnetcdf.h" 13 13 … … 50 50 */ 51 51 typedef int ncmpiio_relfunc(ncio *const nciop, 52 int64_t offset, int rflags);52 MPI_Offset offset, int rflags); 53 53 54 54 /* … … 65 65 * Only reasonable flag value is RGN_NOLOCK. 66 66 */ 67 typedef int ncmpiio_movefunc(ncio *const nciop, int64_t to, int64_t from,67 typedef int ncmpiio_movefunc(ncio *const nciop, MPI_Offset to, MPI_Offset from, 68 68 size_t nbytes, int rflags); 69 69 trunk/CDF3/src/lib/ncmpidtype.c
r613 r625 185 185 186 186 static int ncmpii_darray_get_totalblks(int rank, 187 int64_t ndims,187 MPI_Offset ndims, 188 188 int array_of_gsizes[], 189 189 int array_of_distribs[], … … 251 251 MPI_Datatype *ptype, 252 252 int *el_size, 253 int64_t *nelems,253 MPI_Offset *nelems, 254 254 int *isderived, 255 255 int *iscontig_of_ptypes) 256 256 { 257 257 int i; 258 int64_t tmpnelems, total_blocks;258 MPI_Offset tmpnelems, total_blocks; 259 259 int tmpel_size; 260 260 MPI_Datatype tmpptype; … … 265 265 void *arraybuf; 266 266 int memsz; 267 int64_t count;268 int 64_tndims;267 MPI_Offset count; 268 int ndims; 269 269 int status = NC_NOERR; 270 270 … … 494 494 495 495 int ncmpii_data_repack(void *inbuf, 496 int64_t incount,496 MPI_Offset incount, 497 497 MPI_Datatype intype, 498 498 void *outbuf, 499 int64_t outcount,499 MPI_Offset outcount, 500 500 MPI_Datatype outtype) 501 501 { trunk/CDF3/src/lib/ncmpidtype.h
r613 r625 12 12 MPI_Datatype *ptype, 13 13 int *el_size, 14 int64_t *nelems,14 MPI_Offset *nelems, 15 15 int *isderived, 16 16 int *iscontig_of_ptypes); 17 17 18 18 int ncmpii_data_repack(void *inbuf, 19 int64_t incount,19 MPI_Offset incount, 20 20 MPI_Datatype intype, 21 21 void *outbuf, 22 int64_t outcount,22 MPI_Offset outcount, 23 23 MPI_Datatype outtype); 24 24 trunk/CDF3/src/lib/ncx.c
r613 r625 96 96 97 97 static void 98 swapn2b(void *dst, const void *src, int64_t nn)98 swapn2b(void *dst, const void *src, MPI_Offset nn) 99 99 { 100 100 char *op = dst; … … 134 134 135 135 static void 136 swapn4b(void *dst, const void *src, int64_t nn)136 swapn4b(void *dst, const void *src, MPI_Offset nn) 137 137 { 138 138 char *op = dst; … … 191 191 # ifndef vax 192 192 static void 193 swapn8b(void *dst, const void *src, int64_t nn)193 swapn8b(void *dst, const void *src, MPI_Offset nn) 194 194 { 195 195 char *op = dst; … … 602 602 603 603 int 604 ncmpix_get_long_long(const void *xp, int64_t *ip)604 ncmpix_get_long_long(const void *xp,MPI_Offset *ip) 605 605 { 606 606 #if SIZEOF_IX_INT == SIZEOF_LONG && IX_INT_MAX == LONG_MAX … … 1403 1403 #if SIZEOF_SIZE_T < X_SIZEOF_SIZE_T 1404 1404 #error "x_size_t implementation" 1405 /* netcdf requires int64_t which can hold a values from 0 to 2^31 -1 */1406 #endif 1407 1408 int 1409 ncmpix_put_size_t1(void **xpp, const int64_t *ulp)1405 /* netcdf requires MPI_Offset which can hold a values from 0 to 2^31 -1 */ 1406 #endif 1407 1408 int 1409 ncmpix_put_size_t1(void **xpp, const MPI_Offset *ulp) 1410 1410 { 1411 1411 /* similar to put_ix_int() */ … … 1424 1424 /* 1425 1425 int 1426 ncmpix_put_size_t(void **xpp, const int64_t *ulp)1426 ncmpix_put_size_t(void **xpp, const MPI_Offset *ulp) 1427 1427 { 1428 1428 // uchar *cp = (uchar *) *xpp; … … 1440 1440 */ 1441 1441 int 1442 ncmpix_put_size_t(void **xpp, const int64_t *lp, int sizeof_t)1442 ncmpix_put_size_t(void **xpp, const MPI_Offset *lp, MPI_Offset sizeof_t) 1443 1443 { 1444 1444 /* similar to put_ix_int() */ … … 1477 1477 1478 1478 int 1479 ncmpix_get_size_t(const void **xpp, int64_t *lp, int sizeof_off_t)1479 ncmpix_get_size_t(const void **xpp, MPI_Offset *lp, MPI_Offset sizeof_off_t) 1480 1480 { 1481 1481 /* similar to get_ix_int */ … … 1514 1514 */ 1515 1515 int 1516 ncmpix_put_off_t(void **xpp, const int64_t *lp, int sizeof_off_t)1516 ncmpix_put_off_t(void **xpp, const MPI_Offset *lp, MPI_Offset sizeof_off_t) 1517 1517 { 1518 1518 /* similar to put_ix_int() */ … … 1545 1545 /* see comments for ncmpix_put_off_t */ 1546 1546 int 1547 ncmpix_get_off_t(const void **xpp, int64_t *lp, int sizeof_off_t)1547 ncmpix_get_off_t(const void **xpp, MPI_Offset *lp, MPI_Offset sizeof_off_t) 1548 1548 { 1549 1549 /* similar to get_ix_int() */ … … 1582 1582 1583 1583 int 1584 ncmpix_getn_schar_schar(const void **xpp, int64_t nelems, schar *tp)1584 ncmpix_getn_schar_schar(const void **xpp, MPI_Offset nelems, schar *tp) 1585 1585 { 1586 1586 (void) memcpy(tp, *xpp, nelems); … … 1590 1590 } 1591 1591 int 1592 ncmpix_getn_schar_uchar(const void **xpp, int64_t nelems, uchar *tp)1592 ncmpix_getn_schar_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 1593 1593 { 1594 1594 (void) memcpy(tp, *xpp, nelems); … … 1598 1598 } 1599 1599 int 1600 ncmpix_getn_schar_short(const void **xpp, int64_t nelems, short *tp)1600 ncmpix_getn_schar_short(const void **xpp, MPI_Offset nelems, short *tp) 1601 1601 { 1602 1602 schar *xp = (schar *)(*xpp); … … 1612 1612 1613 1613 int 1614 ncmpix_getn_schar_int(const void **xpp, int64_t nelems, int *tp)1614 ncmpix_getn_schar_int(const void **xpp, MPI_Offset nelems, int *tp) 1615 1615 { 1616 1616 schar *xp = (schar *)(*xpp); … … 1626 1626 1627 1627 int 1628 ncmpix_getn_schar_long(const void **xpp, int64_t nelems, long *tp)1628 ncmpix_getn_schar_long(const void **xpp, MPI_Offset nelems, long *tp) 1629 1629 { 1630 1630 schar *xp = (schar *)(*xpp); … … 1640 1640 1641 1641 int 1642 ncmpix_getn_schar_float(const void **xpp, int64_t nelems, float *tp)1642 ncmpix_getn_schar_float(const void **xpp, MPI_Offset nelems, float *tp) 1643 1643 { 1644 1644 schar *xp = (schar *)(*xpp); … … 1654 1654 1655 1655 int 1656 ncmpix_getn_schar_double(const void **xpp, int64_t nelems, double *tp)1656 ncmpix_getn_schar_double(const void **xpp, MPI_Offset nelems, double *tp) 1657 1657 { 1658 1658 schar *xp = (schar *)(*xpp); … … 1669 1669 1670 1670 int 1671 ncmpix_pad_getn_schar_schar(const void **xpp, int64_t nelems, schar *tp)1672 { 1673 int64_t rndup = nelems % X_ALIGN;1671 ncmpix_pad_getn_schar_schar(const void **xpp, MPI_Offset nelems, schar *tp) 1672 { 1673 MPI_Offset rndup = nelems % X_ALIGN; 1674 1674 1675 1675 if(rndup) … … 1683 1683 } 1684 1684 int 1685 ncmpix_pad_getn_schar_uchar(const void **xpp, int64_t nelems, uchar *tp)1686 { 1687 int64_t rndup = nelems % X_ALIGN;1685 ncmpix_pad_getn_schar_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 1686 { 1687 MPI_Offset rndup = nelems % X_ALIGN; 1688 1688 1689 1689 if(rndup) … … 1697 1697 } 1698 1698 int 1699 ncmpix_pad_getn_schar_short(const void **xpp, int64_t nelems, short *tp)1700 { 1701 int64_t rndup = nelems % X_ALIGN;1699 ncmpix_pad_getn_schar_short(const void **xpp, MPI_Offset nelems, short *tp) 1700 { 1701 MPI_Offset rndup = nelems % X_ALIGN; 1702 1702 schar *xp = (schar *) *xpp; 1703 1703 … … 1715 1715 1716 1716 int 1717 ncmpix_pad_getn_schar_int(const void **xpp, int64_t nelems, int *tp)1718 { 1719 int64_t rndup = nelems % X_ALIGN;1717 ncmpix_pad_getn_schar_int(const void **xpp, MPI_Offset nelems, int *tp) 1718 { 1719 MPI_Offset rndup = nelems % X_ALIGN; 1720 1720 schar *xp = (schar *) *xpp; 1721 1721 … … 1733 1733 1734 1734 int 1735 ncmpix_pad_getn_schar_long(const void **xpp, int64_t nelems, long *tp)1736 { 1737 int64_t rndup = nelems % X_ALIGN;1735 ncmpix_pad_getn_schar_long(const void **xpp, MPI_Offset nelems, long *tp) 1736 { 1737 MPI_Offset rndup = nelems % X_ALIGN; 1738 1738 schar *xp = (schar *) *xpp; 1739 1739 … … 1751 1751 1752 1752 int 1753 ncmpix_pad_getn_schar_float(const void **xpp, int64_t nelems, float *tp)1754 { 1755 int64_t rndup = nelems % X_ALIGN;1753 ncmpix_pad_getn_schar_float(const void **xpp, MPI_Offset nelems, float *tp) 1754 { 1755 MPI_Offset rndup = nelems % X_ALIGN; 1756 1756 schar *xp = (schar *) *xpp; 1757 1757 … … 1769 1769 1770 1770 int 1771 ncmpix_pad_getn_schar_double(const void **xpp, int64_t nelems, double *tp)1772 { 1773 int64_t rndup = nelems % X_ALIGN;1771 ncmpix_pad_getn_schar_double(const void **xpp, MPI_Offset nelems, double *tp) 1772 { 1773 MPI_Offset rndup = nelems % X_ALIGN; 1774 1774 schar *xp = (schar *) *xpp; 1775 1775 … … 1788 1788 1789 1789 int 1790 ncmpix_putn_schar_schar(void **xpp, int64_t nelems, const schar *tp)1790 ncmpix_putn_schar_schar(void **xpp, MPI_Offset nelems, const schar *tp) 1791 1791 { 1792 1792 (void) memcpy(*xpp, tp, nelems); … … 1797 1797 } 1798 1798 int 1799 ncmpix_putn_schar_uchar(void **xpp, int64_t nelems, const uchar *tp)1799 ncmpix_putn_schar_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 1800 1800 { 1801 1801 (void) memcpy(*xpp, tp, nelems); … … 1806 1806 } 1807 1807 int 1808 ncmpix_putn_schar_short(void **xpp, int64_t nelems, const short *tp)1808 ncmpix_putn_schar_short(void **xpp, MPI_Offset nelems, const short *tp) 1809 1809 { 1810 1810 int status = ENOERR; … … 1823 1823 1824 1824 int 1825 ncmpix_putn_schar_int(void **xpp, int64_t nelems, const int *tp)1825 ncmpix_putn_schar_int(void **xpp, MPI_Offset nelems, const int *tp) 1826 1826 { 1827 1827 int status = ENOERR; … … 1840 1840 1841 1841 int 1842 ncmpix_putn_schar_long(void **xpp, int64_t nelems, const long *tp)1842 ncmpix_putn_schar_long(void **xpp, MPI_Offset nelems, const long *tp) 1843 1843 { 1844 1844 int status = ENOERR; … … 1857 1857 1858 1858 int 1859 ncmpix_putn_schar_float(void **xpp, int64_t nelems, const float *tp)1859 ncmpix_putn_schar_float(void **xpp, MPI_Offset nelems, const float *tp) 1860 1860 { 1861 1861 int status = ENOERR; … … 1874 1874 1875 1875 int 1876 ncmpix_putn_schar_double(void **xpp, int64_t nelems, const double *tp)1876 ncmpix_putn_schar_double(void **xpp, MPI_Offset nelems, const double *tp) 1877 1877 { 1878 1878 int status = ENOERR; … … 1892 1892 1893 1893 int 1894 ncmpix_pad_putn_schar_schar(void **xpp, int64_t nelems, const schar *tp)1895 { 1896 int64_t rndup = nelems % X_ALIGN;1894 ncmpix_pad_putn_schar_schar(void **xpp, MPI_Offset nelems, const schar *tp) 1895 { 1896 MPI_Offset rndup = nelems % X_ALIGN; 1897 1897 1898 1898 if(rndup) … … 1912 1912 } 1913 1913 int 1914 ncmpix_pad_putn_schar_uchar(void **xpp, int64_t nelems, const uchar *tp)1915 { 1916 int64_t rndup = nelems % X_ALIGN;1914 ncmpix_pad_putn_schar_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 1915 { 1916 MPI_Offset rndup = nelems % X_ALIGN; 1917 1917 1918 1918 if(rndup) … … 1932 1932 } 1933 1933 int 1934 ncmpix_pad_putn_schar_short(void **xpp, int64_t nelems, const short *tp)1935 { 1936 int status = ENOERR; 1937 int64_t rndup = nelems % X_ALIGN;1934 ncmpix_pad_putn_schar_short(void **xpp, MPI_Offset nelems, const short *tp) 1935 { 1936 int status = ENOERR; 1937 MPI_Offset rndup = nelems % X_ALIGN; 1938 1938 schar *xp = (schar *) *xpp; 1939 1939 … … 1961 1961 1962 1962 int 1963 ncmpix_pad_putn_schar_int(void **xpp, int64_t nelems, const int *tp)1964 { 1965 int status = ENOERR; 1966 int64_t rndup = nelems % X_ALIGN;1963 ncmpix_pad_putn_schar_int(void **xpp, MPI_Offset nelems, const int *tp) 1964 { 1965 int status = ENOERR; 1966 MPI_Offset rndup = nelems % X_ALIGN; 1967 1967 schar *xp = (schar *) *xpp; 1968 1968 … … 1990 1990 1991 1991 int 1992 ncmpix_pad_putn_schar_long(void **xpp, int64_t nelems, const long *tp)1993 { 1994 int status = ENOERR; 1995 int64_t rndup = nelems % X_ALIGN;1992 ncmpix_pad_putn_schar_long(void **xpp, MPI_Offset nelems, const long *tp) 1993 { 1994 int status = ENOERR; 1995 MPI_Offset rndup = nelems % X_ALIGN; 1996 1996 schar *xp = (schar *) *xpp; 1997 1997 … … 2019 2019 2020 2020 int 2021 ncmpix_pad_putn_schar_float(void **xpp, int64_t nelems, const float *tp)2022 { 2023 int status = ENOERR; 2024 int64_t rndup = nelems % X_ALIGN;2021 ncmpix_pad_putn_schar_float(void **xpp, MPI_Offset nelems, const float *tp) 2022 { 2023 int status = ENOERR; 2024 MPI_Offset rndup = nelems % X_ALIGN; 2025 2025 schar *xp = (schar *) *xpp; 2026 2026 … … 2048 2048 2049 2049 int 2050 ncmpix_pad_putn_schar_double(void **xpp, int64_t nelems, const double *tp)2051 { 2052 int status = ENOERR; 2053 int64_t rndup = nelems % X_ALIGN;2050 ncmpix_pad_putn_schar_double(void **xpp, MPI_Offset nelems, const double *tp) 2051 { 2052 int status = ENOERR; 2053 MPI_Offset rndup = nelems % X_ALIGN; 2054 2054 schar *xp = (schar *) *xpp; 2055 2055 … … 2081 2081 2082 2082 int 2083 ncmpix_getn_short_schar(const void **xpp, int64_t nelems, schar *tp)2083 ncmpix_getn_short_schar(const void **xpp, MPI_Offset nelems, schar *tp) 2084 2084 { 2085 2085 const char *xp = (const char *) *xpp; … … 2098 2098 2099 2099 int 2100 ncmpix_getn_short_uchar(const void **xpp, int64_t nelems, uchar *tp)2100 ncmpix_getn_short_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 2101 2101 { 2102 2102 const char *xp = (const char *) *xpp; … … 2117 2117 /* optimized version */ 2118 2118 int 2119 ncmpix_getn_short_short(const void **xpp, int64_t nelems, short *tp)2119 ncmpix_getn_short_short(const void **xpp, MPI_Offset nelems, short *tp) 2120 2120 { 2121 2121 # ifdef WORDS_BIGENDIAN … … 2129 2129 #else 2130 2130 int 2131 ncmpix_getn_short_short(const void **xpp, int64_t nelems, short *tp)2131 ncmpix_getn_short_short(const void **xpp, MPI_Offset nelems, short *tp) 2132 2132 { 2133 2133 const char *xp = (const char *) *xpp; … … 2147 2147 #endif 2148 2148 int 2149 ncmpix_getn_short_int(const void **xpp, int64_t nelems, int *tp)2149 ncmpix_getn_short_int(const void **xpp, MPI_Offset nelems, int *tp) 2150 2150 { 2151 2151 const char *xp = (const char *) *xpp; … … 2164 2164 2165 2165 int 2166 ncmpix_getn_short_long(const void **xpp, int64_t nelems, long *tp)2166 ncmpix_getn_short_long(const void **xpp, MPI_Offset nelems, long *tp) 2167 2167 { 2168 2168 const char *xp = (const char *) *xpp; … … 2181 2181 2182 2182 int 2183 ncmpix_getn_short_float(const void **xpp, int64_t nelems, float *tp)2183 ncmpix_getn_short_float(const void **xpp, MPI_Offset nelems, float *tp) 2184 2184 { 2185 2185 const char *xp = (const char *) *xpp; … … 2198 2198 2199 2199 int 2200 ncmpix_getn_short_double(const void **xpp, int64_t nelems, double *tp)2200 ncmpix_getn_short_double(const void **xpp, MPI_Offset nelems, double *tp) 2201 2201 { 2202 2202 const char *xp = (const char *) *xpp; … … 2216 2216 2217 2217 int 2218 ncmpix_pad_getn_short_schar(const void **xpp, int64_t nelems, schar *tp)2219 { 2220 const int64_t rndup = nelems % 2;2218 ncmpix_pad_getn_short_schar(const void **xpp, MPI_Offset nelems, schar *tp) 2219 { 2220 const MPI_Offset rndup = nelems % 2; 2221 2221 2222 2222 const char *xp = (const char *) *xpp; … … 2238 2238 2239 2239 int 2240 ncmpix_pad_getn_short_uchar(const void **xpp, int64_t nelems, uchar *tp)2241 { 2242 const int64_t rndup = nelems % 2;2240 ncmpix_pad_getn_short_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 2241 { 2242 const MPI_Offset rndup = nelems % 2; 2243 2243 2244 2244 const char *xp = (const char *) *xpp; … … 2260 2260 2261 2261 int 2262 ncmpix_pad_getn_short_short(const void **xpp, int64_t nelems, short *tp)2263 { 2264 const int64_t rndup = nelems % 2;2262 ncmpix_pad_getn_short_short(const void **xpp, MPI_Offset nelems, short *tp) 2263 { 2264 const MPI_Offset rndup = nelems % 2; 2265 2265 2266 2266 const char *xp = (const char *) *xpp; … … 2282 2282 2283 2283 int 2284 ncmpix_pad_getn_short_int(const void **xpp, int64_t nelems, int *tp)2285 { 2286 const int64_t rndup = nelems % 2;2284 ncmpix_pad_getn_short_int(const void **xpp, MPI_Offset nelems, int *tp) 2285 { 2286 const MPI_Offset rndup = nelems % 2; 2287 2287 2288 2288 const char *xp = (const char *) *xpp; … … 2304 2304 2305 2305 int 2306 ncmpix_pad_getn_short_long(const void **xpp, int64_t nelems, long *tp)2307 { 2308 const int64_t rndup = nelems % 2;2306 ncmpix_pad_getn_short_long(const void **xpp, MPI_Offset nelems, long *tp) 2307 { 2308 const MPI_Offset rndup = nelems % 2; 2309 2309 2310 2310 const char *xp = (const char *) *xpp; … … 2326 2326 2327 2327 int 2328 ncmpix_pad_getn_short_float(const void **xpp, int64_t nelems, float *tp)2329 { 2330 const int64_t rndup = nelems % 2;2328 ncmpix_pad_getn_short_float(const void **xpp, MPI_Offset nelems, float *tp) 2329 { 2330 const MPI_Offset rndup = nelems % 2; 2331 2331 2332 2332 const char *xp = (const char *) *xpp; … … 2348 2348 2349 2349 int 2350 ncmpix_pad_getn_short_double(const void **xpp, int64_t nelems, double *tp)2351 { 2352 const int64_t rndup = nelems % 2;2350 ncmpix_pad_getn_short_double(const void **xpp, MPI_Offset nelems, double *tp) 2351 { 2352 const MPI_Offset rndup = nelems % 2; 2353 2353 2354 2354 const char *xp = (const char *) *xpp; … … 2371 2371 2372 2372 int 2373 ncmpix_putn_short_schar(void **xpp, int64_t nelems, const schar *tp)2373 ncmpix_putn_short_schar(void **xpp, MPI_Offset nelems, const schar *tp) 2374 2374 { 2375 2375 char *xp = (char *) *xpp; … … 2388 2388 2389 2389 int 2390 ncmpix_putn_short_uchar(void **xpp, int64_t nelems, const uchar *tp)2390 ncmpix_putn_short_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 2391 2391 { 2392 2392 char *xp = (char *) *xpp; … … 2407 2407 /* optimized version */ 2408 2408 int 2409 ncmpix_putn_short_short(void **xpp, int64_t nelems, const short *tp)2409 ncmpix_putn_short_short(void **xpp, MPI_Offset nelems, const short *tp) 2410 2410 { 2411 2411 # ifdef WORDS_BIGENDIAN … … 2419 2419 #else 2420 2420 int 2421 ncmpix_putn_short_short(void **xpp, int64_t nelems, const short *tp)2421 ncmpix_putn_short_short(void **xpp, MPI_Offset nelems, const short *tp) 2422 2422 { 2423 2423 char *xp = (char *) *xpp; … … 2437 2437 #endif 2438 2438 int 2439 ncmpix_putn_short_int(void **xpp, int64_t nelems, const int *tp)2439 ncmpix_putn_short_int(void **xpp, MPI_Offset nelems, const int *tp) 2440 2440 { 2441 2441 char *xp = (char *) *xpp; … … 2454 2454 2455 2455 int 2456 ncmpix_putn_short_long(void **xpp, int64_t nelems, const long *tp)2456 ncmpix_putn_short_long(void **xpp, MPI_Offset nelems, const long *tp) 2457 2457 { 2458 2458 char *xp = (char *) *xpp; … … 2471 2471 2472 2472 int 2473 ncmpix_putn_short_float(void **xpp, int64_t nelems, const float *tp)2473 ncmpix_putn_short_float(void **xpp, MPI_Offset nelems, const float *tp) 2474 2474 { 2475 2475 char *xp = (char *) *xpp; … … 2488 2488 2489 2489 int 2490 ncmpix_putn_short_double(void **xpp, int64_t nelems, const double *tp)2490 ncmpix_putn_short_double(void **xpp, MPI_Offset nelems, const double *tp) 2491 2491 { 2492 2492 char *xp = (char *) *xpp; … … 2506 2506 2507 2507 int 2508 ncmpix_pad_putn_short_schar(void **xpp, int64_t nelems, const schar *tp)2509 { 2510 const int64_t rndup = nelems % 2;2508 ncmpix_pad_putn_short_schar(void **xpp, MPI_Offset nelems, const schar *tp) 2509 { 2510 const MPI_Offset rndup = nelems % 2; 2511 2511 2512 2512 char *xp = (char *) *xpp; … … 2531 2531 2532 2532 int 2533 ncmpix_pad_putn_short_uchar(void **xpp, int64_t nelems, const uchar *tp)2534 { 2535 const int64_t rndup = nelems % 2;2533 ncmpix_pad_putn_short_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 2534 { 2535 const MPI_Offset rndup = nelems % 2; 2536 2536 2537 2537 char *xp = (char *) *xpp; … … 2556 2556 2557 2557 int 2558 ncmpix_pad_putn_short_short(void **xpp, int64_t nelems, const short *tp)2559 { 2560 const int64_t rndup = nelems % 2;2558 ncmpix_pad_putn_short_short(void **xpp, MPI_Offset nelems, const short *tp) 2559 { 2560 const MPI_Offset rndup = nelems % 2; 2561 2561 2562 2562 char *xp = (char *) *xpp; … … 2581 2581 2582 2582 int 2583 ncmpix_pad_putn_short_int(void **xpp, int64_t nelems, const int *tp)2584 { 2585 const int64_t rndup = nelems % 2;2583 ncmpix_pad_putn_short_int(void **xpp, MPI_Offset nelems, const int *tp) 2584 { 2585 const MPI_Offset rndup = nelems % 2; 2586 2586 2587 2587 char *xp = (char *) *xpp; … … 2606 2606 2607 2607 int 2608 ncmpix_pad_putn_short_long(void **xpp, int64_t nelems, const long *tp)2609 { 2610 const int64_t rndup = nelems % 2;2608 ncmpix_pad_putn_short_long(void **xpp, MPI_Offset nelems, const long *tp) 2609 { 2610 const MPI_Offset rndup = nelems % 2; 2611 2611 2612 2612 char *xp = (char *) *xpp; … … 2631 2631 2632 2632 int 2633 ncmpix_pad_putn_short_float(void **xpp, int64_t nelems, const float *tp)2634 { 2635 const int64_t rndup = nelems % 2;2633 ncmpix_pad_putn_short_float(void **xpp, MPI_Offset nelems, const float *tp) 2634 { 2635 const MPI_Offset rndup = nelems % 2; 2636 2636 2637 2637 char *xp = (char *) *xpp; … … 2656 2656 2657 2657 int 2658 ncmpix_pad_putn_short_double(void **xpp, int64_t nelems, const double *tp)2659 { 2660 const int64_t rndup = nelems % 2;2658 ncmpix_pad_putn_short_double(void **xpp, MPI_Offset nelems, const double *tp) 2659 { 2660 const MPI_Offset rndup = nelems % 2; 2661 2661 2662 2662 char *xp = (char *) *xpp; … … 2685 2685 2686 2686 int 2687 ncmpix_getn_int_schar(const void **xpp, int64_t nelems, schar *tp)2687 ncmpix_getn_int_schar(const void **xpp, MPI_Offset nelems, schar *tp) 2688 2688 { 2689 2689 const char *xp = (const char *) *xpp; … … 2702 2702 2703 2703 int 2704 ncmpix_getn_int_uchar(const void **xpp, int64_t nelems, uchar *tp)2704 ncmpix_getn_int_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 2705 2705 { 2706 2706 const char *xp = (const char *) *xpp; … … 2719 2719 2720 2720 int 2721 ncmpix_getn_int_short(const void **xpp, int64_t nelems, short *tp)2721 ncmpix_getn_int_short(const void **xpp, MPI_Offset nelems, short *tp) 2722 2722 { 2723 2723 const char *xp = (const char *) *xpp; … … 2738 2738 /* optimized version */ 2739 2739 int 2740 ncmpix_getn_int_int(const void **xpp, int64_t nelems, int *tp)2740 ncmpix_getn_int_int(const void **xpp, MPI_Offset nelems, int *tp) 2741 2741 { 2742 2742 # ifdef WORDS_BIGENDIAN … … 2750 2750 #else 2751 2751 int 2752 ncmpix_getn_int_int(const void **xpp, int64_t nelems, int *tp)2752 ncmpix_getn_int_int(const void **xpp, MPI_Offset nelems, int *tp) 2753 2753 { 2754 2754 const char *xp = (const char *) *xpp; … … 2770 2770 /* optimized version */ 2771 2771 int 2772 ncmpix_getn_int_long(const void **xpp, int64_t nelems, long *tp)2772 ncmpix_getn_int_long(const void **xpp, MPI_Offset nelems, long *tp) 2773 2773 { 2774 2774 # ifdef WORDS_BIGENDIAN … … 2782 2782 #else 2783 2783 int 2784 ncmpix_getn_int_long(const void **xpp, int64_t nelems, long *tp)2784 ncmpix_getn_int_long(const void **xpp, MPI_Offset nelems, long *tp) 2785 2785 { 2786 2786 const char *xp = (const char *) *xpp; … … 2801 2801 2802 2802 int 2803 ncmpix_getn_long_long(const void **xpp, int64_t nelems, int64_t *tp)2803 ncmpix_getn_long_long(const void **xpp, MPI_Offset nelems, MPI_Offset *tp) 2804 2804 { 2805 2805 const char *xp = (const char *) *xpp; … … 2819 2819 2820 2820 int 2821 ncmpix_getn_int_float(const void **xpp, int64_t nelems, float *tp)2821 ncmpix_getn_int_float(const void **xpp, MPI_Offset nelems, float *tp) 2822 2822 { 2823 2823 const char *xp = (const char *) *xpp; … … 2836 2836 2837 2837 int 2838 ncmpix_getn_int_double(const void **xpp, int64_t nelems, double *tp)2838 ncmpix_getn_int_double(const void **xpp, MPI_Offset nelems, double *tp) 2839 2839 { 2840 2840 const char *xp = (const char *) *xpp; … … 2854 2854 2855 2855 int 2856 ncmpix_putn_int_schar(void **xpp, int64_t nelems, const schar *tp)2856 ncmpix_putn_int_schar(void **xpp, MPI_Offset nelems, const schar *tp) 2857 2857 { 2858 2858 char *xp = (char *) *xpp; … … 2871 2871 2872 2872 int 2873 ncmpix_putn_int_uchar(void **xpp, int64_t nelems, const uchar *tp)2873 ncmpix_putn_int_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 2874 2874 { 2875 2875 char *xp = (char *) *xpp; … … 2888 2888 2889 2889 int 2890 ncmpix_putn_int_short(void **xpp, int64_t nelems, const short *tp)2890 ncmpix_putn_int_short(void **xpp, MPI_Offset nelems, const short *tp) 2891 2891 { 2892 2892 char *xp = (char *) *xpp; … … 2907 2907 /* optimized version */ 2908 2908 int 2909 ncmpix_putn_int_int(void **xpp, int64_t nelems, const int *tp)2909 ncmpix_putn_int_int(void **xpp, MPI_Offset nelems, const int *tp) 2910 2910 { 2911 2911 # ifdef WORDS_BIGENDIAN … … 2919 2919 #else 2920 2920 int 2921 ncmpix_putn_int_int(void **xpp, int64_t nelems, const int *tp)2921 ncmpix_putn_int_int(void **xpp, MPI_Offset nelems, const int *tp) 2922 2922 { 2923 2923 char *xp = (char *) *xpp; … … 2939 2939 /* optimized version */ 2940 2940 int 2941 ncmpix_putn_int_long(void **xpp, int64_t nelems, const long *tp)2941 ncmpix_putn_int_long(void **xpp, MPI_Offset nelems, const long *tp) 2942 2942 { 2943 2943 # ifdef WORDS_BIGENDIAN … … 2951 2951 #else 2952 2952 int 2953 ncmpix_putn_int_long(void **xpp, int64_t nelems, const long *tp)2953 ncmpix_putn_int_long(void **xpp, MPI_Offset nelems, const long *tp) 2954 2954 { 2955 2955 char *xp = (char *) *xpp; … … 2969 2969 #endif 2970 2970 int 2971 ncmpix_putn_int_float(void **xpp, int64_t nelems, const float *tp)2971 ncmpix_putn_int_float(void **xpp, MPI_Offset nelems, const float *tp) 2972 2972 { 2973 2973 char *xp = (char *) *xpp; … … 2986 2986 2987 2987 int 2988 ncmpix_putn_int_double(void **xpp, int64_t nelems, const double *tp)2988 ncmpix_putn_int_double(void **xpp, MPI_Offset nelems, const double *tp) 2989 2989 { 2990 2990 char *xp = (char *) *xpp; … … 3007 3007 3008 3008 int 3009 ncmpix_getn_float_schar(const void **xpp, int64_t nelems, schar *tp)3009 ncmpix_getn_float_schar(const void **xpp, MPI_Offset nelems, schar *tp) 3010 3010 { 3011 3011 const char *xp = (const char *) *xpp; … … 3024 3024 3025 3025 int 3026 ncmpix_getn_float_uchar(const void **xpp, int64_t nelems, uchar *tp)3026 ncmpix_getn_float_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 3027 3027 { 3028 3028 const char *xp = (const char *) *xpp; … … 3041 3041 3042 3042 int 3043 ncmpix_getn_float_short(const void **xpp, int64_t nelems, short *tp)3043 ncmpix_getn_float_short(const void **xpp, MPI_Offset nelems, short *tp) 3044 3044 { 3045 3045 const char *xp = (const char *) *xpp; … … 3058 3058 3059 3059 int 3060 ncmpix_getn_float_int(const void **xpp, int64_t nelems, int *tp)3060 ncmpix_getn_float_int(const void **xpp, MPI_Offset nelems, int *tp) 3061 3061 { 3062 3062 const char *xp = (const char *) *xpp; … … 3075 3075 3076 3076 int 3077 ncmpix_getn_float_long(const void **xpp, int64_t nelems, long *tp)3077 ncmpix_getn_float_long(const void **xpp, MPI_Offset nelems, long *tp) 3078 3078 { 3079 3079 const char *xp = (const char *) *xpp; … … 3094 3094 /* optimized version */ 3095 3095 int 3096 ncmpix_getn_float_float(const void **xpp, int64_t nelems, float *tp)3096 ncmpix_getn_float_float(const void **xpp, MPI_Offset nelems, float *tp) 3097 3097 { 3098 3098 # ifdef WORDS_BIGENDIAN … … 3106 3106 #elif vax 3107 3107 int 3108 ncmpix_getn_float_float(const void **xpp, int64_t nfloats, float *ip)3108 ncmpix_getn_float_float(const void **xpp, MPI_Offset nfloats, float *ip) 3109 3109 { 3110 3110 float *const end = ip + nfloats; … … 3166 3166 #else 3167 3167 int 3168 ncmpix_getn_float_float(const void **xpp, int64_t nelems, float *tp)3168 ncmpix_getn_float_float(const void **xpp, MPI_Offset nelems, float *tp) 3169 3169 { 3170 3170 const char *xp = *xpp; … … 3184 3184 #endif 3185 3185 int 3186 ncmpix_getn_float_double(const void **xpp, int64_t nelems, double *tp)3186 ncmpix_getn_float_double(const void **xpp, MPI_Offset nelems, double *tp) 3187 3187 { 3188 3188 const char *xp = (const char *) *xpp; … … 3202 3202 3203 3203 int 3204 ncmpix_putn_float_schar(void **xpp, int64_t nelems, const schar *tp)3204 ncmpix_putn_float_schar(void **xpp, MPI_Offset nelems, const schar *tp) 3205 3205 { 3206 3206 char *xp = (char *) *xpp; … … 3219 3219 3220 3220 int 3221 ncmpix_putn_float_uchar(void **xpp, int64_t nelems, const uchar *tp)3221 ncmpix_putn_float_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 3222 3222 { 3223 3223 char *xp = (char *) *xpp; … … 3236 3236 3237 3237 int 3238 ncmpix_putn_float_short(void **xpp, int64_t nelems, const short *tp)3238 ncmpix_putn_float_short(void **xpp, MPI_Offset nelems, const short *tp) 3239 3239 { 3240 3240 char *xp = (char *) *xpp; … … 3253 3253 3254 3254 int 3255 ncmpix_putn_float_int(void **xpp, int64_t nelems, const int *tp)3255 ncmpix_putn_float_int(void **xpp, MPI_Offset nelems, const int *tp) 3256 3256 { 3257 3257 char *xp = (char *) *xpp; … … 3270 3270 3271 3271 int 3272 ncmpix_putn_float_long(void **xpp, int64_t nelems, const long *tp)3272 ncmpix_putn_float_long(void **xpp, MPI_Offset nelems, const long *tp) 3273 3273 { 3274 3274 char *xp = (char *) *xpp; … … 3289 3289 /* optimized version */ 3290 3290 int 3291 ncmpix_putn_float_float(void **xpp, int64_t nelems, const float *tp)3291 ncmpix_putn_float_float(void **xpp, MPI_Offset nelems, const float *tp) 3292 3292 { 3293 3293 # ifdef WORDS_BIGENDIAN … … 3301 3301 #elif vax 3302 3302 int 3303 ncmpix_putn_float_float(void **xpp, int64_t nfloats, const float *ip)3303 ncmpix_putn_float_float(void **xpp, MPI_Offset nfloats, const float *ip) 3304 3304 { 3305 3305 const float *const end = ip + nfloats; … … 3360 3360 #else 3361 3361 int 3362 ncmpix_putn_float_float(void **xpp, int64_t nelems, const float *tp)3362 ncmpix_putn_float_float(void **xpp, MPI_Offset nelems, const float *tp) 3363 3363 { 3364 3364 char *xp = *xpp; … … 3378 3378 #endif 3379 3379 int 3380 ncmpix_putn_float_double(void **xpp, int64_t nelems, const double *tp)3380 ncmpix_putn_float_double(void **xpp, MPI_Offset nelems, const double *tp) 3381 3381 { 3382 3382 char *xp = (char *) *xpp; … … 3399 3399 3400 3400 int 3401 ncmpix_getn_double_schar(const void **xpp, int64_t nelems, schar *tp)3401 ncmpix_getn_double_schar(const void **xpp, MPI_Offset nelems, schar *tp) 3402 3402 { 3403 3403 const char *xp = (const char *) *xpp; … … 3416 3416 3417 3417 int 3418 ncmpix_getn_double_uchar(const void **xpp, int64_t nelems, uchar *tp)3418 ncmpix_getn_double_uchar(const void **xpp, MPI_Offset nelems, uchar *tp) 3419 3419 { 3420 3420 const char *xp = (const char *) *xpp; … … 3433 3433 3434 3434 int 3435 ncmpix_getn_double_short(const void **xpp, int64_t nelems, short *tp)3435 ncmpix_getn_double_short(const void **xpp, MPI_Offset nelems, short *tp) 3436 3436 { 3437 3437 const char *xp = (const char *) *xpp; … … 3450 3450 3451 3451 int 3452 ncmpix_getn_double_int(const void **xpp, int64_t nelems, int *tp)3452 ncmpix_getn_double_int(const void **xpp, MPI_Offset nelems, int *tp) 3453 3453 { 3454 3454 const char *xp = (const char *) *xpp; … … 3467 3467 3468 3468 int 3469 ncmpix_getn_double_long(const void **xpp, int64_t nelems, long *tp)3469 ncmpix_getn_double_long(const void **xpp, MPI_Offset nelems, long *tp) 3470 3470 { 3471 3471 const char *xp = (const char *) *xpp; … … 3484 3484 3485 3485 int 3486 ncmpix_getn_double_float(const void **xpp, int64_t nelems, float *tp)3486 ncmpix_getn_double_float(const void **xpp, MPI_Offset nelems, float *tp) 3487 3487 { 3488 3488 const char *xp = (const char *) *xpp; … … 3503 3503 /* optimized version */ 3504 3504 int 3505 ncmpix_getn_double_double(const void **xpp, int64_t nelems, double *tp)3505 ncmpix_getn_double_double(const void **xpp, MPI_Offset nelems, double *tp) 3506 3506 { 3507 3507 # ifdef WORDS_BIGENDIAN … … 3515 3515 #elif vax 3516 3516 int 3517 ncmpix_getn_double_double(const void **xpp, int64_t ndoubles, double *ip)3517 ncmpix_getn_double_double(const void **xpp, MPI_Offset ndoubles, double *ip) 3518 3518 { 3519 3519 double *const end = ip + ndoubles; … … 3572 3572 #else 3573 3573 int 3574 ncmpix_getn_double_double(const void **xpp, int64_t nelems, double *tp)3574 ncmpix_getn_double_double(const void **xpp, MPI_Offset nelems, double *tp) 3575 3575 { 3576 3576 const char *xp = *xpp; … … 3591 3591 3592 3592 int 3593 ncmpix_putn_double_schar(void **xpp, int64_t nelems, const schar *tp)3593 ncmpix_putn_double_schar(void **xpp, MPI_Offset nelems, const schar *tp) 3594 3594 { 3595 3595 char *xp = (char *) *xpp; … … 3608 3608 3609 3609 int 3610 ncmpix_putn_double_uchar(void **xpp, int64_t nelems, const uchar *tp)3610 ncmpix_putn_double_uchar(void **xpp, MPI_Offset nelems, const uchar *tp) 3611 3611 { 3612 3612 char *xp = (char *) *xpp; … … 3625 3625 3626 3626 int 3627 ncmpix_putn_double_short(void **xpp, int64_t nelems, const short *tp)3627 ncmpix_putn_double_short(void **xpp, MPI_Offset nelems, const short *tp) 3628 3628 { 3629 3629 char *xp = (char *) *xpp; … … 3642 3642 3643 3643 int 3644 ncmpix_putn_double_int(void **xpp, int64_t nelems, const int *tp)3644 ncmpix_putn_double_int(void **xpp, MPI_Offset nelems, const int *tp) 3645 3645 { 3646 3646 char *xp = (char *) *xpp; … … 3659 3659 3660 3660 int 3661 ncmpix_putn_double_long(void **xpp, int64_t nelems, const long *tp)3661 ncmpix_putn_double_long(void **xpp, MPI_Offset nelems, const long *tp) 3662 3662 { 3663 3663 char *xp = (char *) *xpp; … … 3676 3676 3677 3677 int 3678 ncmpix_putn_double_float(void **xpp, int64_t nelems, const float *tp)3678 ncmpix_putn_double_float(void **xpp, MPI_Offset nelems, const float *tp) 3679 3679 { 3680 3680 char *xp = (char *) *xpp; … … 3695 3695 /* optimized version */ 3696 3696 int 3697 ncmpix_putn_double_double(void **xpp, int64_t nelems, const double *tp)3697 ncmpix_putn_double_double(void **xpp, MPI_Offset nelems, const double *tp) 3698 3698 { 3699 3699 # ifdef WORDS_BIGENDIAN … … 3707 3707 #elif vax 3708 3708 int 3709 ncmpix_putn_double_double(void **xpp, int64_t ndoubles, const double *ip)3709 ncmpix_putn_double_double(void **xpp, MPI_Offset ndoubles, const double *ip) 3710 3710 { 3711 3711 const double *const end = ip + ndoubles; … … 3782 3782 #else 3783 3783 int 3784 ncmpix_putn_double_double(void **xpp, int64_t nelems, const double *tp)3784 ncmpix_putn_double_double(void **xpp, MPI_Offset nelems, const double *tp) 3785 3785 { 3786 3786 char *xp = *xpp; … … 3808 3808 3809 3809 int 3810 ncmpix_getn_text(const void **xpp, int64_t nelems, char *tp)3810 ncmpix_getn_text(const void **xpp, MPI_Offset nelems, char *tp) 3811 3811 { 3812 3812 (void) memcpy(tp, *xpp, nelems); … … 3817 3817 3818 3818 int 3819 ncmpix_pad_getn_text(const void **xpp, int64_t nelems, char *tp)3820 { 3821 int64_t rndup = nelems % X_ALIGN;3819 ncmpix_pad_getn_text(const void **xpp, MPI_Offset nelems, char *tp) 3820 { 3821 MPI_Offset rndup = nelems % X_ALIGN; 3822 3822 3823 3823 if(rndup) … … 3832 3832 3833 3833 int 3834 ncmpix_putn_text(void **xpp, int64_t nelems, const char *tp)3834 ncmpix_putn_text(void **xpp, MPI_Offset nelems, const char *tp) 3835 3835 { 3836 3836 (void) memcpy(*xpp, tp, nelems); … … 3842 3842 3843 3843 int 3844 ncmpix_pad_putn_text(void **xpp, int64_t nelems, const char *tp)3845 { 3846 int64_t rndup = nelems % X_ALIGN;3844 ncmpix_pad_putn_text(void **xpp, MPI_Offset nelems, const char *tp) 3845 { 3846 MPI_Offset rndup = nelems % X_ALIGN; 3847 3847 3848 3848 if(rndup) … … 3866 3866 3867 3867 int 3868 ncmpix_getn_void(const void **xpp, int64_t nelems, void *tp)3868 ncmpix_getn_void(const void **xpp, MPI_Offset nelems, void *tp) 3869 3869 { 3870 3870 (void) memcpy(tp, *xpp, nelems); … … 3875 3875 3876 3876 int 3877 ncmpix_pad_getn_void(const void **xpp, int64_t nelems, void *tp)3878 { 3879 int64_t rndup = nelems % X_ALIGN;3877 ncmpix_pad_getn_void(const void **xpp, MPI_Offset nelems, void *tp) 3878 { 3879 MPI_Offset rndup = nelems % X_ALIGN; 3880 3880 3881 3881 if(rndup) … … 3890 3890 3891 3891 int 3892 ncmpix_putn_void(void **xpp, int64_t nelems, const void *tp)3892 ncmpix_putn_void(void **xpp, MPI_Offset nelems, const void *tp) 3893 3893 { 3894 3894 (void) memcpy(*xpp, tp, nelems); … … 3900 3900 3901 3901 int 3902 ncmpix_pad_putn_void(void **xpp, int64_t nelems, const void *tp)3903 { 3904 int64_t rndup = nelems % X_ALIGN;3902 ncmpix_pad_putn_void(void **xpp, MPI_Offset nelems, const void *tp) 3903 { 3904 MPI_Offset rndup = nelems % X_ALIGN; 3905 3905 3906 3906 if(rndup) trunk/CDF3/src/lib/ncx.h
r622 r625 364 364 /* ncx_get_int_size_t */ 365 365 extern int 366 ncmpix_get_size_t(const void **xpp, int64_t *ulp, int sizeof_off_t);366 ncmpix_get_size_t(const void **xpp, MPI_Offset *ulp, MPI_Offset sizeof_off_t); 367 367 /* ncx_get_int_off_t */ 368 368 extern int 369 ncmpix_get_off_t(const void **xpp, int64_t *lp, int sizeof_off_t);369 ncmpix_get_off_t(const void **xpp, MPI_Offset *lp, MPI_Offset sizeof_off_t); 370 370 371 371 /* ncx_put_int_size_t */ 372 372 extern int 373 ncmpix_put_size_t(void **xpp, const int64_t *ulp, int sizeof_off_t);373 ncmpix_put_size_t(void **xpp, const MPI_Offset *ulp, MPI_Offset sizeof_off_t); 374 374 /* ncx_put_int_off_t */ 375 375 extern int 376 ncmpix_put_off_t(void **xpp, const int64_t *lp, int sizeof_off_t);376 ncmpix_put_off_t(void **xpp, const MPI_Offset *lp, MPI_Offset sizeof_off_t); 377 377 378 378 … … 418 418 419 419 extern int 420 ncmpix_getn_schar_schar(const void **xpp, int64_t nelems, schar *ip);421 extern int 422 ncmpix_getn_schar_uchar(const void **xpp, int64_t nelems, uchar *ip);423 extern int 424 ncmpix_getn_schar_short(const void **xpp, int64_t nelems, short *ip);425 extern int 426 ncmpix_getn_schar_int(const void **xpp, int64_t nelems, int *ip);427 extern int 428 ncmpix_getn_schar_long(const void **xpp, int64_t nelems, long *ip);429 extern int 430 ncmpix_getn_schar_float(const void **xpp, int64_t nelems, float *ip);431 extern int 432 ncmpix_getn_schar_double(const void **xpp, int64_t nelems, double *ip);433 434 extern int 435 ncmpix_pad_getn_schar_schar(const void **xpp, int64_t nelems, schar *ip);436 extern int 437 ncmpix_pad_getn_schar_uchar(const void **xpp, int64_t nelems, uchar *ip);438 extern int 439 ncmpix_pad_getn_schar_short(const void **xpp, int64_t nelems, short *ip);440 extern int 441 ncmpix_pad_getn_schar_int(const void **xpp, int64_t nelems, int *ip);442 extern int 443 ncmpix_pad_getn_schar_long(const void **xpp, int64_t nelems, long *ip);444 extern int 445 ncmpix_pad_getn_schar_float(const void **xpp, int64_t nelems, float *ip);446 extern int 447 ncmpix_pad_getn_schar_double(const void **xpp, int64_t nelems, double *ip);448 449 extern int 450 ncmpix_putn_schar_schar(void **xpp, int64_t nelems, const schar *ip);451 extern int 452 ncmpix_putn_schar_uchar(void **xpp, int64_t nelems, const uchar *ip);453 extern int 454 ncmpix_putn_schar_short(void **xpp, int64_t nelems, const short *ip);455 extern int 456 ncmpix_putn_schar_int(void **xpp, int64_t nelems, const int *ip);457 extern int 458 ncmpix_putn_schar_long(void **xpp, int64_t nelems, const long *ip);459 extern int 460 ncmpix_putn_schar_float(void **xpp, int64_t nelems, const float *ip);461 extern int 462 ncmpix_putn_schar_double(void **xpp, int64_t nelems, const double *ip);463 464 extern int 465 ncmpix_pad_putn_schar_schar(void **xpp, int64_t nelems, const schar *ip);466 extern int 467 ncmpix_pad_putn_schar_uchar(void **xpp, int64_t nelems, const uchar *ip);468 extern int 469 ncmpix_pad_putn_schar_short(void **xpp, int64_t nelems, const short *ip);470 extern int 471 ncmpix_pad_putn_schar_int(void **xpp, int64_t nelems, const int *ip);472 extern int 473 ncmpix_pad_putn_schar_long(void **xpp, int64_t nelems, const long *ip);474 extern int 475 ncmpix_pad_putn_schar_float(void **xpp, int64_t nelems, const float *ip);476 extern int 477 ncmpix_pad_putn_schar_double(void **xpp, int64_t nelems, const double *ip);478 479 480 extern int 481 ncmpix_getn_short_schar(const void **xpp, int64_t nelems, schar *ip);482 extern int 483 ncmpix_getn_short_uchar(const void **xpp, int64_t nelems, uchar *ip);484 extern int 485 ncmpix_getn_short_short(const void **xpp, int64_t nelems, short *ip);486 extern int 487 ncmpix_getn_short_int(const void **xpp, int64_t nelems, int *ip);488 extern int 489 ncmpix_getn_short_long(const void **xpp, int64_t nelems, long *ip);490 extern int 491 ncmpix_getn_short_float(const void **xpp, int64_t nelems, float *ip);492 extern int 493 ncmpix_getn_short_double(const void **xpp, int64_t nelems, double *ip);494 495 extern int 496 ncmpix_pad_getn_short_schar(const void **xpp, int64_t nelems, schar *ip);497 extern int 498 ncmpix_pad_getn_short_uchar(const void **xpp, int64_t nelems, uchar *ip);499 extern int 500 ncmpix_pad_getn_short_short(const void **xpp, int64_t nelems, short *ip);501 extern int 502 ncmpix_pad_getn_short_int(const void **xpp, int64_t nelems, int *ip);503 extern int 504 ncmpix_pad_getn_short_long(const void **xpp, int64_t nelems, long *ip);505 extern int 506 ncmpix_pad_getn_short_float(const void **xpp, int64_t nelems, float *ip);507 extern int 508 ncmpix_pad_getn_short_double(const void **xpp, int64_t nelems, double *ip);509 510 extern int 511 ncmpix_putn_short_schar(void **xpp, int64_t nelems, const schar *ip);512 extern int 513 ncmpix_putn_short_uchar(void **xpp, int64_t nelems, const uchar *ip);514 extern int 515 ncmpix_putn_short_short(void **xpp, int64_t nelems, const short *ip);516 extern int 517 ncmpix_putn_short_int(void **xpp, int64_t nelems, const int *ip);518 extern int 519 ncmpix_putn_short_long(void **xpp, int64_t nelems, const long *ip);520 extern int 521 ncmpix_putn_short_float(void **xpp, int64_t nelems, const float *ip);522 extern int 523 ncmpix_putn_short_double(void **xpp, int64_t nelems, const double *ip);524 525 extern int 526 ncmpix_pad_putn_short_schar(void **xpp, int64_t nelems, const schar *ip);527 extern int 528 ncmpix_pad_putn_short_uchar(void **xpp, int64_t nelems, const uchar *ip);529 extern int 530 ncmpix_pad_putn_short_short(void **xpp, int64_t nelems, const short *ip);531 extern int 532 ncmpix_pad_putn_short_int(void **xpp, int64_t nelems, const int *ip);533 extern int 534 ncmpix_pad_putn_short_long(void **xpp, int64_t nelems, const long *ip);535 extern int 536 ncmpix_pad_putn_short_float(void **xpp, int64_t nelems, const float *ip);537 extern int 538 ncmpix_pad_putn_short_double(void **xpp, int64_t nelems, const double *ip);539 540 541 extern int 542 ncmpix_getn_int_schar(const void **xpp, int64_t nelems, schar *ip);543 extern int 544 ncmpix_getn_int_uchar(const void **xpp, int64_t nelems, uchar *ip);545 extern int 546 ncmpix_getn_int_short(const void **xpp, int64_t nelems, short *ip);547 extern int 548 ncmpix_getn_int_int(const void **xpp, int64_t nelems, int *ip);549 extern int 550 ncmpix_getn_int_long(const void **xpp, int64_t nelems, long *ip);551 extern int 552 ncmpix_getn_long_long(const void **xpp, int64_t nelems, int64_t *ip);553 extern int 554 ncmpix_getn_int_float(const void **xpp, int64_t nelems, float *ip);555 extern int 556 ncmpix_getn_int_double(const void **xpp, int64_t nelems, double *ip);557 558 extern int 559 ncmpix_putn_int_schar(void **xpp, int64_t nelems, const schar *ip);560 extern int 561 ncmpix_putn_int_uchar(void **xpp, int64_t nelems, const uchar *ip);562 extern int 563 ncmpix_putn_int_short(void **xpp, int64_t nelems, const short *ip);564 extern int 565 ncmpix_putn_int_int(void **xpp, int64_t nelems, const int *ip);566 extern int 567 ncmpix_putn_int_long(void **xpp, int64_t nelems, const long *ip);568 extern int 569 ncmpix_putn_int_float(void **xpp, int64_t nelems, const float *ip);570 extern int 571 ncmpix_putn_int_double(void **xpp, int64_t nelems, const double *ip);572 573 574 extern int 575 ncmpix_getn_float_schar(const void **xpp, int64_t nelems, schar *ip);576 extern int 577 ncmpix_getn_float_uchar(const void **xpp, int64_t nelems, uchar *ip);578 extern int 579 ncmpix_getn_float_short(const void **xpp, int64_t nelems, short *ip);580 extern int 581 ncmpix_getn_float_int(const void **xpp, int64_t nelems, int *ip);582 extern int 583 ncmpix_getn_float_long(const void **xpp, int64_t nelems, long *ip);584 extern int 585 ncmpix_getn_float_float(const void **xpp, int64_t nelems, float *ip);586 extern int 587 ncmpix_getn_float_double(const void **xpp, int64_t nelems, double *ip);588 589 extern int 590 ncmpix_putn_float_schar(void **xpp, int64_t nelems, const schar *ip);591 extern int 592 ncmpix_putn_float_uchar(void **xpp, int64_t nelems, const uchar *ip);593 extern int 594 ncmpix_putn_float_short(void **xpp, int64_t nelems, const short *ip);595 extern int 596 ncmpix_putn_float_int(void **xpp, int64_t nelems, const int *ip);597 extern int 598 ncmpix_putn_float_long(void **xpp, int64_t nelems, const long *ip);599 extern int 600 ncmpix_putn_float_float(void **xpp, int64_t nelems, const float *ip);601 extern int 602 ncmpix_putn_float_double(void **xpp, int64_t nelems, const double *ip);603 604 605 extern int 606 ncmpix_getn_double_schar(const void **xpp, int64_t nelems, schar *ip);607 extern int 608 ncmpix_getn_double_uchar(const void **xpp, int64_t nelems, uchar *ip);609 extern int 610 ncmpix_getn_double_short(const void **xpp, int64_t nelems, short *ip);611 extern int 612 ncmpix_getn_double_int(const void **xpp, int64_t nelems, int *ip);613 extern int 614 ncmpix_getn_double_long(const void **xpp, int64_t nelems, long *ip);615 extern int 616 ncmpix_getn_double_float(const void **xpp, int64_t nelems, float *ip);617 extern int 618 ncmpix_getn_double_double(const void **xpp, int64_t nelems, double *ip);619 620 extern int 621 ncmpix_putn_double_schar(void **xpp, int64_t nelems, const schar *ip);622 extern int 623 ncmpix_putn_double_uchar(void **xpp, int64_t nelems, const uchar *ip);624 extern int 625 ncmpix_putn_double_short(void **xpp, int64_t nelems, const short *ip);626 extern int 627 ncmpix_putn_double_int(void **xpp, int64_t nelems, const int *ip);628 extern int 629 ncmpix_putn_double_long(void **xpp, int64_t nelems, const long *ip);630 extern int 631 ncmpix_putn_double_float(void **xpp, int64_t nelems, const float *ip);632 extern int 633 ncmpix_putn_double_double(void **xpp, int64_t nelems, const double *ip);420 ncmpix_getn_schar_schar(const void **xpp, MPI_Offset nelems, schar *ip); 421 extern int 422 ncmpix_getn_schar_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 423 extern int 424 ncmpix_getn_schar_short(const void **xpp, MPI_Offset nelems, short *ip); 425 extern int 426 ncmpix_getn_schar_int(const void **xpp, MPI_Offset nelems, int *ip); 427 extern int 428 ncmpix_getn_schar_long(const void **xpp, MPI_Offset nelems, long *ip); 429 extern int 430 ncmpix_getn_schar_float(const void **xpp, MPI_Offset nelems, float *ip); 431 extern int 432 ncmpix_getn_schar_double(const void **xpp, MPI_Offset nelems, double *ip); 433 434 extern int 435 ncmpix_pad_getn_schar_schar(const void **xpp, MPI_Offset nelems, schar *ip); 436 extern int 437 ncmpix_pad_getn_schar_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 438 extern int 439 ncmpix_pad_getn_schar_short(const void **xpp, MPI_Offset nelems, short *ip); 440 extern int 441 ncmpix_pad_getn_schar_int(const void **xpp, MPI_Offset nelems, int *ip); 442 extern int 443 ncmpix_pad_getn_schar_long(const void **xpp, MPI_Offset nelems, long *ip); 444 extern int 445 ncmpix_pad_getn_schar_float(const void **xpp, MPI_Offset nelems, float *ip); 446 extern int 447 ncmpix_pad_getn_schar_double(const void **xpp, MPI_Offset nelems, double *ip); 448 449 extern int 450 ncmpix_putn_schar_schar(void **xpp, MPI_Offset nelems, const schar *ip); 451 extern int 452 ncmpix_putn_schar_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 453 extern int 454 ncmpix_putn_schar_short(void **xpp, MPI_Offset nelems, const short *ip); 455 extern int 456 ncmpix_putn_schar_int(void **xpp, MPI_Offset nelems, const int *ip); 457 extern int 458 ncmpix_putn_schar_long(void **xpp, MPI_Offset nelems, const long *ip); 459 extern int 460 ncmpix_putn_schar_float(void **xpp, MPI_Offset nelems, const float *ip); 461 extern int 462 ncmpix_putn_schar_double(void **xpp, MPI_Offset nelems, const double *ip); 463 464 extern int 465 ncmpix_pad_putn_schar_schar(void **xpp, MPI_Offset nelems, const schar *ip); 466 extern int 467 ncmpix_pad_putn_schar_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 468 extern int 469 ncmpix_pad_putn_schar_short(void **xpp, MPI_Offset nelems, const short *ip); 470 extern int 471 ncmpix_pad_putn_schar_int(void **xpp, MPI_Offset nelems, const int *ip); 472 extern int 473 ncmpix_pad_putn_schar_long(void **xpp, MPI_Offset nelems, const long *ip); 474 extern int 475 ncmpix_pad_putn_schar_float(void **xpp, MPI_Offset nelems, const float *ip); 476 extern int 477 ncmpix_pad_putn_schar_double(void **xpp, MPI_Offset nelems, const double *ip); 478 479 480 extern int 481 ncmpix_getn_short_schar(const void **xpp, MPI_Offset nelems, schar *ip); 482 extern int 483 ncmpix_getn_short_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 484 extern int 485 ncmpix_getn_short_short(const void **xpp, MPI_Offset nelems, short *ip); 486 extern int 487 ncmpix_getn_short_int(const void **xpp, MPI_Offset nelems, int *ip); 488 extern int 489 ncmpix_getn_short_long(const void **xpp, MPI_Offset nelems, long *ip); 490 extern int 491 ncmpix_getn_short_float(const void **xpp, MPI_Offset nelems, float *ip); 492 extern int 493 ncmpix_getn_short_double(const void **xpp, MPI_Offset nelems, double *ip); 494 495 extern int 496 ncmpix_pad_getn_short_schar(const void **xpp, MPI_Offset nelems, schar *ip); 497 extern int 498 ncmpix_pad_getn_short_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 499 extern int 500 ncmpix_pad_getn_short_short(const void **xpp, MPI_Offset nelems, short *ip); 501 extern int 502 ncmpix_pad_getn_short_int(const void **xpp, MPI_Offset nelems, int *ip); 503 extern int 504 ncmpix_pad_getn_short_long(const void **xpp, MPI_Offset nelems, long *ip); 505 extern int 506 ncmpix_pad_getn_short_float(const void **xpp, MPI_Offset nelems, float *ip); 507 extern int 508 ncmpix_pad_getn_short_double(const void **xpp, MPI_Offset nelems, double *ip); 509 510 extern int 511 ncmpix_putn_short_schar(void **xpp, MPI_Offset nelems, const schar *ip); 512 extern int 513 ncmpix_putn_short_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 514 extern int 515 ncmpix_putn_short_short(void **xpp, MPI_Offset nelems, const short *ip); 516 extern int 517 ncmpix_putn_short_int(void **xpp, MPI_Offset nelems, const int *ip); 518 extern int 519 ncmpix_putn_short_long(void **xpp, MPI_Offset nelems, const long *ip); 520 extern int 521 ncmpix_putn_short_float(void **xpp, MPI_Offset nelems, const float *ip); 522 extern int 523 ncmpix_putn_short_double(void **xpp, MPI_Offset nelems, const double *ip); 524 525 extern int 526 ncmpix_pad_putn_short_schar(void **xpp, MPI_Offset nelems, const schar *ip); 527 extern int 528 ncmpix_pad_putn_short_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 529 extern int 530 ncmpix_pad_putn_short_short(void **xpp, MPI_Offset nelems, const short *ip); 531 extern int 532 ncmpix_pad_putn_short_int(void **xpp, MPI_Offset nelems, const int *ip); 533 extern int 534 ncmpix_pad_putn_short_long(void **xpp, MPI_Offset nelems, const long *ip); 535 extern int 536 ncmpix_pad_putn_short_float(void **xpp, MPI_Offset nelems, const float *ip); 537 extern int 538 ncmpix_pad_putn_short_double(void **xpp, MPI_Offset nelems, const double *ip); 539 540 541 extern int 542 ncmpix_getn_int_schar(const void **xpp, MPI_Offset nelems, schar *ip); 543 extern int 544 ncmpix_getn_int_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 545 extern int 546 ncmpix_getn_int_short(const void **xpp, MPI_Offset nelems, short *ip); 547 extern int 548 ncmpix_getn_int_int(const void **xpp, MPI_Offset nelems, int *ip); 549 extern int 550 ncmpix_getn_int_long(const void **xpp, MPI_Offset nelems, long *ip); 551 extern int 552 ncmpix_getn_long_long(const void **xpp, MPI_Offset nelems, MPI_Offset *ip); 553 extern int 554 ncmpix_getn_int_float(const void **xpp, MPI_Offset nelems, float *ip); 555 extern int 556 ncmpix_getn_int_double(const void **xpp, MPI_Offset nelems, double *ip); 557 558 extern int 559 ncmpix_putn_int_schar(void **xpp, MPI_Offset nelems, const schar *ip); 560 extern int 561 ncmpix_putn_int_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 562 extern int 563 ncmpix_putn_int_short(void **xpp, MPI_Offset nelems, const short *ip); 564 extern int 565 ncmpix_putn_int_int(void **xpp, MPI_Offset nelems, const int *ip); 566 extern int 567 ncmpix_putn_int_long(void **xpp, MPI_Offset nelems, const long *ip); 568 extern int 569 ncmpix_putn_int_float(void **xpp, MPI_Offset nelems, const float *ip); 570 extern int 571 ncmpix_putn_int_double(void **xpp, MPI_Offset nelems, const double *ip); 572 573 574 extern int 575 ncmpix_getn_float_schar(const void **xpp, MPI_Offset nelems, schar *ip); 576 extern int 577 ncmpix_getn_float_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 578 extern int 579 ncmpix_getn_float_short(const void **xpp, MPI_Offset nelems, short *ip); 580 extern int 581 ncmpix_getn_float_int(const void **xpp, MPI_Offset nelems, int *ip); 582 extern int 583 ncmpix_getn_float_long(const void **xpp, MPI_Offset nelems, long *ip); 584 extern int 585 ncmpix_getn_float_float(const void **xpp, MPI_Offset nelems, float *ip); 586 extern int 587 ncmpix_getn_float_double(const void **xpp, MPI_Offset nelems, double *ip); 588 589 extern int 590 ncmpix_putn_float_schar(void **xpp, MPI_Offset nelems, const schar *ip); 591 extern int 592 ncmpix_putn_float_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 593 extern int 594 ncmpix_putn_float_short(void **xpp, MPI_Offset nelems, const short *ip); 595 extern int 596 ncmpix_putn_float_int(void **xpp, MPI_Offset nelems, const int *ip); 597 extern int 598 ncmpix_putn_float_long(void **xpp, MPI_Offset nelems, const long *ip); 599 extern int 600 ncmpix_putn_float_float(void **xpp, MPI_Offset nelems, const float *ip); 601 extern int 602 ncmpix_putn_float_double(void **xpp, MPI_Offset nelems, const double *ip); 603 604 605 extern int 606 ncmpix_getn_double_schar(const void **xpp, MPI_Offset nelems, schar *ip); 607 extern int 608 ncmpix_getn_double_uchar(const void **xpp, MPI_Offset nelems, uchar *ip); 609 extern int 610 ncmpix_getn_double_short(const void **xpp, MPI_Offset nelems, short *ip); 611 extern int 612 ncmpix_getn_double_int(const void **xpp, MPI_Offset nelems, int *ip); 613 extern int 614 ncmpix_getn_double_long(const void **xpp, MPI_Offset nelems, long *ip); 615 extern int 616 ncmpix_getn_double_float(const void **xpp, MPI_Offset nelems, float *ip); 617 extern int 618 ncmpix_getn_double_double(const void **xpp, MPI_Offset nelems, double *ip); 619 620 extern int 621 ncmpix_putn_double_schar(void **xpp, MPI_Offset nelems, const schar *ip); 622 extern int 623 ncmpix_putn_double_uchar(void **xpp, MPI_Offset nelems, const uchar *ip); 624 extern int 625 ncmpix_putn_double_short(void **xpp, MPI_Offset nelems, const short *ip); 626 extern int 627 ncmpix_putn_double_int(void **xpp, MPI_Offset nelems, const int *ip); 628 extern int 629 ncmpix_putn_double_long(void **xpp, MPI_Offset nelems, const long *ip); 630 extern int 631 ncmpix_putn_double_float(void **xpp, MPI_Offset nelems, const float *ip); 632 extern int 633 ncmpix_putn_double_double(void **xpp, MPI_Offset nelems, const double *ip); 634 634 635 635 … … 640 640 /* read ASCII characters */ 641 641 extern int 642 ncmpix_getn_text(const void **xpp, int64_t nchars, char *cp);643 extern int 644 ncmpix_pad_getn_text(const void **xpp, int64_t nchars, char *cp);642 ncmpix_getn_text(const void **xpp, MPI_Offset nchars, char *cp); 643 extern int 644 ncmpix_pad_getn_text(const void **xpp, MPI_Offset nchars, char *cp); 645 645 646 646 /* write ASCII characters */ 647 647 extern int 648 ncmpix_putn_text(void **xpp, int64_t nchars, const char *cp);649 extern int 650 ncmpix_pad_putn_text(void **xpp, int64_t nchars, const char *cp);648 ncmpix_putn_text(void **xpp, MPI_Offset nchars, const char *cp); 649 extern int 650 ncmpix_pad_putn_text(void **xpp, MPI_Offset nchars, const char *cp); 651 651 652 652 /* for symmetry */ … … 656 656 /* read opaque data */ 657 657 extern int 658 ncmpix_getn_void(const void **xpp, int64_t nchars, void *vp);659 extern int 660 ncmpix_pad_getn_void(const void **xpp, int64_t nchars, void *vp);658 ncmpix_getn_void(const void **xpp, MPI_Offset nchars, void *vp); 659 extern int 660 ncmpix_pad_getn_void(const void **xpp, MPI_Offset nchars, void *vp); 661 661 662 662 /* write opaque data */ 663 663 extern int 664 ncmpix_putn_void(void **xpp, int64_t nchars, const void *vp);665 extern int 666 ncmpix_pad_putn_void(void **xpp, int64_t nchars, const void *vp);664 ncmpix_putn_void(void **xpp, MPI_Offset nchars, const void *vp); 665 extern int 666 ncmpix_pad_putn_void(void **xpp, MPI_Offset nchars, const void *vp); 667 667 668 668 #endif /* _NCX_H_ */ trunk/CDF3/src/lib/pnetcdf.h
r616 r625 70 70 void *cbuf; 71 71 void *lbuf; 72 int64_t nelems;73 int64_t cnelems;74 int64_t lnelems;72 MPI_Offset nelems; 73 MPI_Offset cnelems; 74 MPI_Offset lnelems; 75 75 int iscontig_of_ptypes; 76 76 void *buf; 77 int64_t bufcount;77 MPI_Offset bufcount; 78 78 MPI_Datatype datatype; 79 79 MPI_Datatype ptype; … … 130 130 #define NC_FORMAT_CLASSIC 1 131 131 #define NC_FORMAT_64BIT 2 132 #define NC_FORMAT_64BIT_DATA 3132 #define NC_FORMAT_64BIT_DATA 5 133 133 134 134 /* … … 159 159 * these sizes internally. 160 160 */ 161 #define NC_MAX_DIMS 4096 /* max dimensions per file */ 162 /* #define NC_MAX_DIMS 214783648 */ /* max dimensions per file */ 161 #define NC_MAX_DIMS 512 /* max dimensions per file */ 163 162 #define NC_MAX_ATTRS 4096 /* max global or per variable attributes */ 164 163 #define NC_MAX_VARS 4096 /* max variables per file */ … … 168 167 169 168 /* 170 * The netcdf version 3functions all return integer error status.169 * The netcdf version 5 functions all return integer error status. 171 170 * These are the possible values, in addition to certain 172 171 * values from the system errno.h. … … 289 288 290 289 291 int ncmpi_def_dim(int ncid, const char *name, int64_t len, int64_t *idp);290 int ncmpi_def_dim(int ncid, const char *name, MPI_Offset len, int *idp); 292 291 293 292 294 293 int ncmpi_def_var(int ncid, const char *name, nc_type xtype, 295 int 64_t ndims, const int64_t *dimidsp, int64_t *varidp);296 297 298 int ncmpi_rename_dim(int ncid, int 64_tdimid, const char *name);299 300 301 int ncmpi_rename_var(int ncid, int 64_tvarid, const char *name);294 int ndims, const int *dimidsp, int *varidp); 295 296 297 int ncmpi_rename_dim(int ncid, int dimid, const char *name); 298 299 300 int ncmpi_rename_var(int ncid, int varid, const char *name); 302 301 303 302 /* End Define Mode Functions */ … … 308 307 ncmpi_inq_libvers(void); 309 308 310 int ncmpi_inq(int ncid, int 64_t *ndimsp, int64_t *nvarsp,311 int 64_t *ngattsp, int64_t *unlimdimidp);309 int ncmpi_inq(int ncid, int *ndimsp, int *nvarsp, 310 int *ngattsp, int *unlimdimidp); 312 311 313 312 314 313 int ncmpi_inq_version(int ncid, int *NC_mode); 315 314 316 int ncmpi_inq_ndims(int ncid, int 64_t*ndimsp);317 318 319 int ncmpi_inq_nvars(int ncid, int 64_t*nvarsp);320 321 322 int ncmpi_inq_natts(int ncid, int 64_t*ngattsp);323 324 325 int ncmpi_inq_unlimdim(int ncid, int 64_t*unlimdimidp);326 327 328 int ncmpi_inq_dimid(int ncid, const char *name, int 64_t*idp);329 330 331 int ncmpi_inq_dim(int ncid, int 64_t dimid, char *name, int64_t *lenp);332 333 334 int ncmpi_inq_dimname(int ncid, int 64_tdimid, char *name);335 336 337 int ncmpi_inq_dimlen(int ncid, int 64_t dimid, int64_t *lenp);338 339 340 int ncmpi_inq_var(int ncid, int 64_tvarid, char *name,341 nc_type *xtypep, int 64_t *ndimsp, int64_t *dimidsp,342 int 64_t*nattsp);343 344 345 int ncmpi_inq_varid(int ncid, const char *name, int 64_t*varidp);346 347 348 int ncmpi_inq_varname(int ncid, int 64_tvarid, char *name);349 350 351 int ncmpi_inq_vartype(int ncid, int 64_tvarid, nc_type *xtypep);352 353 int ncmpi_inq_varndims(int ncid, int 64_t varid, int64_t *ndimsp);354 355 356 int ncmpi_inq_vardimid(int ncid, int 64_t varid, int64_t *dimidsp);357 358 359 int ncmpi_inq_varnatts(int ncid, int 64_t varid, int64_t *nattsp);315 int ncmpi_inq_ndims(int ncid, int *ndimsp); 316 317 318 int ncmpi_inq_nvars(int ncid, int *nvarsp); 319 320 321 int ncmpi_inq_natts(int ncid, int *ngattsp); 322 323 324 int ncmpi_inq_unlimdim(int ncid, int *unlimdimidp); 325 326 327 int ncmpi_inq_dimid(int ncid, const char *name, int *idp); 328 329 330 int ncmpi_inq_dim(int ncid, int dimid, char *name, MPI_Offset *lenp); 331 332 333 int ncmpi_inq_dimname(int ncid, int dimid, char *name); 334 335 336 int ncmpi_inq_dimlen(int ncid, int dimid, MPI_Offset *lenp); 337 338 339 int ncmpi_inq_var(int ncid, int varid, char *name, 340 nc_type *xtypep, int *ndimsp, int *dimidsp, 341 int *nattsp); 342 343 344 int ncmpi_inq_varid(int ncid, const char *name, int *varidp); 345 346 347 int ncmpi_inq_varname(int ncid, int varid, char *name); 348 349 350 int ncmpi_inq_vartype(int ncid, int varid, nc_type *xtypep); 351 352 int ncmpi_inq_varndims(int ncid, int varid, int *ndimsp); 353 354 355 int ncmpi_inq_vardimid(int ncid, int varid, int *dimidsp); 356 357 358 int ncmpi_inq_varnatts(int ncid, int varid, int *nattsp); 360 359 361 360 /* End Inquiry Functions */ … … 364 363 365 364 366 int ncmpi_inq_att(int ncid, int 64_tvarid, const char *name,367 nc_type *xtypep, int64_t *lenp);368 369 370 int ncmpi_inq_attid(int ncid, int 64_t varid, const char *name, int64_t *idp);371 372 373 int ncmpi_inq_atttype(int ncid, int 64_tvarid, const char *name,365 int ncmpi_inq_att(int ncid, int varid, const char *name, 366 nc_type *xtypep, MPI_Offset *lenp); 367 368 369 int ncmpi_inq_attid(int ncid, int varid, const char *name, int *idp); 370 371 372 int ncmpi_inq_atttype(int ncid, int varid, const char *name, 374 373 nc_type *xtypep); 375 374 376 375 377 int ncmpi_inq_attlen(int ncid, int 64_tvarid, const char *name,378 int64_t *lenp);379 380 381 int ncmpi_inq_attname(int ncid, int 64_t varid, int64_t attnum, char *name);382 383 384 int ncmpi_copy_att(int ncid_in, int 64_tvarid_in, const char *name,385 int 64_t ncid_out, int64_t varid_out);386 387 388 int ncmpi_rename_att(int ncid, int 64_tvarid, const char *name,376 int ncmpi_inq_attlen(int ncid, int varid, const char *name, 377 MPI_Offset *lenp); 378 379 380 int ncmpi_inq_attname(int ncid, int varid, int attnum, char *name); 381 382 383 int ncmpi_copy_att(int ncid_in, int varid_in, const char *name, 384 int ncid_out, int varid_out); 385 386 387 int ncmpi_rename_att(int ncid, int varid, const char *name, 389 388 const char *newname); 390 389 391 390 392 int ncmpi_del_att(int ncid, int 64_tvarid, const char *name);393 394 395 int ncmpi_put_att_text(int ncid, int 64_t varid, const char *name, int64_t len,391 int ncmpi_del_att(int ncid, int varid, const char *name); 392 393 394 int ncmpi_put_att_text(int ncid, int varid, const char *name, MPI_Offset len, 396 395 const char *op); 397 396 398 397 399 int ncmpi_get_att_text(int ncid, int 64_tvarid, const char *name, char *ip);400 401 /* Begin Skip Prototypes for Fortran binding */ 402 403 int ncmpi_put_att_uchar(int ncid, int 64_tvarid, const char *name,404 nc_type xtype, int64_t len, const unsigned char *op);405 406 407 int ncmpi_get_att_uchar(int ncid, int 64_tvarid, const char *name,398 int ncmpi_get_att_text(int ncid, int varid, const char *name, char *ip); 399 400 /* Begin Skip Prototypes for Fortran binding */ 401 402 int ncmpi_put_att_uchar(int ncid, int varid, const char *name, 403 nc_type xtype, MPI_Offset len, const unsigned char *op); 404 405 406 int ncmpi_get_att_uchar(int ncid, int varid, const char *name, 408 407 unsigned char *ip); 409 408 410 409 /* End Skip Prototypes for Fortran binding */ 411 410 412 int ncmpi_put_att_schar(int ncid, int 64_tvarid, const char *name,413 nc_type xtype, int64_t len, const signed char *op);414 415 416 int ncmpi_get_att_schar(int ncid, int 64_tvarid, const char *name,411 int ncmpi_put_att_schar(int ncid, int varid, const char *name, 412 nc_type xtype, MPI_Offset len, const signed char *op); 413 414 415 int ncmpi_get_att_schar(int ncid, int varid, const char *name, 417 416 signed char *ip); 418 417 419 418 420 int ncmpi_put_att_short(int ncid, int 64_tvarid, const char *name,421 nc_type xtype, int64_t len, const short *op);422 423 424 int ncmpi_get_att_short(int ncid, int 64_tvarid, const char *name, short *ip);425 426 427 int ncmpi_put_att_int(int ncid, int 64_tvarid, const char *name,428 nc_type xtype, int64_t len, const int *op);429 430 431 int ncmpi_get_att_int(int ncid, int 64_tvarid, const char *name, int *ip);432 433 434 /* Begin Skip Prototypes for Fortran binding */ 435 436 int ncmpi_put_att_long(int ncid, int 64_tvarid, const char *name,437 nc_type xtype, int64_t len, const long *op);438 439 int ncmpi_get_att_long(int ncid, int 64_tvarid, const char *name, long *ip);440 441 /* End Skip Prototypes for Fortran binding */ 442 443 444 int ncmpi_put_att_float(int ncid, int 64_tvarid, const char *name,445 nc_type xtype, int64_t len, const float *op);446 447 448 int ncmpi_get_att_float(int ncid, int 64_tvarid, const char *name, float *ip);449 450 451 int ncmpi_put_att_double(int ncid, int 64_tvarid, const char *name,452 nc_type xtype, int64_t len, const double *op);453 454 455 int ncmpi_get_att_double(int ncid, int 64_tvarid, const char *name,419 int ncmpi_put_att_short(int ncid, int varid, const char *name, 420 nc_type xtype, MPI_Offset len, const short *op); 421 422 423 int ncmpi_get_att_short(int ncid, int varid, const char *name, short *ip); 424 425 426 int ncmpi_put_att_int(int ncid, int varid, const char *name, 427 nc_type xtype, MPI_Offset len, const int *op); 428 429 430 int ncmpi_get_att_int(int ncid, int varid, const char *name, int *ip); 431 432 433 /* Begin Skip Prototypes for Fortran binding */ 434 435 int ncmpi_put_att_long(int ncid, int varid, const char *name, 436 nc_type xtype, MPI_Offset len, const long *op); 437 438 int ncmpi_get_att_long(int ncid, int varid, const char *name, long *ip); 439 440 /* End Skip Prototypes for Fortran binding */ 441 442 443 int ncmpi_put_att_float(int ncid, int varid, const char *name, 444 nc_type xtype, MPI_Offset len, const float *op); 445 446 447 int ncmpi_get_att_float(int ncid, int varid, const char *name, float *ip); 448 449 450 int ncmpi_put_att_double(int ncid, int varid, const char *name, 451 nc_type xtype, MPI_Offset len, const double *op); 452 453 454 int ncmpi_get_att_double(int ncid, int varid, const char *name, 456 455 double *ip); 457 456 … … 461 460 462 461 463 int ncmpi_put_var1(int ncid, int 64_tvarid,464 const int64_t index[],465 const void *buf, int64_t bufcount,462 int ncmpi_put_var1(int ncid, int varid, 463 const MPI_Offset index[], 464 const void *buf, MPI_Offset bufcount, 466 465 MPI_Datatype datatype); 467 466 468 467 469 int ncmpi_get_var1(int ncid, int 64_tvarid,470 const int64_t index[],471 void *buf, int64_t bufcount,468 int ncmpi_get_var1(int ncid, int varid, 469 const MPI_Offset index[], 470 void *buf, MPI_Offset bufcount, 472 471 MPI_Datatype datatype); 473 472 474 473 475 474 /* Begin Skip Prototypes for Fortran binding */ 476 int ncmpi_put_var1_uchar(int ncid, int 64_tvarid,477 const int64_t index[],475 int ncmpi_put_var1_uchar(int ncid, int varid, 476 const MPI_Offset index[], 478 477 const unsigned char *op); 479 478 /* End Skip Prototypes for Fortran binding */ 480 479 481 int ncmpi_put_var1_schar(int ncid, int 64_tvarid,482 const int64_t index[],480 int ncmpi_put_var1_schar(int ncid, int varid, 481 const MPI_Offset index[], 483 482 const signed char *op); 484 483 485 484 486 int ncmpi_put_var1_text(int ncid, int 64_tvarid,487 const int64_t index[],485 int ncmpi_put_var1_text(int ncid, int varid, 486 const MPI_Offset index[], 488 487 const char *op); 489 488 490 489 491 int ncmpi_put_var1_short(int ncid, int 64_tvarid,492 const int64_t index[],490 int ncmpi_put_var1_short(int ncid, int varid, 491 const MPI_Offset index[], 493 492 const short *op); 494 493 495 494 496 int ncmpi_put_var1_int(int ncid, int 64_tvarid,497 const int64_t index[],495 int ncmpi_put_var1_int(int ncid, int varid, 496 const MPI_Offset index[], 498 497 const int *op); 499 498 … … 501 500 /* Begin Skip Prototypes for Fortran binding */ 502 501 503 int ncmpi_put_var1_long(int ncid, int 64_tvarid,504 const int64_t index[],502 int ncmpi_put_var1_long(int ncid, int varid, 503 const MPI_Offset index[], 505 504 const long *ip); 506 505 … … 508 507 509 508 510 int ncmpi_put_var1_float(int ncid, int 64_tvarid,511 const int64_t index[],509 int ncmpi_put_var1_float(int ncid, int varid, 510 const MPI_Offset index[], 512 511 const float *op); 513 512 514 513 515 int ncmpi_put_var1_double(int ncid, int 64_tvarid,516 const int64_t index[],514 int ncmpi_put_var1_double(int ncid, int varid, 515 const MPI_Offset index[], 517 516 const double *op); 518 517 519 518 520 519 /* Begin Skip Prototypes for Fortran binding */ 521 int ncmpi_get_var1_uchar(int ncid, int 64_tvarid,522 const int64_t index[],520 int ncmpi_get_var1_uchar(int ncid, int varid, 521 const MPI_Offset index[], 523 522 unsigned char *ip); 524 523 525 524 /* End Skip Prototypes for Fortran binding */ 526 525 527 int ncmpi_get_var1_schar(int ncid, int 64_tvarid,528 const int64_t index[],526 int ncmpi_get_var1_schar(int ncid, int varid, 527 const MPI_Offset index[], 529 528 signed char *ip); 530 529 531 530 532 int ncmpi_get_var1_text(int ncid, int 64_tvarid,533 const int64_t index[],531 int ncmpi_get_var1_text(int ncid, int varid, 532 const MPI_Offset index[], 534 533 char *ip); 535 534 536 535 537 int ncmpi_get_var1_short(int ncid, int 64_tvarid,538 const int64_t index[],536 int ncmpi_get_var1_short(int ncid, int varid, 537 const MPI_Offset index[], 539 538 short *ip); 540 539 541 540 542 int ncmpi_get_var1_int(int ncid, int 64_tvarid,543 const int64_t index[],541 int ncmpi_get_var1_int(int ncid, int varid, 542 const MPI_Offset index[], 544 543 int *ip); 545 544 … … 547 546 /* Begin Skip Prototypes for Fortran binding */ 548 547 549 int ncmpi_get_var1_long(int ncid, int 64_tvarid,550 const int64_t index[],548 int ncmpi_get_var1_long(int ncid, int varid, 549 const MPI_Offset index[], 551 550 long *ip); 552 551 … … 554 553 555 554 556 int ncmpi_get_var1_float(int ncid, int 64_tvarid,557 const int64_t index[],555 int ncmpi_get_var1_float(int ncid, int varid, 556 const MPI_Offset index[], 558 557 float *ip); 559 558 560 559 561 int ncmpi_get_var1_double(int ncid, int 64_tvarid,562 const int64_t index[],560 int ncmpi_get_var1_double(int ncid, int varid, 561 const MPI_Offset index[], 563 562 double *ip); 564 563 … … 568 567 569 568 570 int ncmpi_put_var(int ncid, int 64_t varid, const void *buf, int64_t bufcount, MPI_Datatype datatype);571 572 573 int ncmpi_get_var(int ncid, int 64_t varid, void *buf, int64_t bufcount, MPI_Datatype datatype);574 575 576 int ncmpi_get_var_all(int ncid, int 64_t varid, void *buf, int64_t bufcount, MPI_Datatype datatype);577 578 579 /* Begin Skip Prototypes for Fortran binding */ 580 int ncmpi_put_var_uchar(int ncid, int 64_tvarid, const unsigned char *op);581 582 /* End Skip Prototypes for Fortran binding */ 583 584 int ncmpi_put_var_schar(int ncid, int 64_tvarid, const signed char *op);585 586 587 int ncmpi_put_var_text(int ncid, int 64_tvarid, const char *op);588 589 590 int ncmpi_put_var_short(int ncid, int 64_tvarid, const short *op);591 592 593 int ncmpi_put_var_int(int ncid, int 64_tvarid, const int *op);594 595 596 /* Begin Skip Prototypes for Fortran binding */ 597 598 int ncmpi_put_var_long(int ncid, int 64_tvarid, const long *op);599 600 /* End Skip Prototypes for Fortran binding */ 601 602 603 int ncmpi_put_var_float(int ncid, int 64_tvarid, const float *op);604 605 606 int ncmpi_put_var_double(int ncid, int 64_tvarid, const double *op);607 608 609 /* Begin Skip Prototypes for Fortran binding */ 610 int ncmpi_get_var_uchar(int ncid, int 64_tvarid, unsigned char *ip);611 612 /* End Skip Prototypes for Fortran binding */ 613 614 int ncmpi_get_var_schar(int ncid, int 64_tvarid, signed char *ip);615 616 617 int ncmpi_get_var_text(int ncid, int 64_tvarid, char *ip);618 619 620 int ncmpi_get_var_short(int ncid, int 64_tvarid, short *ip);621 622 623 int ncmpi_get_var_int(int ncid, int 64_tvarid, int *ip);624 625 626 /* Begin Skip Prototypes for Fortran binding */ 627 628 int ncmpi_get_var_long(int ncid, int 64_tvarid, long *ip);629 630 /* End Skip Prototypes for Fortran binding */ 631 632 633 int ncmpi_get_var_float(int ncid, int 64_tvarid, float *ip);634 635 636 int ncmpi_get_var_double(int ncid, int 64_tvarid, double *ip);637 638 639 /* Begin Skip Prototypes for Fortran binding */ 640 int ncmpi_get_var_uchar_all(int ncid, int 64_tvarid, unsigned char *ip);641 /* End Skip Prototypes for Fortran binding */ 642 643 644 int ncmpi_get_var_schar_all(int ncid, int 64_tvarid, signed char *ip);645 646 647 int ncmpi_get_var_text_all(int ncid, int 64_tvarid, char *ip);648 649 650 int ncmpi_get_var_short_all(int ncid, int 64_tvarid, short *ip);651 652 653 int ncmpi_get_var_int_all(int ncid, int 64_tvarid, int *ip);654 655 656 /* Begin Skip Prototypes for Fortran binding */ 657 658 int ncmpi_get_var_long_all(int ncid, int 64_tvarid, long *ip);659 660 /* End Skip Prototypes for Fortran binding */ 661 662 663 int ncmpi_get_var_float_all(int ncid, int 64_tvarid, float *ip);664 665 666 int ncmpi_get_var_double_all(int ncid, int 64_tvarid, double *ip);569 int ncmpi_put_var(int ncid, int varid, const void *buf, MPI_Offset bufcount, MPI_Datatype datatype); 570 571 572 int ncmpi_get_var(int ncid, int varid, void *buf, MPI_Offset bufcount, MPI_Datatype datatype); 573 574 575 int ncmpi_get_var_all(int ncid, int varid, void *buf, MPI_Offset bufcount, MPI_Datatype datatype); 576 577 578 /* Begin Skip Prototypes for Fortran binding */ 579 int ncmpi_put_var_uchar(int ncid, int varid, const unsigned char *op); 580 581 /* End Skip Prototypes for Fortran binding */ 582 583 int ncmpi_put_var_schar(int ncid, int varid, const signed char *op); 584 585 586 int ncmpi_put_var_text(int ncid, int varid, const char *op); 587 588 589 int ncmpi_put_var_short(int ncid, int varid, const short *op); 590 591 592 int ncmpi_put_var_int(int ncid, int varid, const int *op); 593 594 595 /* Begin Skip Prototypes for Fortran binding */ 596 597 int ncmpi_put_var_long(int ncid, int varid, const long *op); 598 599 /* End Skip Prototypes for Fortran binding */ 600 601 602 int ncmpi_put_var_float(int ncid, int varid, const float *op); 603 604 605 int ncmpi_put_var_double(int ncid, int varid, const double *op); 606 607 608 /* Begin Skip Prototypes for Fortran binding */ 609 int ncmpi_get_var_uchar(int ncid, int varid, unsigned char *ip); 610 611 /* End Skip Prototypes for Fortran binding */ 612 613 int ncmpi_get_var_schar(int ncid, int varid, signed char *ip); 614 615 616 int ncmpi_get_var_text(int ncid, int varid, char *ip); 617 618 619 int ncmpi_get_var_short(int ncid, int varid, short *ip); 620 621 622 int ncmpi_get_var_int(int ncid, int varid, int *ip); 623 624 625 /* Begin Skip Prototypes for Fortran binding */ 626 627 int ncmpi_get_var_long(int ncid, int varid, long *ip); 628 629 /* End Skip Prototypes for Fortran binding */ 630 631 632 int ncmpi_get_var_float(int ncid, int varid, float *ip); 633 634 635 int ncmpi_get_var_double(int ncid, int varid, double *ip); 636 637 638 /* Begin Skip Prototypes for Fortran binding */ 639 int ncmpi_get_var_uchar_all(int ncid, int varid, unsigned char *ip); 640 /* End Skip Prototypes for Fortran binding */ 641 642 643 int ncmpi_get_var_schar_all(int ncid, int varid, signed char *ip); 644 645 646 int ncmpi_get_var_text_all(int ncid, int varid, char *ip); 647 648 649 int ncmpi_get_var_short_all(int ncid, int varid, short *ip); 650 651 652 int ncmpi_get_var_int_all(int ncid, int varid, int *ip); 653 654 655 /* Begin Skip Prototypes for Fortran binding */ 656 657 int ncmpi_get_var_long_all(int ncid, int varid, long *ip); 658 659 /* End Skip Prototypes for Fortran binding */ 660 661 662 int ncmpi_get_var_float_all(int ncid, int varid, float *ip); 663 664 665 int ncmpi_get_var_double_all(int ncid, int varid, double *ip); 667 666 668 667 /* End {put,get}_var */ … … 671 670 672 671 673 int ncmpi_put_vara_all(int ncid, int 64_tvarid,674 const int64_t start[], const int64_t count[],675 const void *buf, int64_t bufcount,672 int ncmpi_put_vara_all(int ncid, int varid, 673 const MPI_Offset start[], const MPI_Offset count[], 674 const void *buf, MPI_Offset bufcount, 676 675 MPI_Datatype datatype); 677 676 678 677 679 int ncmpi_get_vara_all(int ncid, int 64_tvarid,680 const int64_t start[], const int64_t count[],681 void *buf, int64_t bufcount,678 int ncmpi_get_vara_all(int ncid, int varid, 679 const MPI_Offset start[], const MPI_Offset count[], 680 void *buf, MPI_Offset bufcount, 682 681 MPI_Datatype datatype); 683 682 684 683 685 int ncmpi_put_vara(int ncid, int 64_tvarid,686 const int64_t start[], const int64_t count[],687 const void *buf, int64_t bufcount,684 int ncmpi_put_vara(int ncid, int varid, 685 const MPI_Offset start[], const MPI_Offset count[], 686 const void *buf, MPI_Offset bufcount, 688 687 MPI_Datatype datatype); 689 688 690 689 691 int ncmpi_get_vara(int ncid, int 64_tvarid,692 const int64_t start[], const int64_t count[],693 void *buf, int64_t bufcount,690 int ncmpi_get_vara(int ncid, int varid, 691 const MPI_Offset start[], const MPI_Offset count[], 692 void *buf, MPI_Offset bufcount, 694 693 MPI_Datatype datatype); 695 694 696 695 697 696 /* Begin Skip Prototypes for Fortran binding */ 698 int ncmpi_put_vara_uchar_all(int ncid, int 64_tvarid,699 const int64_t start[], const int64_t count[],697 int ncmpi_put_vara_uchar_all(int ncid, int varid, 698 const MPI_Offset start[], const MPI_Offset count[], 700 699 const unsigned char *op); 701 700 702 701 703 int ncmpi_put_vara_uchar(int ncid, int 64_tvarid,704 const int64_t start[], const int64_t count[],702 int ncmpi_put_vara_uchar(int ncid, int varid, 703 const MPI_Offset start[], const MPI_Offset count[], 705 704 const unsigned char *op); 706 705 707 706 /* End Skip Prototypes for Fortran binding */ 708 707 709 int ncmpi_put_vara_schar_all(int ncid, int 64_tvarid,710 const int64_t start[], const int64_t count[],708 int ncmpi_put_vara_schar_all(int ncid, int varid, 709 const MPI_Offset start[], const MPI_Offset count[], 711 710 const signed char *op); 712 711 713 712 714 int ncmpi_put_vara_schar(int ncid, int 64_tvarid,715 const int64_t start[], const int64_t count[],713 int ncmpi_put_vara_schar(int ncid, int varid, 714 const MPI_Offset start[], const MPI_Offset count[], 716 715 const signed char *op); 717 716 718 717 719 int ncmpi_put_vara_text_all(int ncid, int 64_tvarid,720 const int64_t start[], const int64_t count[],718 int ncmpi_put_vara_text_all(int ncid, int varid, 719 const MPI_Offset start[], const MPI_Offset count[], 721 720 const char *op); 722 721 723 722 724 int ncmpi_put_vara_text(int ncid, int 64_tvarid,725 const int64_t start[], const int64_t count[],723 int ncmpi_put_vara_text(int ncid, int varid, 724 const MPI_Offset start[], const MPI_Offset count[], 726 725 const char *op); 727 726 728 727 729 int ncmpi_put_vara_short_all(int ncid, int 64_tvarid,730 const int64_t start[], const int64_t count[],728 int ncmpi_put_vara_short_all(int ncid, int varid, 729 const MPI_Offset start[], const MPI_Offset count[], 731 730 const short *op); 732 731 733 732 734 int ncmpi_put_vara_short(int ncid, int 64_tvarid,735 const int64_t start[], const int64_t count[],733 int ncmpi_put_vara_short(int ncid, int varid, 734 const MPI_Offset start[], const MPI_Offset count[], 736 735 const short *op); 737 736 738 737 739 int ncmpi_put_vara_int_all(int ncid, int 64_tvarid,740 const int64_t start[], const int64_t count[],738 int ncmpi_put_vara_int_all(int ncid, int varid, 739 const MPI_Offset start[], const MPI_Offset count[], 741 740 const int *op); 742 741 743 742 744 int ncmpi_put_vara_int(int ncid, int 64_tvarid,745 const int64_t start[], const int64_t count[],743 int ncmpi_put_vara_int(int ncid, int varid, 744 const MPI_Offset start[], const MPI_Offset count[], 746 745 const int *op); 747 746 … … 749 748 /* Begin Skip Prototypes for Fortran binding */ 750 749 751 int ncmpi_put_vara_long_all(int ncid, int 64_tvarid,752 const int64_t start[], const int64_t count[],750 int ncmpi_put_vara_long_all(int ncid, int varid, 751 const MPI_Offset start[], const MPI_Offset count[], 753 752 const long *op); 754 753 755 754 756 int ncmpi_put_vara_long(int ncid, int 64_tvarid,757 const int64_t start[], const int64_t count[],755 int ncmpi_put_vara_long(int ncid, int varid, 756 const MPI_Offset start[], const MPI_Offset count[], 758 757 const long *op); 759 758 … … 761 760 762 761 763 int ncmpi_put_vara_float_all(int ncid, int 64_tvarid,764 const int64_t start[], const int64_t count[],762 int ncmpi_put_vara_float_all(int ncid, int varid, 763 const MPI_Offset start[], const MPI_Offset count[], 765 764 const float *op); 766 765 767 766 768 int ncmpi_put_vara_float(int ncid, int 64_tvarid,769 const int64_t start[], const int64_t count[],767 int ncmpi_put_vara_float(int ncid, int varid, 768 const MPI_Offset start[], const MPI_Offset count[], 770 769 const float *op); 771 770 772 771 773 int ncmpi_put_vara_double_all(int ncid, int 64_tvarid,774 const int64_t start[], const int64_t count[],772 int ncmpi_put_vara_double_all(int ncid, int varid, 773 const MPI_Offset start[], const MPI_Offset count[], 775 774 const double *op); 776 775 777 776 778 int ncmpi_put_vara_double(int ncid, int 64_tvarid,779 const int64_t start[], const int64_t count[],777 int ncmpi_put_vara_double(int ncid, int varid, 778 const MPI_Offset start[], const MPI_Offset count[], 780 779 const double *op); 781 780 782 781 783 782 /* Begin Skip Prototypes for Fortran binding */ 784 int ncmpi_get_vara_uchar_all(int ncid, int 64_tvarid,785 const int64_t start[], const int64_t count[],783 int ncmpi_get_vara_uchar_all(int ncid, int varid, 784 const MPI_Offset start[], const MPI_Offset count[], 786 785 unsigned char *ip); 787 786 788 787 789 int ncmpi_get_vara_uchar(int ncid, int 64_tvarid,790 const int64_t start[], const int64_t count[],788 int ncmpi_get_vara_uchar(int ncid, int varid, 789 const MPI_Offset start[], const MPI_Offset count[], 791 790 unsigned char *ip); 792 791 /* End Skip Prototypes for Fortran binding */ 793 792 794 793 795 int ncmpi_get_vara_schar_all(int ncid, int 64_tvarid,796 const int64_t start[], const int64_t count[],794 int ncmpi_get_vara_schar_all(int ncid, int varid, 795 const MPI_Offset start[], const MPI_Offset count[], 797 796 signed char *ip); 798 797 799 798 800 int ncmpi_get_vara_schar(int ncid, int 64_tvarid,801 const int64_t start[], const int64_t count[],799 int ncmpi_get_vara_schar(int ncid, int varid, 800 const MPI_Offset start[], const MPI_Offset count[], 802 801 signed char *ip); 803 802 804 803 805 int ncmpi_get_vara_text_all(int ncid, int 64_tvarid,806 const int64_t start[], const int64_t count[],804 int ncmpi_get_vara_text_all(int ncid, int varid, 805 const MPI_Offset start[], const MPI_Offset count[], 807 806 char *ip); 808 807 809 808 810 int ncmpi_get_vara_text(int ncid, int 64_tvarid,811 const int64_t start[], const int64_t count[],809 int ncmpi_get_vara_text(int ncid, int varid, 810 const MPI_Offset start[], const MPI_Offset count[], 812 811 char *ip); 813 812 814 813 815 int ncmpi_get_vara_short_all(int ncid, int 64_tvarid,816 const int64_t start[], const int64_t count[],814 int ncmpi_get_vara_short_all(int ncid, int varid, 815 const MPI_Offset start[], const MPI_Offset count[], 817 816 short *ip); 818 817 819 818 820 int ncmpi_get_vara_short(int ncid, int 64_tvarid,821 const int64_t start[], const int64_t count[],819 int ncmpi_get_vara_short(int ncid, int varid, 820 const MPI_Offset start[], const MPI_Offset count[], 822 821 short *ip); 823 822 824 823 825 int ncmpi_get_vara_int_all(int ncid, int 64_tvarid,826 const int64_t start[], const int64_t count[],824 int ncmpi_get_vara_int_all(int ncid, int varid, 825 const MPI_Offset start[], const MPI_Offset count[], 827 826 int *ip); 828 827 829 828 830 int ncmpi_get_vara_int(int ncid, int 64_tvarid,831 const int64_t start[], const int64_t count[],829 int ncmpi_get_vara_int(int ncid, int varid, 830 const MPI_Offset start[], const MPI_Offset count[], 832 831 int *ip); 833 832 … … 835 834 /* Begin Skip Prototypes for Fortran binding */ 836 835 837 int ncmpi_get_vara_long_all(int ncid, int 64_tvarid,838 const int64_t start[], const int64_t count[],836 int ncmpi_get_vara_long_all(int ncid, int varid, 837 const MPI_Offset start[], const MPI_Offset count[], 839 838 long *ip); 840 839 841 840 842 int ncmpi_get_vara_long(int ncid, int 64_tvarid,843 const int64_t start[], const int64_t count[],841 int ncmpi_get_vara_long(int ncid, int varid, 842 const MPI_Offset start[], const MPI_Offset count[], 844 843 long *ip); 845 844 … … 847 846 848 847 849 int ncmpi_get_vara_float_all(int ncid, int 64_tvarid,850 const int64_t start[], const int64_t count[],848 int ncmpi_get_vara_float_all(int ncid, int varid, 849 const MPI_Offset start[], const MPI_Offset count[], 851 850 float *ip); 852 851 853 852 854 int ncmpi_get_vara_float(int ncid, int 64_tvarid,855 const int64_t start[], const int64_t count[],853 int ncmpi_get_vara_float(int ncid, int varid, 854 const MPI_Offset start[], const MPI_Offset count[], 856 855 float *ip); 857 856 858 857 859 int ncmpi_get_vara_double_all(int ncid, int 64_tvarid,860 const int64_t start[], const int64_t count[],858 int ncmpi_get_vara_double_all(int ncid, int varid, 859 const MPI_Offset start[], const MPI_Offset count[], 861 860 double *ip); 862 861 863 862 864 int ncmpi_get_vara_double(int ncid, int 64_tvarid,865 const int64_t start[], const int64_t count[],863 int ncmpi_get_vara_double(int ncid, int varid, 864 const MPI_Offset start[], const MPI_Offset count[], 866 865 double *ip); 867 866 … … 871 870 872 871 873 int ncmpi_put_vars_all(int ncid, int 64_tvarid,874 const int64_t start[],875 const int64_t count[],876 const int64_t stride[],877 const void *buf, int64_t bufcount,872 int ncmpi_put_vars_all(int ncid, int varid, 873 const MPI_Offset start[], 874 const MPI_Offset count[], 875 const MPI_Offset stride[], 876 const void *buf, MPI_Offset bufcount, 878 877 MPI_Datatype datatype); 879 878 880 879 881 int ncmpi_get_vars_all(int ncid, int 64_tvarid,882 const int64_t start[],883 const int64_t count[],884 const int64_t stride[],885 void *buf, int64_t bufcount,880 int ncmpi_get_vars_all(int ncid, int varid, 881 const MPI_Offset start[], 882 const MPI_Offset count[], 883 const MPI_Offset stride[], 884 void *buf, MPI_Offset bufcount, 886 885 MPI_Datatype datatype); 887 886 888 887 889 int ncmpi_put_vars(int ncid, int 64_tvarid,890 const int64_t start[],891 const int64_t count[],892 const int64_t stride[],893 const void *buf, int64_t bufcount,888 int ncmpi_put_vars(int ncid, int varid, 889 const MPI_Offset start[], 890 const MPI_Offset count[], 891 const MPI_Offset stride[], 892 const void *buf, MPI_Offset bufcount, 894 893 MPI_Datatype datatype); 895 894 896 895 897 int ncmpi_get_vars(int ncid, int 64_tvarid,898 const int64_t start[],899 const int64_t count[],900 const int64_t stride[],901 void *buf, int64_t bufcount,896 int ncmpi_get_vars(int ncid, int varid, 897 const MPI_Offset start[], 898 const MPI_Offset count[], 899 const MPI_Offset stride[], 900 void *buf, MPI_Offset bufcount, 902 901 MPI_Datatype datatype); 903 902 904 903 905 904 /* Begin Skip Prototypes for Fortran binding */ 906 int ncmpi_put_vars_uchar_all(int ncid, int 64_tvarid,907 const int64_t start[],908 const int64_t count[],909 const int64_t stride[],905 int ncmpi_put_vars_uchar_all(int ncid, int varid, 906 const MPI_Offset start[], 907 const MPI_Offset count[], 908 const MPI_Offset stride[], 910 909 const unsigned char *op); 911 910 912 911 913 int ncmpi_put_vars_uchar(int ncid, int 64_tvarid,914 const int64_t start[],915 const int64_t count[],916 const int64_t stride[],912 int ncmpi_put_vars_uchar(int ncid, int varid, 913 const MPI_Offset start[], 914 const MPI_Offset count[], 915 const MPI_Offset stride[], 917 916 const unsigned char *op); 918 917 /* End Skip Prototypes for Fortran binding */ 919 918 920 919 921 int ncmpi_put_vars_schar_all(int ncid, int 64_tvarid,922 const int64_t start[],923 const int64_t count[],924 const int64_t stride[],920 int ncmpi_put_vars_schar_all(int ncid, int varid, 921 const MPI_Offset start[], 922 const MPI_Offset count[], 923 const MPI_Offset stride[], 925 924 const signed char *op); 926 925 927 926 928 int ncmpi_put_vars_schar(int ncid, int 64_tvarid,929 const int64_t start[],930 const int64_t count[],931 const int64_t stride[],927 int ncmpi_put_vars_schar(int ncid, int varid, 928 const MPI_Offset start[], 929 const MPI_Offset count[], 930 const MPI_Offset stride[], 932 931 const signed char *op); 933 932 934 933 935 int ncmpi_put_vars_text_all(int ncid, int 64_tvarid,936 const int64_t start[],937 const int64_t count[],938 const int64_t stride[],934 int ncmpi_put_vars_text_all(int ncid, int varid, 935 const MPI_Offset start[], 936 const MPI_Offset count[], 937 const MPI_Offset stride[], 939 938 const char *op); 940 939 941 940 942 int ncmpi_put_vars_text(int ncid, int 64_tvarid,943 const int64_t start[],944 const int64_t count[],945 const int64_t stride[],941 int ncmpi_put_vars_text(int ncid, int varid, 942 const MPI_Offset start[], 943 const MPI_Offset count[], 944 const MPI_Offset stride[], 946 945 const char *op); 947 946 948 947 949 int ncmpi_put_vars_short_all(int ncid, int 64_tvarid,950 const int64_t start[],951 const int64_t count[],952 const int64_t stride[],948 int ncmpi_put_vars_short_all(int ncid, int varid, 949 const MPI_Offset start[], 950 const MPI_Offset count[], 951 const MPI_Offset stride[], 953 952 const short *op); 954 953 955 954 956 int ncmpi_put_vars_short(int ncid, int 64_tvarid,957 const int64_t start[],958 const int64_t count[],959 const int64_t stride[],955 int ncmpi_put_vars_short(int ncid, int varid, 956 const MPI_Offset start[], 957 const MPI_Offset count[], 958 const MPI_Offset stride[], 960 959 const short *op); 961 960 962 961 963 int ncmpi_put_vars_int_all(int ncid, int 64_tvarid,964 const int64_t start[],965 const int64_t count[],966 const int64_t stride[],962 int ncmpi_put_vars_int_all(int ncid, int varid, 963 const MPI_Offset start[], 964 const MPI_Offset count[], 965 const MPI_Offset stride[], 967 966 const int *op); 968 967 969 968 970 int ncmpi_put_vars_int(int ncid, int 64_tvarid,971 const int64_t start[],972 const int64_t count[],973 const int64_t stride[],969 int ncmpi_put_vars_int(int ncid, int varid, 970 const MPI_Offset start[], 971 const MPI_Offset count[], 972 const MPI_Offset stride[], 974 973 const int *op); 975 974 … … 977 976 /* Begin Skip Prototypes for Fortran binding */ 978 977 979 int ncmpi_put_vars_long_all(int ncid, int 64_tvarid,980 const int64_t start[],981 const int64_t count[],982 const int64_t stride[],978 int ncmpi_put_vars_long_all(int ncid, int varid, 979 const MPI_Offset start[], 980 const MPI_Offset count[], 981 const MPI_Offset stride[], 983 982 const long *op); 984 983 985 984 986 int ncmpi_put_vars_long(int ncid, int 64_tvarid,987 const int64_t start[],988 const int64_t count[],989 const int64_t stride[],985 int ncmpi_put_vars_long(int ncid, int varid, 986 const MPI_Offset start[], 987 const MPI_Offset count[], 988 const MPI_Offset stride[], 990 989 const long *op); 991 990 … … 993 992 994 993 995 int ncmpi_put_vars_float_all(int ncid, int 64_tvarid,996 const int64_t start[],997 const int64_t count[],998 const int64_t stride[],994 int ncmpi_put_vars_float_all(int ncid, int varid, 995 const MPI_Offset start[], 996 const MPI_Offset count[], 997 const MPI_Offset stride[], 999 998 const float *op); 1000 999 1001 1000 1002 int ncmpi_put_vars_float(int ncid, int 64_tvarid,1003 const int64_t start[],1004 const int64_t count[],1005 const int64_t stride[],1001 int ncmpi_put_vars_float(int ncid, int varid, 1002 const MPI_Offset start[], 1003 const MPI_Offset count[], 1004 const MPI_Offset stride[], 1006 1005 const float *op); 1007 1006 1008 1007 1009 int ncmpi_put_vars_double_all(int ncid, int 64_tvarid,1010 const int64_t start[],1011 const int64_t count[],1012 const int64_t stride[],1008 int ncmpi_put_vars_double_all(int ncid, int varid, 1009 const MPI_Offset start[], 1010 const MPI_Offset count[], 1011 const MPI_Offset stride[], 1013 1012 const double *op); 1014 1013 1015 1014 1016 int ncmpi_put_vars_double(int ncid, int 64_tvarid,1017 const int64_t start[],1018 const int64_t count[],1019 const int64_t stride[],1015 int ncmpi_put_vars_double(int ncid, int varid, 1016 const MPI_Offset start[], 1017 const MPI_Offset count[], 1018 const MPI_Offset stride[], 1020 1019 const double *op); 1021 1020 1022 1021 1023 1022 /* Begin Skip Prototypes for Fortran binding */ 1024 int ncmpi_get_vars_uchar_all(int ncid, int 64_tvarid,1025 const int64_t start[],1026 const int64_t count[],1027 const int64_t stride[],1023 int ncmpi_get_vars_uchar_all(int ncid, int varid, 1024 const MPI_Offset start[], 1025 const MPI_Offset count[], 1026 const MPI_Offset stride[], 1028 1027 unsigned char *ip); 1029 1028 1030 1029 1031 int ncmpi_get_vars_uchar(int ncid, int 64_tvarid,1032 const int64_t start[],1033 const int64_t count[],1034 const int64_t stride[],1030 int ncmpi_get_vars_uchar(int ncid, int varid, 1031 const MPI_Offset start[], 1032 const MPI_Offset count[], 1033 const MPI_Offset stride[], 1035 1034 unsigned char *ip); 1036 1035 1037 1036 /* End Skip Prototypes for Fortran binding */ 1038 1037 1039 int ncmpi_get_vars_schar_all(int ncid, int 64_tvarid,1040 const int64_t start[],1041 const int64_t count[],1042 const int64_t stride[],1038 int ncmpi_get_vars_schar_all(int ncid, int varid, 1039 const MPI_Offset start[], 1040 const MPI_Offset count[], 1041 const MPI_Offset stride[], 1043 1042 signed char *ip); 1044 1043 1045 1044 1046 int ncmpi_get_vars_schar(int ncid, int 64_tvarid,1047 const int64_t start[],1048 const int64_t count[],1049 const int64_t stride[],1045 int ncmpi_get_vars_schar(int ncid, int varid, 1046 const MPI_Offset start[], 1047 const MPI_Offset count[], 1048 const MPI_Offset stride[], 1050 1049 signed char *ip); 1051 1050 1052 1051 1053 int ncmpi_get_vars_text_all(int ncid, int 64_tvarid,1054 const int64_t start[],1055 const int64_t count[],1056 const int64_t stride[],1052 int ncmpi_get_vars_text_all(int ncid, int varid, 1053 const MPI_Offset start[], 1054 const MPI_Offset count[], 1055 const MPI_Offset stride[], 1057 1056 char *ip); 1058 1057 1059 1058 1060 int ncmpi_get_vars_text(int ncid, int 64_tvarid,1061 const int64_t start[],1062 const int64_t count[],1063 const int64_t stride[],1059 int ncmpi_get_vars_text(int ncid, int varid, 1060 const MPI_Offset start[], 1061 const MPI_Offset count[], 1062 const MPI_Offset stride[], 1064 1063 char *ip); 1065 1064 1066 1065 1067 int ncmpi_get_vars_short_all(int ncid, int 64_tvarid,1068 const int64_t start[],1069 const int64_t count[],1070 const int64_t stride[],1066 int ncmpi_get_vars_short_all(int ncid, int varid, 1067 const MPI_Offset start[], 1068 const MPI_Offset count[], 1069 const MPI_Offset stride[], 1071 1070 short *ip); 1072 1071 1073 1072 1074 int ncmpi_get_vars_short(int ncid, int 64_tvarid,1075 const int64_t start[],1076 const int64_t count[],1077 const int64_t stride[],1073 int ncmpi_get_vars_short(int ncid, int varid, 1074 const MPI_Offset start[], 1075 const MPI_Offset count[], 1076 const MPI_Offset stride[], 1078 1077 short *ip); 1079 1078 1080 1079 1081 int ncmpi_get_vars_int_all(int ncid, int 64_tvarid,1082 const int64_t start[],1083 const int64_t count[],1084 const int64_t stride[],1080 int ncmpi_get_vars_int_all(int ncid, int varid, 1081 const MPI_Offset start[], 1082 const MPI_Offset count[], 1083 const MPI_Offset stride[], 1085 1084 int *ip); 1086 1085 1087 1086 1088 int ncmpi_get_vars_int(int ncid, int 64_tvarid,1089 const int64_t start[],1090 const int64_t count[],1091 const int64_t stride[],1087 int ncmpi_get_vars_int(int ncid, int varid, 1088 const MPI_Offset start[], 1089 const MPI_Offset count[], 1090 const MPI_Offset stride[], 1092 1091 int *ip); 1093 1092 … … 1095 1094 /* Begin Skip Prototypes for Fortran binding */ 1096 1095 1097 int ncmpi_get_vars_long_all(int ncid, int 64_tvarid,1098 const int64_t start[],1099 const int64_t count[],1100 const int64_t stride[],1096 int ncmpi_get_vars_long_all(int ncid, int varid, 1097 const MPI_Offset start[], 1098 const MPI_Offset count[], 1099 const MPI_Offset stride[], 1101 1100 long *ip); 1102 1101 1103 1102 1104 int ncmpi_get_vars_long(int ncid, int 64_tvarid,1105 const int64_t start[],1106 const int64_t count[],1107 const int64_t stride[],1103 int ncmpi_get_vars_long(int ncid, int varid, 1104 const MPI_Offset start[], 1105 const MPI_Offset count[], 1106 const MPI_Offset stride[], 1108 1107 long *ip); 1109 1108 … … 1111 1110 1112 1111 1113 int ncmpi_get_vars_float_all(int ncid, int 64_tvarid,1114 const int64_t start[],1115 const int64_t count[],1116 const int64_t stride[],1112 int ncmpi_get_vars_float_all(int ncid, int varid, 1113 const MPI_Offset start[], 1114 const MPI_Offset count[], 1115 const MPI_Offset stride[], 1117 1116 float *ip); 1118 1117 1119 1118 1120 int ncmpi_get_vars_float(int ncid, int 64_tvarid,1121 const int64_t start[],1122 const int64_t count[],1123 const int64_t stride[],1119 int ncmpi_get_vars_float(int ncid, int varid, 1120 const MPI_Offset start[], 1121 const MPI_Offset count[], 1122 const MPI_Offset stride[], 1124 1123 float *ip); 1125 1124 1126 1125 1127 int ncmpi_get_vars_double_all(int ncid, int 64_tvarid,1128 const int64_t start[],1129 const int64_t count[],1130 const int64_t stride[],1126 int ncmpi_get_vars_double_all(int ncid, int varid, 1127 const MPI_Offset start[], 1128 const MPI_Offset count[], 1129 const MPI_Offset stride[], 1131 1130 double *ip); 1132 1131 1133 1132 1134 int ncmpi_get_vars_double(int ncid, int 64_tvarid,1135 const int64_t start[],1136 const int64_t count[],1137 const int64_t stride[],1133 int ncmpi_get_vars_double(int ncid, int varid, 1134 const MPI_Offset start[], 1135 const MPI_Offset count[], 1136 const MPI_Offset stride[], 1138 1137 double *ip); 1139 1138 … … 1143 1142 1144 1143 1145 int ncmpi_put_varm_all(int ncid, int 64_tvarid,1146 const int64_t start[],1147 const int64_t count[],1148 const int64_t stride[],1149 const int64_t imap[],1150 const void *buf, int64_t bufcount,1144 int ncmpi_put_varm_all(int ncid, int varid, 1145 const MPI_Offset start[], 1146 const MPI_Offset count[], 1147 const MPI_Offset stride[], 1148 const MPI_Offset imap[], 1149 const void *buf, MPI_Offset bufcount, 1151 1150 MPI_Datatype datatype); 1152 1151 1153 1152 1154 int ncmpi_get_varm_all(int ncid, int 64_tvarid,1155 const int64_t start[],1156 const int64_t count[],1157 const int64_t stride[],1158 const int64_t imap[],1159 void *buf, int64_t bufcount,1153 int ncmpi_get_varm_all(int ncid, int varid, 1154 const MPI_Offset start[], 1155 const MPI_Offset count[], 1156 const MPI_Offset stride[], 1157 const MPI_Offset imap[], 1158 void *buf, MPI_Offset bufcount, 1160 1159 MPI_Datatype datatype); 1161 1160 1162 1161 1163 int ncmpi_put_varm(int ncid, int 64_tvarid,1164 const int64_t start[],1165 const int64_t count[],1166 const int64_t stride[],1167 const int64_t imap[],1168 const void *buf, int64_t bufcount,1162 int ncmpi_put_varm(int ncid, int varid, 1163 const MPI_Offset start[], 1164 const MPI_Offset count[], 1165 const MPI_Offset stride[], 1166 const MPI_Offset imap[], 1167 const void *buf, MPI_Offset bufcount, 1169 1168 MPI_Datatype datatype); 1170 1169 1171 1170 1172 int ncmpi_get_varm(int ncid, int 64_tvarid,1173 const int64_t start[],1174 const int64_t count[],1175 const int64_t stride[],1176 const int64_t imap[],1177 void *buf, int64_t bufcount,1171 int ncmpi_get_varm(int ncid, int varid, 1172 const MPI_Offset start[], 1173 const MPI_Offset count[], 1174 const MPI_Offset stride[], 1175 const MPI_Offset imap[], 1176 void *buf, MPI_Offset bufcount, 1178 1177 MPI_Datatype datatype); 1179 1178 1180 1179 1181 1180 /* Begin Skip Prototypes for Fortran binding */ 1182 int ncmpi_put_varm_uchar_all(int ncid, int 64_tvarid,1183 const int64_t start[],1184 const int64_t count[],1185 const int64_t stride[],1186 const int64_t imap[],1181 int ncmpi_put_varm_uchar_all(int ncid, int varid, 1182 const MPI_Offset start[], 1183 const MPI_Offset count[], 1184 const MPI_Offset stride[], 1185 const MPI_Offset imap[], 1187 1186 const unsigned char *op); 1188 1187 1189 1188 1190 int ncmpi_put_varm_uchar(int ncid, int 64_tvarid,1191 const int64_t start[],1192 const int64_t count[],1193 const int64_t stride[],1194 const int64_t imap[],1189 int ncmpi_put_varm_uchar(int ncid, int varid, 1190 const MPI_Offset start[], 1191 const MPI_Offset count[], 1192 const MPI_Offset stride[], 1193 const MPI_Offset imap[], 1195 1194 const unsigned char *op); 1196 1195 /* End Skip Prototypes for Fortran binding */ 1197 1196 1198 1197 1199 int ncmpi_put_varm_schar_all(int ncid, int 64_tvarid,1200 const int64_t start[],1201 const int64_t count[],1202 const int64_t stride[],1203 const int64_t imap[],1198 int ncmpi_put_varm_schar_all(int ncid, int varid, 1199 const MPI_Offset start[], 1200 const MPI_Offset count[], 1201 const MPI_Offset stride[], 1202 const MPI_Offset imap[], 1204 1203 const signed char *op); 1205 1204 1206 1205 1207 int ncmpi_put_varm_schar(int ncid, int 64_tvarid,1208 const int64_t start[],1209 const int64_t count[],1210 const int64_t stride[],1211 const int64_t imap[],1206 int ncmpi_put_varm_schar(int ncid, int varid, 1207 const MPI_Offset start[], 1208 const MPI_Offset count[], 1209 const MPI_Offset stride[], 1210 const MPI_Offset imap[], 1212 1211 const signed char *op); 1213 1212 1214 1213 1215 int ncmpi_put_varm_text_all(int ncid, int 64_tvarid,1216 const int64_t start[],1217 const int64_t count[],1218 const int64_t stride[],1219 const int64_t imap[],1214 int ncmpi_put_varm_text_all(int ncid, int varid, 1215 const MPI_Offset start[], 1216 const MPI_Offset count[], 1217 const MPI_Offset stride[], 1218 const MPI_Offset imap[], 1220 1219 const char *op); 1221 1220 1222 1221 1223 int ncmpi_put_varm_text(int ncid, int 64_tvarid,1224 const int64_t start[],1225 const int64_t count[],1226 const int64_t stride[],1227 const int64_t imap[],1222 int ncmpi_put_varm_text(int ncid, int varid, 1223 const MPI_Offset start[], 1224 const MPI_Offset count[], 1225 const MPI_Offset stride[], 1226 const MPI_Offset imap[], 1228 1227 const char *op); 1229 1228 1230 1229 1231 int ncmpi_put_varm_short_all(int ncid, int 64_tvarid,1232 const int64_t start[],1233 const int64_t count[],1234 const int64_t stride[],1235 const int64_t imap[],1230 int ncmpi_put_varm_short_all(int ncid, int varid, 1231 const MPI_Offset start[], 1232 const MPI_Offset count[], 1233 const MPI_Offset stride[], 1234 const MPI_Offset imap[], 1236 1235 const short *op); 1237 1236 1238 1237 1239 int ncmpi_put_varm_short(int ncid, int 64_tvarid,1240 const int64_t start[],1241 const int64_t count[],1242 const int64_t stride[],1243 const int64_t imap[],1238 int ncmpi_put_varm_short(int ncid, int varid, 1239 const MPI_Offset start[], 1240 const MPI_Offset count[], 1241 const MPI_Offset stride[], 1242 const MPI_Offset imap[], 1244 1243 const short *op); 1245 1244 1246 1245 1247 int ncmpi_put_varm_int_all(int ncid, int 64_tvarid,1248 const int64_t start[],1249 const int64_t count[],1250 const int64_t stride[],1251 const int64_t imap[],1246 int ncmpi_put_varm_int_all(int ncid, int varid, 1247 const MPI_Offset start[], 1248 const MPI_Offset count[], 1249 const MPI_Offset stride[], 1250 const MPI_Offset imap[], 1252 1251 const int *op); 1253 1252 1254 1253 1255 int ncmpi_put_varm_int(int ncid, int 64_tvarid,1256 const int64_t start[],1257 const int64_t count[],1258 const int64_t stride[],1259 const int64_t imap[],1254 int ncmpi_put_varm_int(int ncid, int varid, 1255 const MPI_Offset start[], 1256 const MPI_Offset count[], 1257 const MPI_Offset stride[], 1258 const MPI_Offset imap[], 1260 1259 const int *op); 1261 1260 … … 1263 1262 /* Begin Skip Prototypes for Fortran binding */ 1264 1263 1265 int ncmpi_put_varm_long_all(int ncid, int 64_tvarid,1266 const int64_t start[],1267 const int64_t count[],1268 const int64_t stride[],1269 const int64_t imap[],1264 int ncmpi_put_varm_long_all(int ncid, int varid, 1265 const MPI_Offset start[], 1266 const MPI_Offset count[], 1267 const MPI_Offset stride[], 1268 const MPI_Offset imap[], 1270 1269 const long *op); 1271 1270 1272 1271 1273 int ncmpi_put_varm_long(int ncid, int 64_tvarid,1274 const int64_t start[],1275 const int64_t count[],1276 const int64_t stride[],1277 const int64_t imap[],1272 int ncmpi_put_varm_long(int ncid, int varid, 1273 const MPI_Offset start[], 1274 const MPI_Offset count[], 1275 const MPI_Offset stride[], 1276 const MPI_Offset imap[], 1278 1277 const long *op); 1279 1278 … … 1281 1280 1282 1281 1283 int ncmpi_put_varm_float_all(int ncid, int 64_tvarid,1284 const int64_t start[],1285 const int64_t count[],1286 const int64_t stride[],1287 const int64_t imap[],1282 int ncmpi_put_varm_float_all(int ncid, int varid, 1283 const MPI_Offset start[], 1284 const MPI_Offset count[], 1285 const MPI_Offset stride[], 1286 const MPI_Offset imap[], 1288 1287 const float *op); 1289 1288 1290 1289 1291 int ncmpi_put_varm_float(int ncid, int 64_tvarid,1292 const int64_t start[],1293 const int64_t count[],1294 const int64_t stride[],1295 const int64_t imap[],1290 int ncmpi_put_varm_float(int ncid, int varid, 1291 const MPI_Offset start[], 1292 const MPI_Offset count[], 1293 const MPI_Offset stride[], 1294 const MPI_Offset imap[], 1296 1295 const float *op); 1297 1296 1298 1297 1299 int ncmpi_put_varm_double_all(int ncid, int 64_tvarid,1300 const int64_t start[],1301 const int64_t count[],1302 const int64_t stride[],1303 const int64_t imap[],1298 int ncmpi_put_varm_double_all(int ncid, int varid, 1299 const MPI_Offset start[], 1300 const MPI_Offset count[], 1301 const MPI_Offset stride[], 1302 const MPI_Offset imap[], 1304 1303 const double *op); 1305 1304 1306 1305 1307 int ncmpi_put_varm_double(int ncid, int 64_tvarid,1308 const int64_t start[],1309 const int64_t count[],1310 const int64_t stride[],1311 const int64_t imap[],1306 int ncmpi_put_varm_double(int ncid, int varid, 1307 const MPI_Offset start[], 1308 const MPI_Offset count[], 1309 const MPI_Offset stride[], 1310 const MPI_Offset imap[], 1312 1311 const double *op); 1313 1312 1314 1313 1315 1314 /* Begin Skip Prototypes for Fortran binding */ 1316 int ncmpi_get_varm_uchar_all(int ncid, int 64_tvarid,1317 const int64_t start[],1318 const int64_t count[],1319 const int64_t stride[],1320 const int64_t imap[],1315 int ncmpi_get_varm_uchar_all(int ncid, int varid, 1316 const MPI_Offset start[], 1317 const MPI_Offset count[], 1318 const MPI_Offset stride[], 1319 const MPI_Offset imap[], 1321 1320 unsigned char *ip); 1322 1321 1323 1322 1324 int ncmpi_get_varm_uchar(int ncid, int 64_tvarid,1325 const int64_t start[],1326 const int64_t count[],1327 const int64_t stride[],1328 const int64_t imap[],1323 int ncmpi_get_varm_uchar(int ncid, int varid, 1324 const MPI_Offset start[], 1325 const MPI_Offset count[], 1326 const MPI_Offset stride[], 1327 const MPI_Offset imap[], 1329 1328 unsigned char *ip); 1330 1329 1331 1330 /* End Skip Prototypes for Fortran binding */ 1332 1331 1333 int ncmpi_get_varm_schar_all(int ncid, int 64_tvarid,1334 const int64_t start[],1335 const int64_t count[],1336 const int64_t stride[],1337 const int64_t imap[],1332 int ncmpi_get_varm_schar_all(int ncid, int varid, 1333 const MPI_Offset start[], 1334 const MPI_Offset count[], 1335 const MPI_Offset stride[], 1336 const MPI_Offset imap[], 1338 1337 signed char *ip); 1339 1338 1340 1339 1341 int ncmpi_get_varm_schar(int ncid, int 64_tvarid,1342 const int64_t start[],1343 const int64_t count[],1344 const int64_t stride[],1345 const int64_t imap[],1340 int ncmpi_get_varm_schar(int ncid, int varid, 1341 const MPI_Offset start[], 1342 const MPI_Offset count[], 1343 const MPI_Offset stride[], 1344 const MPI_Offset imap[], 1346 1345 signed char *ip); 1347 1346 1348 1347 1349 int ncmpi_get_varm_text_all(int ncid, int 64_tvarid,1350 const int64_t start[],1351 const int64_t count[],1352 const int64_t stride[],1353 const int64_t imap[],1348 int ncmpi_get_varm_text_all(int ncid, int varid, 1349 const MPI_Offset start[], 1350 const MPI_Offset count[], 1351 const MPI_Offset stride[], 1352 const MPI_Offset imap[], 1354 1353 char *ip); 1355 1354 1356 1355 1357 int ncmpi_get_varm_text(int ncid, int 64_tvarid,1358 const int64_t start[],1359 const int64_t count[],1360 const int64_t stride[],1361 const int64_t imap[],1356 int ncmpi_get_varm_text(int ncid, int varid, 1357 const MPI_Offset start[], 1358 const MPI_Offset count[], 1359 const MPI_Offset stride[], 1360 const MPI_Offset imap[], 1362 1361 char *ip); 1363 1362 1364 1363 1365 int ncmpi_get_varm_short_all(int ncid, int 64_tvarid,1366 const int64_t start[],1367 const int64_t count[],1368 const int64_t stride[],1369 const int64_t imap[],1364 int ncmpi_get_varm_short_all(int ncid, int varid, 1365 const MPI_Offset start[], 1366 const MPI_Offset count[], 1367 const MPI_Offset stride[], 1368 const MPI_Offset imap[], 1370 1369 short *ip); 1371 1370 1372 1371 1373 int ncmpi_get_varm_short(int ncid, int 64_tvarid,1374 const int64_t start[],1375 const int64_t count[],1376 const int64_t stride[],1377 const int64_t imap[],1372 int ncmpi_get_varm_short(int ncid, int varid, 1373 const MPI_Offset start[], 1374 const MPI_Offset count[], 1375 const MPI_Offset stride[], 1376 const MPI_Offset imap[], 1378 1377 short *ip); 1379 1378 1380 1379 1381 int ncmpi_get_varm_int_all(int ncid, int 64_tvarid,1382 const int64_t start[],1383 const int64_t count[],1384 const int64_t stride[],1385 const int64_t imap[],1380 int ncmpi_get_varm_int_all(int ncid, int varid, 1381 const MPI_Offset start[], 1382 const MPI_Offset count[], 1383 const MPI_Offset stride[], 1384 const MPI_Offset imap[], 1386 1385 int *ip); 1387 1386 1388 1387 1389 int ncmpi_get_varm_int(int ncid, int 64_tvarid,1390 const int64_t start[],1391 const int64_t count[],1392 const int64_t stride[],1393 const int64_t imap[],1388 int ncmpi_get_varm_int(int ncid, int varid, 1389 const MPI_Offset start[], 1390 const MPI_Offset count[], 1391 const MPI_Offset stride[], 1392 const MPI_Offset imap[], 1394 1393 int *ip); 1395 1394 … … 1397 1396 /* Begin Skip Prototypes for Fortran binding */ 1398 1397 1399 int ncmpi_get_varm_long_all(int ncid, int 64_tvarid,1400 const int64_t start[],1401 const int64_t count[],1402 const int64_t stride[],1403 const int64_t imap[],1398 int ncmpi_get_varm_long_all(int ncid, int varid, 1399 const MPI_Offset start[], 1400 const MPI_Offset count[], 1401 const MPI_Offset stride[], 1402 const MPI_Offset imap[], 1404 1403 long *ip); 1405 1404 1406 1405 1407 int ncmpi_get_varm_long(int ncid, int 64_tvarid,1408 const int64_t start[],1409 const int64_t count[],1410 const int64_t stride[],1411 const int64_t imap[],1406 int ncmpi_get_varm_long(int ncid, int varid, 1407 const MPI_Offset start[], 1408 const MPI_Offset count[], 1409 const MPI_Offset stride[], 1410 const MPI_Offset imap[], 1412 1411 long *ip); 1413 1412 … … 1415 1414 1416 1415 1417 int ncmpi_get_varm_float_all(int ncid, int 64_tvarid,1418 const int64_t start[],1419 const int64_t count[],1420 const int64_t stride[],1421 const int64_t imap[],1416 int ncmpi_get_varm_float_all(int ncid, int varid, 1417 const MPI_Offset start[], 1418 const MPI_Offset count[], 1419 const MPI_Offset stride[], 1420 const MPI_Offset imap[], 1422 1421 float *ip); 1423 1422 1424 1423 1425 int ncmpi_get_varm_float(int ncid, int 64_tvarid,1426 const int64_t start[],1427 const int64_t count[],1428 const int64_t stride[],1429 const int64_t imap[],1424 int ncmpi_get_varm_float(int ncid, int varid, 1425 const MPI_Offset start[], 1426 const MPI_Offset count[], 1427 const MPI_Offset stride[], 1428 const MPI_Offset imap[], 1430 1429 float *ip); 1431 1430 1432 1431 1433 int ncmpi_get_varm_double_all(int ncid, int 64_tvarid,1434 const int64_t start[],1435 const int64_t count[],1436 const int64_t stride[],1437 const int64_t imap[],1432 int ncmpi_get_varm_double_all(int ncid, int varid, 1433 const MPI_Offset start[], 1434 const MPI_Offset count[], 1435 const MPI_Offset stride[], 1436 const MPI_Offset imap[], 1438 1437 double *ip); 1439 1438 1440 1439 1441 int ncmpi_get_varm_double(int ncid, int 64_tvarid,1442 const int64_t start[],1443 const int64_t count[],1444 const int64_t stride[],1445 const int64_t imap[],1440 int ncmpi_get_varm_double(int ncid, int varid, 1441 const MPI_Offset start[], 1442 const MPI_Offset count[], 1443 const MPI_Offset stride[], 1444 const MPI_Offset imap[], 1446 1445 double *ip); 1447 1446 … … 1495 1494 1496 1495 1497 int ncmpi_iput_var1(int ncid, int 64_tvarid,1498 const int64_t index[],1499 const void *buf, int64_t bufcount,1496 int ncmpi_iput_var1(int ncid, int varid, 1497 const MPI_Offset index[], 1498 const void *buf, MPI_Offset bufcount, 1500 1499 MPI_Datatype datatype, NCMPI_Request *request); 1501 1500 1502 1501 1503 int ncmpi_iget_var1(int ncid, int 64_tvarid,1504 const int64_t index[],1505 void *buf, int64_t bufcount,1502 int ncmpi_iget_var1(int ncid, int varid, 1503 const MPI_Offset index[], 1504 void *buf, MPI_Offset bufcount, 1506 1505 MPI_Datatype datatype, NCMPI_Request *request); 1507 1506 1508 1507 1509 1508 /* Begin Skip Prototypes for Fortran binding */ 1510 int ncmpi_iput_var1_uchar(int ncid, int 64_tvarid,1511 const int64_t index[],1509 int ncmpi_iput_var1_uchar(int ncid, int varid, 1510 const MPI_Offset index[], 1512 1511 const unsigned char *op, NCMPI_Request *request); 1513 1512 /* End Skip Prototypes for Fortran binding */ 1514 1513 1515 int ncmpi_iput_var1_schar(int ncid, int 64_tvarid,1516 const int64_t index[],1514 int ncmpi_iput_var1_schar(int ncid, int varid, 1515 const MPI_Offset index[], 1517 1516 const signed char *op, NCMPI_Request *request); 1518 1517 1519 1518 1520 int ncmpi_iput_var1_text(int ncid, int 64_tvarid,1521 const int64_t index[],1519 int ncmpi_iput_var1_text(int ncid, int varid, 1520 const MPI_Offset index[], 1522 1521 const char *op, NCMPI_Request *request); 1523 1522 1524 1523 1525 int ncmpi_iput_var1_short(int ncid, int 64_tvarid,1526 const int64_t index[],1524 int ncmpi_iput_var1_short(int ncid, int varid, 1525 const MPI_Offset index[], 1527 1526 const short *op, NCMPI_Request *request); 1528 1527 1529 1528 1530 int ncmpi_iput_var1_int(int ncid, int 64_tvarid,1531 const int64_t index[],1529 int ncmpi_iput_var1_int(int ncid, int varid, 1530 const MPI_Offset index[], 1532 1531 const int *op, NCMPI_Request *request); 1533 1532 … … 1535 1534 /* Begin Skip Prototypes for Fortran binding */ 1536 1535 1537 int ncmpi_iput_var1_long(int ncid, int 64_tvarid,1538 const int64_t index[],1536 int ncmpi_iput_var1_long(int ncid, int varid, 1537 const MPI_Offset index[], 1539 1538 const long *ip, NCMPI_Request *request); 1540 1539 … … 1542 1541 1543 1542 1544 int ncmpi_iput_var1_float(int ncid, int 64_tvarid,1545 const int64_t index[],1543 int ncmpi_iput_var1_float(int ncid, int varid, 1544 const MPI_Offset index[], 1546 1545 const float *op, NCMPI_Request *request); 1547 1546 1548 1547 1549 int ncmpi_iput_var1_double(int ncid, int 64_tvarid,1550 const int64_t index[],1548 int ncmpi_iput_var1_double(int ncid, int varid, 1549 const MPI_Offset index[], 1551 1550 const double *op, NCMPI_Request *request); 1552 1551 1553 1552 1554 1553 /* Begin Skip Prototypes for Fortran binding */ 1555 int ncmpi_iget_var1_uchar(int ncid, int 64_tvarid,1556 const int64_t index[],1554 int ncmpi_iget_var1_uchar(int ncid, int varid, 1555 const MPI_Offset index[], 1557 1556 unsigned char *ip, NCMPI_Request *request); 1558 1557 1559 1558 /* End Skip Prototypes for Fortran binding */ 1560 1559 1561 int ncmpi_iget_var1_schar(int ncid, int 64_tvarid,1562 const int64_t index[],1560 int ncmpi_iget_var1_schar(int ncid, int varid, 1561 const MPI_Offset index[], 1563 1562 signed char *ip, NCMPI_Request *request); 1564 1563 1565 1564 1566 int ncmpi_iget_var1_text(int ncid, int 64_tvarid,1567 const int64_t index[],1565 int ncmpi_iget_var1_text(int ncid, int varid, 1566 const MPI_Offset index[], 1568 1567 char *ip, NCMPI_Request *request); 1569 1568 1570 1569 1571 int ncmpi_iget_var1_short(int ncid, int 64_tvarid,1572 const int64_t index[],1570 int ncmpi_iget_var1_short(int ncid, int varid, 1571 const MPI_Offset index[], 1573 1572 short *ip, NCMPI_Request *request); 1574 1573 1575 1574 1576 int ncmpi_iget_var1_int(int ncid, int 64_tvarid,1577 const int64_t index[],1575 int ncmpi_iget_var1_int(int ncid, int varid, 1576 const MPI_Offset index[], 1578 1577 int *ip, NCMPI_Request *request); 1579 1578 … … 1581 1580 /* Begin Skip Prototypes for Fortran binding */ 1582 1581 1583 int ncmpi_iget_var1_long(int ncid, int 64_tvarid,1584 const int64_t index[],1582 int ncmpi_iget_var1_long(int ncid, int varid, 1583 const MPI_Offset index[], 1585 1584 long *ip, NCMPI_Request *request); 1586 1585 … … 1588 1587 1589 1588 1590 int ncmpi_iget_var1_float(int ncid, int 64_tvarid,1591 const int64_t index[],1589 int ncmpi_iget_var1_float(int ncid, int varid, 1590 const MPI_Offset index[], 1592 1591 float *ip, NCMPI_Request *request); 1593 1592 1594 1593 1595 int ncmpi_iget_var1_double(int ncid, int 64_tvarid,1596 const int64_t index[],1594 int ncmpi_iget_var1_double(int ncid, int varid, 1595 const MPI_Offset index[], 1597 1596 double *ip, NCMPI_Request *request); 1598 1597 … … 1602 1601 1603 1602 1604 int ncmpi_iput_var(int ncid, int 64_t varid, const void *buf, int64_t bufcount, MPI_Datatype datatype, NCMPI_Request *request);1605 1606 1607 int ncmpi_iget_var(int ncid, int 64_t varid, void *buf, int64_t bufcount, MPI_Datatype datatype, NCMPI_Request *request);1608 1609 1610 /* Begin Skip Prototypes for Fortran binding */ 1611 int ncmpi_iput_var_uchar(int ncid, int 64_tvarid, const unsigned char *op, NCMPI_Request *request);1612 1613 /* End Skip Prototypes for Fortran binding */ 1614 1615 int ncmpi_iput_var_schar(int ncid, int 64_tvarid, const signed char *op, NCMPI_Request *request);1616 1617 1618 int ncmpi_iput_var_text(int ncid, int 64_tvarid, const char *op, NCMPI_Request *request);1619 1620 1621 int ncmpi_iput_var_short(int ncid, int 64_tvarid, const short *op, NCMPI_Request *request);1622 1623 1624 int ncmpi_iput_var_int(int ncid, int 64_tvarid, const int *op, NCMPI_Request *request);1625 1626 1627 /* Begin Skip Prototypes for Fortran binding */ 1628 1629 int ncmpi_iput_var_long(int ncid, int 64_tvarid, const long *op, NCMPI_Request *request);1630 1631 /* End Skip Prototypes for Fortran binding */ 1632 1633 1634 int ncmpi_iput_var_float(int ncid, int 64_tvarid, const float *op, NCMPI_Request *request);1635 1636 1637 int ncmpi_iput_var_double(int ncid, int 64_tvarid, const double *op, NCMPI_Request *request);1638 1639 1640 /* Begin Skip Prototypes for Fortran binding */ 1641 int ncmpi_iget_var_uchar(int ncid, int 64_tvarid, unsigned char *ip, NCMPI_Request *request);1642 1643 /* End Skip Prototypes for Fortran binding */ 1644 1645 int ncmpi_iget_var_schar(int ncid, int 64_tvarid, signed char *ip, NCMPI_Request *request);1646 1647 1648 int ncmpi_iget_var_text(int ncid, int 64_tvarid, char *ip, NCMPI_Request *request);1649 1650 1651 int ncmpi_iget_var_short(int ncid, int 64_tvarid, short *ip, NCMPI_Request *request);1652 1653 1654 int ncmpi_iget_var_int(int ncid, int 64_tvarid, int *ip, NCMPI_Request *request);1655 1656 1657 /* Begin Skip Prototypes for Fortran binding */ 1658 1659 int ncmpi_iget_var_long(int ncid, int 64_tvarid, long *ip, NCMPI_Request *request);1660 1661 /* End Skip Prototypes for Fortran binding */ 1662 1663 1664 int ncmpi_iget_var_float(int ncid, int 64_tvarid, float *ip, NCMPI_Request *request);1665 1666 1667 int ncmpi_iget_var_double(int ncid, int 64_tvarid, double *ip, NCMPI_Request *request);1603 int ncmpi_iput_var(int ncid, int varid, const void *buf, MPI_Offset bufcount, MPI_Datatype datatype, NCMPI_Request *request); 1604 1605 1606 int ncmpi_iget_var(int ncid, int varid, void *buf, MPI_Offset bufcount, MPI_Datatype datatype, NCMPI_Request *request); 1607 1608 1609 /* Begin Skip Prototypes for Fortran binding */ 1610 int ncmpi_iput_var_uchar(int ncid, int varid, const unsigned char *op, NCMPI_Request *request); 1611 1612 /* End Skip Prototypes for Fortran binding */ 1613 1614 int ncmpi_iput_var_schar(int ncid, int varid, const signed char *op, NCMPI_Request *request); 1615 1616 1617 int ncmpi_iput_var_text(int ncid, int varid, const char *op, NCMPI_Request *request); 1618 1619 1620 int ncmpi_iput_var_short(int ncid, int varid, const short *op, NCMPI_Request *request); 1621 1622 1623 int ncmpi_iput_var_int(int ncid, int varid, const int *op, NCMPI_Request *request); 1624 1625 1626 /* Begin Skip Prototypes for Fortran binding */ 1627 1628 int ncmpi_iput_var_long(int ncid, int varid, const long *op, NCMPI_Request *request); 1629 1630 /* End Skip Prototypes for Fortran binding */ 1631 1632 1633 int ncmpi_iput_var_float(int ncid, int varid, const float *op, NCMPI_Request *request); 1634 1635 1636 int ncmpi_iput_var_double(int ncid, int varid, const double *op, NCMPI_Request *request); 1637 1638 1639 /* Begin Skip Prototypes for Fortran binding */ 1640 int ncmpi_iget_var_uchar(int ncid, int varid, unsigned char *ip, NCMPI_Request *request); 1641 1642 /* End Skip Prototypes for Fortran binding */ 1643 1644 int ncmpi_iget_var_schar(int ncid, int varid, signed char *ip, NCMPI_Request *request); 1645 1646 1647 int ncmpi_iget_var_text(int ncid, int varid, char *ip, NCMPI_Request *request); 1648 1649 1650 int ncmpi_iget_var_short(int ncid, int varid, short *ip, NCMPI_Request *request); 1651 1652 1653 int ncmpi_iget_var_int(int ncid, int varid, int *ip, NCMPI_Request *request); 1654 1655 1656 /* Begin Skip Prototypes for Fortran binding */ 1657 1658 int ncmpi_iget_var_long(int ncid, int varid, long *ip, NCMPI_Request *request); 1659 1660 /* End Skip Prototypes for Fortran binding */ 1661 1662 1663 int ncmpi_iget_var_float(int ncid, int varid, float *ip, NCMPI_Request *request); 1664 1665 1666 int ncmpi_iget_var_double(int ncid, int varid, double *ip, NCMPI_Request *request); 1668 1667 1669 1668 … … 1681 1680 1682 1681 1683 int ncmpi_iput_vara(int ncid, int 64_tvarid,1684 const int64_t start[], const int64_t count[],1685 const void *buf, int64_t bufcount,1682 int ncmpi_iput_vara(int ncid, int varid, 1683 const MPI_Offset start[], const MPI_Offset count[], 1684 const void *buf, MPI_Offset bufcount, 1686 1685 MPI_Datatype datatype, NCMPI_Request *request); 1687 1686 1688 1687 1689 int ncmpi_iget_vara(int ncid, int 64_tvarid,1690 const int64_t start[], const int64_t count[],1691 void *buf, int64_t bufcount,1688 int ncmpi_iget_vara(int ncid, int varid, 1689 const MPI_Offset start[], const MPI_Offset count[], 1690 void *buf, MPI_Offset bufcount, 1692 1691 MPI_Datatype datatype, NCMPI_Request *request); 1693 1692 … … 1695 1694 /* Begin Skip Prototypes for Fortran binding */ 1696 1695 1697 int ncmpi_iput_vara_uchar(int ncid, int 64_tvarid,1698 const int64_t start[], const int64_t count[],1696 int ncmpi_iput_vara_uchar(int ncid, int varid, 1697 const MPI_Offset start[], const MPI_Offset count[], 1699 1698 const unsigned char *op, NCMPI_Request *request); 1700 1699 1701 1700 /* End Skip Prototypes for Fortran binding */ 1702 1701 1703 int ncmpi_iput_vara_schar(int ncid, int 64_tvarid,1704 const int64_t start[], const int64_t count[],1702 int ncmpi_iput_vara_schar(int ncid, int varid, 1703 const MPI_Offset start[], const MPI_Offset count[], 1705 1704 const signed char *op, NCMPI_Request *request); 1706 1705 1707 1706 1708 int ncmpi_iput_vara_text(int ncid, int 64_tvarid,1709 const int64_t start[], const int64_t count[],1707 int ncmpi_iput_vara_text(int ncid, int varid, 1708 const MPI_Offset start[], const MPI_Offset count[], 1710 1709 const char *op, NCMPI_Request *request); 1711 1710 1712 1711 1713 int ncmpi_iput_vara_short(int ncid, int 64_tvarid,1714 const int64_t start[], const int64_t count[],1712 int ncmpi_iput_vara_short(int ncid, int varid, 1713 const MPI_Offset start[], const MPI_Offset count[], 1715 1714 const short *op, NCMPI_Request *request); 1716 1715 1717 1716 1718 int ncmpi_iput_vara_int(int ncid, int 64_tvarid,1719 const int64_t start[], const int64_t count[],1717 int ncmpi_iput_vara_int(int ncid, int varid, 1718 const MPI_Offset start[], const MPI_Offset count[], 1720 1719 const int *op, NCMPI_Request *request); 1721 1720 … … 1724 1723 1725 1724 1726 int ncmpi_iput_vara_long(int ncid, int 64_tvarid,1727 const int64_t start[], const int64_t count[],1725 int ncmpi_iput_vara_long(int ncid, int varid, 1726 const MPI_Offset start[], const MPI_Offset count[], 1728 1727 const long *op, NCMPI_Request *request); 1729 1728 … … 1731 1730 1732 1731 1733 int ncmpi_iput_vara_float(int ncid, int 64_tvarid,1734 const int64_t start[], const int64_t count[],1732 int ncmpi_iput_vara_float(int ncid, int varid, 1733 const MPI_Offset start[], const MPI_Offset count[], 1735 1734 const float *op, NCMPI_Request *request); 1736 1735 1737 1736 1738 int ncmpi_iput_vara_double(int ncid, int 64_tvarid,1739 const int64_t start[], const int64_t count[],1737 int ncmpi_iput_vara_double(int ncid, int varid, 1738 const MPI_Offset start[], const MPI_Offset count[], 1740 1739 const double *op, NCMPI_Request *request); 1741 1740 … … 1743 1742 /* Begin Skip Prototypes for Fortran binding */ 1744 1743 1745 int ncmpi_iget_vara_uchar(int ncid, int 64_tvarid,1746 const int64_t start[], const int64_t count[],1744 int ncmpi_iget_vara_uchar(int ncid, int varid, 1745 const MPI_Offset start[], const MPI_Offset count[], 1747 1746 unsigned char *ip, NCMPI_Request *request); 1748 1747 /* End Skip Prototypes for Fortran binding */ 1749 1748 1750 1749 1751 int ncmpi_iget_vara_schar(int ncid, int 64_tvarid,1752 const int64_t start[], const int64_t count[],1750 int ncmpi_iget_vara_schar(int ncid, int varid, 1751 const MPI_Offset start[], const MPI_Offset count[], 1753 1752 signed char *ip, NCMPI_Request *request); 1754 1753 1755 1754 1756 int ncmpi_iget_vara_text(int ncid, int 64_tvarid,1757 const int64_t start[], const int64_t count[],1755 int ncmpi_iget_vara_text(int ncid, int varid, 1756 const MPI_Offset start[], const MPI_Offset count[], 1758 1757 char *ip, NCMPI_Request *request); 1759 1758 1760 1759 1761 int ncmpi_iget_vara_short(int ncid, int 64_tvarid,1762 const int64_t start[], const int64_t count[],1760 int ncmpi_iget_vara_short(int ncid, int varid, 1761 const MPI_Offset start[], const MPI_Offset count[], 1763 1762 short *ip, NCMPI_Request *request); 1764 1763 1765 1764 1766 int ncmpi_iget_vara_int(int ncid, int 64_tvarid,1767 const int64_t start[], const int64_t count[],1765 int ncmpi_iget_vara_int(int ncid, int varid, 1766 const MPI_Offset start[], const MPI_Offset count[], 1768 1767 int *ip, NCMPI_Request *request); 1769 1768 … … 1771 1770 /* Begin Skip Prototypes for Fortran binding */ 1772 1771 1773 int ncmpi_iget_vara_long(int ncid, int 64_tvarid,1774 const int64_t start[], const int64_t count[],1772 int ncmpi_iget_vara_long(int ncid, int varid, 1773 const MPI_Offset start[], const MPI_Offset count[], 1775 1774 long *ip, NCMPI_Request *request); 1776 1775 … … 1778 1777 1779 1778 1780 int ncmpi_iget_vara_float(int ncid, int 64_tvarid,1781 const int64_t start[], const int64_t count[],1779 int ncmpi_iget_vara_float(int ncid, int varid, 1780 const MPI_Offset start[], const MPI_Offset count[], 1782 1781 float *ip, NCMPI_Request *request); 1783 1782 1784 1783 1785 int ncmpi_iget_vara_double(int ncid, int 64_tvarid,1786 const int64_t start[], const int64_t count[],1784 int ncmpi_iget_vara_double(int ncid, int varid, 1785 const MPI_Offset start[], const MPI_Offset count[], 1787 1786 double *ip, NCMPI_Request *request); 1788 1787 … … 1792 1791 1793 1792 1794 int ncmpi_iput_vars(int ncid, int 64_tvarid,1795 const int64_t start[],1796 const int64_t count[],1797 const int64_t stride[],1798 const void *buf, int64_t bufcount,1793 int ncmpi_iput_vars(int ncid, int varid, 1794 const MPI_Offset start[], 1795 const MPI_Offset count[], 1796 const MPI_Offset stride[], 1797 const void *buf, MPI_Offset bufcount, 1799 1798 MPI_Datatype datatype, NCMPI_Request *request); 1800 1799 1801 1800 1802 int ncmpi_iget_vars(int ncid, int 64_tvarid,1803 const int64_t start[],1804 const int64_t count[],1805 const int64_t stride[],1806 void *buf, int64_t bufcount,1801 int ncmpi_iget_vars(int ncid, int varid, 1802 const MPI_Offset start[], 1803 const MPI_Offset count[], 1804 const MPI_Offset stride[], 1805 void *buf, MPI_Offset bufcount, 1807 1806 MPI_Datatype datatype, NCMPI_Request *request); 1808 1807 1809 1808 1810 1809 /* Begin Skip Prototypes for Fortran binding */ 1811 int ncmpi_iput_vars_uchar(int ncid, int 64_tvarid,1812 const int64_t start[],1813 const int64_t count[],1814 const int64_t stride[],1810 int ncmpi_iput_vars_uchar(int ncid, int varid, 1811 const MPI_Offset start[], 1812 const MPI_Offset count[], 1813 const MPI_Offset stride[], 1815 1814 const unsigned char *op, NCMPI_Request *request); 1816 1815 /* End Skip Prototypes for Fortran binding */ 1817 1816 1818 1817 1819 int ncmpi_iput_vars_schar(int ncid, int 64_tvarid,1820 const int64_t start[],1821 const int64_t count[],1822 const int64_t stride[],1818 int ncmpi_iput_vars_schar(int ncid, int varid, 1819 const MPI_Offset start[], 1820 const MPI_Offset count[], 1821 const MPI_Offset stride[], 1823 1822 const signed char *op, NCMPI_Request *request); 1824 1823 1825 1824 1826 int ncmpi_iput_vars_text(int ncid, int 64_tvarid,1827 const int64_t start[],1828 const int64_t count[],1829 const int64_t stride[],1825 int ncmpi_iput_vars_text(int ncid, int varid, 1826 const MPI_Offset start[], 1827 const MPI_Offset count[], 1828 const MPI_Offset stride[], 1830 1829 const char *op, NCMPI_Request *request); 1831 1830 1832 1831 1833 int ncmpi_iput_vars_short(int ncid, int 64_tvarid,1834 const int64_t start[],1835 const int64_t count[],1836 const int64_t stride[],1832 int ncmpi_iput_vars_short(int ncid, int varid, 1833 const MPI_Offset start[], 1834 const MPI_Offset count[], 1835 const MPI_Offset stride[], 1837 1836 const short *op, NCMPI_Request *request); 1838 1837 1839 1838 1840 int ncmpi_iput_vars_int(int ncid, int 64_tvarid,1841 const int64_t start[],1842 const int64_t count[],1843 const int64_t stride[],1839 int ncmpi_iput_vars_int(int ncid, int varid, 1840 const MPI_Offset start[], 1841 const MPI_Offset count[], 1842 const MPI_Offset stride[], 1844 1843 const int *op, NCMPI_Request *request); 1845 1844 … … 1847 1846 /* Begin Skip Prototypes for Fortran binding */ 1848 1847 1849 int ncmpi_iput_vars_long(int ncid, int 64_tvarid,1850 const int64_t start[],1851 const int64_t count[],1852 const int64_t stride[],1848 int ncmpi_iput_vars_long(int ncid, int varid, 1849 const MPI_Offset start[], 1850 const MPI_Offset count[], 1851 const MPI_Offset stride[], 1853 1852 const long *op, NCMPI_Request *request); 1854 1853 … … 1856 1855 1857 1856 1858 int ncmpi_iput_vars_float(int ncid, int 64_tvarid,1859 const int64_t start[],1860 const int64_t count[],1861 const int64_t stride[],1857 int ncmpi_iput_vars_float(int ncid, int varid, 1858 const MPI_Offset start[], 1859 const MPI_Offset count[], 1860 const MPI_Offset stride[], 1862 1861 const float *op, NCMPI_Request *request); 1863 1862 1864 1863 1865 int ncmpi_iput_vars_double(int ncid, int 64_tvarid,1866 const int64_t start[],1867 const int64_t count[],1868 const int64_t stride[],1864 int ncmpi_iput_vars_double(int ncid, int varid, 1865 const MPI_Offset start[], 1866 const MPI_Offset count[], 1867 const MPI_Offset stride[], 1869 1868 const double *op, NCMPI_Request *request); 1870 1869 … … 1872 1871 /* Begin Skip Prototypes for Fortran binding */ 1873 1872 1874 int ncmpi_iget_vars_uchar(int ncid, int 64_tvarid,1875 const int64_t start[],1876 const int64_t count[],1877 const int64_t stride[],1873 int ncmpi_iget_vars_uchar(int ncid, int varid, 1874 const MPI_Offset start[], 1875 const MPI_Offset count[], 1876 const MPI_Offset stride[], 1878 1877 unsigned char *ip, NCMPI_Request *request); 1879 1878 1880 1879 /* End Skip Prototypes for Fortran binding */ 1881 1880 1882 int ncmpi_iget_vars_schar(int ncid, int 64_tvarid,1883 const int64_t start[],1884 const int64_t count[],1885 const int64_t stride[],1881 int ncmpi_iget_vars_schar(int ncid, int varid, 1882 const MPI_Offset start[], 1883 const MPI_Offset count[], 1884 const MPI_Offset stride[], 1886 1885 signed char *ip, NCMPI_Request *request); 1887 1886 1888 1887 1889 int ncmpi_iget_vars_text(int ncid, int 64_tvarid,1890 const int64_t start[],1891 const int64_t count[],1892 const int64_t stride[],1888 int ncmpi_iget_vars_text(int ncid, int varid, 1889 const MPI_Offset start[], 1890 const MPI_Offset count[], 1891 const MPI_Offset stride[], 1893 1892 char *ip, NCMPI_Request *request); 1894 1893 1895 1894 1896 int ncmpi_iget_vars_short(int ncid, int 64_tvarid,1897 const int64_t start[],1898 const int64_t count[],1899 const int64_t stride[],1895 int ncmpi_iget_vars_short(int ncid, int varid, 1896 const MPI_Offset start[], 1897 const MPI_Offset count[], 1898 const MPI_Offset stride[], 1900 1899 short *ip, NCMPI_Request *request); 1901 1900 1902 1901 1903 int ncmpi_iget_vars_int(int ncid, int 64_tvarid,1904 const int64_t start[],1905 const int64_t count[],1906 const int64_t stride[],1902 int ncmpi_iget_vars_int(int ncid, int varid, 1903 const MPI_Offset start[], 1904 const MPI_Offset count[], 1905 const MPI_Offset stride[], 1907 1906 int *ip, NCMPI_Request *request); 1908 1907 … … 1910 1909 /* Begin Skip Prototypes for Fortran binding */ 1911 1910 1912 int ncmpi_iget_vars_long(int ncid, int 64_tvarid,1913 const int64_t start[],1914 const int64_t count[],1915 const int64_t stride[],1911 int ncmpi_iget_vars_long(int ncid, int varid, 1912 const MPI_Offset start[], 1913 const MPI_Offset count[], 1914 const MPI_Offset stride[], 1916 1915 long *ip, NCMPI_Request *request); 1917 1916 … … 1919 1918 1920 1919 1921 int ncmpi_iget_vars_float(int ncid, int 64_tvarid,1922 const int64_t start[],1923 const int64_t count[],1924 const int64_t stride[],1920 int ncmpi_iget_vars_float(int ncid, int varid, 1921 const MPI_Offset start[], 1922 const MPI_Offset count[], 1923 const MPI_Offset stride[], 1925 1924 float *ip, NCMPI_Request *request); 1926 1925 1927 1926 1928 int ncmpi_iget_vars_double(int ncid, int 64_tvarid,1929 const int64_t start[],1930 const int64_t count[],1931 const int64_t stride[],1927 int ncmpi_iget_vars_double(int ncid, int varid, 1928 const MPI_Offset start[], 1929 const MPI_Offset count[], 1930 const MPI_Offset stride[], 1932 1931 double *ip, NCMPI_Request *request); 1933 1932 … … 1937 1936 1938 1937 1939 int ncmpi_iput_varm(int ncid, int 64_tvarid,1940 const int64_t start[],1941 const int64_t count[],1942 const int64_t stride[],1943 const int64_t imap[],1944 const void *buf, int64_t bufcount,1938 int ncmpi_iput_varm(int ncid, int varid, 1939 const MPI_Offset start[], 1940 const MPI_Offset count[], 1941 const MPI_Offset stride[], 1942 const MPI_Offset imap[], 1943 const void *buf, MPI_Offset bufcount, 1945 1944 MPI_Datatype datatype, NCMPI_Request *request); 1946 1945 1947 1946 1948 int ncmpi_iget_varm(int ncid, int 64_tvarid,1949 const int64_t start[],1950 const int64_t count[],1951 const int64_t stride[],1952 const int64_t imap[],1953 void *buf, int64_t bufcount,1947 int ncmpi_iget_varm(int ncid, int varid, 1948 const MPI_Offset start[], 1949 const MPI_Offset count[], 1950 const MPI_Offset stride[], 1951 const MPI_Offset imap[], 1952 void *buf, MPI_Offset bufcount, 1954 1953 MPI_Datatype datatype, NCMPI_Request *request); 1955 1954 1956 1955 1957 1956 /* Begin Skip Prototypes for Fortran binding */ 1958 int ncmpi_iput_varm_uchar(int ncid, int 64_tvarid,1959 const int64_t start[],1960 const int64_t count[],1961 const int64_t stride[],1962 const int64_t imap[],1957 int ncmpi_iput_varm_uchar(int ncid, int varid, 1958 const MPI_Offset start[], 1959 const MPI_Offset count[], 1960 const MPI_Offset stride[], 1961 const MPI_Offset imap[], 1963 1962 const unsigned char *op, NCMPI_Request *request); 1964 1963 /* End Skip Prototypes for Fortran binding */ 1965 1964 1966 1965 1967 int ncmpi_iput_varm_schar(int ncid, int 64_tvarid,1968 const int64_t start[],1969 const int64_t count[],1970 const int64_t stride[],1971 const int64_t imap[],1966 int ncmpi_iput_varm_schar(int ncid, int varid, 1967 const MPI_Offset start[], 1968 const MPI_Offset count[], 1969 const MPI_Offset stride[], 1970 const MPI_Offset imap[], 1972 1971 const signed char *op, NCMPI_Request *request); 1973 1972 1974 1973 1975 int ncmpi_iput_varm_text(int ncid, int 64_tvarid,1976 const int64_t start[],1977 const int64_t count[],1978 const int64_t stride[],1979 const int64_t imap[],1974 int ncmpi_iput_varm_text(int ncid, int varid, 1975 const MPI_Offset start[], 1976 const MPI_Offset count[], 1977 const MPI_Offset stride[], 1978 const MPI_Offset imap[], 1980 1979 const char *op, NCMPI_Request *request); 1981 1980 1982 1981 1983 int ncmpi_iput_varm_short(int ncid, int 64_tvarid,1984 const int64_t start[],1985 const int64_t count[],1986 const int64_t stride[],1987 const int64_t imap[],1982 int ncmpi_iput_varm_short(int ncid, int varid, 1983 const MPI_Offset start[], 1984 const MPI_Offset count[], 1985 const MPI_Offset stride[], 1986 const MPI_Offset imap[], 1988 1987 const short *op, NCMPI_Request *request); 1989 1988 1990 1989 1991 int ncmpi_iput_varm_int(int ncid, int 64_tvarid,1992 const int64_t start[],1993 const int64_t count[],1994 const int64_t stride[],1995 const int64_t imap[],1990 int ncmpi_iput_varm_int(int ncid, int varid, 1991 const MPI_Offset start[], 1992 const MPI_Offset count[], 1993 const MPI_Offset stride[], 1994 const MPI_Offset imap[], 1996 1995 const int *op, NCMPI_Request *request); 1997 1996 … … 1999 1998 /* Begin Skip Prototypes for Fortran binding */ 2000 1999 2001 int ncmpi_iput_varm_long(int ncid, int 64_tvarid,2002 const int64_t start[],2003 const int64_t count[],2004 const int64_t stride[],2005 const int64_t imap[],2000 int ncmpi_iput_varm_long(int ncid, int varid, 2001 const MPI_Offset start[], 2002 const MPI_Offset count[], 2003 const MPI_Offset stride[], 2004 const MPI_Offset imap[], 2006 2005 const long *op, NCMPI_Request *request); 2007 2006 … … 2009 2008 2010 2009 2011 int ncmpi_iput_varm_float(int ncid, int 64_tvarid,2012 const int64_t start[],2013 const int64_t count[],2014 const int64_t stride[],2015 const int64_t imap[],2010 int ncmpi_iput_varm_float(int ncid, int varid, 2011 const MPI_Offset start[], 2012 const MPI_Offset count[], 2013 const MPI_Offset stride[], 2014 const MPI_Offset imap[], 2016 2015 const float *op, NCMPI_Request *request); 2017 2016 2018 2017 2019 int ncmpi_iput_varm_double(int ncid, int 64_tvarid,2020 const int64_t start[],2021 const int64_t count[],2022 const int64_t stride[],2023 const int64_t imap[],2018 int ncmpi_iput_varm_double(int ncid, int varid, 2019 const MPI_Offset start[], 2020 const MPI_Offset count[], 2021 const MPI_Offset stride[], 2022 const MPI_Offset imap[], 2024 2023 const double *op, NCMPI_Request *request); 2025 2024 … … 2027 2026 /* Begin Skip Prototypes for Fortran binding */ 2028 2027 2029 int ncmpi_iget_varm_uchar(int ncid, int 64_tvarid,2030 const int64_t start[],2031 const int64_t count[],2032 const int64_t stride[],2033 const int64_t imap[],2028 int ncmpi_iget_varm_uchar(int ncid, int varid, 2029 const MPI_Offset start[], 2030 const MPI_Offset count[], 2031 const MPI_Offset stride[], 2032 const MPI_Offset imap[], 2034 2033 unsigned char *ip, NCMPI_Request *request); 2035 2034 2036 2035 /* End Skip Prototypes for Fortran binding */ 2037 2036 2038 int ncmpi_iget_varm_schar(int ncid, int 64_tvarid,2039 const int64_t start[],2040 const int64_t count[],2041 const int64_t stride[],2042 const int64_t imap[],2037 int ncmpi_iget_varm_schar(int ncid, int varid, 2038 const MPI_Offset start[], 2039 const MPI_Offset count[], 2040 const MPI_Offset stride[], 2041 const MPI_Offset imap[], 2043 2042 signed char *ip, NCMPI_Request *request); 2044 2043 2045 2044 2046 int ncmpi_iget_varm_text(int ncid, int 64_tvarid,2047 const int64_t start[],2048 const int64_t count[],2049 const int64_t stride[],2050 const int64_t imap[],2045 int ncmpi_iget_varm_text(int ncid, int varid, 2046 const MPI_Offset start[], 2047 const MPI_Offset count[], 2048 const MPI_Offset stride[], 2049 const MPI_Offset imap[], 2051 2050 char *ip, NCMPI_Request *request); 2052 2051 2053 2052 2054 int ncmpi_iget_varm_short(int ncid, int 64_tvarid,2055 const int64_t start[],2056 const int64_t count[],2057 const int64_t stride[],2058 const int64_t imap[],2053 int ncmpi_iget_varm_short(int ncid, int varid, 2054 const MPI_Offset start[], 2055 const MPI_Offset count[], 2056 const MPI_Offset stride[], 2057 const MPI_Offset imap[], 2059 2058 short *ip, NCMPI_Request *request); 2060 2059 2061 2060 2062 int ncmpi_iget_varm_int(int ncid, int 64_tvarid,2063 const int64_t start[],2064 const int64_t count[],2065 const int64_t stride[],2066 const int64_t imap[],2061 int ncmpi_iget_varm_int(int ncid, int varid, 2062 const MPI_Offset start[], 2063 const MPI_Offset count[], 2064 const MPI_Offset stride[], 2065 const MPI_Offset imap[], 2067 2066 int *ip, NCMPI_Request *request); 2068 2067 … … 2070 2069 /* Begin Skip Prototypes for Fortran binding */ 2071 2070 2072 int ncmpi_iget_varm_long(int ncid, int 64_tvarid,2073 const int64_t start[],2074 const int64_t count[],2075 const int64_t stride[],2076 const int64_t imap[],2071 int ncmpi_iget_varm_long(int ncid, int varid, 2072 const MPI_Offset start[], 2073 const MPI_Offset count[], 2074 const MPI_Offset stride[], 2075 const MPI_Offset imap[], 2077 2076 long *ip, NCMPI_Request *request); 2078 2077 … … 2080 2079 2081 2080 2082 int ncmpi_iget_varm_float(int ncid, int 64_tvarid,2083 const int64_t start[],2084 const int64_t count[],2085 const int64_t stride[],2086 const int64_t imap[],2081 int ncmpi_iget_varm_float(int ncid, int varid, 2082 const MPI_Offset start[], 2083 const MPI_Offset count[], 2084 const MPI_Offset stride[], 2085 const MPI_Offset imap[], 2087 2086 float *ip, NCMPI_Request *request); 2088 2087 2089 2088 2090 int ncmpi_iget_varm_double(int ncid, int 64_tvarid,2091 const int64_t start[],2092 const int64_t count[],2093 const int64_t stride[],2094 const int64_t imap[],2089 int ncmpi_iget_varm_double(int ncid, int varid, 2090 const MPI_Offset start[], 2091 const MPI_Offset count[], 2092 const MPI_Offset stride[], 2093 const MPI_Offset imap[], 2095 2094 double *ip, NCMPI_Request *request); 2096 2095 trunk/CDF3/src/lib/string.c
r613 r625 72 72 */ 73 73 NC_string * 74 ncmpii_new_NC_string( int64_t slen, const char *str)74 ncmpii_new_NC_string(MPI_Offset slen, const char *str) 75 75 { 76 76 NC_string *ncstrp; 77 int64_t sz = M_RNDUP(sizeof(NC_string)) + slen + 1;77 MPI_Offset sz = M_RNDUP(sizeof(NC_string)) + slen + 1; 78 78 79 79 #if 0 … … 109 109 ncmpii_set_NC_string(NC_string *ncstrp, const char *str) 110 110 { 111 int64_t slen;112 int64_t diff;111 MPI_Offset slen; 112 MPI_Offset diff; 113 113 114 114 assert(str != NULL && *str != 0); trunk/CDF3/src/lib/validator.c
r613 r625 33 33 /* Prototypes for functions used only in this file */ 34 34 static int val_get_NCtype(bufferinfo *gbp, NCtype *typep); 35 static int val_get_size_t(bufferinfo *gbp, int64_t *sp);35 static int val_get_size_t(bufferinfo *gbp, MPI_Offset *sp); 36 36 static int val_get_NC_string(bufferinfo *gbp, NC_string **ncstrpp); 37 37 static int val_get_NC_dim(bufferinfo *gbp, NC_dim **dimpp); … … 45 45 static int val_get_NC(NC *ncp); 46 46 47 static int val_fetch(bufferinfo *gbp, int64_t fsize);48 static int val_check_buffer(bufferinfo *gbp, int64_t nextread);47 static int val_fetch(bufferinfo *gbp, MPI_Offset fsize); 48 static int val_check_buffer(bufferinfo *gbp, MPI_Offset nextread); 49 49 50 50 /* Begin Of get NC */ … … 54 54 */ 55 55 static int 56 val_fetch(bufferinfo *gbp, int64_t fsize) {56 val_fetch(bufferinfo *gbp, MPI_Offset fsize) { 57 57 char *buf; 58 58 ssize_t nn = 0, bufsize = 0; … … 86 86 */ 87 87 static int 88 val_check_buffer(bufferinfo *gbp, int64_t nextread) {88 val_check_buffer(bufferinfo *gbp, MPI_Offset nextread) { 89 89 if ((char *)gbp->pos + nextread <= (char *)gbp->base + gbp->size) 90 90 return ENOERR; … … 110 110 111 111 static int 112 val_get_size_t(bufferinfo *gbp, int64_t *sp) {113 int sizeof_t = gbp->version == 3? 8 : 4;112 val_get_size_t(bufferinfo *gbp, MPI_Offset *sp) { 113 int sizeof_t = gbp->version == 5 ? 8 : 4; 114 114 int status = val_check_buffer(gbp, sizeof_t); 115 115 if (status != ENOERR) { … … 123 123 val_get_NC_string(bufferinfo *gbp, NC_string **ncstrpp) { 124 124 int status; 125 int64_t nchars = 0, padding, bufremain, strcount;125 MPI_Offset nchars = 0, padding, bufremain, strcount; 126 126 NC_string *ncstrp; 127 127 char *cpos; … … 305 305 void *value = attrp->xvalue; 306 306 char pad[X_ALIGN-1]; 307 int64_t nvalues = attrp->nelems, esz, padding, bufremain, attcount;307 MPI_Offset nvalues = attrp->nelems, esz, padding, bufremain, attcount; 308 308 309 309 esz = ncmpix_len_nctype(attrp->type); … … 345 345 int status; 346 346 nc_type type; 347 int64_t nelems;347 MPI_Offset nelems; 348 348 NC_attr *attrp; 349 349 … … 447 447 NC_string *strp; 448 448 int status; 449 int64_t ndims, dim; 449 MPI_Offset ndims, tmp_dim; 450 int dim; 450 451 NC_var *varp; 451 452 … … 468 469 469 470 for (dim = 0; dim < ndims; dim++ ) { 470 status = val_check_buffer(gbp, (gbp->version == 3? 8 : 4));471 status = val_check_buffer(gbp, (gbp->version == 5 ? 8 : 4)); 471 472 if(status != ENOERR) { 472 473 printf("the dimid[%d] is expected for \"%s\" - ", (int)dim, strp->cp); … … 474 475 return status; 475 476 } 477 tmp_dim = (MPI_Offset) varp->dimids + dim; 476 478 status = ncmpix_getn_long_long((const void **)(&gbp->pos), 477 1, varp->dimids +dim);479 1, &tmp_dim); 478 480 if(status != ENOERR) { 479 481 ncmpii_free_NC_var(varp); … … 503 505 } 504 506 505 status = val_check_buffer(gbp, (gbp->version == 3? 8 : 4));507 status = val_check_buffer(gbp, (gbp->version == 5 ? 8 : 4)); 506 508 if(status != ENOERR) { 507 509 printf("offset is expected for the data of \"%s\" - ", strp->cp); … … 584 586 bufferinfo getbuf; 585 587 schar magic[sizeof(ncmagic)]; 586 int64_t nrecs = 0;588 MPI_Offset nrecs = 0; 587 589 588 590 assert(ncp != NULL); … … 620 622 return status; 621 623 } 622 status = ncmpix_get_size_t((const void **)(&getbuf.pos), &nrecs, getbuf.version == 3? 8 : 4);624 status = ncmpix_get_size_t((const void **)(&getbuf.pos), &nrecs, getbuf.version == 5 ? 8 : 4); 623 625 if(status != ENOERR) { 624 626 free(getbuf.base); … … 651 653 652 654 ncp->xsz = ncmpii_hdr_len_NC(ncp, (getbuf.version == 1 ? 4 : 8)); 653 status = ncmpii_NC_computeshapes(ncp , (getbuf.version == 3 ? 8 : 4));655 status = ncmpii_NC_computeshapes(ncp); 654 656 free(getbuf.base); 655 657 trunk/CDF3/src/lib/var.c
r622 r625 15 15 16 16 /* Prototypes for functions used only in this file */ 17 static int64_t ncx_szof(nc_type type);17 static MPI_Offset ncx_szof(nc_type type); 18 18 19 19 /* … … 40 40 ncmpii_new_x_NC_var( 41 41 NC_string *strp, 42 int64_t ndims)43 { 44 NC_var *varp; 45 const int64_t o1 = M_RNDUP(ndims * sizeof(int64_t));46 const int64_t o2 = M_RNDUP(ndims * sizeof(int64_t));47 const int64_t sz = M_RNDUP(sizeof(NC_var)) +48 o1 + o2 + ndims * sizeof( int64_t);42 size_t ndims) 43 { 44 NC_var *varp; 45 const MPI_Offset o1 = M_RNDUP(ndims * sizeof(MPI_Offset)); 46 const MPI_Offset o2 = M_RNDUP(ndims * sizeof(MPI_Offset)); 47 const MPI_Offset sz = M_RNDUP(sizeof(NC_var)) + 48 o1 + o2 + ndims * sizeof(MPI_Offset); 49 49 50 50 varp = (NC_var *) malloc(sz); … … 63 63 * We use the M_RNDUP() macro to get the proper alignment. 64 64 */ 65 varp->dimids = (int 64_t*)((char *)varp + M_RNDUP(sizeof(NC_var)));66 varp->shape = ( int64_t *)((char *)varp->dimids + o1);67 varp->dsizes = ( int64_t *)((char *)varp->shape + o2);65 varp->dimids = (int *)((char *)varp + M_RNDUP(sizeof(NC_var))); 66 varp->shape = (MPI_Offset *)((char *)varp->dimids + o1); 67 varp->dsizes = (MPI_Offset *)((char *)varp->shape + o2); 68 68 } 69 69 … … 83 83 static NC_var * 84 84 ncmpii_new_NC_var(const char *name, nc_type type, 85 int64_t ndims, const int64_t *dimids)85 size_t ndims, const int *dimids) 86 86 { 87 87 NC_string *strp; … … 102 102 103 103 if( ndims != 0 && dimids != NULL) 104 (void) memcpy(varp->dimids, dimids, ndims * sizeof(int 64_t));104 (void) memcpy(varp->dimids, dimids, ndims * sizeof(int)); 105 105 106 106 return(varp); … … 123 123 124 124 (void) memcpy(varp->shape, rvarp->shape, 125 rvarp->ndims * sizeof( int64_t));125 rvarp->ndims * sizeof(MPI_Offset)); 126 126 (void) memcpy(varp->dsizes, rvarp->dsizes, 127 rvarp->ndims * sizeof( int64_t));127 rvarp->ndims * sizeof(MPI_Offset)); 128 128 varp->xsz = rvarp->xsz; 129 129 varp->len = rvarp->len; … … 197 197 if(ref->nelems != 0) 198 198 { 199 const int64_t sz = ref->nelems * sizeof(NC_var *);199 const MPI_Offset sz = ref->nelems * sizeof(NC_var *); 200 200 ncap->value = (NC_var **) malloc(sz); 201 201 if(ncap->value == NULL) … … 274 274 275 275 static NC_var * 276 elem_NC_vararray(const NC_vararray *ncap, int64_t elem)276 elem_NC_vararray(const NC_vararray *ncap, MPI_Offset elem) 277 277 { 278 278 assert(ncap != NULL); 279 /* cast needed for braindead systems with signed int64_t */279 /* cast needed for braindead systems with signed MPI_Offset */ 280 280 if(ncap->nelems == 0 || (unsigned long)elem >= ncap->nelems) 281 281 return NULL; … … 301 301 { 302 302 NC_var **loc; 303 int64_t slen;304 int 64_tvarid;303 MPI_Offset slen; 304 int varid; 305 305 306 306 assert(ncap != NULL); … … 313 313 slen = strlen(name); 314 314 315 for(varid = 0; ( int64_t) varid < ncap->nelems; varid++, loc++)315 for(varid = 0; (MPI_Offset) varid < ncap->nelems; varid++, loc++) 316 316 { 317 317 if(strlen((*loc)->name->cp) == slen && … … 334 334 * See also ncx_len() 335 335 */ 336 static int64_t336 static MPI_Offset 337 337 ncx_szof(nc_type type) 338 338 { … … 366 366 ncmpii_NC_var_shape64(NC_var *varp, const NC_dimarray *dims) 367 367 { 368 int64_t *shp, *dsp, *op;369 int 64_t*ip;368 MPI_Offset *shp, *dsp, *op; 369 int *ip; 370 370 const NC_dim *dimp; 371 int64_t product = 1;371 MPI_Offset product = 1; 372 372 int i,j; 373 373 /* … … 397 397 ; ip < &varp->dimids[varp->ndims]; ip++, op++) 398 398 { 399 if(*ip < 0 || ( int64_t) (*ip) >= ((dims != NULL) ? dims->nelems : 1) ){399 if(*ip < 0 || (*ip) >= ((dims != NULL) ? dims->nelems : 1) ){ 400 400 printf("return NC_EBADDIM, *ip:%ld\n", *ip); 401 401 return NC_EBADDIM; 402 402 } 403 dimp = ncmpii_elem_NC_dimarray(dims, (int64_t)*ip);403 dimp = ncmpii_elem_NC_dimarray(dims, *ip); 404 404 *op = dimp->size; 405 405 if(*op == NC_UNLIMITED && ip != varp->dimids) … … 454 454 } 455 455 456 457 #include <stdio.h>458 int459 ncmpii_NC_var_shape(NC_var *varp, const NC_dimarray *dims)460 {461 int64_t *shp, *dsp, *op;462 int *ip;463 const NC_dim *dimp;464 size_t product = 1;465 466 varp->xsz = ncx_szof(varp->type);467 468 if(varp->ndims == 0)469 {470 goto out;471 }472 473 /*474 * * use the user supplied dimension indices475 * * to determine the shape476 * */477 for(ip = (int *) varp->dimids, op = varp->shape478 ; ip < (int *)&varp->dimids[varp->ndims]; ip++, op++)479 {480 if(*ip < 0 || (size_t) (*ip) >= ((dims != NULL) ? dims->nelems : 1) )481 return NC_EBADDIM;482 483 dimp = ncmpii_elem_NC_dimarray(dims, (size_t)*ip);484 *op = dimp->size;485 if(*op == NC_UNLIMITED && ip != (int *) varp->dimids)486 return NC_EUNLIMPOS;487 }488 489 /*490 * Compute the dsizes491 */492 /* ndims is > 0 here */493 for(shp = varp->shape + varp->ndims -1,494 dsp = varp->dsizes + varp->ndims -1;495 shp >= varp->shape;496 shp--, dsp--)497 {498 if(!(shp == varp->shape && IS_RECVAR(varp)))499 product *= *shp;500 *dsp = product;501 }502 503 out :504 if (varp->xsz <= X_UINT_MAX / product) /* if int. mult won't overflow */505 {506 varp->len = product * varp->xsz;507 } else508 { /* ok for last var to be "too big", indicated by this special len */509 varp->len = X_UINT_MAX;510 }511 switch(varp->type) {512 case NC_BYTE :513 case NC_CHAR :514 case NC_SHORT :515 if( varp->len%4 != 0 )516 {517 varp->len += 4 - varp->len%4; /* round up */518 /* *dsp += 4 - *dsp%4; */519 }520 break;521 default:522 /* already aligned */523 break;524 }525 #if 0526 arrayp("\tshape", varp->ndims, varp->shape);527 arrayp("\tdsizes", varp->ndims, varp->dsizes);528 #endif529 return NC_NOERR;530 }531 532 533 534 456 /* 535 457 * Check whether variable size is less than or equal to vlen_max, … … 540 462 */ 541 463 int 542 ncmpii_NC_check_vlen(NC_var *varp, int64_t vlen_max) {543 int64_t prod=varp->xsz; /* product of xsz and dimensions so far */464 ncmpii_NC_check_vlen(NC_var *varp, MPI_Offset vlen_max) { 465 MPI_Offset prod=varp->xsz; /* product of xsz and dimensions so far */ 544 466 545 467 int ii; … … 561 483 */ 562 484 NC_var * 563 ncmpii_NC_lookupvar(NC *ncp, int 64_tvarid)485 ncmpii_NC_lookupvar(NC *ncp, int varid) 564 486 { 565 487 NC_var *varp; … … 571 493 } 572 494 573 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);495 varp = elem_NC_vararray(&ncp->vars, varid); 574 496 if(varp == NULL) 575 497 { … … 587 509 int 588 510 ncmpi_def_var( int ncid, const char *name, nc_type type, 589 int 64_t ndims, const int64_t *dimids, int64_t *varidp)511 int ndims, const int *dimids, int *varidp) 590 512 { 591 513 int status; 592 514 NC *ncp; 593 int 64_tvarid;594 NC_var *varp; 595 596 int64_t i;515 int varid; 516 NC_var *varp; 517 518 MPI_Offset i; 597 519 598 520 status = ncmpii_NC_check_id(ncid, &ncp); … … 614 536 return status; 615 537 616 /* cast needed for braindead systems with signed int64_t */538 /* cast needed for braindead systems with signed MPI_Offset */ 617 539 if((unsigned long long) ndims > X_INT_MAX) /* Backward compat */ 618 540 { … … 660 582 661 583 int 662 ncmpi_inq_varid(int ncid, const char *name, int 64_t*varid_ptr)584 ncmpi_inq_varid(int ncid, const char *name, int *varid_ptr) 663 585 { 664 586 int status; 665 587 NC *ncp; 666 588 NC_var *varp; 667 int 64_tvarid;589 int varid; 668 590 669 591 status = ncmpii_NC_check_id(ncid, &ncp); … … 684 606 int 685 607 ncmpi_inq_var(int ncid, 686 int 64_tvarid,608 int varid, 687 609 char *name, 688 610 nc_type *typep, 689 int 64_t*ndimsp,690 int 64_t*dimids,691 int 64_t*nattsp)611 int *ndimsp, 612 int *dimids, 613 int *nattsp) 692 614 { 693 615 int status; 694 616 NC *ncp; 695 617 NC_var *varp; 696 int64_t ii;618 MPI_Offset ii; 697 619 698 620 status = ncmpii_NC_check_id(ncid, &ncp); … … 700 622 return status; 701 623 702 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);624 varp = elem_NC_vararray(&ncp->vars, varid); 703 625 if(varp == NULL) 704 626 return NC_ENOTVAR; … … 714 636 if(ndimsp != 0) 715 637 { 716 *ndimsp = (int64_t)varp->ndims;638 *ndimsp = varp->ndims; 717 639 } 718 640 if(dimids != 0) … … 733 655 734 656 int 735 ncmpi_inq_varname(int ncid, int 64_tvarid, char *name)657 ncmpi_inq_varname(int ncid, int varid, char *name) 736 658 { 737 659 int status; … … 743 665 return status; 744 666 745 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);667 varp = elem_NC_vararray(&ncp->vars, varid); 746 668 if(varp == NULL) 747 669 return NC_ENOTVAR; … … 757 679 758 680 int 759 ncmpi_inq_vartype(int ncid, int 64_tvarid, nc_type *typep)681 ncmpi_inq_vartype(int ncid, int varid, nc_type *typep) 760 682 { 761 683 int status; … … 767 689 return status; 768 690 769 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);691 varp = elem_NC_vararray(&ncp->vars, varid); 770 692 if(varp == NULL) 771 693 return NC_ENOTVAR; … … 778 700 779 701 int 780 ncmpi_inq_varndims(int ncid, int 64_t varid, int64_t *ndimsp)702 ncmpi_inq_varndims(int ncid, int varid, int *ndimsp) 781 703 { 782 704 int status; … … 788 710 return status; 789 711 790 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);712 varp = elem_NC_vararray(&ncp->vars, varid); 791 713 if(varp == NULL) 792 714 return NC_ENOTVAR; /* TODO: is this the right error code? */ … … 802 724 803 725 int 804 ncmpi_inq_vardimid(int ncid, int 64_t varid, int64_t *dimids)726 ncmpi_inq_vardimid(int ncid, int varid, int *dimids) 805 727 { 806 728 int status; 807 729 NC *ncp; 808 730 NC_var *varp; 809 int64_t ii;731 MPI_Offset ii; 810 732 811 733 status = ncmpii_NC_check_id(ncid, &ncp); … … 813 735 return status; 814 736 815 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);737 varp = elem_NC_vararray(&ncp->vars, varid); 816 738 if(varp == NULL) 817 739 return NC_ENOTVAR; /* TODO: is this the right error code? */ … … 830 752 831 753 int 832 ncmpi_inq_varnatts(int ncid, int 64_t varid, int64_t *nattsp)754 ncmpi_inq_varnatts(int ncid, int varid, int *nattsp) 833 755 { 834 756 int status; … … 843 765 return status; 844 766 845 varp = elem_NC_vararray(&ncp->vars, (int64_t)varid);767 varp = elem_NC_vararray(&ncp->vars, varid); 846 768 if(varp == NULL) 847 769 return NC_ENOTVAR; /* TODO: is this the right error code? */ … … 856 778 857 779 int 858 ncmpi_rename_var(int ncid, int 64_tvarid, const char *newname)780 ncmpi_rename_var(int ncid, int varid, const char *newname) 859 781 { 860 782 int status; trunk/CDF3/src/libf/copy_attf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_copy_att_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t *v4, int64_t *v5 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_copy_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int *v5 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/def_dimf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_def_dim_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t *v3, int64_t*v4 FORT_END_LEN(d2) ){24 FORTRAN_API int FORT_CALL nfmpi_def_dim_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Offset *v3, MPI_Fint *v4 FORT_END_LEN(d2) ){ 25 25 int ierr; 26 26 char *p2; trunk/CDF3/src/libf/def_varf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_def_var_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int *v3, int 64_t *v4, int64_t*v5, int64_t*v6 FORT_END_LEN(d2) ){24 FORTRAN_API int FORT_CALL nfmpi_def_var_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int *v3, int *v4, MPI_Fint *v5, MPI_Fint *v6 FORT_END_LEN(d2) ){ 25 25 int ierr; 26 26 char *p2; trunk/CDF3/src/libf/del_attf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_del_att_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_del_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_double_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), double*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_double_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), double*v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_int1_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), signed char * v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_int1_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), signed char * v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_int2_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), short*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_int2_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), short*v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_int_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_int_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_real_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), float*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_real_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), float*v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_att_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_att_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ){24 FORTRAN_API int FORT_CALL nfmpi_get_att_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_double_ ( int *v1, int 64_t *v2, int64_t v3[], double*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_double_ ( int *v1, int *v2, MPI_Offset v3[], double*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int1_ ( int *v1, int 64_t *v2, int64_t v3[], signed char * v4 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int1_ ( int *v1, int *v2, MPI_Offset v3[], signed char * v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int2_ ( int *v1, int 64_t *v2, int64_t v3[], short*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int2_ ( int *v1, int *v2, MPI_Offset v3[], short*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int_ ( int *v1, int 64_t *v2, int64_t v3[], MPI_Fint *v4 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Fint *v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_real_ ( int *v1, int 64_t *v2, int64_t v3[], float*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_real_ ( int *v1, int *v2, MPI_Offset v3[], float*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_text_ ( int *v1, int 64_t *v2, int64_t v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_text_ ( int *v1, int *v2, MPI_Offset v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var1_ ( int *v1, int 64_t *v2, int64_t v3[], void*v4, int64_t *v5, MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var1_ ( int *v1, int *v2, MPI_Offset v3[], void*v4, MPI_Offset *v5, MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_all_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_all_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ){ 25 25 int ierr; 26 26 ierr = ncmpi_get_var_all( *v1, *v2, v3, *v4, MPI_Type_f2c(*v5) ); trunk/CDF3/src/libf/get_var_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_double_all_ ( int *v1, int 64_t*v2, double*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_double_all_ ( int *v1, int *v2, double*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_double_ ( int *v1, int 64_t*v2, double*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_double_ ( int *v1, int *v2, double*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int1_all_ ( int *v1, int 64_t*v2, signed char * v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int1_all_ ( int *v1, int *v2, signed char * v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int1_ ( int *v1, int 64_t*v2, signed char * v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int1_ ( int *v1, int *v2, signed char * v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int2_all_ ( int *v1, int 64_t*v2, short*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int2_all_ ( int *v1, int *v2, short*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int2_ ( int *v1, int 64_t*v2, short*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int2_ ( int *v1, int *v2, short*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int_all_ ( int *v1, int 64_t*v2, MPI_Fint *v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int_all_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_int_ ( int *v1, int 64_t*v2, MPI_Fint *v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_int_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_real_all_ ( int *v1, int 64_t*v2, float*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_real_all_ ( int *v1, int *v2, float*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_real_ ( int *v1, int 64_t*v2, float*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_real_ ( int *v1, int *v2, float*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_text_all_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_text_all_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_var_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], signed char * v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], signed char * v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], signed char * v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], signed char * v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vara_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varaf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vara_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_var_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_get_var_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ){ 25 25 int ierr; 26 26 ierr = ncmpi_get_var( *v1, *v2, v3, *v4, MPI_Type_f2c(*v5) ); trunk/CDF3/src/libf/get_varm_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], signed char * v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], signed char * v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], signed char * v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], signed char * v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varm_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varmf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_varm_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 ){24 FORTRAN_API int FORT_CALL nfmpi_get_varm_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], signed char * v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], signed char * v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], signed char * v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], signed char * v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_vars_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/get_varsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_get_vars_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 ){24 FORTRAN_API int FORT_CALL nfmpi_get_vars_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_attf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_att_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t*v5 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset*v5 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_attidf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_attid_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_attid_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_attlenf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_attlen_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_attlen_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset*v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_attnamef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_attname_ ( int *v1, int 64_t *v2, int64_t *v3, char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_attname_ ( int *v1, int *v2, int *v3, char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_atttypef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_atttype_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), int *v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_atttype_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_dimf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_dim_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_dim_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset*v4 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_dimidf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_dimid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t*v3 FORT_END_LEN(d2) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_dimid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Fint *v3 FORT_END_LEN(d2) ){ 25 25 int ierr; 26 26 char *p2; trunk/CDF3/src/libf/inq_dimlenf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_dimlen_ ( int *v1, int 64_t *v2, int64_t*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_dimlen_ ( int *v1, int *v2, MPI_Offset*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_dimnamef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_dimname_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_dimname_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_nattsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_natts_ ( int *v1, int64_t*v2 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_natts_ ( int *v1, MPI_Fint *v2 ){ 25 25 int ierr; 26 26 ierr = ncmpi_inq_natts( *v1, v2 ); trunk/CDF3/src/libf/inq_ndimsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_ndims_ ( int *v1, int64_t*v2 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_ndims_ ( int *v1, MPI_Fint *v2 ){ 25 25 int ierr; 26 26 ierr = ncmpi_inq_ndims( *v1, v2 ); trunk/CDF3/src/libf/inq_nvarsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_nvars_ ( int *v1, int64_t*v2 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_nvars_ ( int *v1, MPI_Fint *v2 ){ 25 25 int ierr; 26 26 ierr = ncmpi_inq_nvars( *v1, v2 ); trunk/CDF3/src/libf/inq_unlimdimf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_unlimdim_ ( int *v1, int64_t*v2 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_unlimdim_ ( int *v1, MPI_Fint *v2 ){ 25 25 int ierr; 26 26 ierr = ncmpi_inq_unlimdim( *v1, v2 ); trunk/CDF3/src/libf/inq_vardimidf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_vardimid_ ( int *v1, int 64_t *v2, int64_t*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_vardimid_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_varf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_var_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t*v5, int64_t*v6, int64_t*v7 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_var_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Fint *v5, MPI_Fint *v6, MPI_Fint *v7 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_varidf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_varid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t*v3 FORT_END_LEN(d2) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_varid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Fint *v3 FORT_END_LEN(d2) ){ 25 25 int ierr; 26 26 char *p2; trunk/CDF3/src/libf/inq_varnamef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_varname_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_inq_varname_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_varnattsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_varnatts_ ( int *v1, int 64_t *v2, int64_t*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_varnatts_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_varndimsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_varndims_ ( int *v1, int 64_t *v2, int64_t*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_varndims_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inq_vartypef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_vartype_ ( int *v1, int 64_t*v2, int *v3 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_vartype_ ( int *v1, int *v2, int *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/inqf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_inq_ ( int *v1, int64_t*v2, int64_t*v3, int64_t*v4, int64_t*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_inq_ ( int *v1, MPI_Fint *v2, MPI_Fint *v3, MPI_Fint *v4, MPI_Fint *v5 ){ 25 25 int ierr; 26 26 ierr = ncmpi_inq( *v1, v2, v3, v4, v5 ); trunk/CDF3/src/libf/mpifnetcdf.h
r613 r625 22 22 extern FORTRAN_API int FORT_CALL nfmpi_close_ ( int *v1 ); 23 23 extern FORTRAN_API int FORT_CALL nfmpi_set_fill_ ( int *v1, int *v2, MPI_Fint *v3 ); 24 extern FORTRAN_API int FORT_CALL nfmpi_def_dim_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t *v3, int64_t*v4 FORT_END_LEN(d2) );25 extern FORTRAN_API int FORT_CALL nfmpi_def_var_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int *v3, int 64_t *v4, int64_t*v5, int64_t*v6 FORT_END_LEN(d2) );26 extern FORTRAN_API int FORT_CALL nfmpi_rename_dim_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );27 extern FORTRAN_API int FORT_CALL nfmpi_rename_var_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );28 extern FORTRAN_API int FORT_CALL nfmpi_inq_ ( int *v1, int64_t*v2, int64_t*v3, int64_t*v4, int64_t*v5 );24 extern FORTRAN_API int FORT_CALL nfmpi_def_dim_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Offset *v3, MPI_Fint *v4 FORT_END_LEN(d2) ); 25 extern FORTRAN_API int FORT_CALL nfmpi_def_var_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int *v3, int *v4, MPI_Fint *v5, MPI_Fint *v6 FORT_END_LEN(d2) ); 26 extern FORTRAN_API int FORT_CALL nfmpi_rename_dim_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 27 extern FORTRAN_API int FORT_CALL nfmpi_rename_var_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 28 extern FORTRAN_API int FORT_CALL nfmpi_inq_ ( int *v1, MPI_Fint *v2, MPI_Fint *v3, MPI_Fint *v4, MPI_Fint *v5 ); 29 29 extern FORTRAN_API int FORT_CALL nfmpi_inq_version_ ( int *v1, MPI_Fint *v2 ); 30 extern FORTRAN_API int FORT_CALL nfmpi_inq_ndims_ ( int *v1, int64_t*v2 );31 extern FORTRAN_API int FORT_CALL nfmpi_inq_nvars_ ( int *v1, int64_t*v2 );32 extern FORTRAN_API int FORT_CALL nfmpi_inq_natts_ ( int *v1, int64_t*v2 );33 extern FORTRAN_API int FORT_CALL nfmpi_inq_unlimdim_ ( int *v1, int64_t*v2 );34 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t*v3 FORT_END_LEN(d2) );35 extern FORTRAN_API int FORT_CALL nfmpi_inq_dim_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) );36 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimname_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );37 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimlen_ ( int *v1, int 64_t *v2, int64_t*v3 );38 extern FORTRAN_API int FORT_CALL nfmpi_inq_var_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t*v5, int64_t*v6, int64_t*v7 FORT_END_LEN(d3) );39 extern FORTRAN_API int FORT_CALL nfmpi_inq_varid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), int64_t*v3 FORT_END_LEN(d2) );40 extern FORTRAN_API int FORT_CALL nfmpi_inq_varname_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );41 extern FORTRAN_API int FORT_CALL nfmpi_inq_vartype_ ( int *v1, int 64_t*v2, int *v3 );42 extern FORTRAN_API int FORT_CALL nfmpi_inq_varndims_ ( int *v1, int 64_t *v2, int64_t*v3 );43 extern FORTRAN_API int FORT_CALL nfmpi_inq_vardimid_ ( int *v1, int 64_t *v2, int64_t*v3 );44 extern FORTRAN_API int FORT_CALL nfmpi_inq_varnatts_ ( int *v1, int 64_t *v2, int64_t*v3 );45 extern FORTRAN_API int FORT_CALL nfmpi_inq_att_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t*v5 FORT_END_LEN(d3) );46 extern FORTRAN_API int FORT_CALL nfmpi_inq_attid_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) );47 extern FORTRAN_API int FORT_CALL nfmpi_inq_atttype_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), int *v4 FORT_END_LEN(d3) );48 extern FORTRAN_API int FORT_CALL nfmpi_inq_attlen_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t*v4 FORT_END_LEN(d3) );49 extern FORTRAN_API int FORT_CALL nfmpi_inq_attname_ ( int *v1, int 64_t *v2, int64_t *v3, char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) );50 extern FORTRAN_API int FORT_CALL nfmpi_copy_att_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t *v4, int64_t *v5 FORT_END_LEN(d3) );51 extern FORTRAN_API int FORT_CALL nfmpi_rename_att_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) );52 extern FORTRAN_API int FORT_CALL nfmpi_del_att_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );53 extern FORTRAN_API int FORT_CALL nfmpi_put_att_text_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t *v4, char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d3) FORT_END_LEN(d5) );54 extern FORTRAN_API int FORT_CALL nfmpi_get_att_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) );55 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int1_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, const signed char * v6 FORT_END_LEN(d3) );56 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int1_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), signed char * v4 FORT_END_LEN(d3) );57 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int2_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, short*v6 FORT_END_LEN(d3) );58 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int2_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), short*v4 FORT_END_LEN(d3) );59 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, MPI_Fint *v6 FORT_END_LEN(d3) );60 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) );61 extern FORTRAN_API int FORT_CALL nfmpi_put_att_real_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, float*v6 FORT_END_LEN(d3) );62 extern FORTRAN_API int FORT_CALL nfmpi_get_att_real_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), float*v4 FORT_END_LEN(d3) );63 extern FORTRAN_API int FORT_CALL nfmpi_put_att_double_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, double*v6 FORT_END_LEN(d3) );64 extern FORTRAN_API int FORT_CALL nfmpi_get_att_double_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), double*v4 FORT_END_LEN(d3) );65 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_ ( int *v1, int 64_t *v2, int64_t v3[], void*v4, int64_t *v5, MPI_Fint *v6 );66 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_ ( int *v1, int 64_t *v2, int64_t v3[], void*v4, int64_t *v5, MPI_Fint *v6 );67 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int1_ ( int *v1, int 64_t *v2, int64_t v3[], const signed char * v4 );68 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_text_ ( int *v1, int 64_t *v2, int64_t v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) );69 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int2_ ( int *v1, int 64_t *v2, int64_t v3[], short*v4 );70 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int_ ( int *v1, int 64_t *v2, int64_t v3[], MPI_Fint *v4 );71 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_real_ ( int *v1, int 64_t *v2, int64_t v3[], float*v4 );72 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_double_ ( int *v1, int 64_t *v2, int64_t v3[], double*v4 );73 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int1_ ( int *v1, int 64_t *v2, int64_t v3[], signed char * v4 );74 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_text_ ( int *v1, int 64_t *v2, int64_t v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) );75 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int2_ ( int *v1, int 64_t *v2, int64_t v3[], short*v4 );76 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int_ ( int *v1, int 64_t *v2, int64_t v3[], MPI_Fint *v4 );77 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_real_ ( int *v1, int 64_t *v2, int64_t v3[], float*v4 );78 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_double_ ( int *v1, int 64_t *v2, int64_t v3[], double*v4 );79 extern FORTRAN_API int FORT_CALL nfmpi_put_var_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 );80 extern FORTRAN_API int FORT_CALL nfmpi_get_var_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 );81 extern FORTRAN_API int FORT_CALL nfmpi_get_var_all_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 );82 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int1_ ( int *v1, int 64_t*v2, const signed char * v3 );83 extern FORTRAN_API int FORT_CALL nfmpi_put_var_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );84 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int2_ ( int *v1, int 64_t*v2, short*v3 );85 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int_ ( int *v1, int 64_t*v2, MPI_Fint *v3 );86 extern FORTRAN_API int FORT_CALL nfmpi_put_var_real_ ( int *v1, int 64_t*v2, float*v3 );87 extern FORTRAN_API int FORT_CALL nfmpi_put_var_double_ ( int *v1, int 64_t*v2, double*v3 );88 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int1_ ( int *v1, int 64_t*v2, signed char * v3 );89 extern FORTRAN_API int FORT_CALL nfmpi_get_var_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );90 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int2_ ( int *v1, int 64_t*v2, short*v3 );91 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int_ ( int *v1, int 64_t*v2, MPI_Fint *v3 );92 extern FORTRAN_API int FORT_CALL nfmpi_get_var_real_ ( int *v1, int 64_t*v2, float*v3 );93 extern FORTRAN_API int FORT_CALL nfmpi_get_var_double_ ( int *v1, int 64_t*v2, double*v3 );94 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int1_all_ ( int *v1, int 64_t*v2, signed char * v3 );95 extern FORTRAN_API int FORT_CALL nfmpi_get_var_text_all_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) );96 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int2_all_ ( int *v1, int 64_t*v2, short*v3 );97 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int_all_ ( int *v1, int 64_t*v2, MPI_Fint *v3 );98 extern FORTRAN_API int FORT_CALL nfmpi_get_var_real_all_ ( int *v1, int 64_t*v2, float*v3 );99 extern FORTRAN_API int FORT_CALL nfmpi_get_var_double_all_ ( int *v1, int 64_t*v2, double*v3 );100 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 );101 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 );102 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 );103 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 );104 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], const signed char * v5 );105 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], const signed char * v5 );106 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) );107 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) );108 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 );109 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 );110 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 );111 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 );112 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 );113 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 );114 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 );115 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 );116 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], signed char * v5 );117 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], signed char * v5 );118 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) );119 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) );120 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 );121 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 );122 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 );123 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 );124 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 );125 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 );126 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 );127 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 );128 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 );129 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 );130 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 );131 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 );132 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], const signed char * v6 );133 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], const signed char * v6 );134 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) );135 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) );136 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 );137 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 );138 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 );139 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 );140 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 );141 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 );142 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 );143 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 );144 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], signed char * v6 );145 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], signed char * v6 );146 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) );147 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) );148 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 );149 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 );150 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 );151 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 );152 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 );153 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 );154 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 );155 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 );156 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 );157 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 );158 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 );159 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 );160 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], const signed char * v7 );161 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], const signed char * v7 );162 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) );163 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) );164 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 );165 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 );166 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 );167 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 );168 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 );169 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 );170 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 );171 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 );172 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], signed char * v7 );173 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], signed char * v7 );174 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) );175 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) );176 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 );177 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 );178 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 );179 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 );180 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 );181 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 );182 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 );183 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 );30 extern FORTRAN_API int FORT_CALL nfmpi_inq_ndims_ ( int *v1, MPI_Fint *v2 ); 31 extern FORTRAN_API int FORT_CALL nfmpi_inq_nvars_ ( int *v1, MPI_Fint *v2 ); 32 extern FORTRAN_API int FORT_CALL nfmpi_inq_natts_ ( int *v1, MPI_Fint *v2 ); 33 extern FORTRAN_API int FORT_CALL nfmpi_inq_unlimdim_ ( int *v1, MPI_Fint *v2 ); 34 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Fint *v3 FORT_END_LEN(d2) ); 35 extern FORTRAN_API int FORT_CALL nfmpi_inq_dim_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset*v4 FORT_END_LEN(d3) ); 36 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimname_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 37 extern FORTRAN_API int FORT_CALL nfmpi_inq_dimlen_ ( int *v1, int *v2, MPI_Offset*v3 ); 38 extern FORTRAN_API int FORT_CALL nfmpi_inq_var_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Fint *v5, MPI_Fint *v6, MPI_Fint *v7 FORT_END_LEN(d3) ); 39 extern FORTRAN_API int FORT_CALL nfmpi_inq_varid_ ( int *v1, char *v2 FORT_MIXED_LEN(d2), MPI_Fint *v3 FORT_END_LEN(d2) ); 40 extern FORTRAN_API int FORT_CALL nfmpi_inq_varname_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 41 extern FORTRAN_API int FORT_CALL nfmpi_inq_vartype_ ( int *v1, int *v2, int *v3 ); 42 extern FORTRAN_API int FORT_CALL nfmpi_inq_varndims_ ( int *v1, int *v2, MPI_Fint *v3 ); 43 extern FORTRAN_API int FORT_CALL nfmpi_inq_vardimid_ ( int *v1, int *v2, MPI_Fint *v3 ); 44 extern FORTRAN_API int FORT_CALL nfmpi_inq_varnatts_ ( int *v1, int *v2, MPI_Fint *v3 ); 45 extern FORTRAN_API int FORT_CALL nfmpi_inq_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset*v5 FORT_END_LEN(d3) ); 46 extern FORTRAN_API int FORT_CALL nfmpi_inq_attid_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) ); 47 extern FORTRAN_API int FORT_CALL nfmpi_inq_atttype_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4 FORT_END_LEN(d3) ); 48 extern FORTRAN_API int FORT_CALL nfmpi_inq_attlen_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset*v4 FORT_END_LEN(d3) ); 49 extern FORTRAN_API int FORT_CALL nfmpi_inq_attname_ ( int *v1, int *v2, int *v3, char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ); 50 extern FORTRAN_API int FORT_CALL nfmpi_copy_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int *v5 FORT_END_LEN(d3) ); 51 extern FORTRAN_API int FORT_CALL nfmpi_rename_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ); 52 extern FORTRAN_API int FORT_CALL nfmpi_del_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 53 extern FORTRAN_API int FORT_CALL nfmpi_put_att_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset *v4, char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d3) FORT_END_LEN(d5) ); 54 extern FORTRAN_API int FORT_CALL nfmpi_get_att_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ); 55 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int1_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, const signed char * v6 FORT_END_LEN(d3) ); 56 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int1_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), signed char * v4 FORT_END_LEN(d3) ); 57 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int2_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, short*v6 FORT_END_LEN(d3) ); 58 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int2_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), short*v4 FORT_END_LEN(d3) ); 59 extern FORTRAN_API int FORT_CALL nfmpi_put_att_int_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, MPI_Fint *v6 FORT_END_LEN(d3) ); 60 extern FORTRAN_API int FORT_CALL nfmpi_get_att_int_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Fint *v4 FORT_END_LEN(d3) ); 61 extern FORTRAN_API int FORT_CALL nfmpi_put_att_real_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, float*v6 FORT_END_LEN(d3) ); 62 extern FORTRAN_API int FORT_CALL nfmpi_get_att_real_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), float*v4 FORT_END_LEN(d3) ); 63 extern FORTRAN_API int FORT_CALL nfmpi_put_att_double_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, double*v6 FORT_END_LEN(d3) ); 64 extern FORTRAN_API int FORT_CALL nfmpi_get_att_double_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), double*v4 FORT_END_LEN(d3) ); 65 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_ ( int *v1, int *v2, MPI_Offset v3[], void*v4, MPI_Offset *v5, MPI_Fint *v6 ); 66 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_ ( int *v1, int *v2, MPI_Offset v3[], void*v4, MPI_Offset *v5, MPI_Fint *v6 ); 67 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int1_ ( int *v1, int *v2, MPI_Offset v3[], const signed char * v4 ); 68 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_text_ ( int *v1, int *v2, MPI_Offset v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ); 69 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int2_ ( int *v1, int *v2, MPI_Offset v3[], short*v4 ); 70 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Fint *v4 ); 71 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_real_ ( int *v1, int *v2, MPI_Offset v3[], float*v4 ); 72 extern FORTRAN_API int FORT_CALL nfmpi_put_var1_double_ ( int *v1, int *v2, MPI_Offset v3[], double*v4 ); 73 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int1_ ( int *v1, int *v2, MPI_Offset v3[], signed char * v4 ); 74 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_text_ ( int *v1, int *v2, MPI_Offset v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ); 75 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int2_ ( int *v1, int *v2, MPI_Offset v3[], short*v4 ); 76 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Fint *v4 ); 77 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_real_ ( int *v1, int *v2, MPI_Offset v3[], float*v4 ); 78 extern FORTRAN_API int FORT_CALL nfmpi_get_var1_double_ ( int *v1, int *v2, MPI_Offset v3[], double*v4 ); 79 extern FORTRAN_API int FORT_CALL nfmpi_put_var_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ); 80 extern FORTRAN_API int FORT_CALL nfmpi_get_var_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ); 81 extern FORTRAN_API int FORT_CALL nfmpi_get_var_all_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ); 82 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int1_ ( int *v1, int *v2, const signed char * v3 ); 83 extern FORTRAN_API int FORT_CALL nfmpi_put_var_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 84 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int2_ ( int *v1, int *v2, short*v3 ); 85 extern FORTRAN_API int FORT_CALL nfmpi_put_var_int_ ( int *v1, int *v2, MPI_Fint *v3 ); 86 extern FORTRAN_API int FORT_CALL nfmpi_put_var_real_ ( int *v1, int *v2, float*v3 ); 87 extern FORTRAN_API int FORT_CALL nfmpi_put_var_double_ ( int *v1, int *v2, double*v3 ); 88 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int1_ ( int *v1, int *v2, signed char * v3 ); 89 extern FORTRAN_API int FORT_CALL nfmpi_get_var_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 90 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int2_ ( int *v1, int *v2, short*v3 ); 91 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int_ ( int *v1, int *v2, MPI_Fint *v3 ); 92 extern FORTRAN_API int FORT_CALL nfmpi_get_var_real_ ( int *v1, int *v2, float*v3 ); 93 extern FORTRAN_API int FORT_CALL nfmpi_get_var_double_ ( int *v1, int *v2, double*v3 ); 94 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int1_all_ ( int *v1, int *v2, signed char * v3 ); 95 extern FORTRAN_API int FORT_CALL nfmpi_get_var_text_all_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ); 96 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int2_all_ ( int *v1, int *v2, short*v3 ); 97 extern FORTRAN_API int FORT_CALL nfmpi_get_var_int_all_ ( int *v1, int *v2, MPI_Fint *v3 ); 98 extern FORTRAN_API int FORT_CALL nfmpi_get_var_real_all_ ( int *v1, int *v2, float*v3 ); 99 extern FORTRAN_API int FORT_CALL nfmpi_get_var_double_all_ ( int *v1, int *v2, double*v3 ); 100 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ); 101 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ); 102 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ); 103 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ); 104 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], const signed char * v5 ); 105 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], const signed char * v5 ); 106 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ); 107 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ); 108 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ); 109 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ); 110 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ); 111 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ); 112 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ); 113 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ); 114 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ); 115 extern FORTRAN_API int FORT_CALL nfmpi_put_vara_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ); 116 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], signed char * v5 ); 117 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], signed char * v5 ); 118 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ); 119 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ); 120 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ); 121 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ); 122 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ); 123 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ); 124 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ); 125 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ); 126 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ); 127 extern FORTRAN_API int FORT_CALL nfmpi_get_vara_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ); 128 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ); 129 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ); 130 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ); 131 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ); 132 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], const signed char * v6 ); 133 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], const signed char * v6 ); 134 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ); 135 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ); 136 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ); 137 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ); 138 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ); 139 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ); 140 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ); 141 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ); 142 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ); 143 extern FORTRAN_API int FORT_CALL nfmpi_put_vars_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ); 144 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], signed char * v6 ); 145 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], signed char * v6 ); 146 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ); 147 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ); 148 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ); 149 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ); 150 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ); 151 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ); 152 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ); 153 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ); 154 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ); 155 extern FORTRAN_API int FORT_CALL nfmpi_get_vars_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ); 156 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ); 157 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ); 158 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ); 159 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ); 160 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], const signed char * v7 ); 161 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], const signed char * v7 ); 162 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ); 163 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ); 164 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ); 165 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ); 166 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ); 167 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ); 168 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ); 169 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ); 170 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ); 171 extern FORTRAN_API int FORT_CALL nfmpi_put_varm_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ); 172 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], signed char * v7 ); 173 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], signed char * v7 ); 174 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ); 175 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ); 176 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ); 177 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ); 178 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ); 179 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ); 180 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ); 181 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ); 182 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ); 183 extern FORTRAN_API int FORT_CALL nfmpi_get_varm_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ); trunk/CDF3/src/libf/pnetcdf.inc.in
r613 r625 61 61 integer nf_share 62 62 integer nf_64bit_offset 63 integer nf_64bit_data 63 64 integer nf_sizehint_default 64 65 integer nf_align_chunk 65 66 integer nf_format_classic 66 67 integer nf_format_64bit 68 integer nf_format_64bit_data 67 69 68 70 parameter (nf_nowrite = 0) … … 75 77 parameter (nf_share = 2048) 76 78 parameter (nf_64bit_offset = 512) 79 parameter (nf_64bit_data = 4096) 77 80 parameter (nf_sizehint_default = 0) 78 81 parameter (nf_align_chunk = -1) 79 82 parameter (nf_format_classic = 1) 80 83 parameter (nf_format_64bit = 2) 84 parameter (nf_format_64bit_data = 3) 81 85 82 86 ! trunk/CDF3/src/libf/put_att_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_double_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, double*v6 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_double_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, double*v6 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_att_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_int1_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, const signed char * v6 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_int1_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, const signed char * v6 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_att_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_int2_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, short*v6 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_int2_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, short*v6 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_att_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_int_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, MPI_Fint *v6 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_int_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, MPI_Fint *v6 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_att_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_real_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, int64_t *v5, float*v6 FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_real_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), int *v4, MPI_Offset *v5, float*v6 FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_att_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_att_text_ ( int *v1, int 64_t *v2, char *v3 FORT_MIXED_LEN(d3), int64_t *v4, char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d3) FORT_END_LEN(d5) ){24 FORTRAN_API int FORT_CALL nfmpi_put_att_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), MPI_Offset *v4, char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d3) FORT_END_LEN(d5) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_double_ ( int *v1, int 64_t *v2, int64_t v3[], double*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_double_ ( int *v1, int *v2, MPI_Offset v3[], double*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int1_ ( int *v1, int 64_t *v2, int64_t v3[], const signed char * v4 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int1_ ( int *v1, int *v2, MPI_Offset v3[], const signed char * v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int2_ ( int *v1, int 64_t *v2, int64_t v3[], short*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int2_ ( int *v1, int *v2, MPI_Offset v3[], short*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int_ ( int *v1, int 64_t *v2, int64_t v3[], MPI_Fint *v4 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Fint *v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_real_ ( int *v1, int 64_t *v2, int64_t v3[], float*v4 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_real_ ( int *v1, int *v2, MPI_Offset v3[], float*v4 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_text_ ( int *v1, int 64_t *v2, int64_t v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_text_ ( int *v1, int *v2, MPI_Offset v3[], char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d4) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var1_ ( int *v1, int 64_t *v2, int64_t v3[], void*v4, int64_t *v5, MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var1_ ( int *v1, int *v2, MPI_Offset v3[], void*v4, MPI_Offset *v5, MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_double_ ( int *v1, int 64_t*v2, double*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_double_ ( int *v1, int *v2, double*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_int1_ ( int *v1, int 64_t*v2, const signed char * v3 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_int1_ ( int *v1, int *v2, const signed char * v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_int2_ ( int *v1, int 64_t*v2, short*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_int2_ ( int *v1, int *v2, short*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_int_ ( int *v1, int 64_t*v2, MPI_Fint *v3 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_int_ ( int *v1, int *v2, MPI_Fint *v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_real_ ( int *v1, int 64_t*v2, float*v3 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_real_ ( int *v1, int *v2, float*v3 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_var_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_text_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_text_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], double*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], double*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], const signed char * v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], const signed char * v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], const signed char * v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], const signed char * v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], short*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], short*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Fint *v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], float*v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], float*v5 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vara_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], char *v5 FORT_MIXED_LEN(d5) FORT_END_LEN(d5) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varaf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vara_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], void*v5, int64_t *v6, MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vara_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], void*v5, MPI_Offset *v6, MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_var_ ( int *v1, int 64_t *v2, void*v3, int64_t *v4, MPI_Fint *v5 ){24 FORTRAN_API int FORT_CALL nfmpi_put_var_ ( int *v1, int *v2, void*v3, MPI_Offset *v4, MPI_Fint *v5 ){ 25 25 int ierr; 26 26 ierr = ncmpi_put_var( *v1, *v2, v3, *v4, MPI_Type_f2c(*v5) ); trunk/CDF3/src/libf/put_varm_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], double*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], double*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], const signed char * v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], const signed char * v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], const signed char * v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], const signed char * v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], short*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], short*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], MPI_Fint *v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], MPI_Fint *v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], float*v7 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], float*v7 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varm_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], char *v7 FORT_MIXED_LEN(d7) FORT_END_LEN(d7) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varmf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_varm_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], int64_t v6[], void*v7, int64_t *v8, MPI_Fint *v9 ){24 FORTRAN_API int FORT_CALL nfmpi_put_varm_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Offset v6[], void*v7, MPI_Offset *v8, MPI_Fint *v9 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_double_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_double_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_double_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_doublef.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_double_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], double*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_double_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], double*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_int1_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], const signed char * v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], const signed char * v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_int1f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], const signed char * v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int1_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], const signed char * v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_int2_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_int2f.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], short*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int2_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], short*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_int_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_intf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], MPI_Fint *v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_int_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], MPI_Fint *v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_real_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_real_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_real_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_realf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_real_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], float*v6 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_real_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], float*v6 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_text_allf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_text_all_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_text_all_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_vars_textf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_text_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_text_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], char *v6 FORT_MIXED_LEN(d6) FORT_END_LEN(d6) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/put_varsf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_put_vars_ ( int *v1, int 64_t *v2, int64_t v3[], int64_t v4[], int64_t v5[], void*v6, int64_t *v7, MPI_Fint *v8 ){24 FORTRAN_API int FORT_CALL nfmpi_put_vars_ ( int *v1, int *v2, MPI_Offset v3[], MPI_Offset v4[], MPI_Offset v5[], void*v6, MPI_Offset *v7, MPI_Fint *v8 ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/rename_attf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_rename_att_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ){24 FORTRAN_API int FORT_CALL nfmpi_rename_att_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3), char *v4 FORT_MIXED_LEN(d4) FORT_END_LEN(d3) FORT_END_LEN(d4) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/rename_dimf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_rename_dim_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_rename_dim_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/libf/rename_varf.c
r613 r625 22 22 /* Prototypes for the Fortran interfaces */ 23 23 #include "mpifnetcdf.h" 24 FORTRAN_API int FORT_CALL nfmpi_rename_var_ ( int *v1, int 64_t*v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){24 FORTRAN_API int FORT_CALL nfmpi_rename_var_ ( int *v1, int *v2, char *v3 FORT_MIXED_LEN(d3) FORT_END_LEN(d3) ){ 25 25 int ierr; 26 26 int l2 = *v2 - 1; trunk/CDF3/src/utils/ncdump/ncdump.c
r618 r625 23 23 static void tztrim(char* ss); 24 24 static void pr_att_string(size_t len, const char* string); 25 static void pr_att_vals(ncmpi_type type, int64_t len, const double* vals);26 static void pr_att(int ncid, int 64_t varid, const char *varname, int64_t ia);25 static void pr_att_vals(ncmpi_type type, size_t len, const double* vals); 26 static void pr_att(int ncid, int varid, const char *varname, int ia); 27 27 static void do_ncdump(const char* path, struct fspec* specp); 28 28 static void make_lvars(char* optarg, struct fspec* fspecp); … … 216 216 pr_att_vals( 217 217 ncmpi_type type, 218 int64_t len,218 size_t len, 219 219 const double *vals 220 220 ) … … 294 294 pr_att( 295 295 int ncid, 296 int 64_tvarid,296 int varid, 297 297 const char *varname, 298 int 64_tia298 int ia 299 299 ) 300 300 { … … 342 342 do_ncdump(const char *path, struct fspec* specp) 343 343 { 344 int 64_tndims; /* number of dimensions */345 int 64_tnvars; /* number of variables */346 int 64_tngatts; /* number of global attributes */347 int 64_txdimid; /* id of unlimited dimension */348 int 64_tdimid; /* dimension id */349 int 64_tvarid; /* variable id */344 int ndims; /* number of dimensions */ 345 int nvars; /* number of variables */ 346 int ngatts; /* number of global attributes */ 347 int xdimid; /* id of unlimited dimension */ 348 int dimid; /* dimension id */ 349 int varid; /* variable id */ 350 350 struct ncdim dims[NC_MAX_DIMS]; /* dimensions */ 351 351 size_t vdims[NC_MAX_DIMS]; /* dimension sizes for a single variable */ 352 352 struct ncvar var; /* variable */ 353 353 struct ncatt att; /* attribute */ 354 int 64_tid; /* dimension number per variable */355 int 64_tia; /* attribute number */356 int 64_tiv; /* variable number */354 int id; /* dimension number per variable */ 355 int ia; /* attribute number */ 356 int iv; /* variable number */ 357 357 int is_coord; /* true if variable is a coordinate variable */ 358 358 int ncid; /* netCDF id */ trunk/CDF3/src/utils/ncdump/ncdump.h
r618 r625 20 20 struct ncdim { /* dimension */ 21 21 char name[NC_MAX_NAME]; 22 int64_t size;22 MPI_Offset size; 23 23 }; 24 24 … … 26 26 char name[NC_MAX_NAME]; 27 27 nc_type type; 28 int 64_tndims;29 int 64_tdims[NC_MAX_VAR_DIMS];30 int 64_tnatts;28 int ndims; 29 int dims[NC_MAX_VAR_DIMS]; 30 int natts; 31 31 boolean has_fillval; 32 32 double fillval; … … 37 37 char name[NC_MAX_NAME]; 38 38 nc_type type; 39 int64_t len;39 MPI_Offset len; 40 40 char *string; /* for text attributes (type = NC_CHAR) */ 41 41 double *vals; /* for numeric attributes of all types */ trunk/CDF3/src/utils/ncdump/vardata.c
r618 r625 33 33 static void lastdelim(boolean more, boolean lastrow); 34 34 static void annotate(const struct ncvar* vp, const struct fspec* fsp, 35 const int64_t* cor, long iel);35 const MPI_Offset* cor, long iel); 36 36 static void pr_tvals(const struct ncvar *vp, size_t len, const char *fmt, 37 37 boolean more, boolean lastrow, const char *vals, 38 const struct fspec* fsp, const int64_t *cor);38 const struct fspec* fsp, const MPI_Offset *cor); 39 39 static void pr_bvals(const struct ncvar *vp, size_t len, const char *fmt, 40 40 boolean more, boolean lastrow, const signed char *vals, 41 const struct fspec* fsp, const int64_t *cor);41 const struct fspec* fsp, const MPI_Offset *cor); 42 42 static void pr_svals(const struct ncvar *vp, size_t len, const char *fmt, 43 43 boolean more, boolean lastrow, const short *vals, 44 const struct fspec* fsp, const int64_t *cor);44 const struct fspec* fsp, const MPI_Offset *cor); 45 45 static void pr_ivals(const struct ncvar *vp, size_t len, const char *fmt, 46 46 boolean more, boolean lastrow, const int *vals, 47 const struct fspec* fsp, const int64_t *cor);47 const struct fspec* fsp, const MPI_Offset *cor); 48 48 static void pr_fvals(const struct ncvar *vp, size_t len, const char *fmt, 49 49 boolean more, boolean lastrow, const float *vals, 50 const struct fspec* fsp, const int64_t *cor);50 const struct fspec* fsp, const MPI_Offset *cor); 51 51 static void pr_dvals(const struct ncvar *vp, size_t len, const char *fmt, 52 52 boolean more, boolean lastrow, const double *vals, 53 const struct fspec* fsp, const int64_t *cor);54 static int upcorner(const size_t* dims, int ndims, int64_t* odom,53 const struct fspec* fsp, const MPI_Offset *cor); 54 static int upcorner(const size_t* dims, int ndims, MPI_Offset* odom, 55 55 const size_t* add); 56 56 static void lastdelim2 (boolean more, boolean lastrow); … … 299 299 const struct ncvar *vp, /* variable */ 300 300 const struct fspec* fsp, /* formatting specs */ 301 const int64_t *cor, /* corner coordinates */301 const MPI_Offset *cor, /* corner coordinates */ 302 302 long iel /* which element in current row */ 303 303 ) … … 346 346 const char *vals, /* pointer to block of values */ 347 347 const struct fspec* fsp, /* formatting specs */ 348 const int64_t *cor /* corner coordinates */348 const MPI_Offset *cor /* corner coordinates */ 349 349 ) 350 350 { … … 400 400 Printf("\""); 401 401 lastdelim (more, lastrow); 402 annotate (vp, fsp, ( int64_t*)cor, 0L);402 annotate (vp, fsp, (MPI_Offset*)cor, 0L); 403 403 } 404 404 } else { /* use format from C_format attribute */ … … 407 407 Printf(fmt, *vals++); 408 408 Printf(", "); 409 annotate (vp, fsp, ( int64_t *)cor, iel);409 annotate (vp, fsp, (MPI_Offset *)cor, iel); 410 410 } else { 411 411 (void) sprintf(sout, fmt, *vals++); … … 417 417 Printf(fmt, *vals++); 418 418 lastdelim (more, lastrow); 419 annotate (vp, fsp, ( int64_t *)cor, iel);419 annotate (vp, fsp, (MPI_Offset *)cor, iel); 420 420 } else { 421 421 (void) sprintf(sout, fmt, *vals++); … … 448 448 const signed char *vals, /* pointer to block of values */ 449 449 const struct fspec* fsp, /* formatting specs */ 450 const int64_t *cor /* corner coordinates */450 const MPI_Offset *cor /* corner coordinates */ 451 451 ) 452 452 { … … 496 496 const short *vals, /* pointer to block of values */ 497 497 const struct fspec* fsp, /* formatting specs */ 498 const int64_t *cor /* corner coordinates */498 const MPI_Offset *cor /* corner coordinates */ 499 499 ) 500 500 { … … 546 546 const int *vals, /* pointer to block of values */ 547 547 const struct fspec* fsp, /* formatting specs */ 548 const int64_t *cor /* corner coordinates */548 const MPI_Offset *cor /* corner coordinates */ 549 549 ) 550 550 { … … 594 594 const float *vals, /* pointer to block of values */ 595 595 const struct fspec* fsp, /* formatting specs */ 596 const int64_t *cor /* corner coordinates */596 const MPI_Offset *cor /* corner coordinates */ 597 597 ) 598 598 { … … 642 642 const double *vals, /* pointer to block of values */ 643 643 const struct fspec* fsp, /* formatting specs */ 644 const int64_t *cor /* corner coordinates */644 const MPI_Offset *cor /* corner coordinates */ 645 645 ) 646 646 { … … 679 679 const size_t *dims, /* The "odometer" limits for each dimension */ 680 680 int ndims, /* Number of dimensions */ 681 int64_t* odom, /* The "odometer" vector to be updated */681 MPI_Offset* odom, /* The "odometer" vector to be updated */ 682 682 const size_t* add /* A vector to "add" to odom on each update */ 683 683 ) … … 704 704 vardata( 705 705 const struct ncvar *vp, /* variable */ 706 int64_t vdims[], /* variable dimension sizes */706 size_t vdims[], /* variable dimension sizes */ 707 707 int ncid, /* netcdf id */ 708 int 64_tvarid, /* variable id */708 int varid, /* variable id */ 709 709 const struct fspec* fsp /* formatting specs */ 710 710 ) 711 711 { 712 int64_t cor[NC_MAX_DIMS]; /* corner coordinates */713 int64_t edg[NC_MAX_DIMS]; /* edges of hypercube */714 int64_t add[NC_MAX_DIMS]; /* "odometer" increment to next "row" */712 MPI_Offset cor[NC_MAX_DIMS]; /* corner coordinates */ 713 MPI_Offset edg[NC_MAX_DIMS]; /* edges of hypercube */ 714 size_t add[NC_MAX_DIMS]; /* "odometer" increment to next "row" */ 715 715 #define VALBUFSIZ 1000 716 716 double vals[VALBUFSIZ] ; /* aligned buffer */ 717 717 718 718 int gulp = VALBUFSIZ; 719 719 720 720 int id; 721 721 int ir; 722 int64_t nels;723 int64_t ncols;724 int64_t nrows;722 MPI_Offset nels; 723 MPI_Offset ncols; 724 MPI_Offset nrows; 725 725 int vrank = vp->ndims; 726 726 static int initeps = 0; trunk/CDF3/src/utils/ncdump/vardata.h
r618 r625 17 17 /* Output the data for a single variable, in CDL syntax. */ 18 18 extern int vardata ( const struct ncvar*, /* variable */ 19 int64_t [], /* variable dimension lengths */19 size_t [], /* variable dimension lengths */ 20 20 int, /* netcdf id */ 21 int 64_t, /* variable id */21 int, /* variable id */ 22 22 const struct fspec* /* formatting specs */ 23 23 ); trunk/CDF3/test/fandc/csnap.c
r613 r625 160 160 double *smf = NULL; 161 161 double t1, t2, t3; 162 int 64_tdim_id[3];163 int 64_tlon_id, lat_id, lev_id;162 int dim_id[3]; 163 int lon_id, lat_id, lev_id; 164 164 int ierr; 165 165 int file_id; 166 int 64_tt_id, smf_id;166 int t_id, smf_id; 167 167 int ii; 168 int64_t start_3d[3];169 int64_t count_3d[3];170 int64_t start_2d[2];171 int64_t count_2d[2];168 MPI_Offset start_3d[3]; 169 MPI_Offset count_3d[3]; 170 MPI_Offset start_2d[2]; 171 MPI_Offset count_2d[2]; 172 172 173 173 start_3d[0] = kstart; … … 203 203 /* ierr = nc_set_fill(file_id,fillmode,&old_fillmode); */ 204 204 205 ierr = ncmpi_def_dim(file_id,"level", ( int64_t) totsiz_3d[0],&lev_id);206 ierr = ncmpi_def_dim(file_id,"latitude", ( int64_t) totsiz_3d[1],&lat_id);207 ierr = ncmpi_def_dim(file_id,"longitude",( int64_t) totsiz_3d[2],&lon_id);205 ierr = ncmpi_def_dim(file_id,"level", (MPI_Offset) totsiz_3d[0],&lev_id); 206 ierr = ncmpi_def_dim(file_id,"latitude", (MPI_Offset) totsiz_3d[1],&lat_id); 207 ierr = ncmpi_def_dim(file_id,"longitude",(MPI_Offset) totsiz_3d[2],&lon_id); 208 208 209 209 dim_id[0] = lev_id; dim_id[1] = lat_id; dim_id[2] = lon_id; … … 251 251 double dt1, dt2; 252 252 int ncid; 253 int 64_tvid_t, vid_smf;253 int vid_t, vid_smf; 254 254 int i, j, k, ii, ierr; 255 255 256 int64_t start_3d[3];257 int64_t count_3d[3];258 int64_t start_2d[2];259 int64_t count_2d[2];256 MPI_Offset start_3d[3]; 257 MPI_Offset count_3d[3]; 258 MPI_Offset start_2d[2]; 259 MPI_Offset count_2d[2]; 260 260 261 261 start_3d[0] = kstart; trunk/CDF3/test/fandc/pnctest.c
r613 r625 20 20 MPI_Comm comm_cart; 21 21 int ierr; 22 int 64_tlat_id, lev_id, lon_id;22 int lat_id, lev_id, lon_id; 23 23 int ncid; 24 24 int totpes; 25 int 64_ttt_id;25 int tt_id; 26 26 27 int 64_tdim_id[3];27 int dim_id[3]; 28 28 29 29 int numpes[3] = { 0, 1, 1 }; /* number of PEs along axes; … … 42 42 &ncid); 43 43 44 ierr = ncmpi_def_dim (ncid, "level", ( int64_t) TOTSIZ_3D[0], &lev_id);45 ierr = ncmpi_def_dim (ncid, "latitude", ( int64_t) TOTSIZ_3D[1], &lat_id);46 ierr = ncmpi_def_dim (ncid, "longitude", ( int64_t) TOTSIZ_3D[2], &lon_id);44 ierr = ncmpi_def_dim (ncid, "level", (MPI_Offset) TOTSIZ_3D[0], &lev_id); 45 ierr = ncmpi_def_dim (ncid, "latitude", (MPI_Offset) TOTSIZ_3D[1], &lat_id); 46 ierr = ncmpi_def_dim (ncid, "longitude", (MPI_Offset) TOTSIZ_3D[2], &lon_id); 47 47 48 48 dim_id[0] = lev_id; trunk/CDF3/test/fandc/pnctestf.F
r613 r625 43 43 44 44 45 ierr = Nfmpi_Create (comm_cart, "pnf_test.nc", NF_CLOBBER, 45 ierr = Nfmpi_Create (comm_cart, "pnf_test.nc", 46 & NF_CLOBBER, 46 47 & MPI_INFO_NULL, ncid) 47 48 trunk/CDF3/test/largefile/large_files.c
r614 r625 20 20 #include <pnetcdf.h> 21 21 22 #define FILE_NAME " /pvfs2/kgao/large_files.nc"22 #define FILE_NAME "./large_files.nc" 23 23 24 24 void … … 39 39 40 40 /* dimension ids */ 41 int 64_trec_dim;42 int 64_ti_dim;43 int 64_tj_dim;44 int 64_tk_dim;45 int 64_tn_dim;41 int rec_dim; 42 int i_dim; 43 int j_dim; 44 int k_dim; 45 int n_dim; 46 46 47 47 #define NUMRECS 1 … … 52 52 53 53 /* dimension lengths */ 54 int64_t rec_len = NC_UNLIMITED;55 int64_t i_len = I_LEN;56 int64_t j_len = J_LEN;57 int64_t k_len = K_LEN;58 int64_t n_len = N_LEN;54 MPI_Offset rec_len = NC_UNLIMITED; 55 MPI_Offset i_len = I_LEN; 56 MPI_Offset j_len = J_LEN; 57 MPI_Offset k_len = K_LEN; 58 MPI_Offset n_len = N_LEN; 59 59 60 60 /* variable ids */ 61 int 64_tvar1_id;62 int 64_tx_id;61 int var1_id; 62 int x_id; 63 63 64 64 /* rank (number of dimensions) for each variable */ … … 67 67 68 68 /* variable shapes */ 69 int 64_tvar1_dims[RANK_var1];70 int 64_tx_dims[RANK_x];69 int var1_dims[RANK_var1]; 70 int x_dims[RANK_x]; 71 71 72 72 printf("\n*** Testing large files, slowly.\n"); … … 117 117 int n = 0; 118 118 static signed char var1[J_LEN][K_LEN]; 119 static int64_t var1_start[RANK_var1] = {0, 0, 0, 0};120 static int64_t var1_count[RANK_var1] = {1, 1, J_LEN, K_LEN};121 static int64_t x_start[RANK_x] = {0, 0};122 static int64_t x_count[RANK_x] = {1, N_LEN};119 static MPI_Offset var1_start[RANK_var1] = {0, 0, 0, 0}; 120 static MPI_Offset var1_count[RANK_var1] = {1, 1, J_LEN, K_LEN}; 121 static MPI_Offset x_start[RANK_x] = {0, 0}; 122 static MPI_Offset x_count[RANK_x] = {1, N_LEN}; 123 123 for(rec=0; rec<NUMRECS; rec++) { 124 124 var1_start[0] = rec; … … 152 152 int n = 0; 153 153 static signed char var1[J_LEN][K_LEN]; 154 static int64_t var1_start[RANK_var1] = {0, 0, 0, 0};155 static int64_t var1_count[RANK_var1] = {1, 1, J_LEN, K_LEN};156 static int64_t x_start[RANK_x] = {0, 0};157 static int64_t x_count[RANK_x] = {1, N_LEN};154 static MPI_Offset var1_start[RANK_var1] = {0, 0, 0, 0}; 155 static MPI_Offset var1_count[RANK_var1] = {1, 1, J_LEN, K_LEN}; 156 static MPI_Offset x_start[RANK_x] = {0, 0}; 157 static MPI_Offset x_count[RANK_x] = {1, N_LEN}; 158 158 for(rec=0; rec<NUMRECS; rec++) { 159 159 var1_start[0] = rec; trunk/CDF3/test/nc_test/util.c
r613 r625 540 540 int err; /* status */ 541 541 int i; 542 int 64_tdimid; /* dimension id */542 int dimid; /* dimension id */ 543 543 544 544 for (i = 0; i < NDIMS; i++) { … … 556 556 int err; /* status */ 557 557 int i; 558 int 64_tvar_id;558 int var_id; 559 559 560 560 for (i = 0; i < NVARS; i++) { trunk/CDF3/test/test_double/test_read.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen, dimlen;74 int64_t shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];75 int64_t stride[NC_MAX_VAR_DIMS];73 MPI_Offset attlen, dimlen; 74 MPI_Offset shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 MPI_Offset stride[NC_MAX_VAR_DIMS]; 76 76 void *valuep; 77 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];78 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */79 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];77 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 78 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 79 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 80 80 int isRecvar; 81 81 params opts; trunk/CDF3/test/test_double/test_read_indep.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen, dimlen;74 int64_t shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];75 int64_t stride[NC_MAX_VAR_DIMS];73 MPI_Offset attlen, dimlen; 74 MPI_Offset shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 MPI_Offset stride[NC_MAX_VAR_DIMS]; 76 76 void *valuep; 77 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];78 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */79 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];77 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 78 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 79 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 80 80 int isRecvar; 81 81 params opts; trunk/CDF3/test/test_double/test_write.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t square_stride[2] = {2, 2};75 int64_t xytime_start[3] = {0, 0, 0};76 int64_t xytime_count[3] = {100, 50, 50};77 int64_t time_start[1], time_count[1] = {25};78 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset square_stride[2] = {2, 2}; 75 MPI_Offset xytime_start[3] = {0, 0, 0}; 76 MPI_Offset xytime_count[3] = {100, 50, 50}; 77 MPI_Offset time_start[1], time_count[1] = {25}; 78 int square_id, cube_id, xytime_id, time_id; 79 79 static char title[] = "example netCDF dataset"; 80 80 static char description[] = "2-D integer array"; trunk/CDF3/test/test_double/test_write_indep.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_double_int/test_read.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen, dimlen;74 int64_t shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen, dimlen; 74 MPI_Offset shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 79 79 int isRecvar; 80 80 params opts; trunk/CDF3/test/test_double_int/test_read_indep.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen, dimlen;74 int64_t shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen, dimlen; 74 MPI_Offset shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 79 79 int isRecvar; 80 80 params opts; trunk/CDF3/test/test_double_int/test_write.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_double_int/test_write_indep.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_dtype/test_nonblocking.c
r613 r625 15 15 #define TEST_ARRAY_ORDER MPI_ORDER_C 16 16 17 int 64_tndims = TEST_DIMS;17 int ndims = TEST_DIMS; 18 18 char *filename = TEST_DEFAULT_FILE; 19 19 int test_n = TEST_N; … … 90 90 } 91 91 92 void partition_array(int 64_tndims,93 int 64_t*total_sizes,94 int 64_t*local_subsizes,95 int 64_t*local_starts,92 void partition_array(int ndims, 93 int *total_sizes, 94 int *local_subsizes, 95 int *local_starts, 96 96 int nprocs, 97 97 int myrank) … … 139 139 int *array_of_sizes, *array_of_subsizes, *array_of_starts; 140 140 int ncid, *dimids, varid_1, varid_2; 141 int64_t *local_starts, *local_edges, *stride, *imap;141 MPI_Offset *local_starts, *local_edges, *stride, *imap; 142 142 char dimname[20]; 143 143 ncmpi_type nc_etype; … … 175 175 176 176 array_of_sizes = (int *) 177 malloc(sizeof(int)*ndims*4 + sizeof( int64_t)*ndims*4);177 malloc(sizeof(int)*ndims*4 + sizeof(MPI_Offset)*ndims*4); 178 178 array_of_subsizes = array_of_sizes + ndims; 179 179 array_of_starts = array_of_subsizes + ndims; 180 180 dimids = array_of_starts + ndims; 181 local_starts = ( int64_t *)(dimids + ndims);181 local_starts = (MPI_Offset *)(dimids + ndims); 182 182 local_edges = local_starts + ndims; 183 183 stride = local_edges + ndims; … … 203 203 sprintf(dimname, "dim_%d", i); 204 204 status = ncmpi_def_dim(ncid, dimname, 205 ( int64_t)array_of_sizes[i], dimids+i);205 (MPI_Offset)array_of_sizes[i], dimids+i); 206 206 TEST_HANDLE_ERR(status); 207 207 } … … 258 258 for (i=0; i<ndims; i++) { 259 259 local_sz *= array_of_subsizes[i]; 260 local_edges[i] = ( int64_t)array_of_subsizes[i];261 local_starts[i] = ( int64_t)array_of_starts[i];260 local_edges[i] = (MPI_Offset)array_of_subsizes[i]; 261 local_starts[i] = (MPI_Offset)array_of_starts[i]; 262 262 } 263 263 264 264 if (order == MPI_ORDER_FORTRAN) { 265 265 /* reverse the filearray dimension, since NC always use C ORDER */ 266 TEST_REVERSE(local_edges, ndims, int64_t);267 TEST_REVERSE(local_starts, ndims, int64_t);266 TEST_REVERSE(local_edges, ndims, MPI_Offset); 267 TEST_REVERSE(local_starts, ndims, MPI_Offset); 268 268 } 269 269 trunk/CDF3/test/test_float/test_read.c
r613 r625 69 69 int status; 70 70 int ncid1, ncid2; 71 int 64_tndims, nvars, ngatts, unlimdimid;71 int ndims, nvars, ngatts, unlimdimid; 72 72 char name[NC_MAX_NAME]; 73 73 ncmpi_type type, vartypes[NC_MAX_VARS]; 74 int64_t attlen;75 int64_t dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];74 MPI_Offset attlen; 75 MPI_Offset dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 76 76 void *valuep; 77 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];78 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */79 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];77 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 78 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 79 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 80 80 int isRecvar; 81 81 params opts; trunk/CDF3/test/test_float/test_read_indep.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen;74 int64_t dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen; 74 MPI_Offset dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 79 79 int isRecvar; 80 80 params opts; trunk/CDF3/test/test_float/test_write.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_float/test_write_indep.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_int/Makefile.in
r613 r625 11 11 12 12 SRCS = test_read.c test_read_indep.c test_write.c test_write_indep.c test_write64.c test_read64.c 13 SRCS = test_read.c test_read_indep.c test_write.c test_write_indep.c test_write64.c 13 SRCS = test_read.c test_read_indep.c test_write.c test_write_indep.c test_write64.c test2.c 14 14 OBJS = $(SRCS:.c=.o) 15 PROGS = test_read test_read_indep test_write test_write_indep test_write64 test_read64 15 PROGS = test_read test_read_indep test_write test_write_indep test_write64 test_read64 test2.c 16 16 LDFLAGS = -L$(LIBDIR) -L..//common @LDFLAGS@ 17 17 LIBS = -lpnetcdf -ltestutils @LIBS@ … … 34 34 test_read64: test_read64.o 35 35 $(CC) -o $@ $@.o $(LDFLAGS) $(LIBS) 36 test_read2: test_read2.o 37 $(CC) -o $@ $@.o $(LDFLAGS) $(LIBS) 36 38 37 39 clean: trunk/CDF3/test/test_int/test_read.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen;74 int64_t dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen; 74 MPI_Offset dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 79 79 int isRecvar; 80 80 params opts; 81 82 81 int rank; 83 82 int nprocs; trunk/CDF3/test/test_int/test_read64.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen;74 int64_t dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen; 74 MPI_Offset dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 // int64_t vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS]; /* divided by 16 due to my memory limitation */79 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 // MPI_Offset vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS]; /* divided by 16 due to my memory limitation */ 79 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 80 80 int isRecvar; 81 81 params opts; trunk/CDF3/test/test_int/test_read_indep.c
r613 r625 68 68 int status; 69 69 int ncid1, ncid2; 70 int 64_tndims, nvars, ngatts, unlimdimid;70 int ndims, nvars, ngatts, unlimdimid; 71 71 char name[NC_MAX_NAME]; 72 72 ncmpi_type type, vartypes[NC_MAX_VARS]; 73 int64_t attlen;74 int64_t dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS];73 MPI_Offset attlen; 74 MPI_Offset dimlen, shape[NC_MAX_VAR_DIMS], varsize, start[NC_MAX_VAR_DIMS]; 75 75 void *valuep; 76 int 64_tdimids[NC_MAX_DIMS], varids[NC_MAX_VARS];77 int 64_tvardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */78 int 64_tvarndims[NC_MAX_VARS], varnatts[NC_MAX_VARS];76 int dimids[NC_MAX_DIMS], varids[NC_MAX_VARS]; 77 int vardims[NC_MAX_VARS][NC_MAX_VAR_DIMS/16]; /* divided by 16 due to my memory limitation */ 78 int varndims[NC_MAX_VARS], varnatts[NC_MAX_VARS]; 79 79 int isRecvar; 80 80 params opts; trunk/CDF3/test/test_int/test_write.c
r613 r625 65 65 int main(int argc, char **argv) { 66 66 67 int64_t i, j, k;67 MPI_Offset i, j, k; 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_int/test_write64.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/test_int/test_write_indep.c
r613 r625 68 68 int status; 69 69 int ncid; 70 int 64_tdimid1, dimid2, dimid3, udimid;71 int 64_tsquare_dim[2], cube_dim[3], xytime_dim[3], time_dim[1];72 int64_t square_start[2], cube_start[3] = {0, 0, 0};73 int64_t square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50};74 int64_t xytime_start[3] = {0, 0, 0};75 int64_t xytime_count[3] = {100, 50, 50};76 int64_t time_start[1], time_count[1] = {25};77 int 64_tsquare_id, cube_id, xytime_id, time_id;70 int dimid1, dimid2, dimid3, udimid; 71 int square_dim[2], cube_dim[3], xytime_dim[3], time_dim[1]; 72 MPI_Offset square_start[2], cube_start[3] = {0, 0, 0}; 73 MPI_Offset square_count[2] = {50, 50}, cube_count[3] = {100, 50, 50}; 74 MPI_Offset xytime_start[3] = {0, 0, 0}; 75 MPI_Offset xytime_count[3] = {100, 50, 50}; 76 MPI_Offset time_start[1], time_count[1] = {25}; 77 int square_id, cube_id, xytime_id, time_id; 78 78 static char title[] = "example netCDF dataset"; 79 79 static char description[] = "2-D integer array"; trunk/CDF3/test/testcases/ncmpi_vars_null_stride.c
r613 r625 13 13 { 14 14 int ret, ncfile; 15 int 64_tdimid, varid, ndims=NDIMS;15 int dimid, varid, ndims=NDIMS; 16 16 int i, nprocs, rank; 17 int64_t start[NDIMS] = {0};18 int64_t count[NDIMS] = {0};17 MPI_Offset start[NDIMS] = {0}; 18 MPI_Offset count[NDIMS] = {0}; 19 19 int buf[512]; 20 20