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 <string.h>
22 #include <stdlib.h>
23 #include <med_outils.h>
24 
25 
26 med_int
_MEDfield23nValue(const med_idt fid,const char * const fieldname,const med_int numdt,const med_int numit,const med_entity_type entitytype,const med_geometry_type geotype,const char * const meshname,char * const profilename,const int profileit,const med_storage_mode storagemode,med_int * const profilesize,char * const localizationname,med_int * const nintegrationpoint)27 _MEDfield23nValue (const med_idt fid, const char * const fieldname,const med_int numdt,const med_int numit,
28 		   const med_entity_type entitytype, const med_geometry_type geotype, const char * const meshname,
29 		   char * const profilename,const int profileit,
30 		   const med_storage_mode storagemode,med_int * const profilesize,
31 		   char * const localizationname, med_int * const nintegrationpoint )
32 {
33   char *  name = "_MEDfield23nValue";
34   int     dummy=0;
35   med_int fret=-1;
36   med_int majeur, mineur, release;
37   MedFuncType func;
38 
39   MEDfileNumVersionRd(fid, &majeur, &mineur, &release);
40   func = _MEDversionedApi3(name,majeur,mineur,release);
41 
42   if ( func != (MedFuncType) NULL )
43     func (dummy,
44 	  fid,
45 	  fieldname,
46 	  numdt,
47 	  numit,
48 	  entitytype,
49 	  geotype,
50 	  meshname,
51 	  profilename,
52 	   profileit,
53 	  storagemode,
54 	  profilesize,
55 	  localizationname,
56 	  nintegrationpoint,
57 	  &fret);
58 
59   return fret;
60 }
61