diff options
| author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2023-07-27 21:08:47 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-27 21:08:47 (GMT) |
| commit | 61186204c020a81b5b0044a3b5e08311ccf1424d (patch) | |
| tree | d39acd70c119e92640277d4f595963f07d77f13c /fortran | |
| parent | 1e91d96fa02466ffe451319bdac1005f84dc7993 (diff) | |
| download | hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.zip hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.tar.gz hdf5-61186204c020a81b5b0044a3b5e08311ccf1424d.tar.bz2 | |
Remove "Programmer" lines (#3294)
Diffstat (limited to 'fortran')
30 files changed, 6 insertions, 1774 deletions
diff --git a/fortran/examples/testh5fc.sh.in b/fortran/examples/testh5fc.sh.in index 2f7c176..0328bbb 100644 --- a/fortran/examples/testh5fc.sh.in +++ b/fortran/examples/testh5fc.sh.in @@ -11,10 +11,6 @@ # help@hdfgroup.org. # # Tests for the h5fc compiler tool -# Created: Albert Cheng, 2007/3/14 -# -# Modification: -# srcdir=@srcdir@ diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index 68926e2..da5488d 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -32,11 +32,6 @@ * namelen - name length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * * SOURCE */ int_f @@ -76,11 +71,6 @@ done: * attr_num - number of attributes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * * SOURCE */ int_f @@ -115,11 +105,6 @@ done: * buf - buffer to hold the name * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 12, 1999 - * HISTORY - * * SOURCE */ int_f @@ -172,11 +157,6 @@ done: * N/A * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -226,11 +206,6 @@ done: * N/A * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -297,11 +272,6 @@ done: * * RETURNS * Size of buffer on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -366,11 +336,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -434,11 +399,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -500,11 +460,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -560,12 +515,6 @@ done: * buf - data pointer buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 11, 2008 - * HISTORY - * - * * SOURCE */ int_f @@ -594,12 +543,6 @@ h5awrite_f_c(hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf) * buf - data pointer buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 11, 2008 - * HISTORY - * - * * SOURCE */ int_f diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index 83032c1..fdaba9f 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -35,12 +35,6 @@ * n - number of references to be stored. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, May 14, 2002 - * HISTORY - * This function was added to accommodate h5dwrite_f with the - * dims argument being of INTEGER(HSIZE_T) type * SOURCE */ int_f @@ -107,12 +101,6 @@ h5dwrite_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id * n - number of references to be stored. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, May 15, 2002 - * HISTORY - * This function was added to accommodate h5dread_f subroutine - * with the dims parameter being of INTEGER(HSIZE_T_F) size. * SOURCE */ int_f @@ -174,11 +162,6 @@ h5dread_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, * type_id - identifier of the dataset's datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 19, 1999 - * HISTORY - * * SOURCE */ @@ -213,11 +196,6 @@ h5dget_type_c(hid_t_f *dset_id, hid_t_f *type_id) * plist_id - identifier of he dataset creation property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, August 19, 1999 - * HISTORY - * * SOURCE */ @@ -252,11 +230,6 @@ h5dget_create_plist_c(hid_t_f *dset_id, hid_t_f *plist_id) * size - the amount of storage required for a dataset * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, October 22, 2002 - * HISTORY - * * SOURCE */ @@ -290,11 +263,6 @@ h5dget_storage_size_c(hid_t_f *dset_id, hsize_t_f *size) * len - maximum length of the VL dataset element * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, October 22, 2002 - * HISTORY - * * SOURCE */ @@ -357,11 +325,6 @@ DONE: * len - array element lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 23, 2002 - * HISTORY - * * SOURCE */ @@ -434,11 +397,6 @@ DONE: * len - array element lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 24, 2002 - * HISTORY - * * SOURCE */ @@ -508,11 +466,6 @@ DONE: * len - array of strings lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 28, 2002 - * HISTORY - * * SOURCE */ @@ -599,11 +552,6 @@ DONE: * len - array of strings lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, November 1, 2002 - * HISTORY - * * SOURCE */ @@ -687,11 +635,6 @@ h5dread_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i * len - array element lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, November 11, 2002 - * HISTORY - * * SOURCE */ @@ -764,11 +707,6 @@ DONE: * len - array element lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, November 11, 2002 - * HISTORY - * * SOURCE */ @@ -833,11 +771,6 @@ DONE: * flag - status flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * * SOURCE */ int_f @@ -880,9 +813,6 @@ h5dget_space_status_c(hid_t_f *dset_id, int_f *flag) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February, 2008 * SOURCE */ int_f @@ -919,12 +849,6 @@ DONE: * buf - data buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 28, 2008 - * HISTORY - * - * * SOURCE */ int_f @@ -979,11 +903,6 @@ h5dwrite_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_ * len - array element lengths * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 28, 2008 - * HISTORY - * * SOURCE */ int_f @@ -1025,10 +944,6 @@ h5dread_f_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t * plist_id - the dataset access property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 13, 2009 - * * SOURCE */ int_f @@ -1061,10 +976,6 @@ DONE: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January 15, 2011 - * * SOURCE */ int_f diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 16ba70f..9631a87 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -31,11 +31,6 @@ * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, March 29, 2000 - * HISTORY - * * SOURCE */ int_f @@ -66,12 +61,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, March 29, 2000 - * HISTORY - * Bug fix: Added call to close the file with the error messages - * EP 11/26/01 * SOURCE */ int_f @@ -114,10 +103,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, March 29, 2000 - * * SOURCE */ int_f @@ -148,11 +133,6 @@ done: * name - character string describing the error * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, March 29, 2000 - * HISTORY - * * SOURCE */ int_f @@ -196,11 +176,6 @@ done: * name - character string describing the error * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, March 29, 2000 - * HISTORY - * * SOURCE */ int_f @@ -244,9 +219,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * July 22, 2009 * SOURCE */ /* int_f */ diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c index e7b18f6..9703486 100644 --- a/fortran/src/H5Ff.c +++ b/fortran/src/H5Ff.c @@ -36,9 +36,6 @@ * file_id - file identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, July 26, 1999 * SOURCE */ int_f @@ -104,10 +101,6 @@ h5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hi * acc_prp - identifier of access property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Monday, October 25, 1999 - * HISTORY */ int_f h5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid_t_f *acc_prp) @@ -162,9 +155,6 @@ h5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid * namelen - dsetname length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Monday, October 25, 1999 * SOURCE */ int_f @@ -210,9 +200,6 @@ h5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen) * prop_id - creation property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal, Xiangyang Su - * Wednesday, November 3, 1999 * SOURCE */ int_f @@ -244,11 +231,6 @@ h5fget_create_plist_c(hid_t_f *file_id, hid_t_f *prop_id) * access_id - access property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, September 30, 2002 - * HISTORY - * * SOURCE */ int_f @@ -280,13 +262,6 @@ h5fget_access_plist_c(hid_t_f *file_id, hid_t_f *access_id) * RETURNS * obj_count - number of objects * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, September 30, 2002 - * HISTORY - * - * Changed type of obj_count to size_t_f - * Thursday, September 25, 2008 * SOURCE */ @@ -317,15 +292,6 @@ h5fget_obj_count_c(hid_t_f *file_id, int_f *obj_type, size_t_f *obj_count) * RETURNS * obj_ids - iarray of open objects identifiers * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, September 30, 2002 - * HISTORY - * - * Changed type of max_obj to size_t_f; added parameter for the - * number of open objects - * Thursday, September 25, 2008 EIP - * * SOURCE */ int_f @@ -367,9 +333,6 @@ h5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f * RETURNS * free_space - amount of free space in file * 0 on success, -1 on failure - * AUTHOR - * Quincey Koziol - * Tuesday, October 7, 2003 * SOURCE */ @@ -401,9 +364,6 @@ h5fget_freespace_c(hid_t_f *file_id, hssize_t_f *free_space) * size - size of the file's name * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, July 6, 2004 * SOURCE */ int_f @@ -449,9 +409,6 @@ done: * size - size of the file * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, July 7, 2004 * SOURCE */ int_f @@ -483,9 +440,6 @@ done: * fileno - file number for open file * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Quincey Koziol - * Saturday, April 13, 2019 * SOURCE */ int_f @@ -523,9 +477,6 @@ done: * buf_req - The size in bytes of the buffer required to store the file image. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * November 26, 2012 * SOURCE */ int_f diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c index 6342bc3..8e4bae3 100644 --- a/fortran/src/H5Gf.c +++ b/fortran/src/H5Gf.c @@ -38,9 +38,6 @@ * obj_type - type of the object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 5, 1999 * SOURCE */ int_f @@ -119,9 +116,6 @@ DONE: * nmemebers - number of members * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 5, 1999 * SOURCE */ int_f @@ -166,9 +160,6 @@ DONE: * new_namelen - new_name length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 * SOURCE */ @@ -252,9 +243,6 @@ DONE: * new_namelen - new_name length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, September 25, 2002 * HISTORY * * SOURCE @@ -330,9 +318,6 @@ DONE: * name - name of the object to unlink * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 * SOURCE */ @@ -375,9 +360,6 @@ DONE: * dst_namelen - new name length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 * SOURCE */ @@ -426,10 +408,6 @@ DONE: * dst_namelen - new name length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, September 25, 2002 - * * SOURCE */ @@ -479,9 +457,6 @@ DONE: * value - name to be returned * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 * SOURCE */ @@ -542,11 +517,6 @@ DONE: * commentlen - new comment length * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 - * HISTORY - * Elena Pourmal * SOURCE */ int_f @@ -592,9 +562,6 @@ DONE: * comment - the new comment * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Mingshi Chen - * Friday, August 6, 1999 * SOURCE */ int_f @@ -655,9 +622,6 @@ DONE: * grp_id - group identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 15, 2008 * SOURCE */ int_f @@ -687,9 +651,6 @@ done: * gcpl_id - Group creation property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 15, 2008 * SOURCE */ int_f diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c index 40d5c8d..7486ff5 100644 --- a/fortran/src/H5If.c +++ b/fortran/src/H5If.c @@ -31,11 +31,6 @@ * type - object type * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Thursday, March 24, 2000 - * HISTORY - * * SOURCE */ int_f @@ -69,15 +64,6 @@ h5iget_type_c(hid_t_f *obj_id, int_f *type) * buf - buffer to hold the name * RETURNS * length of the name on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * - * Changed the size of c_buf_size to c_buf_size + 1, which - * fixes the problem of truncating the string by 1 if the - * exact size of the string (buf_size) is passed in. - * M. Scot Breitenfeld, April 21, 2008 * SOURCE */ int_f @@ -129,9 +115,6 @@ DONE: * ref_count - Reference count of ID * RETURNS * current reference count on success, -1 on failure - * AUTHOR - * Quincey Koziol - * Tuesday, December 9, 2003 * SOURCE */ int_f @@ -165,9 +148,6 @@ done: * ref_count - Reference count of ID * RETURNS * current reference count on success, -1 on failure - * AUTHOR - * Quincey Koziol - * Tuesday, December 9, 2003 * SOURCE */ int_f @@ -201,10 +181,6 @@ done: * ref_count - Reference count of ID * RETURNS * current reference count on success, -1 on failure - * AUTHOR - * Quincey Koziol - * Tuesday, December 9, 2003 - * * SOURCE */ int_f @@ -238,10 +214,6 @@ done: * file_id - file identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 24, 2004 - * * SOURCE */ int_f @@ -271,8 +243,6 @@ done: * Inputs: obj_id - object identifier * Outputs: 0 = false, 1 = true * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal - * Tuesday, August 24, 2004 *---------------------------------------------------------------------------*/ int_f h5iis_valid_c(hid_t_f *obj_id, int_f *c_valid) diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c index 7454a66..172c595 100644 --- a/fortran/src/H5Lf.c +++ b/fortran/src/H5Lf.c @@ -41,11 +41,6 @@ * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * * SOURCE */ @@ -99,9 +94,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 29, 2008 * SOURCE */ @@ -171,11 +163,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -239,11 +226,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -303,11 +285,6 @@ done: * RETURNS * Returns a positive value if the link class has been registered * and zero if it is unregistered. Otherwise returns a negative value - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * N/A * SOURCE */ int_f @@ -358,9 +335,6 @@ h5lis_registered_c(int_f *link_cls_id) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 * SOURCE */ int_f @@ -416,9 +390,6 @@ done: * size - The size of the link name on success * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 10, 2008 * SOURCE */ int_f @@ -486,11 +457,6 @@ done: /* * */ /* * RETURNS */ /* * 0 on success, -1 on failure */ -/* * AUTHOR */ -/* * M. Scot Breitenfeld */ -/* * March 3, 2008 */ -/* * HISTORY */ -/* * N/A */ /* * SOURCE */ /* *\/ */ /* int_f */ @@ -550,11 +516,6 @@ done: /* * */ /* * RETURNS */ /* * 0 on success, -1 on failure */ -/* * AUTHOR */ -/* * M. Scot Breitenfeld */ -/* * February 3, 2008 */ -/* * HISTORY */ -/* * */ /* * SOURCE */ /* *\/ */ @@ -650,9 +611,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 11, 2008 * SOURCE */ int_f @@ -705,9 +663,6 @@ done: * * RETURNS * >0 on success, 0< on failure - * AUTHOR - * M. Scot Breitenfeld - * August 18, 2008 * SOURCE */ int_f diff --git a/fortran/src/H5Of.c b/fortran/src/H5Of.c index 2ef08fe..addc6e3 100644 --- a/fortran/src/H5Of.c +++ b/fortran/src/H5Of.c @@ -101,9 +101,6 @@ fill_h5o_info_t_f(H5O_info2_t Oinfo, H5O_info_t_f *object_info) * lapl_id - Link access property list identifier. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 21, 2008 * SOURCE */ int_f @@ -146,9 +143,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * September 14, 2009 * SOURCE */ int_f @@ -188,9 +182,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * December 1, 2008 * SOURCE */ int_f @@ -237,9 +228,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * December 1, 2008 * SOURCE */ int_f @@ -290,9 +278,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 16, 2012 * SOURCE */ int_f @@ -323,9 +308,6 @@ done: * object_id - Object identifier. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 16, 2012 * SOURCE */ int_f @@ -357,9 +339,6 @@ done: * * RETURNS * link status: 0 = false, 1 = true, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 17, 2012 * SOURCE */ int_f @@ -396,9 +375,6 @@ done: * object_id - Object identifier. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 16, 2012 * SOURCE */ int_f @@ -428,9 +404,6 @@ done: * commentlen - Length of the comment. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 17, 2012 * SOURCE */ int_f @@ -473,9 +446,6 @@ done: * lapl_id - Link access property list identifier. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * May 17, 2012 * SOURCE */ int_f @@ -525,9 +495,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 24, 2012 * SOURCE */ int_f @@ -581,9 +548,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * July 6, 2012 * SOURCE */ int_f @@ -656,9 +620,6 @@ done: * cmp_value - Whether the tokens are equal. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Quincey Koziol - * January 10, 2019 * SOURCE */ int_f diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index c13262e..ecfa835 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -49,10 +49,6 @@ * prp_id - identifier of the created property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 9, 2002 - * * SOURCE */ @@ -82,10 +78,6 @@ done: * prp_id - identifier of the property list to be closed * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * * SOURCE */ @@ -112,10 +104,6 @@ h5pclose_c(hid_t_f *prp_id) * new_prp_id - identifier of the new property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * * SOURCE */ int_f @@ -147,10 +135,6 @@ done: * c_flag - flag to indicate that lists are equal * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, September 30, 2002 - * * SOURCE */ int_f @@ -181,9 +165,6 @@ done: * classtype - class type * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 * SOURCE */ @@ -214,9 +195,6 @@ done: * flag - TRUE/FALSE flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, February 17, 2000 * SOURCE */ @@ -250,9 +228,6 @@ h5pset_preserve_c(hid_t_f *prp_id, int_f *flag) * flag - TRUE/FALSE flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, February 17, 2000 * SOURCE */ @@ -282,9 +257,6 @@ h5pget_preserve_c(hid_t_f *prp_id, int_f *flag) * level - level of deflation * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 * SOURCE */ @@ -318,8 +290,6 @@ h5pset_deflate_c(hid_t_f *prp_id, int_f *level) * RETURNS * 0 on success, -1 on failure * Saturday, August 14, 1999 - * AUTHOR - * Elena Pourmal * SOURCE */ @@ -361,9 +331,6 @@ DONE: * dims - array of the size of each chunk * RETURNS * number of chunk's dimnesion on success, -1 on failure - * Saturday, August 14, 1999 - * AUTHOR - * Elena Pourmal * SOURCE */ @@ -402,9 +369,6 @@ h5pget_chunk_c(hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims) * fillvalue - fillvalue * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 * SOURCE */ int_f @@ -440,9 +404,6 @@ h5pset_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) * fillvalue - fillvalue * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 * SOURCE */ int_f @@ -482,11 +443,6 @@ h5pget_fill_value_c(hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue) * shhdr - array to put shared object header version number * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * Removed extra length parameters EP 7/6/00 * SOURCE */ #ifdef H5_NO_DEPRECATED_SYMBOLS @@ -542,9 +498,6 @@ h5pget_version_c(hid_t_f *prp_id, int_f *boot, int_f *freelist, int_f *stab, int * Outputs size - Size of the user-block in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 * SOURCE */ int_f @@ -581,9 +534,6 @@ h5pget_userblock_c(hid_t_f *prp_id, hsize_t_f *size) * size - Size of the user-block in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 * SOURCE */ int_f @@ -620,11 +570,6 @@ h5pset_userblock_c(hid_t_f *prp_id, hsize_t_f *size) * sizeof_size - Size of an object length in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * Deleted extra length parameters. EP 6/7/00 * SOURCE */ int_f @@ -663,11 +608,6 @@ h5pget_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size) * sizeof_size - Size of an object length in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * * SOURCE */ int_f @@ -705,9 +645,6 @@ h5pset_sizes_c(hid_t_f *prp_id, size_t_f *sizeof_addr, size_t_f *sizeof_size) * lk - Symbol table node size * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 * SOURCE */ int_f @@ -747,11 +684,6 @@ h5pset_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk) * lk - Symbol table node size * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -788,11 +720,6 @@ h5pget_sym_k_c(hid_t_f *prp_id, int_f *ik, int_f *lk) * ik - Symbol table tree rank * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -829,11 +756,6 @@ h5pset_istore_k_c(hid_t_f *prp_id, int_f *ik) * ik - Symbol table tree rank * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -868,11 +790,6 @@ h5pget_istore_k_c(hid_t_f *prp_id, int_f *ik) * driver - low-level file driver identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -906,11 +823,6 @@ DONE: * prp_id - property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 7, 2001 - * HISTORY - * * SOURCE */ int_f @@ -944,11 +856,6 @@ h5pset_fapl_stdio_c(hid_t_f *prp_id) * the functions declared in the stdio.h * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -982,11 +889,6 @@ h5pget_fapl_stdio_c(hid_t_f *prp_id, int_f *io) * prp_id - property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1021,11 +923,6 @@ h5pset_fapl_sec2_c(hid_t_f *prp_id) * the functions declared in the unistd.h * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1060,11 +957,6 @@ h5pget_fapl_sec2_c(hid_t_f *prp_id, int_f *sec2) * alignment - Alignment value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1100,11 +992,6 @@ h5pset_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment) * alignment - Alignment value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1142,11 +1029,6 @@ h5pget_alignment_c(hid_t_f *prp_id, hsize_t_f *threshold, hsize_t_f *alignment) * file contents to disk when the file is closed. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1183,11 +1065,6 @@ h5pset_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag) * Outputs increment - File block size in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1227,11 +1104,6 @@ h5pget_fapl_core_c(hid_t_f *prp_id, size_t_f *increment, int_f *flag) * for each member of the family * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1269,11 +1141,6 @@ h5pset_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist) * for each member of the family * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1314,12 +1181,6 @@ h5pget_fapl_family_c(hid_t_f *prp_id, hsize_t_f *memb_size, hid_t_f *memb_plist) * rdcc_w0 - Preemption policy * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * Changed the type of the rdcc_w0 parameter to be real_f EP 7/7/00 - * instead of double * SOURCE */ int_f @@ -1367,13 +1228,6 @@ h5pset_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts, size_t * rdcc_w0 - Preemption policy * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * Changed type of the rdcc_w0 parameter to be real_f instead of double - * Changed type of the rdcc_nelmts parameter to be int_f. - * EIP October 10, 2003 * SOURCE */ int_f @@ -1420,11 +1274,6 @@ h5pget_cache_c(hid_t_f *prp_id, int_f *mdc_nelmts, size_t_f *rdcc_nelmts, size_t * raw_plist - Identifier of the raw file access property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9, 2001 - * HISTORY - * * SOURCE */ int_f @@ -1487,11 +1336,6 @@ DONE: * raw_plist - Identifier of the raw file access property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 9 , 2001 - * HISTORY - * * SOURCE */ int_f @@ -1547,11 +1391,6 @@ h5pget_fapl_split_c(hid_t_f *prp_id, size_t_f *meta_ext_size, _fcd meta_ext, hid * for the file * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1588,11 +1427,6 @@ h5pset_gc_references_c(hid_t_f *prp_id, int_f *gc_references) * for the file * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1626,11 +1460,6 @@ h5pget_gc_references_c(hid_t_f *prp_id, int_f *gc_references) * layout - Type of storage layout for raw data. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1666,11 +1495,6 @@ h5pset_layout_c(hid_t_f *prp_id, int_f *layout) * layout - Type of storage layout for raw data. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1706,11 +1530,6 @@ h5pget_layout_c(hid_t_f *prp_id, int_f *layout) * cd_values - Auxiliary data for the filter. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1758,9 +1577,6 @@ DONE: * nfilters - number of filters defined in the filter pipeline * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 * SOURCE */ int_f @@ -1800,8 +1616,6 @@ h5pget_nfilters_c(hid_t_f *prp_id, int_f *nfilters) * name - Name of the filter * filter_id - filter identification number * Returns: 0 on success, -1 on failure - * Programmer: Xiangyang Su - * Friday, February 25, 2000 *---------------------------------------------------------------------------*/ int_f h5pget_filter_c(hid_t_f *prp_id, int_f *filter_number, int_f *flags, size_t_f *cd_nelmts, int_f *cd_values, @@ -1864,12 +1678,6 @@ DONE: * bytes - Number of bytes reserved in the file for the data. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * Changed type of 'offset' from int_f to off_t_f -- MSB January 9, 2012 - * * SOURCE */ int_f @@ -1917,11 +1725,6 @@ DONE: * count - number of external files * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1959,12 +1762,6 @@ h5pget_external_count_c(hid_t_f *prp_id, int_f *count) * bytes - Number of bytes reserved in the file for the data. * RETURNS * on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, February 23, 2000 - * HISTORY - * Changed type of 'offset' from integer to off_t -- MSB January 9, 2012 - * * SOURCE */ int_f @@ -2019,13 +1816,9 @@ DONE: * h5pset_btree_ratios_c * PURPOSE * Call H5Pset_btree_ratios to set B-tree split ratios for B-tree split ratios for a dataset transfer - * property list. a dataset transfer property list. INPUTS prp_id - property list identifier left - The B-tree - * split ratio for left-most nodes. middle - The B-tree split ratio for all other nodes right - The B-tree - * split ratio for right-most nodes and lone nodes. RETURNS 0 on success, -1 on failure AUTHOR Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * Changed the type of the last three parameters from double to real_f - * SOURCE + * property list. a dataset transfer property list. INPUTS prp_id - property list identifier left - The + * B-tree split ratio for left-most nodes. middle - The B-tree split ratio for all other nodes right - The + * B-tree split ratio for right-most nodes and lone nodes. RETURNS 0 on success, -1 on failure SOURCE */ int_f h5pset_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *right) @@ -2066,11 +1859,6 @@ h5pset_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *rig * and lone nodes. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, February 25, 2000 - * HISTORY - * Changed the type of the last three parameters from double to real_f * SOURCE */ int_f @@ -2111,11 +1899,6 @@ h5pget_btree_ratios_c(hid_t_f *prp_id, real_f *left, real_f *middle, real_f *rig * H5F_CLOSE_STRONG * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, September 26, 2002 - * HISTORY - * * SOURCE */ @@ -2150,11 +1933,6 @@ h5pget_fclose_degree_c(hid_t_f *fapl_id, int_f *degree) * H5F_CLOSE_STRONG * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, September 26, 2002 - * HISTORY - * * SOURCE */ @@ -2187,11 +1965,6 @@ h5pset_fclose_degree_c(hid_t_f *fapl_id, int_f *degree) * NONE * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 2, 2002 - * HISTORY - * * SOURCE */ @@ -2221,11 +1994,6 @@ h5pset_buffer_c(hid_t_f *prp_id, hsize_t_f *size) * size - size of conversion buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 2, 2002 - * HISTORY - * * SOURCE */ @@ -2256,11 +2024,6 @@ h5pget_buffer_c(hid_t_f *prp_id, hsize_t_f *size) * flag - fill value status flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, October 4, 2002 - * HISTORY - * * SOURCE */ @@ -2291,11 +2054,6 @@ h5pfill_value_defined_c(hid_t_f *prp_id, int_f *flag) * flag - allocation time flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, October 4, 2002 - * HISTORY - * * SOURCE */ @@ -2325,11 +2083,6 @@ h5pget_alloc_time_c(hid_t_f *prp_id, int_f *flag) * flag - allocation time flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, October 4, 2002 - * HISTORY - * * SOURCE */ @@ -2360,11 +2113,6 @@ h5pset_alloc_time_c(hid_t_f *prp_id, int_f *flag) * flag - fill value writing time flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, October 4, 2002 - * HISTORY - * * SOURCE */ @@ -2394,11 +2142,6 @@ h5pget_fill_time_c(hid_t_f *prp_id, int_f *flag) * flag - fill value writing time flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, October 4, 2002 - * HISTORY - * * SOURCE */ @@ -2429,11 +2172,6 @@ h5pset_fill_time_c(hid_t_f *prp_id, int_f *flag) * NONE * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2463,11 +2201,6 @@ h5pset_meta_block_size_c(hid_t_f *prp_id, hsize_t_f *size) * size - size of the metadata block * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2497,11 +2230,6 @@ h5pget_meta_block_size_c(hid_t_f *prp_id, hsize_t_f *size) * NONE * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2531,11 +2259,6 @@ h5pset_sieve_buf_size_c(hid_t_f *prp_id, size_t_f *size) * size - size of the buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2565,11 +2288,6 @@ h5pget_sieve_buf_size_c(hid_t_f *prp_id, size_t_f *size) * NONE * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2599,11 +2317,6 @@ h5pset_small_data_block_size_c(hid_t_f *prp_id, hsize_t_f *size) * size - size of the block * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2633,11 +2346,6 @@ h5pget_small_data_block_size_c(hid_t_f *prp_id, hsize_t_f *size) * NONE * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2667,11 +2375,6 @@ h5pset_hyper_vector_size_c(hid_t_f *prp_id, size_t_f *size) * size - size of the vector * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -2703,13 +2406,6 @@ h5pget_hyper_vector_size_c(hid_t_f *prp_id, size_t_f *size) * class - new class identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * - * HISTORY - * Added the callback parameters (FORTRAN 2003 compilers only) - * M. Scot Breitenfeld, July 3, 2008 * SOURCE */ int_f @@ -2756,11 +2452,6 @@ DONE: * value - property value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2799,11 +2490,6 @@ DONE: * value - property value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2841,11 +2527,6 @@ DONE: * name_len - length of the "name" buffer * RETURNS * nonnegative on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2884,11 +2565,6 @@ DONE: * cls - property class identifier * RETURNS * nonnegative on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2923,11 +2599,6 @@ h5pisa_class_c(hid_t_f *plist, hid_t_f *cls) * size - size of the property in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2968,11 +2639,6 @@ DONE: * nprops - number of properties in the list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3007,11 +2673,6 @@ h5pget_nprops_c(hid_t_f *plist, size_t_f *nprops) * parent_id - parent class identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3048,11 +2709,6 @@ h5pget_class_parent_c(hid_t_f *prp_id, hid_t_f *parent_id) * name_len - length of the "name" buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3092,11 +2748,6 @@ DONE: * name_len - length of the "name" buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3135,11 +2786,6 @@ DONE: * name_len - length of the "name" buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3176,11 +2822,6 @@ DONE: * class - identifier of property class to close * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3211,11 +2852,6 @@ h5pclose_class_c(hid_t_f *cls) * name_len - length of the "name" buffer * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3254,11 +2890,6 @@ DONE: * value - property value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3298,11 +2929,6 @@ DONE: * value - property value * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * October 11, 2002 - * HISTORY - * * SOURCE */ int_f @@ -3339,11 +2965,6 @@ DONE: * type_size - size of the datatype in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * * SOURCE */ @@ -3370,11 +2991,6 @@ h5pset_shuffle_c(hid_t_f *prp_id) * prp_id - dataset creation property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, March 13, 2003 - * HISTORY - * * SOURCE */ @@ -3403,11 +3019,6 @@ h5pset_fletcher32_c(hid_t_f *prp_id) * flag - EDC flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, March 13, 2003 - * HISTORY - * * SOURCE */ @@ -3438,11 +3049,6 @@ h5pset_edc_check_c(hid_t_f *prp_id, int_f *flag) * Outouts: flag - EDC flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, March 13, 2003 - * HISTORY - * * SOURCE */ @@ -3471,11 +3077,6 @@ h5pget_edc_check_c(hid_t_f *prp_id, int_f *flag) * offset - offset in bytes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, 19 March 2003 - * HISTORY - * * SOURCE */ @@ -3511,11 +3112,6 @@ h5pset_family_offset_c(hid_t_f *prp_id, hsize_t_f *offset) * flag - flag allowing partila access when one of the files is missing * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday 24, March 2003 - * HISTORY - * * SOURCE */ @@ -3603,11 +3199,6 @@ DONE: * prp_id - file_creation property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * March 31 2003 - * HISTORY - * * SOURCE */ @@ -3648,11 +3239,6 @@ h5pset_fapl_multi_sc(hid_t_f *prp_id, int_f *flag) * flag - flag allowing partila access when one of the files is missing * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday 24, March 2003 - * HISTORY - * * SOURCE */ @@ -3731,11 +3317,6 @@ h5pget_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd m * pixels_per_block -szip compression parameters * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * April 8 2003 - * HISTORY - * * SOURCE */ @@ -3773,11 +3354,6 @@ h5pset_szip_c(hid_t_f *prp_id, int_f *options_mask, int_f *pixels_per_block) * status - logical flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * April 10 2003 - * HISTORY - * * SOURCE */ @@ -3822,11 +3398,6 @@ h5pall_filters_avail_c(hid_t_f *prp_id, int_f *status) * name - Name of the filter * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena POurmal - * April 10, 2003 - * HISTORY - * * SOURCE */ int_f @@ -3887,11 +3458,6 @@ DONE: * cd_values - Auxiliary data for the filter. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * April 10 2003 - * HISTORY - * * SOURCE */ int_f @@ -3937,9 +3503,6 @@ DONE: * filter - Filter to be deleted * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Quincey Koziol - * January 27 2004 * HISTORY * * SOURCE @@ -3979,11 +3542,6 @@ DONE: * min_dense - Minimum number of attributes to be stored in dense storage * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4021,11 +3579,6 @@ h5pget_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dens * crt_order_flags - Flags specifying whether to track and index attribute creation order * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4064,11 +3617,6 @@ h5pset_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4109,11 +3657,6 @@ h5pset_shared_mesg_nindexes_c(hid_t_f *plist_id, int_f *nindexes) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * January, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4149,11 +3692,6 @@ h5pset_shared_mesg_index_c(hid_t_f *fcpl_id, int_f *index_num, int_f *mesg_type_ * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4190,11 +3728,6 @@ h5pget_attr_creation_order_c(hid_t_f *ocpl_id, int_f *crt_order_flags) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 18, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4227,11 +3760,6 @@ h5pset_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags) * min_dense - Minimum number of attributes to be stored in dense storage * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 20, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4269,11 +3797,6 @@ h5pget_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dens * flag - TRUE/FALSE flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 22, 2008 - * HISTORY - * * SOURCE */ @@ -4311,11 +3834,6 @@ h5pget_obj_track_times_c(hid_t_f *plist_id, int_f *flag) * flag - TRUE/FALSE flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 22, 2008 - * HISTORY - * * SOURCE */ @@ -4354,11 +3872,6 @@ h5pset_obj_track_times_c(hid_t_f *plist_id, int_f *flag) * creation of an object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 22, 2008 - * HISTORY - * * SOURCE */ @@ -4395,11 +3908,6 @@ h5pset_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4441,11 +3949,6 @@ h5pget_link_creation_order_c(hid_t_f *gcpl_id, int_f *crt_order_flags) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4483,11 +3986,6 @@ h5pset_char_encoding_c(hid_t_f *plist_id, int_f *encoding) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4527,11 +4025,6 @@ h5pget_char_encoding_c(hid_t_f *plist_id, int_f *encoding) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4567,11 +4060,6 @@ h5pset_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 3, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4612,11 +4100,6 @@ h5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options) * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 19, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4674,11 +4157,6 @@ done: * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 19, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4723,11 +4201,6 @@ done: * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4766,11 +4239,6 @@ h5pget_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint) * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4812,11 +4280,6 @@ h5pget_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4853,11 +4316,6 @@ h5pset_local_heap_size_hint_c(hid_t_f *gcpl_id, size_t_f *size_hint) * Success: 0 * Failure: -1 * - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4890,11 +4348,6 @@ h5pset_est_link_info_c(hid_t_f *gcpl_id, int_f *est_num_entries, int_f *est_name * Outputs * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -4930,11 +4383,6 @@ h5pset_link_phase_change_c(hid_t_f *gcpl_id, int_f *max_compact, int_f *min_dens * Outputs * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ #ifndef H5_HAVE_DIRECT @@ -4979,11 +4427,6 @@ h5pset_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *a * cbuf_size - Copy buffer size * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ #ifndef H5_HAVE_DIRECT @@ -5032,11 +4475,6 @@ h5pget_fapl_direct_c(hid_t_f H5_ATTR_UNUSED *fapl_id, size_t_f H5_ATTR_UNUSED *a * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -5068,11 +4506,6 @@ h5pset_attr_phase_change_c(hid_t_f *ocpl_id, int_f *max_compact, int_f *min_dens * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 - * HISTORY - * * SOURCE */ int_f @@ -5104,9 +4537,6 @@ h5pset_nbit_c(hid_t_f *plist_id) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 21, 2008 * SOURCE */ int_f @@ -5140,9 +4570,6 @@ h5pset_scaleoffset_c(hid_t_f *plist_id, int_f *scale_type, int_f *scale_factor) * nlinks - Maximum number of links to traverse * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 24, 2008 * SOURCE */ int_f @@ -5178,11 +4605,6 @@ h5pset_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 24, 2008 - * HISTORY - * * SOURCE */ int_f @@ -5217,11 +4639,6 @@ h5pget_nlinks_c(hid_t_f *lapl_id, size_t_f *nlinks) * the creation of an object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 4, 2008 - * HISTORY - * * SOURCE */ int_f @@ -5256,8 +4673,6 @@ h5pget_create_inter_group_c(hid_t_f *lcpl_id, int_f *crt_intermed_group) * rdcc_w0 - * * Returns: 0 on success, -1 on failure - * Programmer: M. Scot Breitenfeld - * April 13, 2009 *---------------------------------------------------------------------------*/ int_f @@ -5288,8 +4703,6 @@ h5pset_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nby * rdcc_w0 - * * Returns: 0 on success, -1 on failure - * Programmer: M. Scot Breitenfeld - * April 13, 2009 *---------------------------------------------------------------------------*/ int_f @@ -5324,8 +4737,6 @@ h5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nby * buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired * * Returns: 0 on success, -1 on failure - * Programmer: M. Scot Breitenfeld - * February 19, 2012 *---------------------------------------------------------------------------*/ int_f @@ -5354,8 +4765,6 @@ h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len) * buf_len - Size of the supplied buffer, or 0 (zero) if no initial image is desired * * Returns: 0 on success, -1 on failure - * Programmer: M. Scot Breitenfeld - * February 19, 2012 *---------------------------------------------------------------------------*/ int_f @@ -5397,11 +4806,6 @@ h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr) * info - MPI info object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, October 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -5437,11 +4841,6 @@ h5pset_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info) * info - buffer to return MPI info object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, October 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -5478,10 +4877,6 @@ h5pget_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info) * info - MPI info object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M.S. Breitenfeld - * October 2022 - * * SOURCE */ int_f @@ -5518,10 +4913,6 @@ h5pset_mpi_params_c(hid_t_f *prp_id, int_f *comm, int_f *info) * info - MPI info object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M.S. Breitenfeld - * October 2022 - * * SOURCE */ int_f @@ -5558,11 +4949,6 @@ h5pget_mpi_params_c(hid_t_f *prp_id, int_f *comm, int_f *info) * data_xfer_mode - transfer mode * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, October 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -5610,11 +4996,6 @@ h5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode) * data_xfer_mode - buffer to retrieve transfer mode * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, June 15, 2000 - * HISTORY - * * SOURCE */ int_f @@ -5666,9 +5047,6 @@ h5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * July 27, 2012 * SOURCE */ int_f diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c index c2f12e0..ad99418 100644 --- a/fortran/src/H5Rf.c +++ b/fortran/src/H5Rf.c @@ -36,11 +36,6 @@ * ref - reference to the dataset region * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, December 1, 1999 - * HISTORY - * * SOURCE */ int_f @@ -86,10 +81,6 @@ done: * ref - reference to the dataset region * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 20, 2008 - * * SOURCE */ int_f @@ -130,11 +121,6 @@ h5rcreate_ptr_c(void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *re * ref_obj_id - Identifier of referenced object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 20, 2008 - * HISTORY - * * SOURCE */ int_f @@ -167,11 +153,6 @@ h5rdereference_ptr_c(hid_t_f *obj_id, int_f *ref_type, void *ref, hid_t_f *ref_o * space_id - dereferenced dataset dataspace identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, December 1, 1999 - * HISTORY - * * SOURCE */ int_f @@ -210,11 +191,6 @@ done: * space_id - dereferenced dataset dataspace identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * August 4, 2012 - * HISTORY - * * SOURCE */ int_f @@ -250,11 +226,6 @@ done: * obj_type - type of dereferenced object * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, December 1, 1999 - * HISTORY - * * SOURCE */ int_f @@ -295,11 +266,6 @@ done: * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 20, 2008 - * HISTORY - * * SOURCE */ int_f @@ -357,10 +323,6 @@ h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * December 17, 2008 - * * SOURCE */ int_f diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index d7202c7..e8524df 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -34,11 +34,6 @@ * space_id - identifier of the created dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 4, 1999 - * HISTORY - * * SOURCE */ @@ -79,11 +74,6 @@ done: * space_id - identifier of the dataspace to be closed * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 4, 1999 - * HISTORY - * * SOURCE */ @@ -111,11 +101,6 @@ h5sclose_c(hid_t_f *space_id) * space_id - identifier of the created dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 10, 1999 - * HISTORY - * * SOURCE */ @@ -146,11 +131,6 @@ h5screate_c(int_f *classtype, hid_t_f *space_id) * new_space_id - identifier of the new datspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 10, 1999 - * HISTORY - * * SOURCE */ @@ -185,11 +165,6 @@ h5scopy_c(hid_t_f *space_id, hid_t_f *new_space_id) * the current dataspace selection * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, November 12, 1999 - * HISTORY - * * SOURCE */ @@ -224,11 +199,6 @@ h5sget_select_hyper_nblocks_c(hid_t_f *space_id, hssize_t_f *num_blocks) * the current dataspace selection * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Monday, November 15, 1999 - * HISTORY - * * SOURCE */ @@ -269,13 +239,6 @@ h5sget_select_elem_npoints_c(hid_t_f *space_id, hssize_t_f *num_points) * buf - List of hyperslab blocks selected * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Monday, November 15, 1999 - * HISTORY - * - * Transpose dimension arrays because of C-FORTRAN storage order - * M. Scot Breitenfeld * SOURCE */ @@ -344,13 +307,6 @@ h5sget_select_hyper_blocklist_c(hid_t_f *space_id, hsize_t_f *startblock, hsize_ * i.e., the coordinates of the diagonally opposite corne * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, November 17, 1999 - * HISTORY - * swapped array bounds to account for C and Fortran reversed - * matrix notation. - * M. Scot Breitenfeld * SOURCE */ @@ -401,11 +357,6 @@ done: * buf - List of element points selected * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Wednesday, November 17, 1999 - * HISTORY - * * SOURCE */ @@ -463,11 +414,6 @@ h5sget_select_elem_pointlist_c(hid_t_f *space_id, hsize_t_f *startpoint, hsize_t * space_id - identifier of the dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 10, 1999 - * HISTORY - * * SOURCE */ @@ -493,11 +439,6 @@ h5sselect_all_c(hid_t_f *space_id) * space_id - identifier of the dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 10, 1999 - * HISTORY - * * SOURCE */ @@ -527,11 +468,6 @@ h5sselect_none_c(hid_t_f *space_id) * and negative on failure. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 10, 1999 - * HISTORY - * * SOURCE */ @@ -563,11 +499,6 @@ h5sselect_valid_c(hid_t_f *space_id, int_f *flag) * npoints - number of points in a dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -599,11 +530,6 @@ h5sget_simple_extent_npoints_c(hid_t_f *space_id, hsize_t_f *npoints) * npoints - number of points in a dataspace selection * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -635,11 +561,6 @@ h5sget_select_npoints_c(hid_t_f *space_id, hssize_t_f *npoints) * rank - number of dataspace dimensions * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -672,11 +593,6 @@ h5sget_simple_extent_ndims_c(hid_t_f *space_id, int_f *ndims) * H5S_SCALAR_F (0), H5S_SIMPLE_F (1), H5S_NULL_F (2) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -712,11 +628,6 @@ h5sget_simple_extent_type_c(hid_t_f *space_id, int_f *classtype) * offset - offset array * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -761,11 +672,6 @@ done: * maximum_size - array with maximum sizes of dimensions * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -806,11 +712,6 @@ done: * maxdims - array with maximum sizes of dimensions * RETURNS * number of dataspace dimensions (rank) on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -860,11 +761,6 @@ done: * and negative on failure. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -894,11 +790,6 @@ h5sis_simple_c(hid_t_f *space_id, int_f *flag) * source_space_id - identifier of the source dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -927,11 +818,6 @@ h5sextent_copy_c(hid_t_f *dest_space_id, hid_t_f *source_space_id) * space_id - dataspace identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -966,11 +852,6 @@ h5sset_extent_none_c(hid_t_f *space_id) * block - size of block in the hyperslab * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -1026,11 +907,6 @@ done: * hyper_id - identifier for the new dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -1114,11 +990,6 @@ DONE: * ds_id - identifier for the new dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -1154,11 +1025,6 @@ h5scombine_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id, hid_t_f * * space2_id - identifier of the second dataspace * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ @@ -1192,11 +1058,6 @@ h5smodify_select_c(hid_t_f *space1_id, int_f *op, hid_t_f *space2_id) * type - type of selection * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Monday, October 7, 2002 - * HISTORY - * * SOURCE */ int_f @@ -1230,11 +1091,6 @@ h5sget_select_type_c(hid_t_f *space_id, int_f *type) * coord - arrays with the elements coordinates * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, August 11, 1999 - * HISTORY - * * SOURCE */ @@ -1285,11 +1141,6 @@ h5sselect_elements_c(hid_t_f *space_id, int_f *op, size_t_f *nelements, hsize_t_ * obj_id - Object_id (non-negative) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 26, 2008 - * HISTORY - * * SOURCE */ @@ -1328,11 +1179,6 @@ h5sdecode_c(_fcd buf, hid_t_f *obj_id) * nalloc - The size of the allocated buffer. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * March 26, 2008 - * HISTORY - * * SOURCE */ @@ -1398,11 +1244,6 @@ h5sencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc, hid_t_f *fapl_id) * equal - TRUE if equal, FALSE if unequal. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 4, 2008 - * HISTORY - * * SOURCE */ diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90 index 72627d9..79386f3 100644 --- a/fortran/src/H5Sff.F90 +++ b/fortran/src/H5Sff.F90 @@ -928,13 +928,6 @@ CONTAINS ! stride - array with hyperslab strides ! block - array with hyperslab block sizes ! -! AUTHOR -! Elena Pourmal -! October 7, 2002 -! -! HISTORY -! -! ! NOTES ! Commented out until 1.6 ? 10/08/2002 ! @@ -1043,13 +1036,6 @@ CONTAINS ! Failure: -1 ! OPTIONAL PARAMETERS - NONE ! -! AUTHOR -! Elena Pourmal -! October 7, 2002 -! -! HISTORY -! -! ! NOTES commented out until 1.6 release(?) 10/08/2002 ! ! @@ -1106,13 +1092,6 @@ CONTAINS ! Failure: -1 ! OPTIONAL PARAMETERS - NONE ! -! AUTHOR -! Elena Pourmal -! October 7, 2002 -! -! HISTORY -! -! ! NOTESCommented out until 1.6 release(?) 10/08/2002 EIP ! ! diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c index 6438af0..32282d5 100644 --- a/fortran/src/H5Tf.c +++ b/fortran/src/H5Tf.c @@ -34,11 +34,6 @@ * type_id - dataset identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ int_f @@ -86,13 +81,6 @@ done: * tapl_id - Datatype access property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * - * - Added passing optional parameters for version 1.8 - * M. Scot Breitenfeld * SOURCE */ int_f @@ -129,11 +117,6 @@ done: * type_id - identifier of the datatype to be closed * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -161,11 +144,6 @@ h5tclose_c(hid_t_f *type_id) * new_type_id - identifier of the new datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -197,11 +175,6 @@ h5tcopy_c(hid_t_f *type_id, hid_t_f *new_type_id) * c_flag - flag; indicates if two datatypes are equal or not. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, February 22, 2000 - * HISTORY - * * SOURCE */ @@ -246,11 +219,6 @@ h5tequal_c(hid_t_f *type1_id, hid_t_f *type2_id, int_f *c_flag) * H5T_ARRAY_F (10) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -299,11 +267,6 @@ h5tget_class_c(hid_t_f *type_id, int_f *classtype) * H5T_ORDER_VAX_F (2) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -342,11 +305,6 @@ h5tget_order_c(hid_t_f *type_id, int_f *order) * H5T_ORDER_VAX_F (2) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -382,11 +340,6 @@ h5tset_order_c(hid_t_f *type_id, int_f *order) * size (in bytes) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -418,11 +371,6 @@ h5tget_size_c(hid_t_f *type_id, size_t_f *size) * size (in bytes) * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Saturday, August 14, 1999 - * HISTORY - * * SOURCE */ @@ -455,11 +403,6 @@ h5tset_size_c(hid_t_f *type_id, size_t_f *size) * precision - number of significant bits * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Tuesday, January 25, 2000 - * HISTORY - * * SOURCE */ @@ -490,11 +433,6 @@ h5tget_precision_c(hid_t_f *type_id, size_t_f *precision) * precision - number of significant bits * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Tuesday, January 25, 2000 - * HISTORY - * * SOURCE */ @@ -528,11 +466,6 @@ h5tset_precision_c(hid_t_f *type_id, size_t_f *precision) * offset - bit offset of the first significant bit * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Tuesday, January 25, 2000 - * HISTORY - * * SOURCE */ @@ -565,11 +498,6 @@ h5tget_offset_c(hid_t_f *type_id, size_t_f *offset) * offset - bit offset of the first significant bit * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Tuesday, January 25, 2000 - * HISTORY - * * SOURCE */ @@ -605,11 +533,6 @@ h5tset_offset_c(hid_t_f *type_id, size_t_f *offset) * msbpad - padding type of the least significant bit * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -648,11 +571,6 @@ h5tget_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad) * msbpad - padding type of the least significant bit * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -686,11 +604,6 @@ h5tset_pad_c(hid_t_f *type_id, int_f *lsbpad, int_f *msbpad) * sign - sign type for an integer type * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -721,11 +634,6 @@ h5tget_sign_c(hid_t_f *type_id, int_f *sign) * sign - sign type for an integer typ * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -763,11 +671,6 @@ h5tset_sign_c(hid_t_f *type_id, int_f *sign) * msize - size of mantissa in bits * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, January 27, 2000 - * HISTORY - * * SOURCE */ @@ -808,11 +711,6 @@ h5tget_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esiz * msize - size of mantissa in bits * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -852,11 +750,6 @@ h5tset_fields_c(hid_t_f *type_id, size_t_f *spos, size_t_f *epos, size_t_f *esiz * ebias - exponent bias of a floating-point type of the datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, January 27, 2000 - * HISTORY - * * SOURCE */ @@ -889,11 +782,6 @@ h5tget_ebias_c(hid_t_f *type_id, size_t_f *ebias) * ebias - exponent bias of a floating-point type of the datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, January 27, 2000 - * HISTORY - * * SOURCE */ @@ -928,11 +816,6 @@ h5tset_ebias_c(hid_t_f *type_id, size_t_f *ebias) * norm - mantissa normalization of a floating-point type * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, January 27, 2000 - * HISTORY - * * SOURCE */ @@ -965,11 +848,6 @@ h5tget_norm_c(hid_t_f *type_id, int_f *norm) * norm - mantissa normalization of a floating-point type * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Friday, January 27, 2000 - * HISTORY - * * SOURCE */ @@ -1006,11 +884,6 @@ h5tset_norm_c(hid_t_f *type_id, int_f *norm) * unused bits in floating-point datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -1047,11 +920,6 @@ h5tget_inpad_c(hid_t_f *type_id, int_f *padtype) * in floating-point datatypes * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -1087,11 +955,6 @@ h5tset_inpad_c(hid_t_f *type_id, int_f *padtype) * cset - character set type of a string datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -1127,11 +990,6 @@ h5tget_cset_c(hid_t_f *type_id, int_f *cset) * cset - character set type of a string datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -1166,11 +1024,6 @@ h5tset_cset_c(hid_t_f *type_id, int_f *cset) * strpad - string padding method for a string datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1205,11 +1058,6 @@ h5tget_strpad_c(hid_t_f *type_id, int_f *strpad) * strpad - string padding method for a string datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ @@ -1244,11 +1092,6 @@ h5tset_strpad_c(hid_t_f *type_id, int_f *strpad) * num_members - number of fields in a compound datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1280,12 +1123,6 @@ h5tget_nmembers_c(hid_t_f *type_id, int_f *num_members) * member_name - name of a field of a compound datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * Elena Pourmal - * Added namelen parameter to return length of the name to Fortran user * SOURCE */ @@ -1324,11 +1161,6 @@ h5tget_member_name_c(hid_t_f *type_id, int_f *idx, _fcd member_name, int_f *name * index - 0-based index * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, September 26, 2002 - * HISTORY - * * SOURCE */ int_f @@ -1377,11 +1209,6 @@ DONE: * a compound datatype * RETURNS * always 0 - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1410,11 +1237,6 @@ h5tget_member_offset_c(hid_t_f *type_id, int_f *member_no, size_t_f *offset) * dims - dimensions(sizes of dimensions) of the array * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, November 16, 2000 - * HISTORY - * * SOURCE */ @@ -1453,11 +1275,6 @@ DONE: * ndims - number of dimensions of the array * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, November 16, 2000 - * HISTORY - * * SOURCE */ @@ -1491,11 +1308,6 @@ h5tget_array_ndims_c(hid_t_f *type_id, int_f *ndims) * base_type_id - base datatype identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, November 16, 2000 - * HISTORY - * * SOURCE */ @@ -1530,11 +1342,6 @@ h5tget_super_c(hid_t_f *type_id, hid_t_f *base_type_id) * datatype - identifier of a copy of the datatype of the field * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1562,11 +1369,6 @@ h5tget_member_type_c(hid_t_f *type_id, int_f *field_idx, hid_t_f *datatype) * size - size of the class member * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, February 17, 2000 - * HISTORY - * * SOURCE */ @@ -1602,11 +1404,6 @@ h5tcreate_c(int_f *cls, size_t_f *size, hid_t_f *type_id) * field_id - datatype identifier of the new member * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1642,11 +1439,6 @@ h5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t * type_id - identifier of the datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1679,11 +1471,6 @@ h5tpack_c(hid_t_f *type_id) * type_id - identifier of the array datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Thursday, November 16, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1723,11 +1510,6 @@ DONE: * enumeration datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Xiangyang Su - * Tuesday, February 15, 1999 - * HISTORY - * * SOURCE */ @@ -1758,10 +1540,7 @@ h5tenum_create_c(hid_t_f *parent_id, hid_t_f *new_type_id) * value - value of the new member * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY + * * 'value' is no longer cast into an int. If the user passes in an 8 byte integer then * it should not be cast to an int (which might be 4 bytes). Instead the value * is written as the size of an int_f. @@ -1805,11 +1584,6 @@ h5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value) * Output: name - Name of the enumeration datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1850,11 +1624,6 @@ h5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen) * Output: value - value of the enumeration datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1890,11 +1659,6 @@ h5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value) * Output: value - value of the enumeration datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Thursday, February 3, 2000 - * HISTORY - * * SOURCE */ @@ -1929,11 +1693,6 @@ h5tget_member_value_c(hid_t_f *type_id, int_f *member_no, int_f *value) * namelen - length of tag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -1968,11 +1727,6 @@ h5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen) * taglen - length of tag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * XIANGYANG SU - * Wednesday, January 26, 2000 - * HISTORY - * * SOURCE */ int_f @@ -2005,11 +1759,6 @@ h5tget_tag_c(hid_t_f *type_id, _fcd tag, size_t_f *tag_size, int_f *taglen) * vltype_id - identifier of the VL datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, October 23, 2002 - * HISTORY - * * SOURCE */ int_f @@ -2041,11 +1790,6 @@ h5tvlen_create_c(hid_t_f *type_id, hid_t_f *vltype_id) * and negative on failure. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12 , 2003 - * HISTORY - * * SOURCE */ @@ -2078,11 +1822,6 @@ h5tis_variable_str_c(hid_t_f *type_id, int_f *flag) * and negative on failure. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, April 6, 2005 - * HISTORY - * * SOURCE */ @@ -2117,11 +1856,6 @@ h5tget_member_class_c(hid_t_f *type_id, int_f *member_no, int_f *cls) * tapl_id - Datatype access property list * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 25, 2008 - * HISTORY - * * SOURCE */ int_f @@ -2150,11 +1884,6 @@ done: * a positive value, for TRUE, if the datatype has been committed, * or 0 (zero), for FALSE, if the datatype has not been committed. * Otherwise returns a negative value. - * AUTHOR - * M. Scot Breitenfeld - * February 25, 2008 - * HISTORY - * * SOURCE */ int_f @@ -2184,11 +1913,6 @@ h5tcommitted_c(hid_t_f *dtype_id) * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 9, 2008 - * HISTORY - * * SOURCE */ @@ -2228,11 +1952,6 @@ h5tdecode_c(_fcd buf, hid_t_f *obj_id) * nalloc - The size of the allocated buffer. * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 9, 2008 - * HISTORY - * * SOURCE */ @@ -2297,11 +2016,6 @@ h5tencode_c(_fcd buf, hid_t_f *obj_id, size_t_f *nalloc) * dtpl_id - Datatype property list identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * April 9, 2008 - * HISTORY - * N/A * SOURCE */ @@ -2331,11 +2045,6 @@ h5tget_create_plist_c(hid_t_f *dtype_id, hid_t_f *dtpl_id) * c_flag - flag; TRUE for compiler conversion, FALSE for library conversion * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M.Scot Breitenfeld - * April 9, 2008 - * HISTORY - * * SOURCE */ @@ -2366,11 +2075,6 @@ h5tcompiler_conv_c(hid_t_f *src_id, hid_t_f *dst_id, int_f *c_flag) * native_dtype_id - The native datatype identifier for the specified dataset datatype * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * June 18, 2008 - * HISTORY - * * SOURCE */ @@ -2408,10 +2112,6 @@ h5tget_native_type_c(hid_t_f *dtype_id, int_f *direction, hid_t_f *native_dtype_ * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * December 8, 2008 - * * SOURCE */ int_f @@ -2443,10 +2143,6 @@ h5tconvert_c(hid_t_f *src_id, hid_t_f *dst_id, size_t_f *nelmts, void *buf, void * * RETURNS * 0 on success, -1 on failure - * AUTHOR - * M. Scot Breitenfeld - * February 6, 2015 - * * SOURCE */ int_f diff --git a/fortran/src/H5Tff.F90 b/fortran/src/H5Tff.F90 index 08ee51d..c69c122 100644 --- a/fortran/src/H5Tff.F90 +++ b/fortran/src/H5Tff.F90 @@ -1409,14 +1409,6 @@ CONTAINS ! Success: 0 ! Failure: -1 ! -! AUTHOR -! Elena Pourmal -! August 12, 1999 -! -! HISTORY -! Explicit Fortran interfaces were added for -! called C functions (it is needed for Windows -! port). March 7, 2001 ! SOURCE ! SUBROUTINE h5tinsert_array_f(parent_id,name,offset, ndims, dims, member_id, hdferr, perm) ! IMPLICIT NONE diff --git a/fortran/src/H5Zf.c b/fortran/src/H5Zf.c index d24d48b..607992f 100644 --- a/fortran/src/H5Zf.c +++ b/fortran/src/H5Zf.c @@ -29,11 +29,6 @@ * filter identifier * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * * SOURCE */ int_f @@ -65,11 +60,6 @@ h5zunregister_c(int_f *filter) * flag - status flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Wednesday, March 12, 2003 - * HISTORY - * * SOURCE */ @@ -101,11 +91,6 @@ h5zfilter_avail_c(int_f *filter, int_f *flag) * flag - status flag * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Nat Furrer and James Laird - * Wednesday, June 16, 2004 - * HISTORY - * * SOURCE */ diff --git a/fortran/src/H5_buildiface.F90 b/fortran/src/H5_buildiface.F90 index 4572b4c..1827204 100644 --- a/fortran/src/H5_buildiface.F90 +++ b/fortran/src/H5_buildiface.F90 @@ -38,9 +38,6 @@ ! help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! -! AUTHOR -! M. Scot Breitenfeld -! !***** #include <H5config_f.inc> @@ -424,23 +421,6 @@ PROGRAM H5_buildiface ! Outputs: ! hdferr - \fortran_error ! -! AUTHOR -! Elena Pourmal -! August 12, 1999 -! -! HISTORY -! Explicit Fortran interfaces are added for -! called C functions (it is needed for Windows -! port). February 27, 2001 -! -! dims parameter was added to make code portable; -! Aprile 4, 2001 -! -! Changed buf intent to INOUT to be consistent -! with how the C functions handles it. The pg -! compiler will return 0 if a buf value is not set. -! February, 2008 -! ! NOTES ! This function is overloaded to write INTEGER, ! REAL, REAL(KIND=C_DOUBLE) and CHARACTER buffers @@ -551,23 +531,6 @@ PROGRAM H5_buildiface ! buf - Data buffer; may be a scalar or an array ! hdferr - \fortran_error ! -! AUTHOR -! Elena Pourmal -! August 12, 1999 -! -! HISTORY -! Explicit Fortran interfaces are added for -! called C functions (it is needed for Windows -! port). February 27, 2001 -! -! dims parameter was added to make code portable; -! Aprile 4, 2001 -! -! Changed buf intent to INOUT to be consistent -! with how the C functions handles it. The pg -! compiler will return 0 if a buf value is not set. -! February, 2008 -! ! NOTES ! This function is overloaded to write INTEGER, ! REAL, REAL(KIND=C_DOUBLE) and CHARACTER buffers @@ -678,20 +641,6 @@ PROGRAM H5_buildiface ! file_space_id - file dataspace identifier ! xfer_prp - transfer property list identifier ! -! AUTHOR -! Elena Pourmal -! August 12, 1999 -! -! HISTORY -! Explicit Fortran interfaces were added for -! called C functions (it is needed for Windows -! port). February 28, 2001 -! -! dims parameter was added to make code portable; -! n parameter was replaced with dims parameter in -! the h5dwrite_reference_obj and h5dwrite_reference_dsetreg -! functions. April 2, 2001 -! ! NOTES ! This function is overloaded to read INTEGER, ! REAL, DOUBLE PRECISION and CHARACTER buffers diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 396acf9..da2b5d9 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -43,9 +43,6 @@ int IntKinds_SizeOf[] = H5_FORTRAN_INTEGER_KINDS_SIZEOF; * H5f90global.F90 * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 3, 1999 * SOURCE */ int_f @@ -343,9 +340,6 @@ h5init_types_c(hid_t_f *types, hid_t_f *floatingtypes, hid_t_f *integertypes) * in the H5f90global.F90 * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 3, 1999 * SOURCE */ int_f @@ -404,23 +398,6 @@ h5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f *floatingtypes, int_f * * None * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, August 3, 1999 - * HISTORY - * Added Z flags. EIP, March 12, 2003 - * Added more FD flags and new H5LIB flags - * Added more FD flags for HDF5 file driver - * EIP, April 9, 2005 - * Added Generic flags introduced in version 1.8 - * MSB, January, 2008 - * Added types in lines h5*_flags = ( )variable to match input - * Added E flags - * MSB, July 9, 2009 - * Added type h5d_flags of type size_t - * MSB, Feb. 28, 2014 - * Added type h5s_hid_flags of type hid_t - * MSB, Oct. 10, 2016 * SOURCE */ int_f @@ -949,10 +926,6 @@ h5init1_flags_c(int_f *h5lib_flags) * Calls H5open call to initialize C HDF5 library * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Friday, November 17, 2000 - * * SOURCE */ int_f @@ -973,8 +946,6 @@ h5open_c(void) * Calls H5close call to close C HDF5 library * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal * SOURCE */ int_f @@ -1005,9 +976,6 @@ h5close_c(void) * relnum - the release version of the library * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, September 24, 2002 * SOURCE * */ @@ -1045,9 +1013,6 @@ h5get_libversion_c(int_f *majnum, int_f *minnum, int_f *relnum) * None * RETURNS * 0 on success, aborts on failure - * AUTHOR - * Elena Pourmal - * Tuesday, September 24, 2002 * SOURCE */ int_f @@ -1074,9 +1039,6 @@ h5check_version_c(int_f *majnum, int_f *minnum, int_f *relnum) * Calls H5garbage_collect to collect on all free-lists of all types * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, September 24, 2002 * SOURCE */ int_f @@ -1098,9 +1060,6 @@ h5garbage_collect_c(void) * Calls H5dont_atexit not to install atexit cleanup routine * RETURNS * 0 on success, -1 on failure - * AUTHOR - * Elena Pourmal - * Tuesday, September 24, 2002 * SOURCE */ int_f diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90 index 049bf26..62b107c 100644 --- a/fortran/src/H5f90global.F90 +++ b/fortran/src/H5f90global.F90 @@ -18,9 +18,6 @@ ! help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! -! AUTHOR -! Elena Pourmal -! !***** MODULE H5GLOBAL diff --git a/fortran/test/H5_test_buildiface.F90 b/fortran/test/H5_test_buildiface.F90 index ca945db..60f2e4c 100644 --- a/fortran/test/H5_test_buildiface.F90 +++ b/fortran/test/H5_test_buildiface.F90 @@ -38,9 +38,6 @@ ! help@hdfgroup.org. * ! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ! -! AUTHOR -! M. Scot Breitenfeld -! !***** #include <H5config_f.inc> diff --git a/fortran/test/t.c b/fortran/test/t.c index f3b326b..bda1226 100644 --- a/fortran/test/t.c +++ b/fortran/test/t.c @@ -34,8 +34,6 @@ * full_name - buffer to return full name * full_namelen - name length * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal - * Friday, September 13, 2002 *---------------------------------------------------------------------------*/ int_f nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_name, size_t_f *full_namelen) @@ -75,8 +73,6 @@ done: * base_namelen - name length * fapl - file access property list * Returns: 0 on success, -1 on failure - * Programmer: Elena Pourmal - * Thursday, September 19, 2002 *---------------------------------------------------------------------------*/ int_f nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl) @@ -124,8 +120,6 @@ DONE: * up as exit(0). * Inputs: status - status for exit() to return * Returns: none - * Programmer: Quincey Koziol - * Tuesday, December 14, 2004 *---------------------------------------------------------------------------*/ void nh5_exit_c(int_f *status) @@ -140,8 +134,6 @@ nh5_exit_c(int_f *status) * Output: status: 1 - HDF5_NOCLEANUP is set * 0 - HDF5_NOCLEANUP is not set * Returns: none - * Programmer: M.S. Breitenfeld - * September 30, 2008 *---------------------------------------------------------------------------*/ void nh5_env_nocleanup_c(int_f *status) diff --git a/fortran/test/tH5A_1_8.F90 b/fortran/test/tH5A_1_8.F90 index 17d152b..8201675 100644 --- a/fortran/test/tH5A_1_8.F90 +++ b/fortran/test/tH5A_1_8.F90 @@ -2671,10 +2671,6 @@ END SUBROUTINE test_attr_many ! * ! * Return: Success: 0 ! * Failure: -1 -! * -! * Programmer: Fortran version (M.S. Breitenfeld) -! * March 21, 2008 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5G_1_8.F90 b/fortran/test/tH5G_1_8.F90 index 1764c08..0be6c7b 100644 --- a/fortran/test/tH5G_1_8.F90 +++ b/fortran/test/tH5G_1_8.F90 @@ -129,10 +129,6 @@ END SUBROUTINE group_test ! * Return: Success: 0 ! * Failure: -1 ! * -! * Programmer: Adapted from C test routines by -! * M.S. Breitenfeld -! * February 18, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -552,11 +548,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Verify that disabling tracking timestamps for an object ! * works correctly -! * -! * -! * Programmer: M.S. Breitenfeld -! * February 20, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -745,10 +736,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Build a file with assorted links. ! * -! * -! * Programmer: Adapted from C test by: -! * M.S. Breitenfeld -! * ! *------------------------------------------------------------------------- ! @@ -836,10 +823,6 @@ END SUBROUTINE group_info ! * ! * Purpose: Tests that moving and renaming links preserves their ! * properties. -! * -! * Programmer: M.S. Breitenfeld -! * March 3, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1041,10 +1024,6 @@ END SUBROUTINE group_info ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: Quincey Koziol -! * Monday, October 17, 2005 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE lifecycle(cleanup, fapl2, total_error) @@ -1182,10 +1161,6 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: M.S. Breitenfeld -! * April 14, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1251,12 +1226,6 @@ END SUBROUTINE cklinks ! * ! * Return: Total error ! * -! * C Programmer: Quincey Koziol -! * Tuesday, November 14, 2006 -! * -! * Adapted to FORTRAN: M.S. Breitenfeld -! * March 3, 2008 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE delete_by_idx(cleanup, fapl, total_error) @@ -1491,10 +1460,6 @@ END SUBROUTINE delete_by_idx ! * ! * Return: Success: 0 ! * Failure: -1 -! * -! * Programmer: Quincey Koziol -! * Tuesday, November 7, 2006 -! * ! *------------------------------------------------------------------------- ! SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & @@ -1590,10 +1555,6 @@ SUBROUTINE link_info_by_idx_check(group_id, linkname, n, & ! * Return: Success: 0 ! * Failure: number of errors ! * -! * Programmer: M.S. Breitenfeld -! * Modified C routine -! * March 12, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -1958,10 +1919,6 @@ END SUBROUTINE objcopy ! * Return: Success: 0 ! * ! * Failure: -1 -! * -! * Programmer: James Laird -! * Tuesday, June 6, 2006 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5MISC_1_8.F90 b/fortran/test/tH5MISC_1_8.F90 index 5413169..85f9634 100644 --- a/fortran/test/tH5MISC_1_8.F90 +++ b/fortran/test/tH5MISC_1_8.F90 @@ -337,10 +337,6 @@ END SUBROUTINE test_h5s_encode ! ! Return: Success: 0 ! Failure: >0 -! -! Programmer: M. Scot Breitenfeld -! Decemeber 11, 2010 -! !------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5O_F03.F90 b/fortran/test/tH5O_F03.F90 index 6b6c730..e608a30 100644 --- a/fortran/test/tH5O_F03.F90 +++ b/fortran/test/tH5O_F03.F90 @@ -41,11 +41,6 @@ MODULE visit_cb ! ! Return: Success: 0 ! Failure: -1 - ! - ! Programmer: M.S. Breitenfeld - ! July 12, 2012 - ! Adopted from C test. - ! !------------------------------------------------------------------------- ! ! Object visit structs @@ -702,11 +697,6 @@ END SUBROUTINE test_obj_info ! Function: build_visit_file ! ! Purpose: Build an "interesting" file to use for visiting links & objects -! -! Programmer: M. Scot Breitenfeld -! July 12, 2012 -! NOTE: Adapted from C test. -! !------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5P.F90 b/fortran/test/tH5P.F90 index 57320df..c73016b 100644 --- a/fortran/test/tH5P.F90 +++ b/fortran/test/tH5P.F90 @@ -448,12 +448,6 @@ END SUBROUTINE multi_file_test ! ! Return: Success: 0 ! Failure: -1 -! -! C Programmer: Neil Fortner -! Wednesday, October 29, 2008 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! April 16, 2009 !------------------------------------------------------------------------- ! SUBROUTINE test_chunk_cache(cleanup, total_error) diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90 index f15a471..606a9cd 100644 --- a/fortran/test/tH5P_F03.F90 +++ b/fortran/test/tH5P_F03.F90 @@ -81,10 +81,6 @@ CONTAINS ! * Return: Success: 0 ! * ! * Failure: number of errors -! * -! * Programmer: M. Scot Breitenfeld -! * June 24, 2008 -! * ! *------------------------------------------------------------------------- ! @@ -442,9 +438,6 @@ END SUBROUTINE test_genprop_class_callback ! ! Return: Success: 0 ! Failure: -1 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! April 1, 2014 !------------------------------------------------------------------------- SUBROUTINE test_h5p_file_image(total_error) @@ -514,9 +507,6 @@ END SUBROUTINE test_h5p_file_image ! ! Return: Success: 0 ! Failure: -1 -! -! FORTRAN Programmer: M. Scot Breitenfeld -! January 10, 2012 !------------------------------------------------------------------------- ! SUBROUTINE external_test_offset(cleanup,total_error) @@ -662,10 +652,6 @@ END SUBROUTINE external_test_offset ! RETURNS: ! Success: 0 ! Failure: number of errors -! -! FORTRAN Programmer: M. Scot Breitenfeld -! February 1, 2016 -! !------------------------------------------------------------------------- ! SUBROUTINE test_vds(total_error) diff --git a/fortran/test/tH5T.F90 b/fortran/test/tH5T.F90 index 1fee036..953d6d0 100644 --- a/fortran/test/tH5T.F90 +++ b/fortran/test/tH5T.F90 @@ -949,10 +949,6 @@ CONTAINS ! * Return: Success: 0 ! * ! * Failure: number of errors -! * -! * Fortran Programmer: M.S. Breitenfeld -! * September 9, 2008 -! * ! *------------------------------------------------------------------------- ! diff --git a/fortran/test/tH5T_F03.F90 b/fortran/test/tH5T_F03.F90 index 0f56806..661a0cc 100644 --- a/fortran/test/tH5T_F03.F90 +++ b/fortran/test/tH5T_F03.F90 @@ -2913,10 +2913,6 @@ END SUBROUTINE setup_buffer ! ! Return: Success: 0 ! Failure: >0 -! -! Programmer: M. Scot Breitenfeld -! Decemeber 7, 2010 -! !------------------------------------------------------------------------- ! @@ -3057,9 +3053,6 @@ SUBROUTINE t_enum_conv(total_error) ! Return: Success: 0 ! Failure: number of errors ! -! Programmer: M. Scot Breitenfeld -! October 27, 2012 -! ! Note: Adapted from C test (enum.c -- test_conv) ! No reliance on C tests. !------------------------------------------------------------------------- @@ -3401,9 +3394,9 @@ END SUBROUTINE t_enum_conv ! Tests the reading and writing of multiple datasets using H5Dread_multi and ! H5Dwrite_multi - + SUBROUTINE multiple_dset_rw(total_error) - + !------------------------------------------------------------------------- ! Subroutine: multiple_dset_rw ! @@ -3412,10 +3405,6 @@ SUBROUTINE multiple_dset_rw(total_error) ! ! Return: Success: 0 ! Failure: number of errors -! -! Programmer: M. Scot Breitenfeld -! April 2, 2014 -! !------------------------------------------------------------------------- ! USE iso_c_binding diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90 index 501d243..d08d1c7 100644 --- a/fortran/test/tf.F90 +++ b/fortran/test/tf.F90 @@ -204,11 +204,6 @@ CONTAINS ! hdferr: - error code ! Success: 0 ! Failure: -1 -! -! Programmer: Elena Pourmal -! September 13, 2002 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_fixname_f(base_name, full_name, fapl, hdferr) ! @@ -264,11 +259,6 @@ CONTAINS ! hdferr: - error code ! Success: 0 ! Failure: -1 -! -! Programmer: Elena Pourmal -! September 19, 2002 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_cleanup_f(base_name, fapl, hdferr) ! @@ -316,11 +306,6 @@ CONTAINS ! ! Outputs: ! none -! -! Programmer: Quincey Koziol -! December 14, 2004 -! -! !---------------------------------------------------------------------- SUBROUTINE h5_exit_f(status) ! @@ -354,10 +339,6 @@ CONTAINS ! ! Outputs: HDF5_NOCLEANUP: .true. - don't remove test files ! .false. - remove test files -! -! Programmer: M.S. Breitenfeld -! September 30, 2008 -! !---------------------------------------------------------------------- SUBROUTINE h5_env_nocleanup_f(HDF5_NOCLEANUP) ! |