summaryrefslogtreecommitdiffstats
path: root/doc/html/Tutor/compound.html
diff options
context:
space:
mode:
authorBarbara Jones <bljones@hdfgroup.org>2001-03-08 17:08:26 (GMT)
committerBarbara Jones <bljones@hdfgroup.org>2001-03-08 17:08:26 (GMT)
commitda9346bd99300448aee4ba2afe7f9e40009f939a (patch)
tree3cfdaa805ad0494293c3edf770ef6d219aeb88d5 /doc/html/Tutor/compound.html
parent345e07fc11458901632c697ae794d91962eed817 (diff)
downloadhdf5-da9346bd99300448aee4ba2afe7f9e40009f939a.zip
hdf5-da9346bd99300448aee4ba2afe7f9e40009f939a.tar.gz
hdf5-da9346bd99300448aee4ba2afe7f9e40009f939a.tar.bz2
[svn-r3564] made some more changes to tutorial pages
Purpose: [is this a bug fix? feature? ...] Description: [describe the bug, or describe the new feature, etc] Solution: [details about the changes, algorithm, etc...] [Please as detail as you can since your own explanation is better than others guessing it from the code.] Platforms tested: [machines you have tested the changed version. This is absolute important. Test it out on at least two or three different platforms such as Big-endian-32bit (SUN/IRIX), little-endian-32(LINUX) and 64-bit (IRIX64/UNICOS/DEC-ALPHA) would be good.]
Diffstat (limited to 'doc/html/Tutor/compound.html')
-rw-r--r--doc/html/Tutor/compound.html155
1 files changed, 3 insertions, 152 deletions
diff --git a/doc/html/Tutor/compound.html b/doc/html/Tutor/compound.html
index d68d5a3..5db0ff1 100644
--- a/doc/html/Tutor/compound.html
+++ b/doc/html/Tutor/compound.html
@@ -29,7 +29,6 @@ width=78 height=27 alt="NCSA"><P></A>
<LI> <A HREF="#fc">File Contents</A>
</UL>
</UL>
-<em><b>Note:</b> The FORTRAN API does not yet support compound datatypes.</em>
<HR>
<A NAME="def">
<H2>Creating Compound Datatypes</H2>
@@ -69,159 +68,11 @@ the members.
<UL>
[ <A HREF="examples/h5_compound.c">C Example</A> ] - <code>h5_compound.c</code>
<BR>
+[ <A HREF="examples/compound.f90">Fortran 90 Example</A> ]
+- <code>compound.f90</code>
+<BR>
[ <A HREF="examples/java/Compound.java">Java Example</A> ] - <code>Compound.java</code>
</UL>
-<PRE>
-+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-#include "hdf5.h"
-
-#define FILE "SDScompound.h5"
-#define DATASETNAME "ArrayOfStructures"
-#define LENGTH 10
-#define RANK 1
-
-int
-main(void)
-{
-
- /* First structure and dataset*/
- typedef struct s1_t {
- int a;
- float b;
- double c;
- } s1_t;
- s1_t s1[LENGTH];
- hid_t s1_tid; /* File datatype identifier */
-
- /* Second structure (subset of s1_t) and dataset*/
- typedef struct s2_t {
- double c;
- int a;
- } s2_t;
- s2_t s2[LENGTH];
- hid_t s2_tid; /* Memory datatype handle */
-
- /* Third "structure" ( will be used to read float field of s1) */
- hid_t s3_tid; /* Memory datatype handle */
- float s3[LENGTH];
-
- int i;
- hid_t file, dataset, space; /* Handles */
- herr_t status;
- hsize_t dim[] = {LENGTH}; /* Dataspace dimensions */
-
-
- /*
- * Initialize the data
- */
- for (i = 0; i &lt; LENGTH; i++) {
- s1[i].a = i;
- s1[i].b = i*i;
- s1[i].c = 1./(i+1);
- }
-
- /*
- * Create the data space.
- */
- space = H5Screate_simple(RANK, dim, NULL);
-
- /*
- * Create the file.
- */
- file = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
-
- /*
- * Create the memory datatype.
- */
- s1_tid = H5Tcreate (H5T_COMPOUND, sizeof(s1_t));
- H5Tinsert(s1_tid, "a_name", HOFFSET(s1_t, a), H5T_NATIVE_INT);
- H5Tinsert(s1_tid, "c_name", HOFFSET(s1_t, c), H5T_NATIVE_DOUBLE);
- H5Tinsert(s1_tid, "b_name", HOFFSET(s1_t, b), H5T_NATIVE_FLOAT);
-
- /*
- * Create the dataset.
- */
- dataset = H5Dcreate(file, DATASETNAME, s1_tid, space, H5P_DEFAULT);
-
- /*
- * Wtite data to the dataset;
- */
- status = H5Dwrite(dataset, s1_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, s1);
-
- /*
- * Release resources
- */
- H5Tclose(s1_tid);
- H5Sclose(space);
- H5Dclose(dataset);
- H5Fclose(file);
-
- /*
- * Open the file and the dataset.
- */
- file = H5Fopen(FILE, H5F_ACC_RDONLY, H5P_DEFAULT);
-
- dataset = H5Dopen(file, DATASETNAME);
-
- /*
- * Create a datatype for s2
- */
- s2_tid = H5Tcreate(H5T_COMPOUND, sizeof(s2_t));
-
- H5Tinsert(s2_tid, "c_name", HOFFSET(s2_t, c), H5T_NATIVE_DOUBLE);
- H5Tinsert(s2_tid, "a_name", HOFFSET(s2_t, a), H5T_NATIVE_INT);
-
- /*
- * Read two fields c and a from s1 dataset. Fields in the file
- * are found by their names "c_name" and "a_name".
- */
- status = H5Dread(dataset, s2_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, s2);
-
- /*
- * Display the fields
- */
- printf("\n");
- printf("Field c : \n");
- for( i = 0; i &lt; LENGTH; i++) printf("%.4f ", s2[i].c);
- printf("\n");
-
- printf("\n");
- printf("Field a : \n");
- for( i = 0; i &lt; LENGTH; i++) printf("%d ", s2[i].a);
- printf("\n");
-
- /*
- * Create a datatype for s3.
- */
- s3_tid = H5Tcreate(H5T_COMPOUND, sizeof(float));
-
- status = H5Tinsert(s3_tid, "b_name", 0, H5T_NATIVE_FLOAT);
-
- /*
- * Read field b from s1 dataset. Field in the file is found by its name.
- */
- status = H5Dread(dataset, s3_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, s3);
-
- /*
- * Display the field
- */
- printf("\n");
- printf("Field b : \n");
- for( i = 0; i &lt; LENGTH; i++) printf("%.4f ", s3[i]);
- printf("\n");
-
- /*
- * Release resources
- */
- H5Tclose(s2_tid);
- H5Tclose(s3_tid);
- H5Dclose(dataset);
- H5Fclose(file);
-
- return 0;
-}
-+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-</PRE>
The program outputs the following:
<PRE>