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 : _MEDdatasetNumEcrire
26 * - Description : ecriture 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 { MED_FLOAT64 , MED_INT32 , MED_INT64 }
31 * - interlace (IN) : Choix du type d'entrelacement utilisé par l'appelant
32 * { MED_FULL_INTERLACE(x1,y1,z1,x2,...)) , MED_NO_INTERLACE(x1,x2,y1,y2,z1,z2) }
33 * - nbdim (IN) : Dimension des éléments
34 * - fixdim (IN) : MED_ALL ou n° de la dimension a enregistrer
35 * - psize (IN) : Taille du profil à utiliser, MED_NOPF si pas de profil
36 * (référence les élements, cette taille ne prend pas en compte le nombre de pts de gauss ni la dimension )
37 * - pflmod (IN) : Indique comment lire les informations en mémoire { MED_COMPACT, MED_GLOBALE }.
38 * - modifpfl(IN) : Si psize != MED_NOPF :
39 * - modifpfl == 1 indique que la taille ou le contenu du profil a changé
40 * - modifpfl == 0 indique que la taille ou le contenu du profil n'a pas changé
41 * - pfltab (IN) : Tableau contenant les n° déléments à traiter (1....oo)
42 * - ngauss (IN) : Nombre de points de GAUSS par élément
43 * - size (IN) : Taille du tableau de valeurs
44 * (référence tous les élements, cette taille prend en compte le nombre de pts de gauss et la dimension )
45 * - val (IN) : valeurs du tableau
46 * - Resultat : 0 en cas de succes, -1 sinon
47 */
48
_MEDdatasetNumEcrire(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 modifpfl,med_size * pfltab,med_int ngauss,med_size * size,unsigned char * val)49 med_err _MEDdatasetNumEcrire(med_idt pere,char *nom, med_type_champ type,
50 med_mode_switch interlace, med_size nbdim, med_size fixdim,
51 med_size psize, med_mode_profil pflmod, med_int modifpfl, med_size * pfltab,
52 med_int ngauss, med_size *size, unsigned char *val)
53 {
54 char * name = "_MEDdatasetNumEcrire";
55 int dummy=0;
56 med_err fret=-1;
57 med_int majeur, mineur, release;
58 MedFuncType func;
59
60 MEDversionLire(pere, &majeur, &mineur, &release);
61
62 func = _MEDversionedApi(name,majeur,mineur,release);
63 if ( func != (MedFuncType) NULL )
64 func (dummy, pere, nom, type,
65 interlace, nbdim, fixdim,
66 psize, pflmod, modifpfl, pfltab,
67 ngauss, size,val, &fret);
68
69 return fret;
70 }
71