fbh5_close.c

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * fbh5_close.c                                                                *
 * ----------                                                                  *
 * Close an FBH5 writing session:                          .                   *
 * Dataspace, Dataset, and File (in that order).                               *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */


#include "fbh5_defs.h"
#define MILLION 1000000.0


/***
	Main entry point.
***/
int fbh5_close(fbh5_context_t * p_fbh5_ctx, int debug_callback) {
    herr_t      status;         // Status from HDF5 function call
    hsize_t     sz_store;       // Storage size
    double      MiBstore;       // sz_store converted to MiB
    double      MiBlogical;     // sz_store converted to MiB
    
    // Even if this function fails, mark the fbh5 context inactive.
    p_fbh5_ctx->active = 0;

    // Compute some stats while the dataset is still open.
    sz_store = H5Dget_storage_size(p_fbh5_ctx->dataset_id);
    MiBlogical = (double) p_fbh5_ctx->tint_size * (double) p_fbh5_ctx->offset_dims[0] / MILLION;
    
    /*
     * Attach "dimension scale" labels.
     */
    fbh5_set_ds_label(p_fbh5_ctx, "time", 0, debug_callback);
    fbh5_set_ds_label(p_fbh5_ctx, "feed_id", 1, debug_callback);
    fbh5_set_ds_label(p_fbh5_ctx, "frequency", 2, debug_callback);

    /*
     * Close dataspace.
     */
    status = H5Sclose(p_fbh5_ctx->dataspace_id);
    if(status != 0) {
        fbh5_error(__FILE__, __LINE__, "fbh5_close H5Sclose dataspace FAILED\n");
        fbh5_show_context("fbh5_close", p_fbh5_ctx);
        return 1;
    }
        
    /*
     * Close dataset.
     */
    status = H5Dclose(p_fbh5_ctx->dataset_id);
    if(status != 0) {
        fbh5_error(__FILE__, __LINE__, "fbh5_close H5Dclose dataset 'data' FAILED\n");
        fbh5_show_context("fbh5_close", p_fbh5_ctx);
         return 1;
    }
        
    /*
     * Close file.
     */
    status = H5Fclose(p_fbh5_ctx->file_id);
    if(status != 0) {
        fbh5_error(__FILE__, __LINE__, "fbh5_close H5Fclose FAILED\n");
        fbh5_show_context("fbh5_close", p_fbh5_ctx);
        return 1;
    }

    /*
     * Closing statistics.
     */
    if(debug_callback) {
        fbh5_info("fbh5_close: Context closed.\n");
        fbh5_info("fbh5_close: %ld dumps processed.\n", p_fbh5_ctx->dump_count);
        fbh5_info("fbh5_close: %lld time integrations processed.\n", p_fbh5_ctx->offset_dims[0]);
        MiBstore = (double) sz_store / MILLION;
        fbh5_info("fbh5_close: Compressed %.2f MiB --> %.2f MiB\n", MiBlogical, MiBstore);
    }

    /*
     * Bye-bye.
     */
    return 0;
}