source: trunk/src/core/RpDXWriterFStubs.c @ 1086

/*
 * ----------------------------------------------------------------------
 *  INTERFACE: Fortran Rappture DXWriter Bindings Stubs
 *
 * ======================================================================
 *  AUTHOR:  Derrick S. Kearney, Purdue University
 *  Copyright (c) 2005-2008  Purdue Research Foundation
 *
 *  See the file "license.terms" for information on usage and
 *  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 * ======================================================================
 */

#ifdef __cplusplus
    extern "C" {
#endif // ifdef __cplusplus


int rp_dxwriter_() {
    return rp_dxwriter();
}

int rp_dxwriter__() {
    return rp_dxwriter();
}

int RP_DXWRITER() {
    return rp_dxwriter();
}


int rp_dxwriter_origin_(int *handle, double *o) {
    return rp_dxwriter_origin(handle,o);
}

int rp_dxwriter_origin__(int *handle, double *o) {
    return rp_dxwriter_origin(handle,o);
}

int RP_DXWRITER_ORIGIN(int *handle, double *o) {
    return rp_dxwriter_origin(handle,o);
}


int rp_dxwriter_delta_(int *handle, double *d) {
    return rp_dxwriter_delta(handle,d);
}

int rp_dxwriter_delta__(int *handle, double *d) {
    return rp_dxwriter_delta(handle,d);
}

int RP_DXWRITER_DELTA(int *handle, double *d) {
    return rp_dxwriter_delta(handle,d);
}


int rp_dxwriter_counts_(int *handle, size_t *p) {
    return rp_dxwriter_counts(handle,p);
}

int rp_dxwriter_counts__(int *handle, size_t *p) {
    return rp_dxwriter_counts(handle,p);
}

int RP_DXWRITER_COUNTS(int *handle, size_t *p) {
    return rp_dxwriter_counts(handle,p);
}


int rp_dxwriter_append_(int *handle, double *value) {
    return rp_dxwriter_append(handle,value);
}

int rp_dxwriter_append__(int *handle, double *value) {
    return rp_dxwriter_append(handle,value);
}

int RP_DXWRITER_APPEND(int *handle, double *value) {
    return rp_dxwriter_append(handle,value);
}


int rp_dxwriter_data_(int *handle, double *value, size_t *nmemb) {
    return rp_dxwriter_data(handle,value,nmemb);
}

int rp_dxwriter_data__(int *handle, double *value, size_t *nmemb) {
    return rp_dxwriter_data(handle,value,nmemb);
}

int RP_DXWRITER_DATA(int *handle, double *value, size_t *nmemb) {
    return rp_dxwriter_data(handle,value,nmemb);
}


int rp_dxwriter_pos_(int *handle, double *position, size_t *nmemb) {
    return rp_dxwriter_pos(handle,position,nmemb);
}

int rp_dxwriter_pos__(int *handle, double *position, size_t *nmemb) {
    return rp_dxwriter_pos(handle,position,nmemb);
}

int RP_DXWRITER_POS(int *handle, double *position, size_t *nmemb) {
    return rp_dxwriter_pos(handle,position,nmemb);
}


int rp_dxwriter_write_(int *handle, char *fname, size_t str_len) {
    return rp_dxwriter_write(handle,fname,str_len);
}

int rp_dxwriter_write__(int *handle, char *fname, size_t str_len) {
    return rp_dxwriter_write(handle,fname,str_len);
}

int RP_DXWRITER_WRITE(int *handle, char *fname, size_t str_len) {
    return rp_dxwriter_write(handle,fname,str_len);
}


int rp_dxwriter_size_(int *handle, size_t *sz) {
    return rp_dxwriter_size(handle,sz);
}

int rp_dxwriter_size__(int *handle, size_t *sz) {
    return rp_dxwriter_size(handle,sz);
}

int RP_DXWRITER_SIZE(int *handle, size_t *sz) {
    return rp_dxwriter_size(handle,sz);
}


int rp_dxwriter_rank_(int *handle, size_t *rank) {
    return rp_dxwriter_rank(handle,rank);
}

int rp_dxwriter_rank__(int *handle, size_t *rank) {
    return rp_dxwriter_rank(handle,rank);
}

int RP_DXWRITER_RANK(int *handle, size_t *rank) {
    return rp_dxwriter_rank(handle,rank);
}


int rp_dxwriter_shape_(int *handle, size_t *shape) {
    return rp_dxwriter_shape(handle,shape);
}

int rp_dxwriter_shape__(int *handle, size_t *shape) {
    return rp_dxwriter_shape(handle,shape);
}

int RP_DXWRITER_SHAPE(int *handle, size_t *shape) {
    return rp_dxwriter_shape(handle,shape);
}


/**********************************************************/

#ifdef __cplusplus
    }
#endif // ifdef __cplusplus