scale_file_f.c File Reference

#include "scale_file.h"

Include dependency graph for scale_file_f.c:

Go to the source code of this file.

Functions
void	file_open_c_ (int32_t *fid, const char *fname, const int32_t *mode, const int32_t *comm, int32_t *error, const int32_t fname_len)
void	file_get_dim_length_c_ (const int32_t *fid, const char *dimname, int32_t *len, int32_t *error, const int32_t dimname_len)
void	file_set_option_c_ (const int32_t *fid, const char *filetype, const char *key, const char *val, int32_t *error, const int32_t filetype_len, const int32_t key_len, const int32_t val_len)
void	file_get_nvars_c_ (const int32_t *fid, int32_t *nvars, int32_t *error)
void	file_get_varname_c_ (const int32_t *fid, const int32_t *vid, char *varname, int32_t *error, const int32_t varname_len)
void	file_get_datainfo_c_ (datainfo_t *dinfo, const int32_t *fid, const char *varname, const int32_t *step, const int32_t *suppress, int32_t *error, const int32_t varname_len)
void	file_get_step_size_c_ (const int32_t *fid, const char *varname, int32_t *len, int32_t *error, const int32_t varname_len)
void	file_read_data_c_ (void *var, const datainfo_t *dinfo, const int32_t *precision, const int32_t *ntypes, const int32_t *dtype, const int32_t *start, const int32_t *count, int32_t *error)
void	file_get_attribute_text_c_ (const int32_t *fid, const char *vname, const char *key, const int32_t *suppress, char *value, int32_t *error, const int32_t vname_len, const int32_t key_len, const int32_t value_len)
void	file_get_attribute_int_c_ (const int32_t *fid, const char *vname, const char *key, const int32_t *len, const int32_t *suppress, int32_t *value, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_get_attribute_float_c_ (const int32_t *fid, const char *vname, const char *key, const int32_t *len, const int32_t *suppress, float *value, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_get_attribute_double_c_ (const int32_t *fid, const char *vname, const char *key, const int32_t *len, const int32_t *suppress, double *value, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_set_attribute_text_c_ (const int32_t *fid, const char *vname, const char *key, const char *value, int32_t *error, const int32_t vname_len, const int32_t key_len, const int32_t value_len)
void	file_set_attribute_int_c_ (const int32_t *fid, const char *vname, const char *key, const int32_t *value, const int32_t *len, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_set_attribute_float_c_ (const int32_t *fid, const char *vname, const char *key, const float *value, const int32_t *len, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_set_attribute_double_c_ (const int32_t *fid, const char *vname, const char *key, const double *value, const int32_t *len, int32_t *error, const int32_t vname_len, const int32_t key_len)
void	file_add_associatedvariable_c_ (const int32_t *fid, const char *vname, int32_t *error, const int32_t vname_len)
void	file_set_tunits_c_ (const int32_t *fid, const char *time_units, const char *calendar, int32_t *error, const int32_t unit_len, const int32_t cal_len)
void	file_put_axis_c_ (const int32_t *fid, const char *name, const char *desc, const char *units, const char *dim_name, const int32_t *dtype, const void *val, const int32_t *size, const int32_t *precision, int32_t *error, const int32_t name_len, const int32_t desc_len, const int32_t units_len, const int32_t dim_name_len)
void	file_def_axis_c_ (const int32_t *fid, const char *name, const char *desc, const char *units, const char *dim_name, const int32_t *dtype, const int32_t *dim_size, const int32_t *bounds, int32_t *error, const int32_t name_len, const int32_t desc_len, const int32_t units_len, const int32_t dim_name_len)
void	file_write_axis_c_ (const int32_t *fid, const char *name, const void *val, const int32_t *precision, const int32_t *start, const int32_t *count, int32_t *error, const int32_t name_len)
void	file_put_associatedcoordinate_c_ (const int32_t *fid, const char *name, const char *desc, const char *units, const char *dim_names, const int32_t *ndims, const int32_t *dtype, const void *val, const int32_t *precision, int32_t *error, const int32_t name_len, const int32_t desc_len, const int32_t units_len, const int32_t dim_name_len)
void	file_def_associatedcoordinate_c_ (const int32_t *fid, const char *name, const char *desc, const char *units, const char *dim_names, const int32_t *ndims, const int32_t *dtype, int32_t *error, const int32_t name_len, const int32_t desc_len, const int32_t units_len, const int32_t dim_name_len)
void	file_write_associatedcoordinate_c_ (const int32_t *fid, const char *name, const void *val, const int32_t *precision, const int32_t *ndims, const int32_t *start, const int32_t *count, int32_t *error, const int32_t name_len)
void	file_add_variable_c_ (const int32_t *fid, const char *varname, const char *desc, const char *units, const char *standard_name, const char *dims, const int32_t *ndims, const int32_t *dtype, const real64_t *tint, const int32_t *tavg, int32_t *vid, int32_t *error, const int32_t varname_len, const int32_t desc_len, const int32_t units_len, const int32_t stdname_len, const int32_t dims_len)
void	file_write_data_c_ (const int32_t *fid, const int32_t *vid, const void *var, const real64_t *t_start, const real64_t *t_end, const int32_t *precision, const int32_t *ndims, const int32_t *start, const int32_t *count, int32_t *error)
void	file_close_c_ (const int32_t *fid, int32_t *error)
void	file_enddef_c_ (const int32_t *fid, int32_t *error)
void	file_attach_buffer_c_ (const int32_t *fid, const int64_t *buf_amount, int32_t *error)
void	file_detach_buffer_c_ (const int32_t *fid, int32_t *error)
void	file_flush_c_ (const int32_t *fid, int32_t *error)

Function Documentation

file_open_c_()

void file_open_c_	(	int32_t *	fid,
		const char *	fname,
		const int32_t *	mode,
		const int32_t *	comm,
		int32_t *	error,
		const int32_t	fname_len
	)

Definition at line 36 of file scale_file_f.c.

{
  char _fname[File_HLONG+1];
  int32_t len;

  len = fname_len > File_HLONG ? File_HLONG : fname_len;
  fstr2cstr(_fname, fname, len);

  *error = file_open_c( fid, _fname, *mode, MPI_Comm_f2c(*comm) );
}

file_get_dim_length_c_()

void file_get_dim_length_c_	(	const int32_t *	fid,
		const char *	dimname,
		int32_t *	len,
		int32_t *	error,
		const int32_t	dimname_len
	)

Definition at line 52 of file scale_file_f.c.

{
  char _dimname[File_HSHORT+1];
  int32_t clen;

  clen = dimname_len > File_HSHORT ? File_HSHORT : dimname_len;
  fstr2cstr(_dimname, dimname, clen);

  *error = file_get_dim_length_c( *fid, _dimname, len );
}

file_set_option_c_()

void file_set_option_c_	(	const int32_t *	fid,
		const char *	filetype,
		const char *	key,
		const char *	val,
		int32_t *	error,
		const int32_t	filetype_len,
		const int32_t	key_len,
		const int32_t	val_len
	)

Definition at line 67 of file scale_file_f.c.

{
  char _filetype[File_HSHORT+1];
  char _key[File_HMID+1];
  char _val[File_HMID+1];
  int32_t len;

  len = filetype_len > File_HSHORT ? File_HSHORT : filetype_len;
  fstr2cstr(_filetype, filetype, len);

  len = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, len);

  len = val_len > File_HMID ? File_HMID : val_len;
  fstr2cstr(_val, val, len);

  *error = file_set_option_c(*fid, _filetype, _key, _val);
}

file_get_nvars_c_()

void file_get_nvars_c_	(	const int32_t *	fid,
		int32_t *	nvars,
		int32_t *	error
	)

Definition at line 93 of file scale_file_f.c.

{
  *error = file_get_nvars_c( *fid, nvars );
}

file_get_varname_c_()

void file_get_varname_c_	(	const int32_t *	fid,
		const int32_t *	vid,
		char *	varname,
		int32_t *	error,
		const int32_t	varname_len
	)

Definition at line 100 of file scale_file_f.c.

{
  char _varname[File_HSHORT+1];
  int32_t len;

  *error = file_get_varname_c( *fid, *vid, _varname, varname_len );

  len = varname_len > File_HSHORT ? File_HSHORT : varname_len;
  cstr2fstr(varname, _varname, len);
}

file_get_datainfo_c_()

void file_get_datainfo_c_	(	datainfo_t *	dinfo,
		const int32_t *	fid,
		const char *	varname,
		const int32_t *	step,
		const int32_t *	suppress,
		int32_t *	error,
		const int32_t	varname_len
	)

Definition at line 115 of file scale_file_f.c.

{
  char _varname[File_HSHORT+1];
  int32_t len;
  int i;

  len = varname_len > File_HSHORT ? File_HSHORT : varname_len;
  fstr2cstr(_varname, varname, len);

  *error = file_get_datainfo_c( dinfo, *fid, _varname, *step, *suppress );

  if ( *error != SUCCESS_CODE ) return;

  cstr2fstr(dinfo->varname,      dinfo->varname,      File_HSHORT);
  cstr2fstr(dinfo->description,  dinfo->description,  File_HMID);
  cstr2fstr(dinfo->units,        dinfo->units,        File_HSHORT);
  cstr2fstr(dinfo->standard_name,dinfo->standard_name,File_HMID);
  cstr2fstr(dinfo->time_units,   dinfo->time_units,   File_HMID);
  cstr2fstr(dinfo->calendar,     dinfo->calendar,     File_HSHORT);
  for ( i=0; i<dinfo->rank; i++ )
    cstr2fstr(dinfo->dim_name+i*File_HSHORT, dinfo->dim_name+i*File_HSHORT, File_HSHORT);
  for ( i=0; i<dinfo->natts; i++ )
    cstr2fstr(dinfo->att_name+i*File_HSHORT, dinfo->att_name+i*File_HSHORT, File_HSHORT);
}

file_get_step_size_c_()

void file_get_step_size_c_	(	const int32_t *	fid,
		const char *	varname,
		int32_t *	len,
		int32_t *	error,
		const int32_t	varname_len
	)

Definition at line 146 of file scale_file_f.c.

{
  char _varname[File_HSHORT+1];
  int32_t clen;

  clen = varname_len > File_HSHORT ? File_HSHORT : varname_len;
  fstr2cstr(_varname, varname, clen);

  *error = file_get_step_size_c( *fid, _varname, len );
}

file_read_data_c_()

void file_read_data_c_	(	void *	var,
		const datainfo_t *	dinfo,
		const int32_t *	precision,
		const int32_t *	ntypes,
		const int32_t *	dtype,
		const int32_t *	start,
		const int32_t *	count,
		int32_t *	error
	)

Definition at line 161 of file scale_file_f.c.

{
  datainfo_t cdinfo;
  MPI_Offset ntypes_;
  MPI_Datatype dtype_;
  int i;

  cdinfo.datatype = dinfo->datatype;
  cdinfo.rank = dinfo->rank;
  for ( i=0; i<dinfo->rank; i++ ) cdinfo.dim_size[i] = dinfo->dim_size[i];
  cdinfo.step = dinfo->step;
  cdinfo.time_start = dinfo->time_start;
  cdinfo.time_end = dinfo->time_end;
  cdinfo.fid = dinfo->fid;
  fstr2cstr(cdinfo.varname, dinfo->varname, File_HSHORT-1);
  fstr2cstr(cdinfo.description, dinfo->description, File_HMID-1);
  fstr2cstr(cdinfo.units, dinfo->units, File_HSHORT-1);
  fstr2cstr(cdinfo.standard_name, dinfo->standard_name, File_HMID-1);
  fstr2cstr(cdinfo.time_units, dinfo->time_units, File_HMID-1);
  fstr2cstr(cdinfo.calendar, dinfo->calendar, File_HSHORT-1);
  for ( i=0; i<RANK_MAX; i++ )
    fstr2cstr(cdinfo.dim_name+i*File_HSHORT, dinfo->dim_name+i*File_HSHORT, File_HSHORT-1);
  for ( i=0; i<ATT_MAX; i++ )
    fstr2cstr(cdinfo.att_name+i*File_HSHORT, dinfo->att_name+i*File_HSHORT, File_HSHORT-1);

  ntypes_ = (MPI_Offset) (*ntypes);

  dtype_ =  dtype==0 ? MPI_DATATYPE_NULL : MPI_Type_f2c(*dtype);

  if ( *start == -1 )
    *error = file_read_data_c( var, &cdinfo, *precision, ntypes_, dtype_, NULL, NULL );
  else
    *error = file_read_data_c( var, &cdinfo, *precision, ntypes_, dtype_, start, count );
}

file_get_attribute_text_c_()

void file_get_attribute_text_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const int32_t *	suppress,
		char *	value,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len,
		const int32_t	value_len
	)

Definition at line 203 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  char _value[File_HLONG+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_get_attribute_text_c( *fid, _vname, _key, *suppress, _value, value_len );

  if ( *error != SUCCESS_CODE ) return;

  l = value_len > File_HLONG ? File_HLONG : value_len;
  cstr2fstr(value, _value, l);
}

file_get_attribute_int_c_()

void file_get_attribute_int_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const int32_t *	len,
		const int32_t *	suppress,
		int32_t *	value,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 232 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_get_attribute_int_c( *fid, _vname, _key, *suppress, value, (size_t)*len );
}

file_get_attribute_float_c_()

void file_get_attribute_float_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const int32_t *	len,
		const int32_t *	suppress,
		float *	value,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 255 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_get_attribute_float_c( *fid, _vname, _key, *suppress, value, (size_t)*len );
}

file_get_attribute_double_c_()

void file_get_attribute_double_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const int32_t *	len,
		const int32_t *	suppress,
		double *	value,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 278 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_get_attribute_double_c( *fid, _vname, _key, *suppress, value, (size_t)*len );
}

file_set_attribute_text_c_()

void file_set_attribute_text_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const char *	value,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len,
		const int32_t	value_len
	)

Definition at line 301 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  char _value[File_HLONG+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  l = value_len > File_HLONG ? File_HLONG : value_len;
  fstr2cstr(_value, value, l);

  *error = file_set_attribute_text_c( *fid, _vname, _key, _value );
}

file_set_attribute_int_c_()

void file_set_attribute_int_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const int32_t *	value,
		const int32_t *	len,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 327 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_set_attribute_int_c( *fid, _vname, _key, value, (size_t)*len );
}

file_set_attribute_float_c_()

void file_set_attribute_float_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const float *	value,
		const int32_t *	len,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 349 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_set_attribute_float_c( *fid, _vname, _key, value, (size_t)*len );
}

file_set_attribute_double_c_()

void file_set_attribute_double_c_	(	const int32_t *	fid,
		const char *	vname,
		const char *	key,
		const double *	value,
		const int32_t *	len,
		int32_t *	error,
		const int32_t	vname_len,
		const int32_t	key_len
	)

Definition at line 371 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  char _key[File_HMID+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  l = key_len > File_HMID ? File_HMID : key_len;
  fstr2cstr(_key, key, l);

  *error = file_set_attribute_double_c( *fid, _vname, _key, value, (size_t)*len );
}

file_add_associatedvariable_c_()

void file_add_associatedvariable_c_	(	const int32_t *	fid,
		const char *	vname,
		int32_t *	error,
		const int32_t	vname_len
	)

Definition at line 393 of file scale_file_f.c.

{
  char _vname[File_HSHORT+1];
  int32_t l;

  l = vname_len > File_HSHORT ? File_HSHORT : vname_len;
  fstr2cstr(_vname, vname, l);

  *error = file_add_associatedvariable_c( *fid, _vname );
}

file_set_tunits_c_()

void file_set_tunits_c_	(	const int32_t *	fid,
		const char *	time_units,
		const char *	calendar,
		int32_t *	error,
		const int32_t	unit_len,
		const int32_t	cal_len
	)

Definition at line 407 of file scale_file_f.c.

{
  char _time_units[File_HMID+1];
  char _calendar[File_HSHORT+1];
  int32_t l;

  l = unit_len > File_HMID ? File_HMID : unit_len;
  fstr2cstr(_time_units, time_units, l);

  l = cal_len > File_HSHORT ? File_HSHORT : cal_len;
  fstr2cstr(_calendar, calendar, l);

  *error = file_set_tunits_c( *fid, _time_units, _calendar );
}

file_put_axis_c_()

void file_put_axis_c_	(	const int32_t *	fid,
		const char *	name,
		const char *	desc,
		const char *	units,
		const char *	dim_name,
		const int32_t *	dtype,
		const void *	val,
		const int32_t *	size,
		const int32_t *	precision,
		int32_t *	error,
		const int32_t	name_len,
		const int32_t	desc_len,
		const int32_t	units_len,
		const int32_t	dim_name_len
	)

Definition at line 427 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  char _desc[File_HMID+1];
  char _units[File_HMID+1];
  char _dim_name[File_HSHORT+1];
  int len;

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  len = desc_len > File_HMID ? File_HMID : desc_len;
  fstr2cstr(_desc, desc, len);

  len = units_len > File_HMID ? File_HMID : units_len;
  fstr2cstr(_units, units, len);

  len = dim_name_len > File_HSHORT ? File_HSHORT : dim_name_len;
  fstr2cstr(_dim_name, dim_name, len);

  *error = file_put_axis_c( *fid, _name, _desc, _units, _dim_name, *dtype, val, *size, *precision );
}

file_def_axis_c_()

void file_def_axis_c_	(	const int32_t *	fid,
		const char *	name,
		const char *	desc,
		const char *	units,
		const char *	dim_name,
		const int32_t *	dtype,
		const int32_t *	dim_size,
		const int32_t *	bounds,
		int32_t *	error,
		const int32_t	name_len,
		const int32_t	desc_len,
		const int32_t	units_len,
		const int32_t	dim_name_len
	)

Definition at line 463 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  char _desc[File_HMID+1];
  char _units[File_HMID+1];
  char _dim_name[File_HSHORT+1];
  int len;

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  len = desc_len > File_HMID ? File_HMID : desc_len;
  fstr2cstr(_desc, desc, len);

  len = units_len > File_HMID ? File_HMID : units_len;
  fstr2cstr(_units, units, len);

  len = dim_name_len > File_HSHORT ? File_HSHORT : dim_name_len;
  fstr2cstr(_dim_name, dim_name, len);

  *error = file_def_axis_c( *fid, _name, _desc, _units, _dim_name, *dtype, *dim_size, *bounds );
}

file_write_axis_c_()

void file_write_axis_c_	(	const int32_t *	fid,
		const char *	name,
		const void *	val,
		const int32_t *	precision,
		const int32_t *	start,
		const int32_t *	count,
		int32_t *	error,
		const int32_t	name_len
	)

Definition at line 498 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  int len;
  MPI_Offset start_[1], count_[1];

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  /* all axes are 1D */
  start_[0] = *start - 1;  /* C index is 0-based */
  count_[0] = *count;

  *error = file_write_axis_c( *fid, _name, val, *precision, start_, count_ );
}

file_put_associatedcoordinate_c_()

void file_put_associatedcoordinate_c_	(	const int32_t *	fid,
		const char *	name,
		const char *	desc,
		const char *	units,
		const char *	dim_names,
		const int32_t *	ndims,
		const int32_t *	dtype,
		const void *	val,
		const int32_t *	precision,
		int32_t *	error,
		const int32_t	name_len,
		const int32_t	desc_len,
		const int32_t	units_len,
		const int32_t	dim_name_len
	)

Definition at line 521 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  char _desc[File_HMID+1];
  char _units[File_HMID+1];
  char **_dim_names;
  int len;
  int i;

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  len = desc_len > File_HMID ? File_HMID : desc_len;
  fstr2cstr(_desc, desc, len);

  len = units_len > File_HMID ? File_HMID : units_len;
  fstr2cstr(_units, units, len);

  _dim_names = (char**) malloc(sizeof(char*)*(*ndims));
  len = dim_name_len > File_HSHORT ? File_HSHORT : dim_name_len;
  for ( i=0; i<*ndims; i++ ) {
    _dim_names[i] = (char*) malloc(sizeof(char)*(File_HSHORT+1));
    fstr2cstr(_dim_names[i], dim_names+i*dim_name_len, len);
  }

  *error = file_put_associatedcoordinate_c( *fid, _name, _desc, _units, (const char**)_dim_names, *ndims, *dtype, val, *precision );

  for ( i=0; i<*ndims; i++ ) free(_dim_names[i]);
  free(_dim_names);
}

file_def_associatedcoordinate_c_()

void file_def_associatedcoordinate_c_	(	const int32_t *	fid,
		const char *	name,
		const char *	desc,
		const char *	units,
		const char *	dim_names,
		const int32_t *	ndims,
		const int32_t *	dtype,
		int32_t *	error,
		const int32_t	name_len,
		const int32_t	desc_len,
		const int32_t	units_len,
		const int32_t	dim_name_len
	)

Definition at line 565 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  char _desc[File_HMID+1];
  char _units[File_HMID+1];
  char **_dim_names;
  int len;
  int i;

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  len = desc_len > File_HMID ? File_HMID : desc_len;
  fstr2cstr(_desc, desc, len);

  len = units_len > File_HMID ? File_HMID : units_len;
  fstr2cstr(_units, units, len);

  _dim_names = (char**) malloc(sizeof(char*)*(*ndims));
  len = dim_name_len > File_HSHORT ? File_HSHORT : dim_name_len;
  for ( i=0; i<*ndims; i++ ) {
    _dim_names[i] = (char*) malloc(sizeof(char)*(File_HSHORT+1));
    fstr2cstr(_dim_names[i], dim_names+i*dim_name_len, len);
  }

  *error = file_def_associatedcoordinate_c( *fid, _name, _desc, _units, (const char**)_dim_names, *ndims, *dtype );

  for ( i=0; i<*ndims; i++ ) free(_dim_names[i]);
  free(_dim_names);
}

file_write_associatedcoordinate_c_()

void file_write_associatedcoordinate_c_	(	const int32_t *	fid,
		const char *	name,
		const void *	val,
		const int32_t *	precision,
		const int32_t *	ndims,
		const int32_t *	start,
		const int32_t *	count,
		int32_t *	error,
		const int32_t	name_len
	)

Definition at line 607 of file scale_file_f.c.

{
  char _name[File_HSHORT+1];
  int i, len;
  MPI_Offset start_[4], count_[4];
  /* all associated coordinate are up to 4D */

  len = name_len > File_HSHORT ? File_HSHORT : name_len;
  fstr2cstr(_name, name, len);

  for (i=0; i<*ndims; i++) {
      start_[i] = start[*ndims - i - 1] -  1;
      count_[i] = count[*ndims - i - 1];
  }
  *error = file_write_associatedcoordinate_c( *fid, _name, val, *precision, start_, count_ );
}

file_add_variable_c_()

void file_add_variable_c_	(	const int32_t *	fid,
		const char *	varname,
		const char *	desc,
		const char *	units,
		const char *	standard_name,
		const char *	dims,
		const int32_t *	ndims,
		const int32_t *	dtype,
		const real64_t *	tint,
		const int32_t *	tavg,
		int32_t *	vid,
		int32_t *	error,
		const int32_t	varname_len,
		const int32_t	desc_len,
		const int32_t	units_len,
		const int32_t	stdname_len,
		const int32_t	dims_len
	)

Definition at line 632 of file scale_file_f.c.

{
  char _varname[File_HSHORT+1];
  char _desc[File_HMID+1];
  char _stdname[File_HMID+1];
  char _units[File_HMID+1];
  char **_dims;
  int len;
  int i;

  len = varname_len > File_HSHORT ? File_HSHORT : varname_len;
  fstr2cstr(_varname, varname, len);

  len = desc_len > File_HMID ? File_HMID : desc_len;
  fstr2cstr(_desc, desc, len);

  len = stdname_len > File_HMID ? File_HMID : stdname_len;
  fstr2cstr(_stdname, standard_name, len);

  len = units_len > File_HMID ? File_HMID : units_len;
  fstr2cstr(_units, units, len);

  _dims = (char**) malloc(sizeof(char*)*(*ndims));
  len = dims_len > File_HSHORT ? File_HSHORT : dims_len;
  for ( i=0; i<*ndims; i++ ) {
    _dims[i] = (char*) malloc(sizeof(char)*(File_HSHORT+1));
    fstr2cstr(_dims[i], dims+i*dims_len, len);
  }

  *error = file_add_variable_c( *fid, _varname, _desc, _units, _stdname, (const char**)_dims, *ndims, *dtype, *tint, *tavg, vid );

  for ( i=0; i<*ndims; i++ ) free( _dims[i] );
  free( _dims );
}

file_write_data_c_()

void file_write_data_c_	(	const int32_t *	fid,
		const int32_t *	vid,
		const void *	var,
		const real64_t *	t_start,
		const real64_t *	t_end,
		const int32_t *	precision,
		const int32_t *	ndims,
		const int32_t *	start,
		const int32_t *	count,
		int32_t *	error
	)

Definition at line 683 of file scale_file_f.c.

{
  *error = file_write_data_c( *fid, *vid, var, *t_start, *t_end, *precision, *ndims, start, count );
}

file_close_c_()

void file_close_c_	(	const int32_t *	fid,
		int32_t *	error
	)

Definition at line 697 of file scale_file_f.c.

{
  *error = file_close_c( *fid );
}

file_enddef_c_()

void file_enddef_c_	(	const int32_t *	fid,
		int32_t *	error
	)

Definition at line 703 of file scale_file_f.c.

{
  *error = file_enddef_c( *fid );
}

file_attach_buffer_c_()

void file_attach_buffer_c_	(	const int32_t *	fid,
		const int64_t *	buf_amount,
		int32_t *	error
	)

Definition at line 709 of file scale_file_f.c.

{
  *error = file_attach_buffer_c( *fid, *buf_amount );
}

file_detach_buffer_c_()

void file_detach_buffer_c_	(	const int32_t *	fid,
		int32_t *	error
	)

Definition at line 716 of file scale_file_f.c.

{
  *error = file_detach_buffer_c( *fid );
}

file_flush_c_()

void file_flush_c_	(	const int32_t *	fid,
		int32_t *	error
	)

Definition at line 722 of file scale_file_f.c.

{
  *error = file_flush_c( *fid );
}