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 #include <hdf5.h>
23
24 /*
25 * - Nom de la fonction : _MEDdatasetNumLire
26 * - Description : lecture d'un dataset tableau numerique
27 * - Parametres :
28 * - pere (IN) : l'ID de l'objet HDF pere ou placer l'attribut
29 * - nom (IN) : le nom du dataset
30 * - type (IN) : type numerique MED
31 * - interlace (IN) : Choix du type d'entrelacement demandé par l'appelant { MED_FULL_INTERLACE(x1,y1,z1,x2,...)) , MED_NO_INTERLACE(x1,x2,y1,y2,z1,z2) }
32 * - nbdim (IN) : Dimension des éléments
33 * - fixdim (IN) : MED_ALL ou n° de la dimension a enregistrer à partir de 1..oo
34 * - psize (IN) : Taille du profil à utiliser, MED_NOPF si pas de profil
35 * - pflmod (IN) : Indique comment lire les informations en mémoire { MED_COMPACT, MED_GLOBAL }.
36 * - pfltab (IN) : Tableau contenant les n° déléments à traiter (1....oo)
37 * - ngauss (IN) : Nombre de points de GAUSS par élément
38 * - val (OUT) : valeurs du tableau
39 * - Resultat : 0 en cas de succes, -1 sinon
40 * Equivalent à l'ancienne routine si .....,MED_NO_INTERLACE,1,MED_ALL,MED_NOPF,0,1 (peu importe),....
41 */
42
43
_MEDdatasetNumLire(med_idt pere,char * nom,med_type_champ type,med_mode_switch interlace,med_size nbdim,med_size fixdim,med_size psize,med_mode_profil pflmod,med_int pflcmp,med_size * pfltab,med_int ngauss,med_int nbelem,unsigned char * val)44 med_err _MEDdatasetNumLire(med_idt pere,char *nom,med_type_champ type,
45 med_mode_switch interlace, med_size nbdim, med_size fixdim,
46 med_size psize, med_mode_profil pflmod, med_int pflcmp, med_size * pfltab,
47 med_int ngauss, med_int nbelem, unsigned char *val)
48 {
49 char * name = "_MEDdatasetNumLire";
50 int dummy=0;
51 med_err fret=-1;
52 med_int majeur, mineur, release;
53 MedFuncType func;
54
55 MEDversionLire(pere, &majeur, &mineur, &release);
56
57 func = _MEDversionedApi(name,majeur,mineur,release);
58 if ( func != (MedFuncType) NULL )
59 func (dummy, pere, nom, type,
60 interlace, nbdim, fixdim,
61 psize, pflmod, pflcmp, pfltab,
62 ngauss, nbelem, val, &fret);
63
64 return fret;
65 }
66