gtool_file_f.c File Reference

#include "gtool_file.h"

Include dependency graph for gtool_file_f.c:

Go to the source code of this file.

Functions
void	file_open_ (int32_t *fid, char *fname, int32_t *mode, int32_t *error, int32_t fname_len)
void	file_set_option_ (int32_t *fid, char *filetype, char *key, char *val, int32_t *error, int32_t filetype_len, int32_t key_len, int32_t val_len)
void	file_get_datainfo_ (datainfo_t *dinfo, int32_t *fid, char *varname, int32_t *step, int32_t *suppress, int32_t *error, int32_t varname_len)
void	file_read_data_ (void *var, datainfo_t *dinfo, int32_t *precision, int32_t *error)
void	file_get_global_attribute_text_ (int32_t *fid, char *key, char *value, int32_t *error, int32_t key_len, int32_t value_len)
void	file_get_global_attribute_int_ (int32_t *fid, char *key, int32_t *len, int32_t *value, int32_t *error, int32_t key_len)
void	file_get_global_attribute_float_ (int32_t *fid, char *key, int32_t *len, float *value, int32_t *error, int32_t key_len)
void	file_get_global_attribute_double_ (int32_t *fid, char *key, int32_t *len, double *value, int32_t *error, int32_t key_len)
void	file_set_global_attribute_text_ (int32_t *fid, char *key, char *value, int32_t *error, int32_t key_len, int32_t value_len)
void	file_set_global_attribute_int_ (int32_t *fid, char *key, int32_t *value, int32_t *len, int32_t *error, int32_t key_len)
void	file_set_global_attribute_float_ (int32_t *fid, char *key, float *value, int32_t *len, int32_t *error, int32_t key_len)
void	file_set_global_attribute_double_ (int32_t *fid, char *key, double *value, int32_t *len, int32_t *error, int32_t key_len)
void	file_set_tunits_ (int32_t *fid, char *time_units, int32_t *error, int32_t len)
void	file_set_tattr_ (int32_t *fid, char *vname, char *key, char *val, int32_t *error, int32_t vname_len, int32_t key_len, int32_t val_len)
void	file_put_axis_ (int32_t *fid, char *name, char *desc, char *units, char *dim_name, int32_t *dtype, void *val, int32_t *size, int32_t *precision, int32_t *error, int32_t name_len, int32_t desc_len, int32_t units_len, int32_t dim_name_len)
void	file_def_axis_ (int32_t *fid, char *name, char *desc, char *units, char *dim_name, int32_t *dtype, int32_t *dim_size, int32_t *error, int32_t name_len, int32_t desc_len, int32_t units_len, int32_t dim_name_len)
void	file_write_axis_ (int32_t *fid, char *name, void *val, int32_t *precision, int32_t *error, int32_t name_len)
void	file_put_associated_coordinates_ (int32_t *fid, char *name, char *desc, char *units, char *dim_names, int32_t *ndims, int32_t *dtype, void *val, int32_t *precision, int32_t *error, int32_t name_len, int32_t desc_len, int32_t units_len, int32_t dim_name_len)
void	file_def_associated_coordinates_ (int32_t *fid, char *name, char *desc, char *units, char *dim_names, int32_t *ndims, int32_t *dtype, int32_t *error, int32_t name_len, int32_t desc_len, int32_t units_len, int32_t dim_name_len)
void	file_write_associated_coordinates_ (int32_t *fid, char *name, void *val, int32_t *precision, int32_t *error, int32_t name_len)
void	file_add_variable_ (int32_t *vid, int32_t *fid, char *varname, char *desc, char *units, char *dims, int32_t *ndims, int32_t *dtype, real64_t *tint, int32_t *tavg, int32_t *error, int32_t varname_len, int32_t desc_len, int32_t units_len, int32_t dims_len)
void	file_write_data_ (int32_t *fid, int32_t *vid, void *var, real64_t *t_start, real64_t *t_end, int32_t *precision, int32_t *error)
void	file_write_var_ (int32_t *vid, void *var, real64_t *t_start, real64_t *t_end, int32_t *precision, int32_t *error)
void	file_close_ (int32_t *fid, int32_t *error)
void	file_enddef_ (int32_t *fid, int32_t *error)

Function Documentation

file_open_()

void file_open_	(	int32_t *	fid,
		char *	fname,
		int32_t *	mode,
		int32_t *	error,
		int32_t	fname_len
	)

Definition at line 35 of file gtool_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( fid, _fname, *mode );
}

file_set_option_()

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

Definition at line 50 of file gtool_file_f.c.

References File_HMID, and File_HSHORT.

{
  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(*fid, _filetype, _key, _val);
}

file_get_datainfo_()

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

Definition at line 76 of file gtool_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( dinfo, *fid, _varname, *step, *suppress );

  cstr2fstr(dinfo->varname, dinfo->varname, File_HSHORT);
  cstr2fstr(dinfo->description, dinfo->description, File_HMID);
  cstr2fstr(dinfo->units, dinfo->units, File_HSHORT);
  cstr2fstr(dinfo->time_units, dinfo->time_units, File_HMID);
  for ( i=0; i<MAX_RANK; i++ )
    cstr2fstr(dinfo->dim_name+i*File_HSHORT, dinfo->dim_name+i*File_HSHORT, File_HSHORT);
}

file_read_data_()

void file_read_data_	(	void *	var,
		datainfo_t *	dinfo,
		int32_t *	precision,
		int32_t *	error
	)

Definition at line 100 of file gtool_file_f.c.

{
  int i;

  fstr2cstr(dinfo->varname, dinfo->varname, File_HSHORT);
  fstr2cstr(dinfo->description, dinfo->description, File_HMID);
  fstr2cstr(dinfo->units, dinfo->units, File_HSHORT);
  fstr2cstr(dinfo->time_units, dinfo->time_units, File_HMID);
  for ( i=0; i<MAX_RANK; i++ )
    fstr2cstr(dinfo->dim_name+i*File_HSHORT, dinfo->dim_name+i*File_HSHORT, File_HSHORT);

  *error = file_read_data( var, dinfo, *precision );
}

file_get_global_attribute_text_()

void file_get_global_attribute_text_	(	int32_t *	fid,
		char *	key,
		char *	value,
		int32_t *	error,
		int32_t	key_len,
		int32_t	value_len
	)

Definition at line 117 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  char _value[File_HLONG+1];
  int32_t len;

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

  *error = file_get_global_attribute_text( *fid, _key, _value, value_len );

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

file_get_global_attribute_int_()

void file_get_global_attribute_int_	(	int32_t *	fid,
		char *	key,
		int32_t *	len,
		int32_t *	value,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 137 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  int32_t l;

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

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

file_get_global_attribute_float_()

void file_get_global_attribute_float_	(	int32_t *	fid,
		char *	key,
		int32_t *	len,
		float *	value,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 153 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  int32_t l;

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

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

file_get_global_attribute_double_()

void file_get_global_attribute_double_	(	int32_t *	fid,
		char *	key,
		int32_t *	len,
		double *	value,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 169 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  int32_t l;

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

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

file_set_global_attribute_text_()

void file_set_global_attribute_text_	(	int32_t *	fid,
		char *	key,
		char *	value,
		int32_t *	error,
		int32_t	key_len,
		int32_t	value_len
	)

Definition at line 185 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  char _value[File_HLONG+1];
  int32_t len;

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

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

  *error = file_set_global_attribute_text( *fid, _key, _value );
}

file_set_global_attribute_int_()

void file_set_global_attribute_int_	(	int32_t *	fid,
		char *	key,
		int32_t *	value,
		int32_t *	len,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 205 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];

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

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

file_set_global_attribute_float_()

void file_set_global_attribute_float_	(	int32_t *	fid,
		char *	key,
		float *	value,
		int32_t *	len,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 220 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  int32_t l;

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

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

file_set_global_attribute_double_()

void file_set_global_attribute_double_	(	int32_t *	fid,
		char *	key,
		double *	value,
		int32_t *	len,
		int32_t *	error,
		int32_t	key_len
	)

Definition at line 236 of file gtool_file_f.c.

{
  char _key[File_HLONG+1];
  int32_t l;

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

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

file_set_tunits_()

void file_set_tunits_	(	int32_t *	fid,
		char *	time_units,
		int32_t *	error,
		int32_t	len
	)

Definition at line 252 of file gtool_file_f.c.

References File_HMID.

{
  char _time_units[File_HMID+1];

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

  *error = file_set_tunits( *fid, _time_units );
}

file_set_tattr_()

void file_set_tattr_	(	int32_t *	fid,
		char *	vname,
		char *	key,
		char *	val,
		int32_t *	error,
		int32_t	vname_len,
		int32_t	key_len,
		int32_t	val_len
	)

Definition at line 265 of file gtool_file_f.c.

References File_HLONG, and File_HSHORT.

{
  char _vname[File_HSHORT+1];
  char _key[File_HSHORT+1];
  char _val[File_HLONG+1];
  int32_t len;

  len = vname_len > File_HLONG ? File_HLONG : vname_len;
  fstr2cstr(_vname, vname, len);

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

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

  *error = file_set_tattr( *fid, _vname, _key, _val );
}

file_put_axis_()

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

Definition at line 291 of file gtool_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( *fid, _name, _desc, _units, _dim_name, *dtype, val, *size, *precision );
}

file_def_axis_()

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

Definition at line 327 of file gtool_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( *fid, _name, _desc, _units, _dim_name, *dtype, *dim_size );
}

file_write_axis_()

void file_write_axis_	(	int32_t *	fid,
		char *	name,
		void *	val,
		int32_t *	precision,
		int32_t *	error,
		int32_t	name_len
	)

Definition at line 361 of file gtool_file_f.c.

References File_HSHORT.

{
  char _name[File_HSHORT+1];
  int len;

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

  *error = file_write_axis( *fid, _name, val, *precision );
}

file_put_associated_coordinates_()

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

Definition at line 377 of file gtool_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_associated_coordinates( *fid, _name, _desc, _units, _dim_names, *ndims, *dtype, val, *precision );
}

file_def_associated_coordinates_()

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

Definition at line 417 of file gtool_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_associated_coordinates( *fid, _name, _desc, _units, _dim_names, *ndims, *dtype );
}

file_write_associated_coordinates_()

void file_write_associated_coordinates_	(	int32_t *	fid,
		char *	name,
		void *	val,
		int32_t *	precision,
		int32_t *	error,
		int32_t	name_len
	)

Definition at line 455 of file gtool_file_f.c.

References File_HSHORT.

{
  char _name[File_HSHORT+1];
  int len;

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

  *error = file_write_associated_coordinates( *fid, _name, val, *precision );
}

file_add_variable_()

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

Definition at line 471 of file gtool_file_f.c.

{
  char _varname[File_HSHORT+1];
  char _desc[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 = 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( vid, *fid, _varname, _desc, _units, _dims, *ndims, *dtype, *tint, *tavg );

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

file_write_data_()

void file_write_data_	(	int32_t *	fid,
		int32_t *	vid,
		void *	var,
		real64_t *	t_start,
		real64_t *	t_end,
		int32_t *	precision,
		int32_t *	error
	)

Definition at line 517 of file gtool_file_f.c.

References file_write_data().

{
  *error = file_write_data( *fid, *vid, var, *t_start, *t_end, *precision );
}

Here is the call graph for this function:

file_write_var_()

void file_write_var_	(	int32_t *	vid,
		void *	var,
		real64_t *	t_start,
		real64_t *	t_end,
		int32_t *	precision,
		int32_t *	error
	)

Definition at line 528 of file gtool_file_f.c.

References file_write_var().

{
  *error = file_write_var( *vid, var, *t_start, *t_end, *precision );
}

Here is the call graph for this function:

file_close_()

void file_close_	(	int32_t *	fid,
		int32_t *	error
	)

Definition at line 538 of file gtool_file_f.c.

References file_close().

{
  *error = file_close( *fid );
}

Here is the call graph for this function:

file_enddef_()

void file_enddef_	(	int32_t *	fid,
		int32_t *	error
	)

Definition at line 544 of file gtool_file_f.c.

References file_enddef().

{
  *error = file_enddef( *fid );
}

Here is the call graph for this function: