← Back to branch summary

~ubuntu-branches/ubuntu/quantal/xdmf/quantal

« back to all changes in this revision

Viewing changes to Utilities/vtkexodus2/exgvarparam.c

  • Committer: Bazaar Package Importer
  • Author(s): Alastair McKinstry
  • Date: 2011-07-09 10:33:32 UTC
  • Revision ID: james.westby@ubuntu.com-20110709103332-2w36cerw7215fzoe
Tags: upstream-2.1.dfsg.1
Import upstream version 2.1.dfsg.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
Utilities/vtkexodus2/exgvarparam.c
 
1
/*
 
2
 * Copyright (c) 2005 Sandia Corporation. Under the terms of Contract
 
3
 * DE-AC04-94AL85000 with Sandia Corporation, the U.S. Governement
 
4
 * retains certain rights in this software.
 
5
 * 
 
6
 * Redistribution and use in source and binary forms, with or without
 
7
 * modification, are permitted provided that the following conditions are
 
8
 * met:
 
9
 * 
 
10
 *     * Redistributions of source code must retain the above copyright
 
11
 *       notice, this list of conditions and the following disclaimer.
 
12
 * 
 
13
 *     * Redistributions in binary form must reproduce the above
 
14
 *       copyright notice, this list of conditions and the following
 
15
 *       disclaimer in the documentation and/or other materials provided
 
16
 *       with the distribution.  
 
17
 * 
 
18
 *     * Neither the name of Sandia Corporation nor the names of its
 
19
 *       contributors may be used to endorse or promote products derived
 
20
 *       from this software without specific prior written permission.
 
21
 * 
 
22
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 
23
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 
24
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 
25
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 
26
 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 
27
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 
28
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 
29
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 
30
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 
31
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 
32
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
33
 * 
 
34
 */
 
35
/*****************************************************************************
 
36
*
 
37
* exgvp - ex_get_variable_param
 
38
*
 
39
* entry conditions - 
 
40
*   input parameters:
 
41
*       int     exoid                   exodus file id
 
42
*       int     obj_type                variable type
 
43
*
 
44
* exit conditions - 
 
45
*       int*    num_vars                number of variables in database
 
46
*
 
47
* revision history - 
 
48
*
 
49
*  $Id: exgvarparam.c,v 1.1 2010-01-06 16:33:38 kwleiter Exp $
 
50
*
 
51
*****************************************************************************/
 
52
 
 
53
#include "exodusII.h"
 
54
#include "exodusII_int.h"
 
55
 
 
56
#include <ctype.h>
 
57
 
 
58
/*!
 
59
 * reads the number of global, nodal, or element variables that are 
 
60
 * stored in the database
 
61
 */
 
62
 
 
63
int ex_get_variable_param (int   exoid,
 
64
                           ex_entity_type obj_type,
 
65
                           int  *num_vars)
 
66
{
 
67
  int dimid;
 
68
  size_t dimlen;
 
69
  char errmsg[MAX_ERR_LENGTH];
 
70
  const char* dnumvar;
 
71
  int status;
 
72
  
 
73
  exerrval = 0; /* clear error code */
 
74
  *num_vars = 0;
 
75
  
 
76
  switch (obj_type) {
 
77
  case EX_GLOBAL:
 
78
    dnumvar = DIM_NUM_GLO_VAR;
 
79
    break;
 
80
  case EX_NODAL:
 
81
    dnumvar = DIM_NUM_NOD_VAR;
 
82
    break;
 
83
  case EX_EDGE_BLOCK:
 
84
    dnumvar = DIM_NUM_EDG_VAR;
 
85
    break;
 
86
  case EX_FACE_BLOCK:
 
87
    dnumvar = DIM_NUM_FAC_VAR;
 
88
    break;
 
89
  case EX_ELEM_BLOCK:
 
90
    dnumvar = DIM_NUM_ELE_VAR;
 
91
    break;
 
92
  case EX_NODE_SET:
 
93
    dnumvar = DIM_NUM_NSET_VAR;
 
94
    break;
 
95
  case EX_EDGE_SET:
 
96
    dnumvar = DIM_NUM_ESET_VAR;
 
97
    break;
 
98
  case EX_FACE_SET:
 
99
    dnumvar = DIM_NUM_FSET_VAR;
 
100
    break;
 
101
  case EX_SIDE_SET:
 
102
    dnumvar = DIM_NUM_SSET_VAR;
 
103
    break;
 
104
  case EX_ELEM_SET:
 
105
    dnumvar = DIM_NUM_ELSET_VAR;
 
106
    break;
 
107
  default:
 
108
    exerrval = EX_BADPARAM;
 
109
    sprintf(errmsg,
 
110
            "Warning: invalid variable type %d requested from file id %d",
 
111
            obj_type, exoid);
 
112
    ex_err("ex_get_var_param",errmsg,exerrval);
 
113
    return (EX_WARN);
 
114
  }
 
115
 
 
116
  if ((status = nc_inq_dimid (exoid, dnumvar, &dimid)) != NC_NOERR) {
 
117
    *num_vars = 0;
 
118
    if (status == NC_EBADDIM)
 
119
      return(EX_NOERR);      /* no global variables defined */
 
120
    else {
 
121
      exerrval = status;
 
122
      sprintf(errmsg,
 
123
              "Error: failed to locate %s variable names in file id %d",
 
124
              ex_name_of_object(obj_type),exoid);
 
125
      ex_err("ex_get_var_param",errmsg,exerrval);
 
126
      return (EX_FATAL);
 
127
    }
 
128
  }
 
129
 
 
130
  if ((status = nc_inq_dimlen(exoid, dimid, &dimlen)) != NC_NOERR) {
 
131
    exerrval = status;
 
132
    sprintf(errmsg,
 
133
            "Error: failed to get number of %s variables in file id %d",
 
134
            ex_name_of_object(obj_type),exoid);
 
135
    ex_err("ex_get_var_param",errmsg,exerrval);
 
136
    return (EX_FATAL);
 
137
  }
 
138
  *num_vars = dimlen;
 
139
  
 
140
  return(EX_NOERR);
 
141
}