/******************************************************************************
*
* NSSDC/CDF CDF Standard Interface (III) /FORTRAN.
*
* Version 3.1, 26-May-05, Raytheon ITSS.
*
* Modification history:
*
* V1.0 26-May-05, M Liu Original version (for CDF V3.1).
*
******************************************************************************/
/******************************************************************************
* This is the third part of the extended FORTRAN interfaces.
******************************************************************************/
#include "cdflib.h"
/******************************************************************************
* CDF_confirm_attr_existence.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_attr_existence__,
cdf_confirm_attr_existence_,
cdf_confirm_attr_existence,
CDF_CONFIRM_ATTR_EXISTENCE)
(id, attr_name Fif_GHOSTARG(len))
Int32 *id; /* In: CDF identifier. */
void *attr_name; /* In: Attribute name. */
Fif_GHOSTDEF(len) /* Invisible length of "attr_name"
(generated by FORTRAN compiler). */
{
struct STRINGstruct *ssh = NULL; /* Head of STRINGstruct linked list. */
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CONFIRM_, ATTR_EXISTENCE_,
#if defined(Fif_DESCR)
DESCRtoREFnul(attr_name,
CDF_ATTR_NAME_LEN256,
&ssh),
#endif
#if defined(Fif_GHOSTLEN)
NULterminate(attr_name,Fif_GHOSTUSE(len),
&ssh),
#endif
#if defined(Fif_NOLEN)
FindEndNUL(attr_name,
CDF_ATTR_NAME_LEN256,
&ssh),
#endif
NULL_);
return status;
}
/******************************************************************************
* CDF_confirm_zvar_existence.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_zvar_existence__,
cdf_confirm_zvar_existence_,
cdf_confirm_zvar_existence,
CDF_CONFIRM_ZVAR_EXISTENCE)
(id, var_name Fif_GHOSTARG(len))
Int32 *id; /* In: CDF identifier. */
void *var_name; /* In: zVariable name. */
Fif_GHOSTDEF(len) /* Invisible length of "var_name"
(generated by FORTRAN compiler). */
{
struct STRINGstruct *ssh = NULL; /* Head of STRINGstruct linked list. */
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CONFIRM_, zVAR_EXISTENCE_,
#if defined(Fif_DESCR)
DESCRtoREFnul(var_name,
CDF_VAR_NAME_LEN256,
&ssh),
#endif
#if defined(Fif_GHOSTLEN)
NULterminate(var_name,Fif_GHOSTUSE(len),
&ssh),
#endif
#if defined(Fif_NOLEN)
FindEndNUL(var_name,
CDF_VAR_NAME_LEN256,
&ssh),
#endif
NULL_);
return status;
}
/******************************************************************************
* CDF_confirm_gentry_existence.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_gentry_existence__,
cdf_confirm_gentry_existence_,
cdf_confirm_gentry_existence,
CDF_CONFIRM_GENTRY_EXISTENCE)
(id, attr_num, entry_num)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: gEntry number. */
{
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
CONFIRM_, gENTRY_EXISTENCE_,
(long) (*entry_num - 1),
NULL_);
return status;
}
/******************************************************************************
* CDF_confirm_rentry_existence.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_rentry_existence__,
cdf_confirm_rentry_existence_,
cdf_confirm_rentry_existence,
CDF_CONFIRM_RENTRY_EXISTENCE)
(id, attr_num, entry_num)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: rEntry number. */
{
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
CONFIRM_, rENTRY_EXISTENCE_,
(long) (*entry_num - 1),
NULL_);
return status;
}
/******************************************************************************
* CDF_confirm_zentry_existence.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_zentry_existence__,
cdf_confirm_zentry_existence_,
cdf_confirm_zentry_existence,
CDF_CONFIRM_ZENTRY_EXISTENCE)
(id, attr_num, entry_num)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: zEntry number. */
{
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
CONFIRM_, zENTRY_EXISTENCE_,
(long) (*entry_num - 1),
NULL_);
return status;
}
/******************************************************************************
* CDF_confirm_zvar_padvalue_exist.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
Int32
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_confirm_zvar_padvalue_exist__,
cdf_confirm_zvar_padvalue_exist_,
cdf_confirm_zvar_padvalue_exist,
CDF_CONFIRM_ZVAR_PADVALUE_EXIST)
(id, var_num)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: zVariable number. */
{
Int32 status;
status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
CONFIRM_, zVAR_PADVALUE_,
NULL_);
return status;
}
/******************************************************************************
* CDF_set_decoding.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_decoding__,
cdf_set_decoding_,
cdf_set_decoding,
CDF_SET_DECODING)
(id, decoding, status)
Int32 *id; /* In: CDF identifier. */
Int32 *decoding; /* In: CDF decoding. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CDF_DECODING_, (long) *decoding,
NULL_);
return;
}
/******************************************************************************
* CDF_set_readonly_mode.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_readonly_mode__,
cdf_set_readonly_mode_,
cdf_set_readonly_mode,
CDF_SET_READONLY_MODE)
(id, mode, status)
Int32 *id; /* in: cdf identifier. */
Int32 *mode; /* in: cdf readonly mode. */
Int32 *status; /* out: cdf status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CDF_READONLY_MODE_, (long) *mode,
NULL_);
return;
}
/******************************************************************************
* CDF_set_negtoposfp0_mode.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_negtoposfp0_mode__,
cdf_set_negtoposfp0_mode_,
cdf_set_negtoposfp0_mode,
CDF_SET_NEGTOPOSFP0_MODE)
(id, mode, status)
Int32 *id; /* In: CDF identifier. */
Int32 *mode; /* In: CDF negtoposfp0 mode. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CDF_NEGtoPOSfp0_MODE_, (long) *mode,
NULL_);
return;
}
/******************************************************************************
* CDF_set_compress_cachesize.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_compress_cachesize__,
cdf_set_compress_cachesize_,
cdf_set_compress_cachesize,
CDF_SET_COMPRESS_CACHESIZE)
(id, cache_size, status)
Int32 *id; /* In: CDF identifier. */
Int32 *cache_size; /* In: CDF compress cache size. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
COMPRESS_CACHESIZE_, (long) *cache_size,
NULL_);
return;
}
/******************************************************************************
* CDF_set_stage_cachesize.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_stage_cachesize__,
cdf_set_stage_cachesize_,
cdf_set_stage_cachesize,
CDF_SET_STAGE_CACHESIZE)
(id, cache_size, status)
Int32 *id; /* In: CDF identifier. */
Int32 *cache_size; /* In: CDF stage cache size. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
STAGE_CACHESIZE_, (long) *cache_size,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_cachesize.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_cachesize__,
cdf_set_zvar_cachesize_,
cdf_set_zvar_cachesize,
CDF_SET_ZVAR_CACHESIZE)
(id, cache_size, status)
Int32 *id; /* In: CDF identifier. */
Int32 *cache_size; /* In: CDF zVariable cache size. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_CACHESIZE_, (long) *cache_size,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvars_cachesize.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvars_cachesize__,
cdf_set_zvars_cachesize_,
cdf_set_zvars_cachesize,
CDF_SET_ZVARS_CACHESIZE)
(id, cache_size, status)
Int32 *id; /* In: CDF identifier. */
Int32 *cache_size; /* In: CDF zVariables's cache size. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVARs_CACHESIZE_, (long) *cache_size,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_seqpos.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_seqpos__,
cdf_set_zvar_seqpos_,
cdf_set_zvar_seqpos,
CDF_SET_ZVAR_SEQPOS)
(id, var_num, rec_num, indices, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *rec_num; /* In: CDF zVariable record number. */
Int32 indices[]; /* In: CDF zVariable indices. */
Int32 *status; /* Out: CDF status code. */
{
long numDims, indicesT[CDF_MAX_DIMS];
int ix;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
GET_, zVAR_NUMDIMS_, &numDims,
NULL_);
if (StatusBAD(*status)) return;
if (numDims > 0) {
for (ix = 0; ix < (int) numDims; ix++)
indicesT[ix] = (long) (indices[ix] - 1);
} else
indicesT[0] = 0;
*status = (Int32) CDFlib (SELECT_, zVAR_SEQPOS_, (long) (*rec_num -1),
indicesT,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_reservepercent.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_reservepercent__,
cdf_set_zvar_reservepercent_,
cdf_set_zvar_reservepercent,
CDF_SET_ZVAR_RESERVEPERCENT)
(id, var_num, percent, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *percent; /* In: CDF zVariable reserve percentage. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
zVAR_RESERVEPERCENT_, (long) *percent,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zmode.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zmode__,
cdf_set_zmode_,
cdf_set_zmode,
CDF_SET_ZMODE)
(id, mode, status)
Int32 *id; /* In: CDF identifier. */
Int32 *mode; /* In: CDF zMode. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CDF_zMODE_, (long) *mode,
NULL_);
return;
}
/******************************************************************************
* CDF_set_attr_scope.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_attr_scope__,
cdf_set_attr_scope_,
cdf_set_attr_scope,
CDF_SET_ATTR_SCOPE)
(id, attr_num, attr_scope, status)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *attr_scope; /* In: Attribute scope. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
PUT_, ATTR_SCOPE_, (long) *attr_scope,
NULL_);
return;
}
/******************************************************************************
* CDF_set_attr_gentry_dataspec.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_attr_gentry_dataspec__,
cdf_set_attr_gentry_dataspec_,
cdf_set_attr_gentry_dataspec,
CDF_SET_ATTR_GENTRY_DATASPEC)
(id, attr_num, entry_num, data_type, status)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: gEntry number. */
Int32 *data_type; /* In: Data Type. */
Int32 *status; /* Out: CDF status code. */
{
long scope;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
GET_, ATTR_SCOPE_, &scope,
NULL_);
if (!StatusOK(*status)) return;
if (GLOBALscope(scope)) {
*status = (Int32) CDFlib (SELECT_, gENTRY_, (long) (*entry_num - 1),
PUT_, gENTRY_DATASPEC_, (long) *data_type,
(long) -99,
NULL_);
} else {
*status = ILLEGAL_FOR_SCOPE;
}
return;
}
/******************************************************************************
* CDF_set_attr_rentry_dataspec.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_attr_rentry_dataspec__,
cdf_set_attr_rentry_dataspec_,
cdf_set_attr_rentry_dataspec,
CDF_SET_ATTR_RENTRY_DATASPEC)
(id, attr_num, entry_num, data_type, status)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: rEntry number. */
Int32 *data_type; /* In: Data Type. */
Int32 *status; /* Out: CDF status code. */
{
long scope;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
GET_, ATTR_SCOPE_, &scope,
NULL_);
if (!StatusOK(*status)) return;
if (!GLOBALscope(scope)) {
*status = (Int32) CDFlib (SELECT_, rENTRY_, (long) (*entry_num - 1),
PUT_, rENTRY_DATASPEC_, (long) *data_type,
(long) -99,
NULL_);
} else {
*status = ILLEGAL_FOR_SCOPE;
}
return;
}
/******************************************************************************
* CDF_set_attr_zentry_dataspec.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_attr_zentry_dataspec__,
cdf_set_attr_zentry_dataspec_,
cdf_set_attr_zentry_dataspec,
CDF_SET_ATTR_ZENTRY_DATASPEC)
(id, attr_num, entry_num, data_type, status)
Int32 *id; /* In: CDF identifier. */
Int32 *attr_num; /* In: Attribute number. */
Int32 *entry_num; /* In: zEntry number. */
Int32 *data_type; /* In: Data Type. */
Int32 *status; /* Out: CDF status code. */
{
long scope;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
ATTR_, (long) (*attr_num - 1),
GET_, ATTR_SCOPE_, &scope,
NULL_);
if (!StatusOK(*status)) return;
if (!GLOBALscope(scope)) {
*status = (Int32) CDFlib (SELECT_, zENTRY_, (long) (*entry_num - 1),
PUT_, zENTRY_DATASPEC_, (long) *data_type,
(long) -99,
NULL_);
} else {
*status = ILLEGAL_FOR_SCOPE;
}
return;
}
/******************************************************************************
* CDF_set_compression.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_compression__,
cdf_set_compression_,
cdf_set_compression,
CDF_SET_COMPRESSION)
(id, compress_type, compress_parms, status)
Int32 *id; /* In: CDF identifier. */
Int32 *compress_type; /* In: CDF Compression type. */
Int32 compress_parms[]; /* In: CDF Compression parameters. */
Int32 *status; /* Out: CDF status code. */
{
long cType, cParms[CDF_MAX_PARMS];
int ix;
cType = (long) *compress_type;
for (ix = 0; ix < CDF_MAX_PARMS; ix++)
cParms[ix] = (long) compress_parms[ix];
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
PUT_, CDF_COMPRESSION_, cType, cParms,
NULL_);
return;
}
/******************************************************************************
* CDF_set_encoding.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_encoding__,
cdf_set_encoding_,
cdf_set_encoding,
CDF_SET_ENCODING)
(id, encoding, status)
Int32 *id; /* In: CDF identifier. */
Int32 *encoding; /* In: CDF encoding. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
PUT_, CDF_ENCODING_, (long) *encoding,
NULL_);
return;
}
/******************************************************************************
* CDF_set_format.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_format__,
cdf_set_format_,
cdf_set_format,
CDF_SET_FORMAT)
(id, format, status)
Int32 *id; /* In: CDF identifier. */
Int32 *format; /* In: CDF format. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
PUT_, CDF_FORMAT_, (long) *format,
NULL_);
return;
}
/******************************************************************************
* CDF_set_majority.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_majority__,
cdf_set_majority_,
cdf_set_majority,
CDF_SET_MAJORITY)
(id, majority, status)
Int32 *id; /* In: CDF identifier. */
Int32 *majority; /* In: CDF majority. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
PUT_, CDF_MAJORITY_, (long) *majority,
NULL_);
return;
}
/******************************************************************************
* CDF_set_cachesize.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_cachesize__,
cdf_set_cachesize_,
cdf_set_cachesize,
CDF_SET_CACHESIZE)
(id, cache_size, status)
Int32 *id; /* In: CDF identifier. */
Int32 *cache_size; /* In: CDF cache size. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CDF_CACHESIZE_, (long) *cache_size,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_dataspec.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_dataspec__,
cdf_set_zvar_dataspec_,
cdf_set_zvar_dataspec,
CDF_SET_ZVAR_DATASPEC)
(id, var_num, data_type, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *data_type; /* In: zVariable's data type. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_DATASPEC_, (long) *data_type,
(long) -99,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_recvariance.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_recvariance__,
cdf_set_zvar_recvariance_,
cdf_set_zvar_recvariance,
CDF_SET_ZVAR_RECVARIANCE)
(id, var_num, rec_vary, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *rec_vary; /* In: zVariable's record variance. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_RECVARY_, (long) *rec_vary,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_dimvariances.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_dimvariances__,
cdf_set_zvar_dimvariances_,
cdf_set_zvar_dimvariances,
CDF_SET_ZVAR_DIMVARIANCES)
(id, var_num, dim_varys, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF rVariable number. */
Int32 dim_varys[]; /* In: zVariable's dimensional variances. */
Int32 *status; /* Out: CDF status code. */
{
long numDims, dimVarys[CDF_MAX_DIMS];
int ix;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
GET_, zVAR_NUMDIMS_, &numDims,
NULL_);
if (StatusBAD(*status)) return;
if (numDims > 0) {
for (ix = 0; ix < (int) numDims; ix++)
dimVarys[ix] = (long) dim_varys[ix];
} else
dimVarys[0] = 0;
*status = (Int32) CDFlib (PUT_, zVAR_DIMVARYS_, dimVarys,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_blockingfactor.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_blockingfactor__,
cdf_set_zvar_blockingfactor_,
cdf_set_zvar_blockingfactor,
CDF_SET_ZVAR_BLOCKINGFACTOR)
(id, var_num, blocking_factor, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *blocking_factor; /* Out: zVariable's blocking factor. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_BLOCKINGFACTOR_,
(long) *blocking_factor,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_compression.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_compression__,
cdf_set_zvar_compression_,
cdf_set_zvar_compression,
CDF_SET_ZVAR_COMPRESSION)
(id, var_num, compress_type, compress_parms, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *compress_type; /* In: zVariable's compression type. */
Int32 compress_parms[]; /* In: zVariable's compression parameters. */
Int32 *status; /* Out: CDF status code. */
{
long cParms[CDF_MAX_PARMS];
int ix;
for (ix = 0; ix < CDF_MAX_PARMS; ix++)
cParms[ix] = (long) compress_parms[ix];
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_COMPRESSION_, (long) *compress_type,
cParms,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_padvalue.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_padvalue__,
cdf_set_zvar_padvalue_,
cdf_set_zvar_padvalue,
CDF_SET_ZVAR_PADVALUE)
(id, var_num, pad_value, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
void *pad_value; /* In: zVariable's pad value. */
Int32 *status; /* Out: CDF status code. */
{
long dataType;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
GET_, zVAR_DATATYPE_, &dataType,
NULL_);
if (StatusBAD(*status)) return;
*status = (Int32) CDFlib (PUT_, zVAR_PADVALUE_,
#if defined(Fif_DESCR)
BOO(STRINGdataType(dataType),
DESCRtoREF(pad_value),pad_value),
#else
pad_value,
#endif
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_sparserecords.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_sparserecords__,
cdf_set_zvar_sparserecords_,
cdf_set_zvar_sparserecords,
CDF_SET_ZVAR_SPARSERECORDS)
(id, var_num, sparse_records, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *sparse_records; /* In: zVariable's sparse records. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_SPARSERECORDS_, (long) *sparse_records,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_allocrecs.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_allocrecs__,
cdf_set_zvar_allocrecs_,
cdf_set_zvar_allocrecs,
CDF_SET_ZVAR_ALLOCRECS)
(id, var_num, rec_num, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *rec_num; /* In: zVariables's allocated record number. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_ALLOCATERECS_, (long) *rec_num,
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_allocblockrecs.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_allocblockrecs__,
cdf_set_zvar_allocblockrecs_,
cdf_set_zvar_allocblockrecs,
CDF_SET_ZVAR_ALLOCBLOCKRECS)
(id, var_num, start_rec, end_rec, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *start_rec; /* In: zVariables's allocated block start record no. */
Int32 *end_rec; /* In: zVariables's allocated block end record no. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_ALLOCATEBLOCK_, (long) (*start_rec - 1),
(long) (*end_rec - 1),
NULL_);
return;
}
/******************************************************************************
* CDF_set_zvar_initialrecs.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_zvar_initialrecs__,
cdf_set_zvar_initialrecs_,
cdf_set_zvar_initialrecs,
CDF_SET_ZVAR_INITIALRECS)
(id, var_num, num_rec, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *num_rec; /* In: zVariables's initially written records. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
PUT_, zVAR_INITIALRECS_, (long) *num_rec,
NULL_);
return;
}
/******************************************************************************
* CDF_put_zvar_seqdata.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_put_zvar_seqdata__,
cdf_put_zvar_seqdata_,
cdf_put_zvar_seqdata,
CDF_PUT_ZVAR_SEQDATA)
(id, var_num, data, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
void *data; /* In: CDF zVariable's data. */
Int32 *status; /* Out: CDF status code. */
{
long dataType;
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
zVAR_, (long) (*var_num - 1),
GET_, zVAR_DATATYPE_, &dataType,
NULL_);
if (StatusBAD(*status)) return;
*status = (Int32) CDFlib (PUT_, zVAR_SEQDATA_,
#if defined(Fif_DESCR)
BOO(STRINGdataType(dataType),
DESCRtoREF(data),data),
#else
data,
#endif
NULL_);
return;
}
/******************************************************************************
* CDF_put_zvar_recorddata.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_put_zvar_recorddata__,
cdf_put_zvar_recorddata_,
cdf_put_zvar_recorddata,
CDF_PUT_ZVAR_RECORDDATA)
(id, var_num, rec_num, buffer, status)
Int32 *id; /* In: CDF identifier. */
Int32 *var_num; /* In: CDF zVariable number. */
Int32 *rec_num; /* In: CDF zVariable record number. */
void *buffer; /* In: zVariable's full record data. */
Int32 *status; /* Out: CDF status code. */
{
long numVars, varNums[CDF_MAX_DIMS];
numVars = 1;
varNums[0] = (long) (*var_num - 1);
*status = (Int32) CDFlib (SELECT_, CDF_, id,
zVARs_RECNUMBER_, (long) (*rec_num - 1),
PUT_, zVARs_RECDATA_, numVars, varNums, buffer,
NULL_);
return;
}
/******************************************************************************
* CDF_set_checksum.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_set_checksum__,
cdf_set_checksum_,
cdf_set_checksum,
CDF_SET_CHECKSUM)
(id, checksum, status)
Int32 *id; /* In: CDF identifier. */
Int32 *checksum; /* In: CDF checksum. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
PUT_, CDF_CHECKSUM_, (long) *checksum,
NULL_);
return;
}
/******************************************************************************
* CDF_verify_checksum.
******************************************************************************/
VISIBLE_PREFIX
Fif_PREFIXa
void
Fif_PREFIXb
Fif_ENTRYPOINT(cdf_verify_checksum__,
cdf_verify_checksum_,
cdf_verify_checksum,
CDF_VERIFY_CHECKSUM)
(id, status)
Int32 *id; /* In: CDF identifier. */
Int32 *status; /* Out: CDF status code. */
{
*status = (Int32) CDFlib (SELECT_, CDF_, Int32ToCDFid(*id),
CONFIRM_, CDF_CHECKSUM_,
NULL_);
return;
}
syntax highlighted by Code2HTML, v. 0.9.1