mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-04-24 17:51:25 +08:00
Fixed Spelling Errors (#1166)
* fixed missed closing of a dataset * fixed missed closing of a dataset * fixed typo in error return * Committing clang-format changes * minor edits * code format * Committing clang-format changes * code format * minor edit * switched from using MPI_count, to actual bytes written for H5FD_mpio_debug rw debugging * Committing clang-format changes * changed size_i in printf to reflect the I/O. * Committing clang-format changes * Fixed seg fault with xlf on BE with -qintsize=8 * fixed error function string * spelling corrections via codespell, added new spell check github actions * Committing clang-format changes * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * Committing clang-format changes * misc * misc * misc * misc * misc * misc * Committing clang-format changes * misc * work around for https://github.com/codespell-project/codespell/issues/2137 * misc * added missing file * misc * misc. * misc * switch to using Codespell with GitHub Actions * misc. * misc. * fixed more sp errors * Fix new typos found by codespell. * fixed proceed with precede * fixed variable in fortran test * fixed minnum * updated spelling list Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Co-authored-by: Larry Knox <lrknox@hdfgroup.org>
This commit is contained in:
parent
d7466741ea
commit
f859cb732b
.github/workflows
MANIFESTbin
c++
src
H5Attribute.cppH5DataSet.cppH5DataSpace.cppH5DataType.cppH5DcreatProp.cppH5File.cppH5Group.cppH5Location.cppH5Location.hH5PredType.cppH5PropList.cpp
test
config
configure.acdoxygen
dox
examples
DebuggingHDF5Applications.htmlFilters.htmlH5.format.1.0.htmlH5.format.1.1.htmlH5.format.2.0.htmlH5.format.htmlThreadSafeLibrary.htmlVFL.html
hdf5_navtree_hacks.jsexamples
fortran
examples
src
H5Af.cH5Aff.F90H5Df.cH5Dff.F90H5Fff.F90H5Gf.cH5Gff.F90H5Lff.F90H5Pf.cH5Pff.F90H5Sf.cH5Sff.F90H5Tf.cH5Tff.F90H5_buildiface.F90H5_ff.F90H5f90global.F90H5f90proto.hh5fc.in
test
hl
15
.github/workflows/codespell.yml
vendored
Normal file
15
.github/workflows/codespell.yml
vendored
Normal file
@ -0,0 +1,15 @@
|
||||
# GitHub Action to automate the identification of common misspellings in text files
|
||||
# https://github.com/codespell-project/codespell
|
||||
# https://github.com/codespell-project/actions-codespell
|
||||
name: codespell
|
||||
on: [push, pull_request]
|
||||
jobs:
|
||||
codespell:
|
||||
name: Check for spelling errors
|
||||
runs-on: ubuntu-latest
|
||||
steps:
|
||||
- uses: actions/checkout@v2
|
||||
- uses: codespell-project/actions-codespell@master
|
||||
with:
|
||||
skip: ./bin/trace,./hl/tools/h5watch/h5watch.c,./tools/test/h5jam/tellub.c
|
||||
ignore_words_list: isnt,inout,nd,parms,parm,ba,offsetP,ser,ois,had,fiter,fo,clude,refere,minnum,offsetp,creat,ans:,eiter,lastr,ans,isn't,ifset,sur,trun,dne,tthe,hda,filname,te,htmp,minnum
|
1
MANIFEST
1
MANIFEST
@ -39,6 +39,7 @@
|
||||
./.github/workflows/clang-format-check.yml _DO_NOT_DISTRIBUTE_
|
||||
./.github/workflows/main.yml _DO_NOT_DISTRIBUTE_
|
||||
./.github/workflows/pr-check.yml _DO_NOT_DISTRIBUTE_
|
||||
./.github/workflows/codespell.yml _DO_NOT_DISTRIBUTE_
|
||||
|
||||
./m4/aclocal_fc.m4
|
||||
./m4/aclocal_fc.f90
|
||||
|
@ -48,7 +48,7 @@ USAGE()
|
||||
{
|
||||
cat << EOF
|
||||
Usage: $0 -d <dir> [--docver BRANCHNAME] [-h] [--nocheck] [--private] <methods> ...
|
||||
-d DIR The name of the directory where the releas(es) should be
|
||||
-d DIR The name of the directory where the release(s) should be
|
||||
placed.
|
||||
--docver BRANCHNAME This is added for 1.8 and beyond to get the correct
|
||||
version of documentation files from the hdf5docs
|
||||
@ -103,7 +103,7 @@ EOF
|
||||
# Modifications
|
||||
#
|
||||
# Steps:
|
||||
# 1. untar the tarball in a temporay directory;
|
||||
# 1. untar the tarball in a temporary directory;
|
||||
# Note: do this in a temporary directory to avoid changing
|
||||
# the original source directory which maybe around.
|
||||
# 2. convert all its text files to DOS (LF-CR) style;
|
||||
@ -246,7 +246,7 @@ if [ "X$methods" = "X" ]; then
|
||||
methods="tar"
|
||||
fi
|
||||
|
||||
# Create the temporay work directory.
|
||||
# Create the temporary work directory.
|
||||
if mkdir $tmpdir; then
|
||||
echo "temporary work directory for release. "\
|
||||
"Can be deleted after release completes." > $tmpdir/README
|
||||
|
@ -178,7 +178,7 @@ LOCATE_SZLIB()
|
||||
esac
|
||||
;; # end of case ncsa
|
||||
unknown)
|
||||
# Unknow domain. Give a shot at the some standard places.
|
||||
# Unknown domain. Give a shot at the some standard places.
|
||||
szlibpaths="/usr/local"
|
||||
;;
|
||||
esac # end of case $mydomain
|
||||
|
@ -199,7 +199,7 @@ DUMP_LOGFILE()
|
||||
# Show a start time stamp
|
||||
TIMESTAMP
|
||||
|
||||
# Initialize njobs if $AMKE is defined
|
||||
# Initialize njobs if $MAKE is defined
|
||||
if [ -n "$MAKE" ]; then
|
||||
# assume all arguments are for --jobs
|
||||
njobs=`echo $MAKE | cut -s -d' ' -f2-`
|
||||
@ -365,7 +365,7 @@ STEP "Test the library and tools..." "ctest . -C Release $njobs" $testlog
|
||||
# 7. Create an install image with this command:
|
||||
STEP "Create an install image..." "cpack -C Release CPackConfig.cmake" $packlog
|
||||
|
||||
# The implementation of installation is imcomplete (only works for linux).
|
||||
# The implementation of installation is incomplete (only works for linux).
|
||||
# Screen it out for now till it is completed.
|
||||
if false; then
|
||||
# 8. Install with this command:
|
||||
|
@ -27,7 +27,7 @@
|
||||
# IMPORTANT OS X NOTE
|
||||
#
|
||||
# If you are using OS X, you will probably not have flex or bison
|
||||
# installed. In addtion, even if you do have bison installed, the bison
|
||||
# installed. In addition, even if you do have bison installed, the bison
|
||||
# version you have installed may also have a bug that makes it unable to
|
||||
# process our input files.
|
||||
#
|
||||
|
@ -40,7 +40,7 @@ HL="@HL@"
|
||||
## $CLINKER $H5BLD_CPPFLAGS $CPPFLAGS $H5BLD_CFLAGS $CFLAGS $LDFLAGS ##
|
||||
## $LIBS $clibpath $link_objs $link_args $shared_link ##
|
||||
## ##
|
||||
## These settings can be overriden by setting HDF5_CFLAGS, ##
|
||||
## These settings can be overridden by setting HDF5_CFLAGS, ##
|
||||
## HDF5_CPPFLAGS, HDF5_LDFLAGS, or HDF5_LIBS in the environment. ##
|
||||
## ##
|
||||
############################################################################
|
||||
@ -144,7 +144,7 @@ usage() {
|
||||
echo " shared libraries]"
|
||||
echo " "
|
||||
echo " You can also add or change paths and flags to the compile line using"
|
||||
echo " the following environment varibles or by assigning them to their counterparts"
|
||||
echo " the following environment variables or by assigning them to their counterparts"
|
||||
echo " in the 'Things You Can Modify to Override...'" section of $prog_name
|
||||
echo " "
|
||||
echo " Variable Current value to be replaced"
|
||||
@ -318,7 +318,7 @@ fi
|
||||
|
||||
if test "x$do_link" = "xyes"; then
|
||||
shared_link=""
|
||||
# conditionnaly link with the hl library
|
||||
# conditionally link with the hl library
|
||||
if test "X$HL" = "Xhl"; then
|
||||
libraries=" $libraries -lhdf5_hl -lhdf5 "
|
||||
else
|
||||
|
@ -19,7 +19,7 @@
|
||||
# Created Date: 2005/07/06
|
||||
# Modification:
|
||||
# Albert Cheng 2005/8/30
|
||||
# Changed from two arguments to mulitple arguments.
|
||||
# Changed from two arguments to multiple arguments.
|
||||
|
||||
if test $# -lt 2; then
|
||||
exit 1
|
||||
|
@ -39,7 +39,7 @@ USAGE()
|
||||
{
|
||||
cat << EOF
|
||||
Usage: $0 -d <dir> [--docver BRANCHNAME] [-h] [--nocheck] [--private] <methods> ...
|
||||
-d DIR The name of the directory where the releas(es) should be
|
||||
-d DIR The name of the directory where the release(es) should be
|
||||
placed.
|
||||
--docver BRANCHNAME This is added for 1.8 and beyond to get the correct
|
||||
version of documentation files from the hdf5docs
|
||||
@ -60,7 +60,7 @@ for compressing the resulting tar archive (if none are given then
|
||||
cmake-tgz -- create a tar file using the gzip default level with a build-unix.sh
|
||||
command file and all other CMake files needed to build HDF5 source
|
||||
using CMake on unix machines.
|
||||
cmake-zip -- convert all text files to DOS style and create a zip file inluding cmake
|
||||
cmake-zip -- convert all text files to DOS style and create a zip file including cmake
|
||||
scripts and .bat files to build HDF5 source using CMake on Windows.
|
||||
hpc-cmake-tgz
|
||||
-- create a tar file using the gzip default level with a build-unix.sh
|
||||
@ -512,7 +512,7 @@ if [ "X$methods" = "X" ]; then
|
||||
methods="tar"
|
||||
fi
|
||||
|
||||
# Create the temporay work directory.
|
||||
# Create the temporary work directory.
|
||||
if mkdir $tmpdir; then
|
||||
echo "temporary work directory for release. "\
|
||||
"Can be deleted after release completes." > $tmpdir/README
|
||||
|
@ -630,7 +630,7 @@ while [ $# -gt 0 ]; do
|
||||
# setup the directory structure for snapshot test.
|
||||
CMD=setup
|
||||
;;
|
||||
-*) # Unknow option
|
||||
-*) # Unknown option
|
||||
PRINT "Unknown option ($1)"
|
||||
USAGE
|
||||
exit 1
|
||||
@ -830,7 +830,7 @@ if [ -z "$NOCVS" ]; then
|
||||
else
|
||||
# make sure the cvs update, if done by another host, has completed.
|
||||
# First wait for the presence of $CVSLOG which signals some host
|
||||
# has started the cvs update. Then wait for the absense of $CVSLOG_LOCK
|
||||
# has started the cvs update. Then wait for the absence of $CVSLOG_LOCK
|
||||
# which signals the host has completed the cvs update.
|
||||
WAITFOR $CVSLOG 90
|
||||
if [ $WAIT_STATUS -ne 0 ]; then
|
||||
@ -911,7 +911,7 @@ if [ -n "$TESTHOST" -a $HOSTNAME != "$TESTHOST" ]; then
|
||||
PRINT $h is not reachable "(`date`)"
|
||||
;;
|
||||
*)
|
||||
PRINT "CHECK_RSH for $h returned unknow result ($RSH)"
|
||||
PRINT "CHECK_RSH for $h returned unknown result ($RSH)"
|
||||
;;
|
||||
esac >> $TMP_OUTPUT 2>&1
|
||||
done
|
||||
|
10
bin/snapshot
10
bin/snapshot
@ -156,7 +156,7 @@ Usage: $PROGNAME [all] [checkout] [ftp <URL> [diff] [test] [srcdir] [release] [h
|
||||
"snapshot srcdir" is equivalent to "snapshot srcdir all"
|
||||
"snapshot srcdir checkout" is equivalent to "snapshot checkout"
|
||||
srcdirname <dir>:
|
||||
Use <dir> as the srcdir testing directory if srcdir is choosen.
|
||||
Use <dir> as the srcdir testing directory if srcdir is chosen.
|
||||
If <dir> starts with '-', it is append to the default name
|
||||
E.g., "snapshot srcdir srcdirname -xx" uses hostname-xx
|
||||
[Default is hostname]
|
||||
@ -422,7 +422,7 @@ while [ $# -gt 0 ] ; do
|
||||
fi
|
||||
cmd=""
|
||||
EXEC_CMD_ARG="$@"
|
||||
# exit the parsing while loop since all arguments have been consummed.
|
||||
# exit the parsing while loop since all arguments have been consumed.
|
||||
break
|
||||
;;
|
||||
check-vfd)
|
||||
@ -455,7 +455,7 @@ while [ $# -gt 0 ] ; do
|
||||
OP_CONFIGURE="$OP_CONFIGURE $1"
|
||||
;;
|
||||
*)
|
||||
echo "Unkown option $1"
|
||||
echo "Unknown option $1"
|
||||
errcode=1
|
||||
cmd="help"
|
||||
break
|
||||
@ -623,7 +623,7 @@ if [ "$cmd" = "all" -o -n "$cmdtest" -o -n "$cmddiff" ]; then
|
||||
fi
|
||||
fi
|
||||
|
||||
# if diff is choosen, exit 0 if no significant differences are found.
|
||||
# if diff is chosen, exit 0 if no significant differences are found.
|
||||
# otherwise, exit 1. This includes cases of other failures.
|
||||
if [ -n "$cmddiff" ]; then
|
||||
if [ $snapshot = no ]; then
|
||||
@ -799,7 +799,7 @@ if [ "$cmd" = "all" -o -n "$cmdrel" ]; then
|
||||
# Replace the previous version with the current version.
|
||||
# Should check if the errcode of the release process but there
|
||||
# are other failures after release was done (e.g. h5vers or git failures)
|
||||
# that should allow the replacement to occure.
|
||||
# that should allow the replacement to occur.
|
||||
rm -rf ${PREVIOUS}
|
||||
mv ${CURRENT} ${PREVIOUS}
|
||||
fi #Release snapshot
|
||||
|
@ -381,9 +381,9 @@ sub rewrite_func ($$$$$) {
|
||||
|
||||
# Wrap lines that will be longer than the limit
|
||||
if ($len_if_added > $max_trace_macro_line_len) {
|
||||
# Wrap line, with indention
|
||||
# Wrap line, with indentation
|
||||
$trace .= ",\n ";
|
||||
$len = 13; # Set to 13, for indention
|
||||
$len = 13; # Set to 13, for indentation
|
||||
|
||||
# Indent an extra space to account for extra digit in 'H5TRACE' macro
|
||||
if (scalar(@arg_str) >= 10) {
|
||||
|
@ -78,7 +78,7 @@ sub do_help {
|
||||
print "\t-S <file string list>\tDisplay warnings for files which contain a string, <file string list>\n";
|
||||
print "\t\t<file string list> is a comma separated list, with no spaces\n";
|
||||
print "\t\tFor example: 'H5Fint' or 'H5Fint,H5Gnode'\n";
|
||||
print "\t-l\tDisplay line nunbers for file/warning\n";
|
||||
print "\t-l\tDisplay line numbers for file/warning\n";
|
||||
print "\t-u\tLeave 'unique' types in warnings, instead of genericizing them\n";
|
||||
print "\t-i <name list>\tIgnore named files, <name list>\n";
|
||||
print "\t\t<name list> is a comma separated list, with no spaces\n";
|
||||
|
@ -562,7 +562,7 @@ Attribute::p_read_variable_len(const DataType &mem_type, H5std_string &strg) con
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// Programmer Binh-Minh Ribler - 2000
|
||||
|
@ -769,7 +769,7 @@ DataSet::p_read_variable_len(const hid_t mem_type_id, const hid_t mem_space_id,
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
//--------------------------------------------------------------------------
|
||||
|
@ -629,7 +629,7 @@ DataSpace::getId() const
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// Programmer Binh-Minh Ribler - 2000
|
||||
|
@ -927,7 +927,7 @@ DataType::p_opentype(const H5Location &loc, const char *dtype_name) const
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// Programmer Binh-Minh Ribler - 2000
|
||||
@ -983,7 +983,7 @@ DataType::close()
|
||||
// - Replaced decRefCount with close() to let the C library
|
||||
// handle the reference counting - BMR, Jun 1, 2006
|
||||
// - Added the use of H5CPP_EXITED to terminate the HDF5 library
|
||||
// and elimiate previous memory leaks. See comments in the
|
||||
// and eliminate previous memory leaks. See comments in the
|
||||
// header file "H5PredType.h" for details. - BMR, Mar 30, 2012
|
||||
// - Major re-implementation of the global constants was done
|
||||
// to avoid relying on the order of the creation and deletion
|
||||
|
@ -552,7 +552,7 @@ DSetCreatPropList::setShuffle() const
|
||||
///\exception H5::PropListIException
|
||||
///\par Description
|
||||
/// The values of space allocation time can be one of the
|
||||
/// followings:
|
||||
/// following:
|
||||
/// \li \c H5D_ALLOC_TIME_DEFAULT
|
||||
/// \li \c H5D_ALLOC_TIME_EARLY
|
||||
/// \li \c H5D_ALLOC_TIME_LATE
|
||||
|
@ -665,7 +665,7 @@ H5File::getLocId() const
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// December 2000
|
||||
|
@ -208,7 +208,7 @@ Group::getId() const
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// Programmer Binh-Minh Ribler - 2000
|
||||
|
@ -1745,7 +1745,7 @@ H5Location::getObjinfo(const H5std_string &name, hbool_t follow_link, H5G_stat_t
|
||||
// Function: H5Location::getObjinfo
|
||||
///\brief This is an overloaded member function, provided for convenience.
|
||||
/// It differs from the above functions in that it doesn't have
|
||||
/// the paramemter \a follow_link.
|
||||
/// the parameter \a follow_link.
|
||||
// Nov, 2005
|
||||
//--------------------------------------------------------------------------
|
||||
void
|
||||
|
@ -15,7 +15,7 @@
|
||||
#ifndef H5Location_H
|
||||
#define H5Location_H
|
||||
|
||||
#include "H5Classes.h" // constains forward class declarations
|
||||
#include "H5Classes.h" // contains forward class declarations
|
||||
|
||||
namespace H5 {
|
||||
|
||||
|
@ -790,7 +790,7 @@ September 2015:
|
||||
classes, such as PropList, PredType, DataSpace, etc... Previously,
|
||||
these global constants were declared statically and the C++ library used
|
||||
a constant, called PredType::AtExit, to detect when all the global
|
||||
contants are destroyed then close the C library (H5close). This method
|
||||
constants are destroyed then close the C library (H5close). This method
|
||||
relied on the order of the constants being created and destroyed and
|
||||
that PredType constants be the last to be destroyed. In September
|
||||
2015, it was recognized that the order in which the global constants were
|
||||
|
@ -301,7 +301,7 @@ PropList::getId() const
|
||||
///\exception H5::IdComponentException when the attempt to close the HDF5
|
||||
/// object fails
|
||||
// Description:
|
||||
// The underlaying reference counting in the C library ensures
|
||||
// The underlying reference counting in the C library ensures
|
||||
// that the current valid id of this object is properly closed.
|
||||
// Then the object's id is reset to the new id.
|
||||
// Programmer Binh-Minh Ribler - 2000
|
||||
|
@ -740,7 +740,7 @@ test_object()
|
||||
MESSAGE(5, ("Testing Object Functions\n"));
|
||||
|
||||
test_get_objname(); // Test get object name from groups/datasets
|
||||
test_existance(); // Test check for object existance
|
||||
test_existance(); // Test check for object existence
|
||||
test_get_objname_ontypes(); // Test get object name from types
|
||||
test_get_objtype(); // Test get object type
|
||||
test_open_object_header(); // Test object header functions (H5O)
|
||||
|
@ -28,7 +28,7 @@ using namespace H5;
|
||||
#include "h5cpputil.h" // C++ utilility header file
|
||||
|
||||
/*
|
||||
* Offset from alinged memory returned by malloc(). This can be used to test
|
||||
* Offset from aligned memory returned by malloc(). This can be used to test
|
||||
* that type conversions handle non-aligned buffers correctly.
|
||||
*/
|
||||
#define ALIGNMENT 1
|
||||
|
@ -61,7 +61,7 @@ fi
|
||||
#
|
||||
# PROD_CFLAGS Flags to pass to the compiler to create a
|
||||
# PROD_CPPFLAGS production version of the library. These
|
||||
# usualy exclude symbolic debugging switches
|
||||
# usually exclude symbolic debugging switches
|
||||
# (like `-g') and include optimization switches
|
||||
# (like `-O').
|
||||
#
|
||||
@ -84,7 +84,7 @@ fi
|
||||
# compiler or a descendent of gcc such as EGCS or PGCC.
|
||||
#
|
||||
# AM_CFLAGS Flags added directly into this variable will
|
||||
# be propogated to the compiler wrapper scripts (h5cc,
|
||||
# be propagated to the compiler wrapper scripts (h5cc,
|
||||
# h5c++, et cetera) in addition to being used to compile
|
||||
# the library.
|
||||
#
|
||||
|
@ -30,7 +30,7 @@ MARK_AS_ADVANCED (HDF5_STRICT_FORMAT_CHECKS)
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
# Decide whether the data accuracy has higher priority during data
|
||||
# conversions. If not, some hard conversions will still be prefered even
|
||||
# conversions. If not, some hard conversions will still be preferred even
|
||||
# though the data may be wrong (for example, some compilers don't
|
||||
# support denormalized floating values) to maximize speed.
|
||||
#-----------------------------------------------------------------------------
|
||||
|
@ -663,7 +663,7 @@
|
||||
/* Version number of package */
|
||||
#define H5_VERSION "@HDF5_PACKAGE_VERSION_STRING@"
|
||||
|
||||
/* Data accuracy is prefered to speed during data conversions */
|
||||
/* Data accuracy is preferred to speed during data conversions */
|
||||
#cmakedefine H5_WANT_DATA_ACCURACY @H5_WANT_DATA_ACCURACY@
|
||||
|
||||
/* Check exception handling functions during data conversions */
|
||||
|
@ -134,8 +134,8 @@ FORTRAN_RUN ("REAL and INTEGER KINDs"
|
||||
PROG_OUTPUT
|
||||
)
|
||||
# dnl The output from the above program will be:
|
||||
# dnl -- LINE 1 -- valid integer kinds (comma seperated list)
|
||||
# dnl -- LINE 2 -- valid real kinds (comma seperated list)
|
||||
# dnl -- LINE 1 -- valid integer kinds (comma separated list)
|
||||
# dnl -- LINE 2 -- valid real kinds (comma separated list)
|
||||
# dnl -- LINE 3 -- max decimal precision for reals
|
||||
# dnl -- LINE 4 -- number of valid integer kinds
|
||||
# dnl -- LINE 5 -- number of valid real kinds
|
||||
|
@ -240,7 +240,7 @@ if (CMAKE_CXX_COMPILER_ID STREQUAL "GNU")
|
||||
|
||||
# Append more extra warning flags that only gcc 9.3+ knows about
|
||||
if (NOT CMAKE_CXX_COMPILER_VERSION VERSION_LESS 9.3)
|
||||
# do not use C warnings, gnu-warnings 9.3, no cxx warniings
|
||||
# do not use C warnings, gnu-warnings 9.3, no cxx warnings
|
||||
# ADD_H5_FLAGS (H5_CXXFLAGS "${HDF5_SOURCE_DIR}/config/gnu-warnings/9.3")
|
||||
endif ()
|
||||
|
||||
|
@ -129,7 +129,7 @@ CHECK_INCLUDE_FILE_CONCAT ("netinet/in.h" ${HDF_PREFIX}_HAVE_NETINET_IN_H)
|
||||
CHECK_INCLUDE_FILE_CONCAT ("netdb.h" ${HDF_PREFIX}_HAVE_NETDB_H)
|
||||
CHECK_INCLUDE_FILE_CONCAT ("arpa/inet.h" ${HDF_PREFIX}_HAVE_ARPA_INET_H)
|
||||
|
||||
## Check for non-standard extenstion quadmath.h
|
||||
## Check for non-standard extension quadmath.h
|
||||
|
||||
CHECK_INCLUDE_FILES(quadmath.h C_HAVE_QUADMATH)
|
||||
if (${C_HAVE_QUADMATH})
|
||||
@ -547,7 +547,7 @@ if (WINDOWS)
|
||||
message (VERBOSE "Performing Test InitOnceExecuteOnce - Success")
|
||||
endif ()
|
||||
file (APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeOutput.log
|
||||
"Performing C SOURCE FILE Test InitOnceExecuteOnce succeded with the following output:\n"
|
||||
"Performing C SOURCE FILE Test InitOnceExecuteOnce succeeded with the following output:\n"
|
||||
"${OUTPUT}\n"
|
||||
"Return value: ${HAVE_IOEO}\n")
|
||||
else ()
|
||||
|
@ -22,7 +22,7 @@ if (NOT CMAKE_VERSION VERSION_LESS "3.14.0")
|
||||
endif ()
|
||||
|
||||
#-------------------------------------------------------------------------------
|
||||
# Fix Fortran flags if we are compiling staticly on Windows using
|
||||
# Fix Fortran flags if we are compiling statically on Windows using
|
||||
# Windows_MT.cmake from config/cmake/UserMacros
|
||||
#-------------------------------------------------------------------------------
|
||||
if (BUILD_STATIC_CRT_LIBS)
|
||||
|
@ -849,7 +849,7 @@ Section "Uninstall"
|
||||
@CPACK_NSIS_DELETE_ICONS@
|
||||
@CPACK_NSIS_DELETE_ICONS_EXTRA@
|
||||
|
||||
;Delete empty start menu parent diretories
|
||||
;Delete empty start menu parent directories
|
||||
StrCpy $MUI_TEMP "$SMPROGRAMS\$MUI_TEMP"
|
||||
|
||||
startMenuDeleteLoop:
|
||||
@ -868,7 +868,7 @@ Section "Uninstall"
|
||||
Delete "$SMPROGRAMS\$MUI_TEMP\Uninstall.lnk"
|
||||
@CPACK_NSIS_DELETE_ICONS_EXTRA@
|
||||
|
||||
;Delete empty start menu parent diretories
|
||||
;Delete empty start menu parent directories
|
||||
StrCpy $MUI_TEMP "$SMPROGRAMS\$MUI_TEMP"
|
||||
|
||||
secondStartMenuDeleteLoop:
|
||||
|
@ -58,7 +58,7 @@ load_gnu_arguments()
|
||||
if test "X-" = "X-$cxx_flags_set"; then
|
||||
# PathScale compiler spits out gcc version string too. Need to
|
||||
# filter it out.
|
||||
# icc beginning with version 12 includes a "gcc version compatiblilty"
|
||||
# icc beginning with version 12 includes a "gcc version compatibility"
|
||||
# string, causing the gcc H5_CXXFLAGS to be erroneously added. The line
|
||||
# "grep -v 'icc version'" causes the discarding of any output
|
||||
# containing 'icc version'. The cxx_version for icc is correctly determined
|
||||
|
@ -58,7 +58,7 @@ load_gnu_arguments()
|
||||
if test "X-" = "X-$cc_flags_set"; then
|
||||
# PathScale compiler spits out gcc version string too. Need to
|
||||
# filter it out.
|
||||
# icc beginning with version 12 includes a "gcc version compatiblilty"
|
||||
# icc beginning with version 12 includes a "gcc version compatibility"
|
||||
# string, causing the gcc H5_CFLAGS to be erroneously added. The line
|
||||
# "grep -v 'icc version'" causes the discarding of any output
|
||||
# containing 'icc version'. The cc_version for icc is correctly determined
|
||||
|
@ -39,7 +39,7 @@ if test "X-" = "X-$cc_flags_set"; then
|
||||
|
||||
# Debug
|
||||
# NDEBUG is handled explicitly by the configure script
|
||||
# -g is hanled by the symbols flags
|
||||
# -g is handled by the symbols flags
|
||||
DEBUG_CFLAGS=
|
||||
|
||||
# Symbols
|
||||
@ -101,7 +101,7 @@ if test "X-" = "X-$f9x_flags_set"; then
|
||||
|
||||
# Debug
|
||||
# NDEBUG is handled explicitly by the configure script
|
||||
# -g is hanled by the symbols flags
|
||||
# -g is handled by the symbols flags
|
||||
DEBUG_FCFLAGS=
|
||||
|
||||
# Symbols
|
||||
@ -157,7 +157,7 @@ if test -z "$cxx_flags_set"; then
|
||||
|
||||
# Debug
|
||||
# NDEBUG is handled explicitly by the configure script
|
||||
# -g is hanled by the symbols flags
|
||||
# -g is handled by the symbols flags
|
||||
DEBUG_CXXFLAGS=
|
||||
|
||||
# Symbols
|
||||
|
@ -390,7 +390,7 @@ if test "X$CC_BASENAME" = "Xclang"; then
|
||||
# 'address;undefined'. Which and which combinations of these are
|
||||
# supported varies by compiler version, but unsupported options
|
||||
# or combinations will result in configure errors reported in config.log.
|
||||
# Comma separated lists of sanitize options wil be entered intact in
|
||||
# Comma separated lists of sanitize options will be entered intact in
|
||||
# one -fsanitize=<list> flag. Space separated lists will be entered in
|
||||
# separate -fsanitize=<item> flags.
|
||||
# NOTE: No sanity checking done here!
|
||||
@ -599,7 +599,7 @@ if test "X$HDF_FORTRAN" = "Xyes"; then
|
||||
AC_SUBST([OBJECT_NAMELEN_DEFAULT_F])
|
||||
|
||||
## --------------------------------------------------------------------
|
||||
## Fortran source extention
|
||||
## Fortran source extension
|
||||
##
|
||||
AC_FC_SRCEXT([f90])
|
||||
|
||||
@ -3479,7 +3479,7 @@ fi
|
||||
|
||||
## ----------------------------------------------------------------------
|
||||
## Decide whether the data accuracy has higher priority during data
|
||||
## conversions. If not, some hard conversions will still be prefered even
|
||||
## conversions. If not, some hard conversions will still be preferred even
|
||||
## though the data may be wrong (for example, some compilers don't
|
||||
## support denormalized floating values) to maximize speed.
|
||||
##
|
||||
@ -3493,7 +3493,7 @@ AC_ARG_ENABLE([dconv-accuracy],
|
||||
if test "$DATA_ACCURACY" = "yes"; then
|
||||
AC_MSG_RESULT([yes])
|
||||
AC_DEFINE([WANT_DATA_ACCURACY], [1],
|
||||
[Data accuracy is prefered to speed during data conversions])
|
||||
[Data accuracy is preferred to speed during data conversions])
|
||||
else
|
||||
AC_MSG_RESULT([no])
|
||||
fi
|
||||
|
@ -26,7 +26,7 @@
|
||||
*
|
||||
* \Emph{*** DEPRECATED ***} Use \Code{H5Fstart/stop} logging functions instead
|
||||
*
|
||||
* The trace file is a debuging feature that allow the capture of
|
||||
* The trace file is a debugging feature that allow the capture of
|
||||
* top level metadata cache requests for purposes of debugging and/or
|
||||
* optimization. This field should normally be set to \c FALSE, as
|
||||
* trace file collection imposes considerable overhead.
|
||||
@ -82,7 +82,7 @@
|
||||
* H5C_incr__off ) && ( decr_mode == H5C_decr__off )}). There
|
||||
* is no logical reason why this should be so, but it simplifies
|
||||
* implementation and testing, and I can't think of any reason
|
||||
* why it would be desireable. If you can think of one, I'll
|
||||
* why it would be desirable. If you can think of one, I'll
|
||||
* revisit the issue. (JM)
|
||||
* \endparblock
|
||||
*
|
||||
@ -383,7 +383,7 @@
|
||||
* to disk.\n
|
||||
* When the sync point is reached (or when there is a user generated
|
||||
* flush), process zero flushes sufficient entries to bring it into
|
||||
* complience with its min clean size (or flushes all dirty entries in
|
||||
* compliance with its min clean size (or flushes all dirty entries in
|
||||
* the case of a user generated flush), broad casts the list of
|
||||
* entries just cleaned to all the other processes, and then exits
|
||||
* the sync point.\n
|
||||
|
@ -4,7 +4,7 @@
|
||||
This is the documentation set for HDF5. You can
|
||||
<a href="hdf5-doc.tgz">download</a> it as a tgz archive for offline reading.
|
||||
|
||||
This is the documention set for HDF5 in terms of specifications and software
|
||||
This is the documentation set for HDF5 in terms of specifications and software
|
||||
developed and maintained by <a href="https://www.hdfgroup.org/">The HDF
|
||||
Group</a>. It is impractical to document the entire HDF5 ecosystem in one place,
|
||||
and you should also consult the documentation sets of the many outstanding
|
||||
|
@ -173,7 +173,7 @@ IOT Trap, core dumped.
|
||||
<tr>
|
||||
<td align="center">mm</td>
|
||||
<td align="center">Yes</td>
|
||||
<td>Library memory managment</td>
|
||||
<td>Library memory management</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td align="center">o</td>
|
||||
|
@ -54,7 +54,7 @@
|
||||
|
||||
<p>Two types of filters can be applied to raw data I/O: permanent
|
||||
filters and transient filters. The permanent filter pipeline is
|
||||
defned when the dataset is created while the transient pipeline
|
||||
defined when the dataset is created while the transient pipeline
|
||||
is defined for each I/O operation. During an
|
||||
<code>H5Dwrite()</code> the transient filters are applied first
|
||||
in the order defined and then the permanent filters are applied
|
||||
@ -211,7 +211,7 @@
|
||||
should be turned on so such cases can be handled gracefully by
|
||||
storing the original data instead of the compressed data. The
|
||||
<em>cd_nvalues</em> should be one with <em>cd_value[0]</em>
|
||||
being a compression agression level between zero and nine,
|
||||
being a compression aggression level between zero and nine,
|
||||
inclusive (zero is the fastest compression while nine results in
|
||||
the best compression ratio).
|
||||
|
||||
@ -252,7 +252,7 @@
|
||||
|
||||
</p><p>The function that acts as the filter always returns zero
|
||||
(failure) if the <code>md5()</code> function was not detected at
|
||||
configuration time (left as an excercise for the reader).
|
||||
configuration time (left as an exercise for the reader).
|
||||
Otherwise the function is broken down to an input and output
|
||||
half. The output half calculates a checksum, increases the size
|
||||
of the output buffer if necessary, and appends the checksum to
|
||||
@ -374,7 +374,7 @@
|
||||
<tr valign="top">
|
||||
<td>Method</td>
|
||||
<td>This is the name of the method as defined with
|
||||
<code>H5Zregister()</code> with the charaters
|
||||
<code>H5Zregister()</code> with the characters
|
||||
"< or ">" prepended to indicate
|
||||
input or output.</td>
|
||||
</tr>
|
||||
|
@ -495,7 +495,7 @@ Elena> "Free-space object"
|
||||
<td>End of File Address</td>
|
||||
<td>This is the relative file address of the first byte past
|
||||
the end of all HDF5 data. It is used to determine whether a
|
||||
file has been accidently truncated and as an address where
|
||||
file has been accidentally truncated and as an address where
|
||||
file data allocation can occur if the free list is not
|
||||
used.</td>
|
||||
</tr>
|
||||
@ -2414,7 +2414,7 @@ Elena> "Free-space object"
|
||||
<td><b>Normalization.</b> The value can be 0 if there is no
|
||||
normalization, 1 if the most significant bit of the
|
||||
mantissa is always set (except for 0.0), and 2 if the most
|
||||
signficant bit of the mantissa is not stored but is
|
||||
significant bit of the mantissa is not stored but is
|
||||
implied to be set. The value 3 is reserved and will not
|
||||
appear in this field.</td>
|
||||
</tr>
|
||||
@ -2916,7 +2916,7 @@ Elena> "Free-space object"
|
||||
|
||||
<p>The fill value message stores a single data point value which
|
||||
is returned to the application when an uninitialized data point
|
||||
is read from the dataset. The fill value is interpretted with
|
||||
is read from the dataset. The fill value is interpreted with
|
||||
the same datatype as the dataset. If no fill value message is
|
||||
present then a fill value of all zero is assumed.
|
||||
|
||||
@ -3327,7 +3327,7 @@ Elena> "Free-space object"
|
||||
|
||||
<p>
|
||||
<center>
|
||||
<table border align=center cellpadding=4 witdh="80%">
|
||||
<table border align=center cellpadding=4 width="80%">
|
||||
<caption align=top>
|
||||
<b>Filter Pipeline Message</b>
|
||||
</caption>
|
||||
@ -3386,7 +3386,7 @@ Elena> "Free-space object"
|
||||
|
||||
<p>
|
||||
<center>
|
||||
<table border align=center cellpadding=4 witdh="80%">
|
||||
<table border align=center cellpadding=4 width="80%">
|
||||
<caption align=top>
|
||||
<b>Filter Pipeline Message</b>
|
||||
</caption>
|
||||
|
@ -616,7 +616,7 @@ TABLE.list TD { border:none; }
|
||||
<td>
|
||||
<P>This is the absolute file address of the first byte past
|
||||
the end of all HDF5 data. It is used to determine whether a
|
||||
file has been accidently truncated and as an address where
|
||||
file has been accidentally truncated and as an address where
|
||||
file data allocation can occur if space from the free list is
|
||||
not used.
|
||||
</P>
|
||||
@ -3184,7 +3184,7 @@ TABLE.list TD { border:none; }
|
||||
<td><b>Normalization.</b> The value can be 0 if there is no
|
||||
normalization, 1 if the most significant bit of the
|
||||
mantissa is always set (except for 0.0), and 2 if the most
|
||||
signficant bit of the mantissa is not stored but is
|
||||
significant bit of the mantissa is not stored but is
|
||||
implied to be set. The value 3 is reserved and will not
|
||||
appear in this field.</td>
|
||||
</tr>
|
||||
|
@ -821,7 +821,7 @@ II.A. Disk Format: Level 0A - Format Signature and Superblock</a></h3>
|
||||
<td>
|
||||
<p>This is the absolute file address of the first byte past
|
||||
the end of all HDF5 data. It is used to determine whether a
|
||||
file has been accidently truncated and as an address where
|
||||
file has been accidentally truncated and as an address where
|
||||
file data allocation can occur if space from the free list is
|
||||
not used.
|
||||
</p>
|
||||
@ -4910,7 +4910,7 @@ III.F. Disk Format: Level 1F - Fractal Heap</a></h3>
|
||||
enough to store objects greater than 16 bytes or not. If the
|
||||
heap ID length is 18 bytes or smaller, the ‘normal’ tiny heap ID
|
||||
form is used. If the heap ID length is greater than 18 bytes in
|
||||
length, the “extented” form is used. See format description below
|
||||
length, the “extended” form is used. See format description below
|
||||
for both sub-types.
|
||||
</p>
|
||||
</td>
|
||||
@ -7884,7 +7884,7 @@ IV.A.2. Disk Format: Level 2A2 - Data Object Header Messages</a></h3>
|
||||
|
||||
<tr>
|
||||
<td align="center"><code>3</code></td>
|
||||
<td>Message stored is not shared, but is sharable.
|
||||
<td>Message stored is not shared, but is shareable.
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
|
@ -936,7 +936,7 @@
|
||||
<td>
|
||||
<p>This is the absolute file address of the first byte past
|
||||
the end of all HDF5 data. It is used to determine whether a
|
||||
file has been accidently truncated and as an address where
|
||||
file has been accidentally truncated and as an address where
|
||||
file data allocation can occur if space from the free list is
|
||||
not used.
|
||||
</p>
|
||||
@ -8691,7 +8691,7 @@ three rows are needed.
|
||||
|
||||
<tr>
|
||||
<td align="center"><code>3</code></td>
|
||||
<td>Message stored is not shared, but is sharable.
|
||||
<td>Message stored is not shared, but is shareable.
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
@ -20202,7 +20202,7 @@ disk address for the chunk.</p>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
<td><p>Length fo External File Name</p></td>
|
||||
<td><p>Length of External File Name</p></td>
|
||||
<td><p>This is the length for the external file name.
|
||||
<p>This field exists if bit 0 of <em>flags</em> is set.</p>
|
||||
</p>
|
||||
|
@ -165,7 +165,7 @@ The structure is defined in <code>H5private.h</code> as:
|
||||
|
||||
<blockquote>
|
||||
<pre>
|
||||
/* cancelability structure */
|
||||
/* cancellability structure */
|
||||
typedef struct H5_cancel_struct {
|
||||
int previous_state;
|
||||
unsigned int cancel_count;
|
||||
|
@ -306,7 +306,7 @@ H5Dread(dataset, type, mspace, fspace, buffer, dxpl);
|
||||
</PRE>
|
||||
|
||||
<P>
|
||||
The transfer propery list can be queried in a manner similar to the file
|
||||
The transfer property list can be queried in a manner similar to the file
|
||||
access property list: the driver provides a function (or functions) to return
|
||||
various information about the transfer property list:
|
||||
|
||||
@ -1210,7 +1210,7 @@ Flush all data for file <VAR>file</VAR> to storage.
|
||||
</P>
|
||||
<P>
|
||||
<STRONG>Example:</STRONG> The sec2 driver doesn't cache any data but it also doesn't
|
||||
extend the Unix file as agressively as it should. Therefore, when finalizing a
|
||||
extend the Unix file as aggressively as it should. Therefore, when finalizing a
|
||||
file it should write a zero to the last byte of the allocated region so that
|
||||
when reopening the file later the EOF marker will be at least as large as the
|
||||
EOA marker saved in the superblock (otherwise HDF5 will refuse to open the
|
||||
|
@ -223,7 +223,7 @@ $(document).ready(function() {
|
||||
(function (){ // wait until the first "selected" element has been created
|
||||
try {
|
||||
|
||||
// this line will triger an exception if there is no #selected element, i.e., before the tree structure is complete.
|
||||
// this line will trigger an exception if there is no #selected element, i.e., before the tree structure is complete.
|
||||
document.getElementById("selected").className = "item selected";
|
||||
|
||||
// ok, the default tree has been created, we can keep going...
|
||||
|
@ -109,7 +109,7 @@ main(void)
|
||||
}
|
||||
|
||||
/*
|
||||
* Close all identifers
|
||||
* Close all identifiers
|
||||
*/
|
||||
H5Tclose(tid);
|
||||
H5Dclose(did);
|
||||
|
@ -109,7 +109,7 @@ main(void)
|
||||
* This keeps the indexes simple when only a few messages are shared,
|
||||
* but allows them to scale for many messages. If many messages are
|
||||
* deleted from the B-tree, it scales back down into a list.
|
||||
* A "resonable" setting for maximum list size and minimum btree size
|
||||
* A "reasonable" setting for maximum list size and minimum btree size
|
||||
* depends on what kinds of messages will be stored in the file.
|
||||
* These numbers are the same for all indexes in a file.
|
||||
* We'll guess at some numbers, though we could just as easily have kept
|
||||
@ -227,7 +227,7 @@ error:
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: create_standard_file
|
||||
*
|
||||
* Purpose: A helper functon for the example. Creates an HDF5 file
|
||||
* Purpose: A helper function for the example. Creates an HDF5 file
|
||||
* with many repeated messages using the file creation
|
||||
* property list FCPL.
|
||||
*
|
||||
|
@ -152,7 +152,7 @@ main(void)
|
||||
wdata[j] = 10 * (i + 1);
|
||||
|
||||
/*
|
||||
* Open the source files and datasets. Appen data to each dataset and
|
||||
* Open the source files and datasets. Append data to each dataset and
|
||||
* close all resources.
|
||||
*/
|
||||
|
||||
|
@ -30,7 +30,7 @@
|
||||
* for parallel I/O and there is no standard pathname for parallel file
|
||||
* systems. In some cases, the parallel file name may even needs some
|
||||
* parallel file type prefix such as: "pfs:/GF/...". Therefore, this
|
||||
* example requires an explicite parallel file prefix. See the usage
|
||||
* example requires an explicit parallel file prefix. See the usage
|
||||
* for more detail.
|
||||
*/
|
||||
|
||||
@ -898,7 +898,7 @@ usage(void)
|
||||
{
|
||||
printf("Usage: testphdf5 [-f <prefix>] [-r] [-w] [-v]\n");
|
||||
printf("\t-f\tfile prefix for parallel test files.\n");
|
||||
printf("\t \te.g. pfs:/PFS/myname\n");
|
||||
printf("\t \t e.g. pfs:/PFS/myname\n");
|
||||
printf("\t \tcan be set via $" PARAPREFIX ".\n");
|
||||
printf("\t \tDefault is current directory.\n");
|
||||
printf("\t-c\tno cleanup\n");
|
||||
|
@ -80,7 +80,7 @@ applib=libapp${H5TOOL}.a
|
||||
# short hands
|
||||
# Caution: if some *.h5 files must be cleaned here, list them by names.
|
||||
# Don't use the wildcard form of *.h5 as it will wipe out even *.h5 generated
|
||||
# by otehr test programs. This will cause a racing condition error when
|
||||
# by other test programs. This will cause a racing condition error when
|
||||
# parallel make (e.g., gmake -j 4) is used.
|
||||
temp_SRC="$hdf5main $v16main $v18main $v110main $v112main $appmain $prog1 $prog2"
|
||||
temp_OBJ=`echo $temp_SRC | sed -e "s/\.${suffix}/.o/g"`
|
||||
|
@ -41,7 +41,7 @@
|
||||
INTEGER(HID_T) :: dt3_id ! Memory datatype identifier (for double precision field)
|
||||
INTEGER(HID_T) :: dt4_id ! Memory datatype identifier (for real field)
|
||||
INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
|
||||
INTEGER(HID_T) :: plist_id ! Dataset trasfer property
|
||||
INTEGER(HID_T) :: plist_id ! Dataset transfer property
|
||||
INTEGER(SIZE_T) :: typesize
|
||||
|
||||
|
||||
@ -111,21 +111,21 @@
|
||||
type_size = type_sizec + type_sizei + type_sized + type_sizer
|
||||
CALL h5tcreate_f(H5T_COMPOUND_F, type_size, dtype_id, error)
|
||||
!
|
||||
! Insert memebers
|
||||
! Insert members
|
||||
!
|
||||
! CHARACTER*2 memeber
|
||||
! CHARACTER*2 member
|
||||
!
|
||||
offset = 0
|
||||
CALL h5tinsert_f(dtype_id, "char_field", offset, dt5_id, error)
|
||||
!
|
||||
! INTEGER member
|
||||
!
|
||||
offset = offset + type_sizec ! Offset of the second memeber is 2
|
||||
offset = offset + type_sizec ! Offset of the second member is 2
|
||||
CALL h5tinsert_f(dtype_id, "integer_field", offset, H5T_NATIVE_INTEGER, error)
|
||||
!
|
||||
! DOUBLE PRECISION member
|
||||
!
|
||||
offset = offset + type_sizei ! Offset of the third memeber is 6
|
||||
offset = offset + type_sizei ! Offset of the third member is 6
|
||||
CALL h5tinsert_f(dtype_id, "double_field", offset, H5T_NATIVE_DOUBLE, error)
|
||||
!
|
||||
! REAL member
|
||||
@ -198,7 +198,7 @@
|
||||
!
|
||||
CALL h5dopen_f(file_id, dsetname, dset_id, error)
|
||||
!
|
||||
! Create memeory datatyoe to read character member of the compound datatype.
|
||||
! Create memory datatype to read character member of the compound datatype.
|
||||
!
|
||||
CALL h5tcopy_f(H5T_NATIVE_CHARACTER, dt2_id, error)
|
||||
typesize = 2
|
||||
@ -208,7 +208,7 @@
|
||||
offset = 0
|
||||
CALL h5tinsert_f(dt1_id, "char_field", offset, dt2_id, error)
|
||||
!
|
||||
! Read part of the datatset and display it.
|
||||
! Read part of the dataset and display it.
|
||||
!
|
||||
CALL h5dread_f(dset_id, dt1_id, char_member_out, data_dims, error)
|
||||
write(*,*) (char_member_out(i), i=1, dimsize)
|
||||
|
@ -51,7 +51,7 @@ PROGRAM h5_cmprss
|
||||
!INTEGER :: szip_pixels_per_block
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
CALL h5open_f(error)
|
||||
!
|
||||
|
@ -35,7 +35,7 @@ PROGRAM H5_CRTATT
|
||||
INTEGER(HID_T) :: aspace_id ! Attribute Dataspace identifier
|
||||
INTEGER(HID_T) :: atype_id ! Attribute Dataspace identifier
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims = (/2/) ! Attribute dimension
|
||||
INTEGER :: arank = 1 ! Attribure rank
|
||||
INTEGER :: arank = 1 ! Attribute rank
|
||||
INTEGER(SIZE_T) :: attrlen ! Length of the attribute string
|
||||
|
||||
CHARACTER(LEN=80), DIMENSION(2) :: attr_data ! Attribute data
|
||||
|
@ -86,7 +86,7 @@ PROGRAM H5_EXTEND
|
||||
INTEGER, DIMENSION(1:3,1:10) :: rdata
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
CALL h5open_f(error)
|
||||
|
||||
@ -110,7 +110,7 @@ PROGRAM H5_EXTEND
|
||||
CALL h5pset_chunk_f(crp_list, RANK, dimsc, error)
|
||||
|
||||
!
|
||||
!Create a dataset with 3X3 dimensions using cparms creation propertie .
|
||||
!Create a dataset with 3X3 dimensions using cparms creation properties .
|
||||
!
|
||||
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, &
|
||||
dset_id, error, crp_list )
|
||||
|
@ -26,7 +26,7 @@
|
||||
IMPLICIT NONE
|
||||
CHARACTER(LEN=10), PARAMETER :: filename = "FORTRAN.h5" ! File
|
||||
CHARACTER(LEN=8), PARAMETER :: dsetnamei = "INTEGERS" ! Dataset with the integer data
|
||||
CHARACTER(LEN=17), PARAMETER :: dsetnamer = "OBJECT_REFERENCES" ! Dataset wtih object
|
||||
CHARACTER(LEN=17), PARAMETER :: dsetnamer = "OBJECT_REFERENCES" ! Dataset with object
|
||||
! references
|
||||
CHARACTER(LEN=6), PARAMETER :: groupname1 = "GROUP1" ! Groups in the file
|
||||
CHARACTER(LEN=6), PARAMETER :: groupname2 = "GROUP2" !
|
||||
|
@ -61,7 +61,7 @@ applib=libapp${H5TOOL}.a
|
||||
# short hands
|
||||
# Caution: if some *.h5 files must be cleaned here, list them by names.
|
||||
# Don't use the wildcard form of *.h5 as it will wipe out even *.h5 generated
|
||||
# by otehr test programs. This will cause a racing condition error when
|
||||
# by other test programs. This will cause a racing condition error when
|
||||
# parallel make (e.g., gmake -j 4) is used.
|
||||
temp_SRC="$hdf5main $appmain $prog1 $prog2"
|
||||
temp_OBJ=`echo $temp_SRC | sed -e "s/\.${suffix}/.o/g"`
|
||||
|
@ -272,7 +272,7 @@ done:
|
||||
* PURPOSE
|
||||
* Call H5Aopen to open an attribute
|
||||
* INPUTS
|
||||
* obj_id - Identifer for object to which attribute is attached
|
||||
* obj_id - Identifier for object to which attribute is attached
|
||||
* attr_name - Attribute access property list
|
||||
* attr_namelen - size of attr_name
|
||||
* aapl_id - Link access property list
|
||||
@ -317,7 +317,7 @@ done:
|
||||
* PURPOSE
|
||||
* Call h5adelete_by_name to remove an attribute from a specified location
|
||||
* INPUTS
|
||||
* loc_id - identifer for object to which attribute is attached
|
||||
* loc_id - identifier for object to which attribute is attached
|
||||
* obj_name - object identifier
|
||||
* obj_namelen - name length
|
||||
* attr_name - name of the attribute
|
||||
@ -424,7 +424,7 @@ done:
|
||||
* INPUTS
|
||||
*
|
||||
*
|
||||
* loc_id - Identifer for object to which attribute is attached
|
||||
* loc_id - Identifier for object to which attribute is attached
|
||||
* obj_name - Name of object, relative to location,
|
||||
* from which attribute is to be removed *TEST* check NULL
|
||||
* idx_type - Type of index; Possible values are:
|
||||
@ -532,7 +532,7 @@ done:
|
||||
* aapl_id - Attribute access property list
|
||||
* lapl_id - Link access property list
|
||||
* OUTPUTS
|
||||
* attr_id - attribute identifer
|
||||
* attr_id - attribute identifier
|
||||
* RETURNS
|
||||
* 0 on success, -1 on failure
|
||||
* AUTHOR
|
||||
|
@ -211,7 +211,7 @@ CONTAINS
|
||||
!
|
||||
! INPUTS
|
||||
! obj_id - identifier of a group, dataset, or named
|
||||
! datatype atttribute to be attached to
|
||||
! datatype attribute to be attached to
|
||||
! name - attribute name
|
||||
! OUTPUTS
|
||||
! attr_id - attribute identifier
|
||||
@ -487,7 +487,7 @@ CONTAINS
|
||||
SUBROUTINE h5aget_name_by_idx_f(loc_id, obj_name, idx_type, order, &
|
||||
n, name, hdferr, size, lapl_id)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for object to which attribute is attached
|
||||
CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
|
||||
! from which attribute is to be removed *TEST* check NULL
|
||||
INTEGER, INTENT(IN) :: idx_type ! Type of index; Possible values are:
|
||||
@ -846,7 +846,7 @@ CONTAINS
|
||||
! identifier and attribute name
|
||||
!
|
||||
! INPUTS
|
||||
! obj_id - Identifer for object to which attribute is attached
|
||||
! obj_id - Identifier for object to which attribute is attached
|
||||
! attr_name - Name of attribute to open
|
||||
! OUTPUTS
|
||||
! attr_id - attribute identifier
|
||||
@ -934,7 +934,7 @@ CONTAINS
|
||||
! SOURCE
|
||||
SUBROUTINE H5Adelete_by_idx_f(loc_id, obj_name, idx_type, order, n, hdferr, lapl_id)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for object to which attribute is attached
|
||||
CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
|
||||
! from which attribute is to be removed
|
||||
INTEGER, INTENT(IN) :: idx_type ! Type of index; Possible values are:
|
||||
@ -991,7 +991,7 @@ CONTAINS
|
||||
! Removes an attribute from a specified location
|
||||
!
|
||||
! INPUTS
|
||||
! loc_id - Identifer for object to which attribute is attached
|
||||
! loc_id - Identifier for object to which attribute is attached
|
||||
! obj_name - Name of attribute to open
|
||||
! attr_name - Attribute access property list
|
||||
! lapl_id - Link access property list
|
||||
@ -1005,7 +1005,7 @@ CONTAINS
|
||||
! SOURCE
|
||||
SUBROUTINE H5Adelete_by_name_f(loc_id, obj_name, attr_name, hdferr, lapl_id)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for object to which attribute is attached
|
||||
CHARACTER(LEN=*), INTENT(IN) :: obj_name ! Name of object, relative to location,
|
||||
! from which attribute is to be removed
|
||||
CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Name of attribute to delete
|
||||
@ -1841,7 +1841,7 @@ CONTAINS
|
||||
! dims parameter was added to make code portable;
|
||||
! Aprile 4, 2001
|
||||
!
|
||||
! Changed buf intent to INOUT to be consistant
|
||||
! 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
|
||||
|
@ -145,7 +145,7 @@ DONE:
|
||||
* Elena Pourmal
|
||||
* Tuesday, May 14, 2002
|
||||
* HISTORY
|
||||
* This function was added to accomodate h5dwrite_f with the
|
||||
* This function was added to accommodate h5dwrite_f with the
|
||||
* dims argument being of INTEGER(HSIZE_T) type
|
||||
* SOURCE
|
||||
*/
|
||||
@ -217,7 +217,7 @@ h5dwrite_ref_reg_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id
|
||||
* Elena Pourmal
|
||||
* Wednesday, May 15, 2002
|
||||
* HISTORY
|
||||
* This function was added to accomodate h5dread_f subroutine
|
||||
* This function was added to accommodate h5dread_f subroutine
|
||||
* with the dims parameter being of INTEGER(HSIZE_T_F) size.
|
||||
* SOURCE
|
||||
*/
|
||||
@ -783,7 +783,7 @@ h5dwrite_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
|
||||
return ret_value;
|
||||
}
|
||||
/*
|
||||
* Move data from temorary buffer
|
||||
* Move data from temporary buffer
|
||||
*/
|
||||
tmp_p = tmp;
|
||||
for (i = 0; i < num_elem; i++) {
|
||||
|
@ -476,7 +476,7 @@ CONTAINS
|
||||
!
|
||||
! Changed name from the now obsolete h5dextend_f
|
||||
! to h5dset_extent_f. Provided interface to old name
|
||||
! for backward compatability. -MSB- March 14, 2008
|
||||
! for backward compatibility. -MSB- March 14, 2008
|
||||
!
|
||||
! SOURCE
|
||||
SUBROUTINE h5dset_extent_f(dataset_id, size, hdferr)
|
||||
@ -1195,7 +1195,7 @@ CONTAINS
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the bufffer buf
|
||||
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the buffer buf
|
||||
TYPE(hobj_ref_t_f), DIMENSION(dims(1)), INTENT(IN), TARGET :: buf ! Data buffer
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id ! Memory dataspace identfier
|
||||
@ -1227,7 +1227,7 @@ CONTAINS
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T), INTENT(IN) :: mem_type_id ! Memory datatype identifier
|
||||
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the bufffer buf
|
||||
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the buffer buf
|
||||
TYPE(hdset_reg_ref_t_f), DIMENSION(dims(1)), INTENT(IN), TARGET :: buf ! Data buffer
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: mem_space_id ! Memory dataspace identfier
|
||||
|
@ -97,7 +97,7 @@ CONTAINS
|
||||
INTEGER(HID_T), INTENT(OUT) :: file_id ! File identifier
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: creation_prp
|
||||
! File creation propertly
|
||||
! File creation property
|
||||
! list identifier
|
||||
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: access_prp
|
||||
! File access property list
|
||||
|
@ -390,13 +390,13 @@ DONE:
|
||||
* Call H5Glink2 to link the specified type
|
||||
* INPUTS
|
||||
* cur_loc_id - identifier of file or group
|
||||
* cur_name - name of the existing object for hard link releative
|
||||
* cur_name - name of the existing object for hard link relative
|
||||
* to cur_loc_id location,
|
||||
* anything for the soft link
|
||||
* current_namelen - current name length
|
||||
* link_type - link type
|
||||
* new_loc_id - location identifier
|
||||
* new_name - new name for the object releative to the new_loc_id
|
||||
* new_name - new name for the object relative to the new_loc_id
|
||||
* location
|
||||
* new_namelen - new_name length
|
||||
* RETURNS
|
||||
@ -879,7 +879,7 @@ done:
|
||||
* February 15, 2008
|
||||
* HISTORY
|
||||
*
|
||||
* - Added 'mounted' paramater
|
||||
* - Added 'mounted' parameter
|
||||
* M. Scot Breitenfeld
|
||||
* July 16, 2008
|
||||
* SOURCE
|
||||
@ -1014,7 +1014,7 @@ done:
|
||||
* February 18, 2008
|
||||
* HISTORY
|
||||
*
|
||||
* - Added 'mounted' paramater
|
||||
* - Added 'mounted' parameter
|
||||
* M. Scot Breitenfeld
|
||||
* July 16, 2008
|
||||
* SOURCE
|
||||
|
@ -73,7 +73,7 @@ CONTAINS
|
||||
! called C functions (it is needed for Windows
|
||||
! port). March 5, 2001
|
||||
!
|
||||
! Added additional optional paramaters in 1.8
|
||||
! Added additional optional parameters in 1.8
|
||||
! MSB - February 27, 2008
|
||||
!
|
||||
! SOURCE
|
||||
@ -491,8 +491,8 @@ CONTAINS
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
|
||||
INTEGER :: current_namelen ! Lenghth of the current_name string
|
||||
INTEGER :: new_namelen ! Lenghth of the new_name string
|
||||
INTEGER :: current_namelen ! Length of the current_name string
|
||||
INTEGER :: new_namelen ! Length of the new_name string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5glink_c(loc_id, link_type, current_name, &
|
||||
@ -524,7 +524,7 @@ CONTAINS
|
||||
! PURPOSE
|
||||
! Creates a link of the specified type from new_name
|
||||
! to current_name. current_name and new_name are interpreted
|
||||
! releative to current and new location identifiers.
|
||||
! relative to current and new location identifiers.
|
||||
!
|
||||
! INPUTS
|
||||
! cur_loc_id - location identifier
|
||||
@ -559,8 +559,8 @@ CONTAINS
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
|
||||
INTEGER :: cur_namelen ! Lenghth of the current_name string
|
||||
INTEGER :: new_namelen ! Lenghth of the new_name string
|
||||
INTEGER :: cur_namelen ! Length of the current_name string
|
||||
INTEGER :: new_namelen ! Length of the new_name string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5glink2_c(cur_loc_id, cur_name, cur_namelen, &
|
||||
@ -617,7 +617,7 @@ CONTAINS
|
||||
CHARACTER(LEN=*), INTENT(IN) :: name ! Name of an object
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: namelen ! Lenghth of the name character string
|
||||
INTEGER :: namelen ! Length of the name character string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5gunlink_c(loc_id, name, namelen) BIND(C,NAME='h5gunlink_c')
|
||||
@ -666,8 +666,8 @@ CONTAINS
|
||||
CHARACTER(LEN=*), INTENT(IN) :: new_name ! New name of an object
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: namelen ! Lenghth of the current_name string
|
||||
INTEGER :: new_namelen ! Lenghth of the new_name string
|
||||
INTEGER :: namelen ! Length of the current_name string
|
||||
INTEGER :: new_namelen ! Length of the new_name string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5gmove_c(loc_id, name, namelen, new_name, new_namelen) BIND(C,NAME='h5gmove_c')
|
||||
@ -715,7 +715,7 @@ CONTAINS
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: src_namelen ! Length of the current_name string
|
||||
INTEGER :: dst_namelen ! Lenghth of the new_name string
|
||||
INTEGER :: dst_namelen ! Length of the new_name string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5gmove2_c(src_loc_id, src_name, src_namelen, &
|
||||
@ -776,7 +776,7 @@ CONTAINS
|
||||
! points to
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: namelen ! Lenghth of the current_name string
|
||||
INTEGER :: namelen ! Length of the current_name string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5gget_linkval_c(loc_id, name, namelen, size, buffer) BIND(C,NAME='h5gget_linkval_c')
|
||||
@ -827,8 +827,8 @@ CONTAINS
|
||||
CHARACTER(LEN=*), INTENT(IN) :: comment ! New name of an object
|
||||
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
||||
!*****
|
||||
INTEGER :: namelen ! Lenghth of the current_name string
|
||||
INTEGER :: commentlen ! Lenghth of the comment string
|
||||
INTEGER :: namelen ! Length of the current_name string
|
||||
INTEGER :: commentlen ! Length of the comment string
|
||||
|
||||
INTERFACE
|
||||
INTEGER FUNCTION h5gset_comment_c(loc_id, name, namelen, &
|
||||
@ -1024,7 +1024,7 @@ CONTAINS
|
||||
!
|
||||
! HISTORY
|
||||
!
|
||||
! - Added 'mounted' paramater
|
||||
! - Added 'mounted' parameter
|
||||
! M. Scot Breitenfeld
|
||||
! July 16, 2008
|
||||
!
|
||||
@ -1104,7 +1104,7 @@ CONTAINS
|
||||
! February 18, 2008
|
||||
!
|
||||
! HISTORY
|
||||
! Added 'mounted' paramater
|
||||
! Added 'mounted' parameter
|
||||
! M. Scot Breitenfeld
|
||||
! July 16, 2008
|
||||
!
|
||||
@ -1206,7 +1206,7 @@ CONTAINS
|
||||
! February 18, 2008
|
||||
!
|
||||
! HISTORY
|
||||
! Added 'mounted' paramater
|
||||
! Added 'mounted' parameter
|
||||
! M. Scot Breitenfeld
|
||||
! July 16, 2008
|
||||
! SOURCE
|
||||
|
@ -469,7 +469,7 @@ CONTAINS
|
||||
! SOURCE
|
||||
SUBROUTINE h5ldelete_by_idx_f(loc_id, group_name, index_field, order, n, hdferr, lapl_id)
|
||||
IMPLICIT NONE
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifer for object to which attribute is attached
|
||||
INTEGER(HID_T), INTENT(IN) :: loc_id ! Identifier for object to which attribute is attached
|
||||
CHARACTER(LEN=*), INTENT(IN) :: group_name ! Name of object, relative to location,
|
||||
! from which attribute is to be removed
|
||||
INTEGER, INTENT(IN) :: index_field ! Type of index; Possible values are:
|
||||
@ -1315,7 +1315,7 @@ CONTAINS
|
||||
! Inputs:
|
||||
! group_id - Identifier specifying subject group
|
||||
! index_type - Type of index which determines the order:
|
||||
! H5_INDEX_NAME_F - Alpha-numeric index on name
|
||||
! H5_INDEX_NAME_F - Alphanumeric index on name
|
||||
! H5_INDEX_CRT_ORDER_F - Index on creation order
|
||||
! order - Order within index:
|
||||
! H5_ITER_INC_F - Increasing order
|
||||
@ -1391,7 +1391,7 @@ CONTAINS
|
||||
! loc_id - File or group identifier specifying location of subject group
|
||||
! group_name - Name of subject group
|
||||
! index_type - Type of index which determines the order:
|
||||
! H5_INDEX_NAME_F - Alpha-numeric index on name
|
||||
! H5_INDEX_NAME_F - Alphanumeric index on name
|
||||
! H5_INDEX_CRT_ORDER_F - Index on creation order
|
||||
! order - Order within index:
|
||||
! H5_ITER_INC_F - Increasing order
|
||||
|
@ -145,7 +145,7 @@ done:
|
||||
* plist1_id - property list identifier
|
||||
* plist2_id - property list identifier
|
||||
* OUTPUTS
|
||||
* c_flag - flag to indicate that lists are eqaul
|
||||
* c_flag - flag to indicate that lists are equal
|
||||
* RETURNS
|
||||
* 0 on success, -1 on failure
|
||||
* AUTHOR
|
||||
@ -936,7 +936,7 @@ h5pset_fapl_stdio_c(hid_t_f *prp_id)
|
||||
* NAME
|
||||
* h5pget_fapl_stdio_c
|
||||
* PURPOSE
|
||||
* Call H5Pget_fapl_stdio to determine whther the low level file driver
|
||||
* Call H5Pget_fapl_stdio to determine whether the low level file driver
|
||||
* uses the functions declared in the stdio.h
|
||||
* INPUTS
|
||||
* prp_id - property list identifier
|
||||
@ -1013,7 +1013,7 @@ h5pset_fapl_sec2_c(hid_t_f *prp_id)
|
||||
* NAME
|
||||
* h5pget_fapl_sec2_c
|
||||
* PURPOSE
|
||||
* Call H5Pget_fapl_stdio to determine whther the low level file driver
|
||||
* Call H5Pget_fapl_stdio to determine whether the low level file driver
|
||||
* uses the functions declared in the unistd.h
|
||||
* INPUTS
|
||||
* prp_id - property list identifier
|
||||
@ -2186,7 +2186,7 @@ h5pset_fclose_degree_c(hid_t_f *fapl_id, int_f *degree)
|
||||
* PURPOSE
|
||||
* Call H5Pset_buffer to set size of conversion buffer
|
||||
* INPUTS
|
||||
* prp_id - t`dataset trasfer property list identifier
|
||||
* prp_id - t`dataset transfer property list identifier
|
||||
* size - size of the buffer
|
||||
* OUTPUTS
|
||||
* NONE
|
||||
@ -2221,7 +2221,7 @@ h5pset_buffer_c(hid_t_f *prp_id, hsize_t_f *size)
|
||||
* PURPOSE
|
||||
* Call H5Pget_buffer to get size of conversion buffer
|
||||
* INPUTS
|
||||
* prp_id - t`dataset trasfer property list identifier
|
||||
* prp_id - t`dataset transfer property list identifier
|
||||
* OUTPUTS
|
||||
* size - size of conversion buffer
|
||||
* RETURNS
|
||||
@ -3005,11 +3005,11 @@ h5pget_nprops_c(hid_t_f *plist, size_t_f *nprops)
|
||||
* h5pget_class_parent_c
|
||||
* PURPOSE
|
||||
* Call H5Pget_class_parent to get the parent class of
|
||||
* a genereic property class
|
||||
* a generic property class
|
||||
* INPUTS
|
||||
* prp_id - property list to query
|
||||
* OUTPUTS
|
||||
* parent_id - parent classs identifier
|
||||
* parent_id - parent class identifier
|
||||
* RETURNS
|
||||
* 0 on success, -1 on failure
|
||||
* AUTHOR
|
||||
@ -3505,7 +3505,7 @@ h5pset_family_offset_c(hid_t_f *prp_id, hsize_t_f *offset)
|
||||
* NAME
|
||||
* h5pset_fapl_multi_c
|
||||
* PURPOSE
|
||||
* Call H5Pset_fapl_multi to set multi file dirver
|
||||
* Call H5Pset_fapl_multi to set multi file driver
|
||||
* INPUTS
|
||||
* prp_id - file_creation property list identifier
|
||||
* mem_map - memory mapping array
|
||||
@ -3570,7 +3570,7 @@ h5pset_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd m
|
||||
tmp_p = tmp_p + c_lenmax;
|
||||
}
|
||||
/*
|
||||
* Take care of othe arguments
|
||||
* Take care of other arguments
|
||||
*/
|
||||
tmp_max_addr = (long double)(HADDR_MAX);
|
||||
c_prp_id = (hid_t)*prp_id;
|
||||
@ -3603,7 +3603,7 @@ DONE:
|
||||
* NAME
|
||||
* h5pset_fapl_multi_sc
|
||||
* PURPOSE
|
||||
* Call H5Pset_fapl_multi to set multi file dirver
|
||||
* Call H5Pset_fapl_multi to set multi file driver
|
||||
* INPUTS
|
||||
* prp_id - file_creation property list identifier
|
||||
* RETURNS
|
||||
@ -3641,7 +3641,7 @@ h5pset_fapl_multi_sc(hid_t_f *prp_id, int_f *flag)
|
||||
* NAME
|
||||
* h5pget_fapl_multi_c
|
||||
* PURPOSE
|
||||
* Call H5Pget_fapl_multi to set multi file dirver
|
||||
* Call H5Pget_fapl_multi to set multi file driver
|
||||
* INPUTS
|
||||
* prp_id - file_creation property list identifier
|
||||
* lenmax - length of the name a sdeclared in Fortran
|
||||
@ -4607,7 +4607,7 @@ h5pget_copy_object_c(hid_t_f *ocp_plist_id, int_f *copy_options)
|
||||
* INPUTS
|
||||
*
|
||||
* prp_id - property list identifier to query
|
||||
* expression_len - buffer size transorm expression
|
||||
* expression_len - buffer size transform expression
|
||||
*
|
||||
* Output:
|
||||
* expression - buffer to hold transform expression
|
||||
@ -4670,7 +4670,7 @@ done:
|
||||
*
|
||||
* prp_id - property list identifier to query
|
||||
* expression - buffer to hold transform expression
|
||||
* expression_len - buffer size transorm expression
|
||||
* expression_len - buffer size transform expression
|
||||
*
|
||||
* Output:
|
||||
*
|
||||
@ -5478,7 +5478,7 @@ h5pget_fapl_mpio_c(hid_t_f *prp_id, int_f *comm, int_f *info)
|
||||
* h5pset_dxpl_mpio_c
|
||||
* PURPOSE
|
||||
* Call H5Pset_dxpl_mpio to set transfer mode of the dataset
|
||||
* trasfer property list
|
||||
* transfer property list
|
||||
* INPUTS
|
||||
* prp_id - property list identifier
|
||||
* data_xfer_mode - transfer mode
|
||||
@ -5530,7 +5530,7 @@ h5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode)
|
||||
* h5pget_dxpl_mpio_c
|
||||
* PURPOSE
|
||||
* Call H5Pget_dxpl_mpio to get transfer mode of the dataset
|
||||
* trasfer property list
|
||||
* transfer property list
|
||||
* INPUTS
|
||||
* prp_id - property list identifier
|
||||
* data_xfer_mode - buffer to retrieve transfer mode
|
||||
|
@ -500,7 +500,7 @@ CONTAINS
|
||||
! a chunked layout dataset.
|
||||
!
|
||||
! INPUTS
|
||||
! prp_id - datatset creation property list identifier
|
||||
! prp_id - dataset creation property list identifier
|
||||
! ndims - number of dimensions for each chunk
|
||||
! dims - array with dimension sizes for each chunk
|
||||
! OUTPUTS
|
||||
@ -1880,7 +1880,7 @@ CONTAINS
|
||||
! INPUTS
|
||||
!
|
||||
! prp_id - file access property list identifier
|
||||
! gc_reference - flag for stting garbage collection on
|
||||
! gc_reference - flag for setting garbage collection on
|
||||
! and off (1 or 0)
|
||||
! OUTPUTS
|
||||
!
|
||||
@ -1931,7 +1931,7 @@ CONTAINS
|
||||
! prp_id - file access property list identifier
|
||||
! OUTPUTS
|
||||
!
|
||||
! gc_reference - flag for stting garbage collection on
|
||||
! gc_reference - flag for setting garbage collection on
|
||||
! and off (1 or 0)
|
||||
! hdferr - error code
|
||||
! Success: 0
|
||||
@ -2659,7 +2659,7 @@ CONTAINS
|
||||
! h5pequal_f
|
||||
!
|
||||
! PURPOSE
|
||||
! Checks if two property lists are eqaul
|
||||
! Checks if two property lists are equal
|
||||
!
|
||||
! INPUTS
|
||||
!
|
||||
@ -3059,7 +3059,7 @@ CONTAINS
|
||||
! INPUTS
|
||||
!
|
||||
! plist_id - file access property list identifier
|
||||
! size - metatdata block size
|
||||
! size - metadata block size
|
||||
! OUTPUTS
|
||||
!
|
||||
! hdferr - error code
|
||||
@ -3103,7 +3103,7 @@ CONTAINS
|
||||
! plist_id - file access property list identifier
|
||||
! OUTPUTS
|
||||
!
|
||||
! size - metatdata block size
|
||||
! size - metadata block size
|
||||
! hdferr - error code
|
||||
! Success: 0
|
||||
! Failure: -1
|
||||
@ -3596,7 +3596,7 @@ CONTAINS
|
||||
! h5pget_class_parent_f
|
||||
!
|
||||
! PURPOSE
|
||||
! Retrieves the parent class of a genric property class.
|
||||
! Retrieves the parent class of a generic property class.
|
||||
!
|
||||
! INPUTS
|
||||
!
|
||||
@ -5391,7 +5391,7 @@ CONTAINS
|
||||
!
|
||||
! HISTORY
|
||||
!
|
||||
! Should hdferr return just 0 or 1 and add another arguement for the size?
|
||||
! Should hdferr return just 0 or 1 and add another argument for the size?
|
||||
! Fortran90 Interface:
|
||||
SUBROUTINE h5pget_data_transform_f(plist_id, expression, hdferr, size)
|
||||
IMPLICIT NONE
|
||||
|
@ -388,7 +388,7 @@ done:
|
||||
* PURPOSE
|
||||
* Call H5Sget_select_elem_pointlist
|
||||
* get a list of element points in the
|
||||
* current dataspace selectin.
|
||||
* current dataspace selection.
|
||||
* Starting with the startpoint-th point in the
|
||||
* list of points, numpoints points are put into the user's
|
||||
* buffer. If the user's buffer fills up before numpoints
|
||||
@ -759,7 +759,7 @@ done:
|
||||
* space_id - identifier of the dataspace
|
||||
* rank - dataspace rank
|
||||
* current_size - array with the new dimension sizes
|
||||
* maximum_size - aray with maximum sizes of dimensions
|
||||
* maximum_size - array with maximum sizes of dimensions
|
||||
* RETURNS
|
||||
* 0 on success, -1 on failure
|
||||
* AUTHOR
|
||||
@ -804,7 +804,7 @@ done:
|
||||
* space_id - identifier of the dataspace
|
||||
* OUTPUTS
|
||||
* dims - array with the dimension sizes
|
||||
* maxdims - aray with maximum sizes of dimensions
|
||||
* maxdims - array with maximum sizes of dimensions
|
||||
* RETURNS
|
||||
* number of dataspace dimensions (rank) on success, -1 on failure
|
||||
* AUTHOR
|
||||
@ -852,7 +852,7 @@ done:
|
||||
* NAME
|
||||
* h5sis_simple_c
|
||||
* PURPOSE
|
||||
* Call H5Sis_simple to detrmine if the dataspace
|
||||
* Call H5Sis_simple to determine if the dataspace
|
||||
* is simple.
|
||||
* INPUTS
|
||||
* space_id - identifier of the dataspace
|
||||
|
@ -447,7 +447,7 @@ CONTAINS
|
||||
! INPUTS
|
||||
! space_id - dataspace identifier
|
||||
! startpoint - element point to start with
|
||||
! num_points - number of elemnt points to get
|
||||
! num_points - number of element points to get
|
||||
! OUTPUTS
|
||||
! buf - buffer with element points selected
|
||||
! hdferr - Returns 0 if successful and -1 if fails
|
||||
|
@ -1560,7 +1560,7 @@ h5tget_member_type_c(hid_t_f *type_id, int_f *field_idx, hid_t_f *datatype)
|
||||
* Call H5Tcreate to create a datatype
|
||||
* INPUTS
|
||||
* cls - class type
|
||||
* size - size of the class memeber
|
||||
* size - size of the class member
|
||||
* RETURNS
|
||||
* 0 on success, -1 on failure
|
||||
* AUTHOR
|
||||
@ -2033,7 +2033,7 @@ h5tvlen_create_c(hid_t_f *type_id, hid_t_f *vltype_id)
|
||||
* NAME
|
||||
* h5tis_variable_str_c
|
||||
* PURPOSE
|
||||
* Call H5Tis_variable_str to detrmine if the datatype
|
||||
* Call H5Tis_variable_str to determine if the datatype
|
||||
* is a variable string.
|
||||
* INPUTS
|
||||
* type_id - identifier of the dataspace
|
||||
@ -2069,7 +2069,7 @@ h5tis_variable_str_c(hid_t_f *type_id, int_f *flag)
|
||||
* NAME
|
||||
* h5tget_member_class_c
|
||||
* PURPOSE
|
||||
* Call H5Tget_member_class to detrmine ithe class of the compound
|
||||
* Call H5Tget_member_class to determine ithe class of the compound
|
||||
* datatype member
|
||||
* INPUTS
|
||||
* type_id - identifier of the dataspace
|
||||
|
@ -86,7 +86,7 @@ CONTAINS
|
||||
! called C functions (it is needed for Windows
|
||||
! port). March 7, 2001
|
||||
!
|
||||
! Added optional parameter 'tapl_id' for compatability
|
||||
! Added optional parameter 'tapl_id' for compatibility
|
||||
! with H5Topen2. April 9, 2009.
|
||||
!
|
||||
! SOURCE
|
||||
@ -212,7 +212,7 @@ CONTAINS
|
||||
! h5tcopy_f
|
||||
!
|
||||
! PURPOSE
|
||||
! Creates a copy of exisiting datatype.
|
||||
! Creates a copy of existing datatype.
|
||||
!
|
||||
! INPUTS
|
||||
! type_id - datatype identifier
|
||||
|
@ -14,7 +14,7 @@
|
||||
!
|
||||
! NOTES
|
||||
! This program uses the Fortran 2008 intrinsic function STORAGE_SIZE or SIZEOF
|
||||
! depending on availablity.It generates code that makes use of
|
||||
! depending on availability.It generates code that makes use of
|
||||
! STORAGE_SIZE/SIZEOF in H5_gen.F90. STORAGE_SIZE is standard
|
||||
! compliant and should always be chosen over SIZEOF.
|
||||
!
|
||||
@ -437,7 +437,7 @@ PROGRAM H5_buildiface
|
||||
! dims parameter was added to make code portable;
|
||||
! Aprile 4, 2001
|
||||
!
|
||||
! Changed buf intent to INOUT to be consistant
|
||||
! 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
|
||||
@ -564,7 +564,7 @@ PROGRAM H5_buildiface
|
||||
! dims parameter was added to make code portable;
|
||||
! Aprile 4, 2001
|
||||
!
|
||||
! Changed buf intent to INOUT to be consistant
|
||||
! 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
|
||||
@ -677,7 +677,7 @@ PROGRAM H5_buildiface
|
||||
! Optional parameters:
|
||||
! mem_space_id - memory dataspace identifier
|
||||
! file_space_id - file dataspace identifier
|
||||
! xfer_prp - trasfer property list identifier
|
||||
! xfer_prp - transfer property list identifier
|
||||
!
|
||||
! AUTHOR
|
||||
! Elena Pourmal
|
||||
|
@ -701,7 +701,7 @@ CONTAINS
|
||||
!
|
||||
! Outputs:
|
||||
! majnum - major version of the library
|
||||
! minum - minor version of the library
|
||||
! minnum - minor version of the library
|
||||
! relnum - release version of the library
|
||||
! error - Returns 0 if successful and -1 if fails
|
||||
!
|
||||
@ -736,7 +736,7 @@ CONTAINS
|
||||
!
|
||||
! Inputs:
|
||||
! majnum - major version of the library
|
||||
! minum - minor version of the library
|
||||
! minnum - minor version of the library
|
||||
! relnum - release version of the library
|
||||
!
|
||||
! Outputs:
|
||||
|
@ -855,7 +855,7 @@ CONTAINS
|
||||
END SUBROUTINE H5_Fortran_string_f2c
|
||||
|
||||
|
||||
! Copy Fortran string to C charater array, assuming the C array is one-char
|
||||
! Copy Fortran string to C character array, assuming the C array is one-char
|
||||
! longer for the terminating null char.
|
||||
! fstring : the Fortran input string
|
||||
! cstring : the C output string (with memory already allocated)
|
||||
@ -883,7 +883,7 @@ CONTAINS
|
||||
!!$ cstring(j) = C_NULL_CHAR
|
||||
!!$end subroutine MPIR_Fortran_string_f2c
|
||||
!!$
|
||||
!!$! Copy C charater array to Fortran string
|
||||
!!$! Copy C character array to Fortran string
|
||||
!!$subroutine MPIR_Fortran_string_c2f(cstring, fstring)
|
||||
!!$ implicit none
|
||||
!!$ character(kind=c_char), intent(in) :: cstring(:)
|
||||
|
@ -540,7 +540,7 @@ H5_FCDLL int_f h5pget_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode);
|
||||
H5_FCDLL int_f h5pset_dxpl_mpio_c(hid_t_f *prp_id, int_f *data_xfer_mode);
|
||||
#endif
|
||||
/*
|
||||
* Functions frome H5Rf.c
|
||||
* Functions from H5Rf.c
|
||||
*/
|
||||
H5_FCDLL int_f h5rcreate_region_c(int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id);
|
||||
H5_FCDLL int_f h5rcreate_ptr_c(void *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *ref_type,
|
||||
|
@ -38,7 +38,7 @@ HL="@HL@"
|
||||
## $FLINKER $FCFLAGS $H5BLD_FCFLAGS $F9XSUFFIXFLAG $LDFLAGS $LIBS ##
|
||||
## $fmodules $link_objs $link_args $shared_link ##
|
||||
## ##
|
||||
## These settings can be overriden by setting HDF5_FCFLAGS, ##
|
||||
## These settings can be overridden by setting HDF5_FCFLAGS, ##
|
||||
## HDF5_LDFLAGS, or HDF5_LIBS in the environment. ##
|
||||
## ##
|
||||
############################################################################
|
||||
@ -136,7 +136,7 @@ usage() {
|
||||
echo " shared libraries]"
|
||||
echo " "
|
||||
echo " You can also add or change paths and flags to the compile line using"
|
||||
echo " the following environment varibles or by assigning them to their counterparts"
|
||||
echo " the following environment variables or by assigning them to their counterparts"
|
||||
echo " in the 'Things You Can Modify to Override...'" section of $prog_name
|
||||
echo " "
|
||||
echo " Variable Current value to be replaced"
|
||||
@ -298,7 +298,7 @@ fi
|
||||
|
||||
if test "x$do_link" = "xyes"; then
|
||||
shared_link=""
|
||||
# conditionnaly link with the hl library
|
||||
# conditionally link with the hl library
|
||||
if test "X$HL" = "Xhl"; then
|
||||
libraries=" $libraries -lhdf5hl_fortran -lhdf5_hl -lhdf5_fortran -lhdf5 "
|
||||
else
|
||||
|
@ -14,7 +14,7 @@
|
||||
!
|
||||
! NOTES
|
||||
! This program uses the Fortran 2008 intrinsic function STORAGE_SIZE or SIZEOF
|
||||
! depending on availablity.It generates code that makes use of
|
||||
! depending on availability.It generates code that makes use of
|
||||
! STORAGE_SIZE/SIZEOF in H5fortran_detect.f90. STORAGE_SIZE is standard
|
||||
! compliant and should always be chosen over SIZEOF.
|
||||
!
|
||||
|
@ -88,7 +88,7 @@
|
||||
data_dims(2) = NY
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
CALL h5open_f(error)
|
||||
CALL check("h5open_f",error,total_error)
|
||||
|
@ -81,7 +81,7 @@ PROGRAM FFLUSH2EXAMPLE
|
||||
data_dims(2) = NY
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
CALL h5open_f(error)
|
||||
CALL check("h5open_f",error,total_error)
|
||||
@ -163,7 +163,7 @@ PROGRAM FFLUSH2EXAMPLE
|
||||
CALL check("h5fclose_f",error,total_error)
|
||||
|
||||
!
|
||||
!Close FORTRAN predifined datatypes
|
||||
!Close FORTRAN predefined datatypes
|
||||
!
|
||||
CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
|
||||
CALL h5close_f(error)
|
||||
|
@ -81,7 +81,7 @@ CONTAINS
|
||||
INTEGER(HID_T) :: atype5_id !Integer Attribute Datatype identifier
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims = (/2/) ! Attribute dimension
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
|
||||
INTEGER :: arank = 1 ! Attribure rank
|
||||
INTEGER :: arank = 1 ! Attribute rank
|
||||
INTEGER(SIZE_T) :: attrlen ! Length of the attribute string
|
||||
|
||||
INTEGER(HID_T) :: attr_space !Returned String Attribute Space identifier
|
||||
|
@ -64,7 +64,7 @@ SUBROUTINE attribute_test_1_8(cleanup, total_error)
|
||||
INTEGER :: ret_total_error
|
||||
|
||||
! ********************
|
||||
! test_attr equivelent
|
||||
! test_attr equivalent
|
||||
! ********************
|
||||
|
||||
! WRITE(*,*) "TESTING ATTRIBUTES"
|
||||
@ -777,7 +777,6 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
|
||||
INTEGER :: Input1
|
||||
INTEGER(HSIZE_T) :: hzero = 0_HSIZE_T
|
||||
INTEGER :: minusone = -1
|
||||
INTEGER(HSIZE_T) :: htmp
|
||||
|
||||
data_dims = 0
|
||||
|
||||
@ -840,10 +839,6 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
|
||||
my_dataset = dset3
|
||||
END SELECT
|
||||
|
||||
! Check for query on non-existant attribute
|
||||
|
||||
n = 0
|
||||
|
||||
! -- CHECK PASSING AN INTEGER CONSTANT IN DIFFERENT FORMS --
|
||||
|
||||
! 1) call by passing an integer with the _hsize_t declaration
|
||||
@ -896,8 +891,8 @@ SUBROUTINE test_attr_info_by_idx(new_format, fcpl, fapl, total_error)
|
||||
! Verify information for new attribute
|
||||
|
||||
!EP CALL attr_info_by_idx_check(my_dataset, attrname, INT(j,HSIZE_T), use_index(i), total_error )
|
||||
htmp = j
|
||||
CALL attr_info_by_idx_check(my_dataset, attrname, htmp, use_index(i), total_error )
|
||||
n = INT(j, HSIZE_T)
|
||||
CALL attr_info_by_idx_check(my_dataset, attrname, n, use_index(i), total_error )
|
||||
|
||||
!CHECK(ret, FAIL, "attr_info_by_idx_check");
|
||||
ENDDO
|
||||
@ -1111,7 +1106,7 @@ SUBROUTINE test_attr_shared_rename( fcpl, fapl, total_error)
|
||||
|
||||
INTEGER :: test_shared
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
|
||||
INTEGER :: arank = 1 ! Attribure rank
|
||||
INTEGER :: arank = 1 ! Attribute rank
|
||||
|
||||
! Initialize "big" attribute data
|
||||
|
||||
@ -1497,7 +1492,7 @@ SUBROUTINE test_attr_delete_by_idx(new_format, fcpl, fapl, total_error)
|
||||
END SELECT
|
||||
|
||||
|
||||
! Check for deleting non-existant attribute
|
||||
! Check for deleting non-existent attribute
|
||||
!EP CALL H5Adelete_by_idx_f(my_dataset, '.', idx_type, order, 0_HSIZE_T,error, lapl_id=H5P_DEFAULT_F)
|
||||
CALL H5Adelete_by_idx_f(my_dataset, '.', idx_type, order, hzero,error, lapl_id=H5P_DEFAULT_F)
|
||||
CALL verify("H5Adelete_by_idx_f",error,minusone,total_error)
|
||||
@ -1773,7 +1768,7 @@ SUBROUTINE test_attr_shared_delete(fcpl, fapl, total_error)
|
||||
|
||||
INTEGER :: test_shared
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
|
||||
INTEGER :: arank = 1 ! Attribure rank
|
||||
INTEGER :: arank = 1 ! Attribute rank
|
||||
|
||||
! Output message about test being performed
|
||||
|
||||
|
@ -187,7 +187,7 @@ CONTAINS
|
||||
DO i = 1, 4
|
||||
DO j = 1, 6
|
||||
IF (data_out(i,j) .NE. dset_data(i, j)) THEN
|
||||
WRITE(*, *) "dataset test error occured"
|
||||
WRITE(*, *) "dataset test error occurred"
|
||||
WRITE(*,*) "data read is not the same as the data written"
|
||||
END IF
|
||||
END DO
|
||||
@ -196,7 +196,7 @@ CONTAINS
|
||||
! Check if no change to null_dset_data
|
||||
!
|
||||
IF (null_dset_data .NE. 1) THEN
|
||||
WRITE(*, *) "null dataset test error occured"
|
||||
WRITE(*, *) "null dataset test error occurred"
|
||||
END IF
|
||||
!
|
||||
! End access to the dataset and release resources used by it.
|
||||
@ -258,7 +258,7 @@ CONTAINS
|
||||
INTEGER(HID_T) :: dset_id ! Dataset identifier
|
||||
INTEGER(HID_T) :: dataspace ! Dataspace identifier
|
||||
INTEGER(HID_T) :: memspace ! memory Dataspace identifier
|
||||
INTEGER(HID_T) :: crp_list ! dataset creatation property identifier
|
||||
INTEGER(HID_T) :: crp_list ! dataset creation property identifier
|
||||
|
||||
!
|
||||
!dataset dimensions at creation time
|
||||
@ -313,7 +313,7 @@ CONTAINS
|
||||
END DO
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
! CALL h5init_types_f(error)
|
||||
! CALL check("h5init_types_f",error,total_error)
|
||||
@ -347,7 +347,7 @@ CONTAINS
|
||||
CALL check("h5pset_chunk_f",error,total_error)
|
||||
|
||||
!
|
||||
!Create a dataset with 3X3 dimensions using cparms creation propertie .
|
||||
!Create a dataset with 3X3 dimensions using cparms creation properties .
|
||||
!
|
||||
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dataspace, dset_id, error, crp_list )
|
||||
CALL check("h5dcreate_f",error,total_error)
|
||||
@ -426,7 +426,7 @@ CONTAINS
|
||||
CALL h5sget_simple_extent_ndims_f(dataspace, rankr, error)
|
||||
CALL check("h5sget_simple_extent_ndims_f",error,total_error)
|
||||
IF (rankr .NE. RANK) THEN
|
||||
WRITE(*,*) "dataset rank error occured"
|
||||
WRITE(*,*) "dataset rank error occurred"
|
||||
STOP
|
||||
END IF
|
||||
|
||||
@ -436,7 +436,7 @@ CONTAINS
|
||||
CALL h5sget_simple_extent_dims_f(dataspace, dimsr, maxdimsr, error)
|
||||
CALL check("h5sget_simple_extent_dims_f",error,total_error)
|
||||
IF ((dimsr(1) .NE. dims1(1)) .OR. (dimsr(2) .NE. dims1(2))) THEN
|
||||
WRITE(*,*) "dataset dimensions error occured"
|
||||
WRITE(*,*) "dataset dimensions error occurred"
|
||||
STOP
|
||||
END IF
|
||||
|
||||
@ -466,7 +466,7 @@ CONTAINS
|
||||
DO ih = 1, dims1(1)
|
||||
DO jh = 1, dims1(2)
|
||||
IF (data_out(ih,jh) .NE. data_in(ih, jh)) THEN
|
||||
WRITE(*, *) "extend dataset test error occured"
|
||||
WRITE(*, *) "extend dataset test error occurred"
|
||||
WRITE(*, *) "read value is not the same as the written values"
|
||||
END IF
|
||||
END DO
|
||||
|
@ -554,7 +554,7 @@ CONTAINS
|
||||
do i = 1, NX
|
||||
do j = 1, NY
|
||||
IF (data_out(i,j) .NE. dset_data(i, j)) THEN
|
||||
write(*, *) "reopen test error occured"
|
||||
write(*, *) "reopen test error occurred"
|
||||
END IF
|
||||
end do
|
||||
end do
|
||||
|
@ -654,7 +654,7 @@ SUBROUTINE group_info(cleanup, fapl, total_error)
|
||||
INTEGER(HID_T) :: file, scalar, grp, d1
|
||||
CHARACTER(LEN=12), PARAMETER :: filename ='TestLinks.h5'
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: adims2 = (/1/) ! Attribute dimension
|
||||
INTEGER :: arank = 1 ! Attribure rank
|
||||
INTEGER :: arank = 1 ! Attribute rank
|
||||
INTEGER :: error
|
||||
|
||||
INTEGER :: cset ! Indicates the character set used for the link’s name.
|
||||
|
@ -160,7 +160,7 @@ SUBROUTINE test_genprop_basic_class(total_error)
|
||||
CALL verify("H5Pequal_f", flag, .TRUE., total_error)
|
||||
|
||||
|
||||
! Make certain false postives aren't being returned
|
||||
! Make certain false positives aren't being returned
|
||||
CALL H5Pequal_f(cid2, H5P_FILE_CREATE_F, flag, error)
|
||||
CALL check("H5Pequal_f", error, total_error)
|
||||
CALL verify("H5Pequal_f", flag, .FALSE., total_error)
|
||||
|
@ -349,8 +349,8 @@ SUBROUTINE multi_file_test(cleanup, total_error)
|
||||
DO i = 1, 4
|
||||
DO j = 1, 6
|
||||
IF (data_out(i,j) .NE. dset_data(i, j)) THEN
|
||||
WRITE(*, *) "dataset test error occured"
|
||||
WRITE(*,*) "data read is not the same as the data writen"
|
||||
WRITE(*, *) "dataset test error occurred"
|
||||
WRITE(*,*) "data read is not the same as the data written"
|
||||
END IF
|
||||
END DO
|
||||
END DO
|
||||
@ -575,7 +575,7 @@ SUBROUTINE test_chunk_cache(cleanup, total_error)
|
||||
CALL H5Pclose_f(dapl2,error)
|
||||
CALL check("H5Pclose_f", error, total_error)
|
||||
|
||||
! Similary, test use of H5Dcreate2 with H5P_DEFAULT
|
||||
! Similarly, test use of H5Dcreate2 with H5P_DEFAULT
|
||||
CALL H5Dclose_f(dsid, error)
|
||||
CALL check("H5Dclose_f", error, total_error)
|
||||
|
||||
|
@ -1013,28 +1013,28 @@ SUBROUTINE test_vds(total_error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
|
||||
IF(nsize.NE.LEN(SRC_FILE_LEN_EXACT))THEN
|
||||
PRINT*,"virtual filenname size is incorrect"
|
||||
PRINT*,"virtual filename size is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! check passing a buffer that is very small
|
||||
CALL H5Pget_virtual_filename_f(dcpl, INT(i-1, size_t), SRC_FILE_LEN_TINY, error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
IF(SRC_FILE_LEN_TINY.NE.SRC_FILE(i)(1:LEN(SRC_FILE_LEN_TINY)))THEN
|
||||
PRINT*,"virtual filenname returned is incorrect"
|
||||
PRINT*,"virtual filename returned is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! check passing a buffer that small by one
|
||||
CALL H5Pget_virtual_filename_f(dcpl, INT(i-1, size_t), SRC_FILE_LEN_SMALL, error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
IF(SRC_FILE_LEN_SMALL.NE.SRC_FILE(i)(1:LEN(SRC_FILE_LEN_SMALL)))THEN
|
||||
PRINT*,"virtual filenname returned is incorrect"
|
||||
PRINT*,"virtual filename returned is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! check passing a buffer that is exact
|
||||
CALL H5Pget_virtual_filename_f(dcpl, INT(i-1, size_t), SRC_FILE_LEN_EXACT, error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
IF(SRC_FILE_LEN_EXACT.NE.SRC_FILE(i)(1:LEN(SRC_FILE_LEN_EXACT)))THEN
|
||||
PRINT*,"virtual filenname returned is incorrect"
|
||||
PRINT*,"virtual filename returned is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! check passing a buffer that bigger by one
|
||||
@ -1042,7 +1042,7 @@ SUBROUTINE test_vds(total_error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
IF(SRC_FILE_LEN_LARGE(1:LEN(SRC_FILE_LEN_EXACT)).NE.SRC_FILE(i)(1:LEN(SRC_FILE_LEN_EXACT)).AND. &
|
||||
SRC_FILE_LEN_LARGE(LEN(SRC_FILE_LEN_EXACT):).NE.'')THEN
|
||||
PRINT*,"virtual filenname returned is incorrect"
|
||||
PRINT*,"virtual filename returned is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! check passing a buffer that is very big
|
||||
@ -1050,7 +1050,7 @@ SUBROUTINE test_vds(total_error)
|
||||
CALL check("H5Pget_virtual_filename_f", error, total_error)
|
||||
IF(SRC_FILE_LEN_HUGE(1:LEN(SRC_FILE_LEN_EXACT)).NE.SRC_FILE(i)(1:LEN(SRC_FILE_LEN_EXACT)).AND. &
|
||||
SRC_FILE_LEN_HUGE(LEN(SRC_FILE_LEN_EXACT):).NE.'')THEN
|
||||
PRINT*,"virtual filenname returned is incorrect"
|
||||
PRINT*,"virtual filename returned is incorrect"
|
||||
total_error = total_error + 1
|
||||
ENDIF
|
||||
! Get source dataset name
|
||||
|
@ -142,7 +142,7 @@ SUBROUTINE refobjtest(cleanup, total_error)
|
||||
CALL check("h5gclose_f",error,total_error)
|
||||
|
||||
!
|
||||
! Craete references to two groups, integer dataset and shared datatype
|
||||
! Create references to two groups, integer dataset and shared datatype
|
||||
! and write it to the dataset in the file
|
||||
!
|
||||
CALL h5rcreate_f(file_id, groupname1, ref(1), error)
|
||||
|
@ -151,7 +151,7 @@ CONTAINS
|
||||
CALL h5sget_simple_extent_dims_f(space2_id, dimsout, maxdimsout, error)
|
||||
CALL check("h5sget_simple_extent_dims_f", error, total_error)
|
||||
IF ((dimsout(1) .NE. dims1(1)) .OR. (dimsout(2) .NE. dims1(2)) ) THEN
|
||||
write(*,*)"error occured, copied dims not same"
|
||||
write(*,*)"error occurred, copied dims not same"
|
||||
END IF
|
||||
|
||||
!
|
||||
@ -159,14 +159,14 @@ CONTAINS
|
||||
!
|
||||
CALL h5sget_simple_extent_ndims_f(space2_id, rank2, error)
|
||||
CALL check("h5sget_simple_extent_ndims_f", error, total_error)
|
||||
IF (rank2 .NE. rank1) write(*,*)"error occured, copied ranks not same"
|
||||
IF (rank2 .NE. rank1) write(*,*)"error occurred, copied ranks not same"
|
||||
|
||||
!
|
||||
!get the copied space's number of elements.
|
||||
!
|
||||
CALL h5sget_simple_extent_npoints_f(space2_id, npoints, error)
|
||||
CALL check("h5sget_simple_extent_npoints_f", error, total_error)
|
||||
IF (npoints .NE. 24) write(*,*)"error occured, number of elements not correct"
|
||||
IF (npoints .NE. 24) write(*,*)"error occurred, number of elements not correct"
|
||||
|
||||
|
||||
!
|
||||
@ -194,7 +194,7 @@ CONTAINS
|
||||
CALL h5sget_simple_extent_dims_f(space2_id, dimsout, maxdimsout, error)
|
||||
CALL check("h5sget_simple_extent_dims_f", error, total_error)
|
||||
IF ((dimsout(1) .NE. dims2(1)) .OR. (dimsout(2) .NE. dims2(2)) ) THEN
|
||||
write(*,*)"error occured, copied dims not same"
|
||||
write(*,*)"error occurred, copied dims not same"
|
||||
END IF
|
||||
|
||||
!
|
||||
@ -235,8 +235,8 @@ CONTAINS
|
||||
do i = 1, 4
|
||||
do j = 1, 6
|
||||
IF (data1_out(i,j) .NE. data1_in(i, j)) THEN
|
||||
write(*, *) "dataset test error occured"
|
||||
write(*,*) "data read is not the same as the data writen"
|
||||
write(*, *) "dataset test error occurred"
|
||||
write(*,*) "data read is not the same as the data written"
|
||||
END IF
|
||||
end do
|
||||
end do
|
||||
@ -256,8 +256,8 @@ CONTAINS
|
||||
do i = 1, 6
|
||||
do j = 1, 6
|
||||
IF (data2_out(i,j) .NE. data2_in(i, j)) THEN
|
||||
write(*, *) "dataset test error occured"
|
||||
write(*,*) "data read is not the same as the data writen"
|
||||
write(*, *) "dataset test error occurred"
|
||||
write(*,*) "data read is not the same as the data written"
|
||||
END IF
|
||||
end do
|
||||
end do
|
||||
|
@ -149,7 +149,7 @@ CONTAINS
|
||||
!
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
! CALL h5init_types_f(error)
|
||||
! CALL check("h5init_types_f", error, total_error)
|
||||
@ -430,7 +430,7 @@ CONTAINS
|
||||
end do
|
||||
|
||||
!
|
||||
!Initialize FORTRAN predifined datatypes
|
||||
!Initialize FORTRAN predefined datatypes
|
||||
!
|
||||
! CALL h5init_types_f(error)
|
||||
! CALL check("h5init_types_f", error, total_error)
|
||||
@ -912,7 +912,7 @@ CONTAINS
|
||||
!
|
||||
CALL h5sget_select_hyper_nblocks_f(dataspace, num_blocks, error)
|
||||
CALL check("h5sget_select_hyper_nblocks_f", error, total_error)
|
||||
IF (num_blocks .NE. 4) write (*,*) "error occured with num_blocks"
|
||||
IF (num_blocks .NE. 4) write (*,*) "error occurred with num_blocks"
|
||||
!write(*,*) num_blocks
|
||||
!result of num_blocks is 4
|
||||
|
||||
@ -945,11 +945,11 @@ CONTAINS
|
||||
CALL h5sget_select_bounds_f(dataspace, startout, endout, error)
|
||||
CALL check("h5sget_select_bounds_f", error, total_error)
|
||||
IF ( (startout(1) .ne. 1) .or. (startout(2) .ne. 1) ) THEN
|
||||
write(*,*) "error occured to select_bounds's start position"
|
||||
write(*,*) "error occurred to select_bounds's start position"
|
||||
END IF
|
||||
|
||||
IF ( (endout(1) .ne. 5) .or. (endout(2) .ne. 5) ) THEN
|
||||
write(*,*) "error occured to select_bounds's end position"
|
||||
write(*,*) "error occurred to select_bounds's end position"
|
||||
END IF
|
||||
!write(*,*) (startout(i), i = 1, RANK)
|
||||
!result of startout is 0, 0
|
||||
@ -978,7 +978,7 @@ CONTAINS
|
||||
!
|
||||
CALL h5sget_select_elem_npoints_f(dataspace, num_points, error)
|
||||
CALL check("h5sget_select_elem_npoints_f", error, total_error)
|
||||
IF (num_points .NE. 10) write(*,*) "error occured with num_points"
|
||||
IF (num_points .NE. 10) write(*,*) "error occurred with num_points"
|
||||
!write(*,*) num_points
|
||||
! result of num_points is 10
|
||||
|
||||
|
@ -72,7 +72,7 @@ CONTAINS
|
||||
INTEGER(HID_T) :: dt4_id ! Memory datatype identifier (for real field)
|
||||
INTEGER(HID_T) :: dt5_id ! Memory datatype identifier
|
||||
INTEGER(HID_T) :: membtype_id ! Datatype identifier
|
||||
INTEGER(HID_T) :: plist_id ! Dataset trasfer property
|
||||
INTEGER(HID_T) :: plist_id ! Dataset transfer property
|
||||
|
||||
|
||||
INTEGER(HSIZE_T), DIMENSION(1) :: dims = (/dimsize/) ! Dataset dimensions
|
||||
@ -98,7 +98,7 @@ CONTAINS
|
||||
INTEGER :: class ! Datatype class
|
||||
INTEGER :: num_members ! Number of members in the compound datatype
|
||||
CHARACTER(LEN=256) :: member_name
|
||||
INTEGER :: len ! Lenght of the name of the compound datatype member
|
||||
INTEGER :: len ! Length of the name of the compound datatype member
|
||||
INTEGER :: member_index ! index of the field
|
||||
INTEGER(HSIZE_T), DIMENSION(3) :: array_dims=(/2,3,4/)
|
||||
INTEGER :: array_dims_range = 3
|
||||
@ -219,9 +219,9 @@ CONTAINS
|
||||
CALL h5tcreate_f(H5T_COMPOUND_F, type_size, dtype_id, error)
|
||||
CALL check("h5tcreate_f", error, total_error)
|
||||
!
|
||||
! Insert memebers
|
||||
! Insert members
|
||||
!
|
||||
! CHARACTER*2 memeber
|
||||
! CHARACTER*2 member
|
||||
!
|
||||
offset = 0
|
||||
CALL h5tinsert_f(dtype_id, "char_field", offset, dt5_id, error)
|
||||
@ -229,13 +229,13 @@ CONTAINS
|
||||
!
|
||||
! INTEGER member
|
||||
!
|
||||
offset = offset + type_sizec ! Offset of the second memeber is 2
|
||||
offset = offset + type_sizec ! Offset of the second member is 2
|
||||
CALL h5tinsert_f(dtype_id, "integer_field", offset, H5T_NATIVE_INTEGER, error)
|
||||
CALL check("h5tinsert_f", error, total_error)
|
||||
!
|
||||
! DOUBLE PRECISION member
|
||||
!
|
||||
offset = offset + type_sizei ! Offset of the third memeber is 6
|
||||
offset = offset + type_sizei ! Offset of the third member is 6
|
||||
CALL h5tinsert_f(dtype_id, "double_field", offset, H5T_NATIVE_DOUBLE, error)
|
||||
CALL check("h5tinsert_f", error, total_error)
|
||||
!
|
||||
@ -416,7 +416,7 @@ CONTAINS
|
||||
CALL h5tequal_f(membtype_id, H5T_NATIVE_INTEGER, flag, error)
|
||||
CALL check("h5tequal_f", error, total_error)
|
||||
if(.not. flag) then
|
||||
write(*,*) "Wrong member type returned for integer memebr"
|
||||
write(*,*) "Wrong member type returned for integer member"
|
||||
total_error = total_error + 1
|
||||
endif
|
||||
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
|
||||
@ -435,7 +435,7 @@ CONTAINS
|
||||
CALL h5tequal_f(membtype_id, H5T_NATIVE_DOUBLE, flag, error)
|
||||
CALL check("h5tequal_f", error, total_error)
|
||||
if(.not. flag) then
|
||||
write(*,*) "Wrong member type returned for double precision memebr"
|
||||
write(*,*) "Wrong member type returned for double precision member"
|
||||
total_error = total_error + 1
|
||||
endif
|
||||
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
|
||||
@ -454,7 +454,7 @@ CONTAINS
|
||||
CALL h5tequal_f(membtype_id, H5T_NATIVE_REAL, flag, error)
|
||||
CALL check("h5tequal_f", error, total_error)
|
||||
if(.not. flag) then
|
||||
write(*,*) "Wrong member type returned for real memebr"
|
||||
write(*,*) "Wrong member type returned for real member"
|
||||
total_error = total_error + 1
|
||||
endif
|
||||
CALL h5tget_member_class_f(dtype_id, i-1, class, error)
|
||||
|
@ -147,7 +147,7 @@ CONTAINS
|
||||
CALL check("h5dvlen_get_max_len_f", error, total_error)
|
||||
if(max_len .ne. data_dims(1)) then
|
||||
total_error = total_error + 1
|
||||
write(*,*) "Wrong number of elemets returned by h5dvlen_get_max_len_f"
|
||||
write(*,*) "Wrong number of elements returned by h5dvlen_get_max_len_f"
|
||||
endif
|
||||
!
|
||||
! Read the dataset.
|
||||
@ -317,7 +317,7 @@ CONTAINS
|
||||
CALL check("h5dvlen_get_max_len_f", error, total_error)
|
||||
if(max_len .ne. data_dims(1)) then
|
||||
total_error = total_error + 1
|
||||
write(*,*) "Wrong number of elemets returned by h5dvlen_get_max_len_f"
|
||||
write(*,*) "Wrong number of elements returned by h5dvlen_get_max_len_f"
|
||||
endif
|
||||
!
|
||||
! Read the dataset.
|
||||
|
@ -374,7 +374,7 @@ CONTAINS
|
||||
do i = 1, N
|
||||
do j = 1, M
|
||||
IF (data_out(i,j) .NE. dset_data(i, j)) THEN
|
||||
write(*, *) "dataset test error occured"
|
||||
write(*, *) "dataset test error occurred"
|
||||
write(*,*) "data read is not the same as the data written"
|
||||
num_errors = num_errors + 1
|
||||
IF (num_errors .GE. 512) THEN
|
||||
|
@ -223,7 +223,7 @@ TestGetNext()
|
||||
for (record = 1; record < 6; record++)
|
||||
wrapper.AppendPacket(&record);
|
||||
|
||||
/* Ensure that we can interate through the records and get the right ones */
|
||||
/* Ensure that we can iterate through the records and get the right ones */
|
||||
for (i = 1; i < 6; i++) {
|
||||
wrapper.GetNextPacket(&record);
|
||||
if (record != i)
|
||||
@ -237,7 +237,7 @@ TestGetNext()
|
||||
if (error < 0)
|
||||
goto error;
|
||||
|
||||
/* Ensure that we can interate through the records and get the right ones */
|
||||
/* Ensure that we can iterate through the records and get the right ones */
|
||||
for (i = 1; i < 6; i++) {
|
||||
error = wrapper.GetNextPacket(&record);
|
||||
if (record != i || error < 0)
|
||||
|
@ -56,10 +56,10 @@ main(void)
|
||||
H5IMmake_image_8bit(file_id, "image1", (hsize_t)WIDTH, (hsize_t)HEIGHT, buf);
|
||||
|
||||
/* make a palette */
|
||||
H5IMmake_palette(file_id, "pallete", pal_dims, pal);
|
||||
H5IMmake_palette(file_id, "palette", pal_dims, pal);
|
||||
|
||||
/* attach the palette to the image */
|
||||
H5IMlink_palette(file_id, "image1", "pallete");
|
||||
H5IMlink_palette(file_id, "image1", "palette");
|
||||
|
||||
/* close the file. */
|
||||
H5Fclose(file_id);
|
||||
|
@ -216,7 +216,7 @@ CONTAINS
|
||||
END SUBROUTINE H5DSis_attached_f
|
||||
|
||||
!
|
||||
! H5DSiterate_scales: Impliment in F2003
|
||||
! H5DSiterate_scales: Implement in F2003
|
||||
!
|
||||
|
||||
!-------------------------------------------------------------------------
|
||||
|
@ -14,7 +14,7 @@
|
||||
!
|
||||
! NOTES
|
||||
! This program uses the Fortran 2008 intrinsic function STORAGE_SIZE or SIZEOF
|
||||
! depending on availablity.It generates code that makes use of
|
||||
! depending on availability.It generates code that makes use of
|
||||
! STORAGE_SIZE/SIZEOF in H5fortran_detect.f90. STORAGE_SIZE is standard
|
||||
! compliant and should always be chosen over SIZEOF.
|
||||
!
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
x
Reference in New Issue
Block a user