1 /* This file is part of MED.
2 *
3 * COPYRIGHT (C) 1999 - 2019 EDF R&D, CEA/DEN
4 * MED is free software: you can redistribute it and/or modify
5 * it under the terms of the GNU Lesser General Public License as published by
6 * the Free Software Foundation, either version 3 of the License, or
7 * (at your option) any later version.
8 *
9 * MED is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public License
15 * along with MED. If not, see <http://www.gnu.org/licenses/>.
16 */
17
18
19 #include <med.h>
20 #include <med_config.h>
21 #include <med_outils.h>
22
23 #include <string.h>
24 #include <stdlib.h>
25
26 /**\ingroup MEDfield
27 \brief \MEDfieldCrBrief
28 \param fid \fid
29 \param fieldname \fieldname
30 \param fieldtype \fieldtype
31 \param ncomponent \ncomponent
32 \param componentname \componentname
33 \param componentunit \componentunit
34 \param dtunit \dtunit
35 \param meshname \meshname
36 \retval med_err \error
37 \details \MEDfieldCrDetails
38
39 \remarks
40 \MEDfieldCrRem
41 */
42
43 med_err
MEDfieldCr(const med_idt fid,const char * const fieldname,const med_field_type fieldtype,const med_int ncomponent,const char * const componentname,const char * const componentunit,const char * const dtunit,const char * const meshname)44 MEDfieldCr( const med_idt fid,
45 const char * const fieldname,
46 const med_field_type fieldtype,
47 const med_int ncomponent,
48 const char * const componentname,
49 const char * const componentunit,
50 const char * const dtunit,
51 const char * const meshname)
52 {
53 char * name = "_MEDfieldCr";
54 int dummy=0;
55 med_err fret=-1;
56 med_int majeur, mineur, release;
57 MedFuncType func;
58
59 MEDfileNumVersionRd(fid, &majeur, &mineur, &release);
60 func = _MEDversionedApi3(name,majeur,mineur,release);
61 if ( func != (MedFuncType) NULL )
62 func (dummy,
63 fid,
64 fieldname,
65 fieldtype,
66 ncomponent,
67 componentname,
68 componentunit,
69 dtunit,
70 meshname,
71 &fret);
72
73 return fret;
74 }
75