F5B.c File Reference

#include "F5B.h"
#include "F5X.h"
#include "F5F.h"
#include "F5defs.h"
#include "F5coordinates.h"
#include "F5private.h"
#include <stdlib.h>
#include <string.h>
#include <assert.h>

Go to the source code of this file.

Data Structures
struct	mkDomain

Functions
ChartDomain_IDs *	F5FB_read_global_chart (F5Path *f)
void	F5Bincrement_domain_refs (ChartDomain_IDs *ChartDomain)
F5Path *	F5Bopen_coordinate_domain (hid_t File_id, ChartDomain_IDs *ChartDomain)
F5Path *	F5Binitialize_path (hid_t File_id)
void	F5close (F5Path *f)
void	F5closep (F5Path **f)
void	F5Bswap_dims (int dimensions, const hsize_t *in, hsize_t *out)
	Swap from C array order to Fortran array order and back.

Function Documentation

F5Bincrement_domain_refs()

void F5Bincrement_domain_refs

(

ChartDomain_IDs *

ChartDomain

)

Definition at line 68 of file F5B.c.

{
        if (ChartDomain)
                ChartDomain->refs++;
}

References ChartDomain_IDs::refs.

F5Bopen_coordinate_domain()

F5Path * F5Bopen_coordinate_domain	(	hid_t	File_id,
		ChartDomain_IDs *	ChartDomain )

Definition at line 74 of file F5B.c.

{
F5Path  *f;
        if (File_id<1)
        {
                F5printf(10, "*F5Bopen_coordinate_domain(): Invalid file ID given!");
                return NULL;
        }
 
        f = newF5Path(File_id);
 
        F5printf(30, "F5Bopen_coordinate_domain()");
 
        H5E_BEGIN_TRY
        f->ContentsGroup_hid = H5Gopen2(File_id, FIBER_CONTENTS,H5P_DEFAULT);
 
        if (f->ContentsGroup_hid<=0)
                F5printf(10, "File contains no "FIBER_CONTENTS" contents group (old F5 file?).");
 
        /* NOTE: This should actually retrieve the enum types plus
           field versioning information from the file!
         */
        if (f->ContentsGroup_hid>=0)
        {
                f->field_enum_type_hid = H5Topen2(f->ContentsGroup_hid, FIBER_ARRAY_TYPE_ENUM, H5P_DEFAULT);
                if (f->field_enum_type_hid < 0)
                        F5printf(10, "File Contents group contains no field enumeration type (old F5 file?)");
        }
        H5E_END_TRY
 
        f->Slice_hid            = 0;
        f->Grid_hid             = 0;
        f->Charts_hid           = 0;
        f->Chart_hid            = 0;
        f->Topology_hid         = 0;
        f->Representation_hid   = 0;
 
        /* preparing chart */
 
        f->GlobalChart_hid = F5Gtry_to_open(File_id, FIBER_HDF5_GLOBAL_CHARTS) ;
        if (f->GlobalChart_hid<0)
        {
                F5printf(10, "File contains no "FIBER_HDF5_GLOBAL_CHARTS" entry (invalid F5 file?)");
                deleteF5Path(f);
                F5printf(30, "~F5Bopen_coordinate_domain() failed");
                return NULL;
        }
 
        assert(ChartDomain);
        {
                f->myChart = ChartDomain;
                f->myChart->refs++;
        }
 
        /* Creates an entry in the "global charts" group for all cartesian charts,
           this is the place to store the named types of cartesian charts.
 
        NOTE: This coordinate/chart reference stuff is planned to be replaced by shared
              types. This revision will work without links.
        */
        if (F5Gexist(f->GlobalChart_hid, f->myChart->domain_name) )
        {
                f->FileIDs = F5FB_read_global_chart(f);
                F5printf(30, "~F5Bopen_coordinate_domain() is ok");
                return f;
        }
#if     1
        F5printf(10, "F5Bopen_coordinate_domain() failed, but still trying to make sense out of this file.");
        f->FileIDs = 0;
        return f;
#else
        H5Gclose( f->GlobalChart_hid );
        deleteF5Path(f);
 
        F5printf(30, "~F5Bopen_coordinate_domain() failed");
        return NULL;
#endif
}

References F5Path::Chart_hid, F5Path::Charts_hid, F5Path::ContentsGroup_hid, deleteF5Path(), ChartDomain_IDs::domain_name, F5FB_read_global_chart(), F5Gexist(), F5Gtry_to_open(), F5printf, FIBER_ARRAY_TYPE_ENUM, FIBER_CONTENTS, FIBER_HDF5_GLOBAL_CHARTS, F5Path::field_enum_type_hid, F5Path::FileIDs, F5Path::GlobalChart_hid, F5Path::Grid_hid, H5Gclose, F5Path::myChart, newF5Path(), ChartDomain_IDs::refs, F5Path::Representation_hid, F5Path::Slice_hid, and F5Path::Topology_hid.

Referenced by F5Binitialize_path().

F5Bswap_dims()

void F5Bswap_dims	(	int	dimensions,
		const hsize_t *	in,
		hsize_t *	out )

Swap from C array order to Fortran array order and back.

Parameters

dimensions	Number of dimensions.
in	Input vector.
out	Output vector.

Use it like

hsize_t c_dims[FIBER_MAX_RANK];
 
F5order_swap (3, dims, c_dims);
id = F5Screate_simple (...);

Definition at line 230 of file F5B.c.

{
int i;
 
    for (i = 0; i < dimensions; i++) {
        out[i] = in[dimensions - 1 - i];
    }
}

F5closep()

void F5closep

(

F5Path **

f

)

Definition at line 222 of file F5B.c.

{
        if (!f)  return;
        if (!*f) return;
        F5close(*f);
        *f = NULL;
}

References F5close().

F5FB_read_global_chart()

ChartDomain_IDs * F5FB_read_global_chart

(

F5Path *

f

)

Definition at line 14 of file F5B.c.

{
        return  F5B_read_global_chart(f->GlobalChart_hid, f->myChart->domain_name);
}

References ChartDomain_IDs::domain_name, F5B_read_global_chart(), F5Path::GlobalChart_hid, and F5Path::myChart.

Referenced by F5Bopen_coordinate_domain(), and F5LTcreateV().