gridspec_api/host/nccf_inq_host_statfilename.c

/*
 * Inquire from the host object a static file name given a grid index and 
 * a static file index
 *
 * $Id: nccf_inq_host_statfilename.c 513 2011-02-14 22:48:17Z dkindig $ 
 * */

#include <string.h>
#include <nccf_errors.h>
#include <nccf_utility_functions.h>
#include <nccf_host.h>

int nccf_inq_host_statfilename(int hostid, int vfindx, int gfindx, 
                               char *fname) {
  int index;
  int dims[2];
  const int inx[] = {vfindx, gfindx};
  char *fn;

  struct nccf_host_type *self;
  self = nccf_li_find(&CFLIST_HOST, hostid);
  dims[0] = self->nStatDataFiles;
  dims[1] = self->nGrids;

  // flatten the indices
  index = nccf_get_flat_index(2, dims, inx);
  fn = nccf_li_find(&self->statDataFiles, index);
  if (fn) {
    strcpy(fname, fn);
    return NC_NOERR;
  } 
  else {
    return NCCF_EINDEXOUTOFRANGE;
  }
}