MED fichier
src
ci
MEDmeshSortingTypeRd.c
Aller à la documentation de ce fichier.
1
/* This file is part of MED.
2
*
3
* COPYRIGHT (C) 1999 - 2023 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 <string.h>
23
#include <stdlib.h>
24
34
med_err
35
MEDmeshSortingTypeRd
(
const
med_idt
fid,
36
const
char
*
const
meshname,
37
med_sorting_type
*
const
sortingtype )
38
39
{
40
med_err
_ret=-1;
41
med_idt
_meshid=0;
42
char
_meshpath [
MED_MESH_GRP_SIZE
+
MED_NAME_SIZE
+1]=
MED_MESH_GRP
;
43
med_int
_intsortingtype=0;
44
45
46
/*
47
* Si le DataGroup MED_MESH_GRP n'existe pas => erreur
48
*/
49
50
strcat(_meshpath,meshname);
51
if
((_meshid =
_MEDdatagroupOuvrir
(fid,_meshpath)) < 0) {
52
MED_ERR_
(_ret,
MED_ERR_OPEN
,
MED_ERR_DATAGROUP
,
MED_ERR_MESH_MSG
);
53
SSCRUTE
(meshname);
SSCRUTE
(_meshpath);
goto
ERROR;
54
}
55
56
/*
57
* Lecture du type de stockage des étapes de calcul du maillage
58
*/
59
if
(
_MEDattrEntierLire
(_meshid,
MED_NOM_SRT
,&_intsortingtype) < 0) {
60
MED_ERR_
(_ret,
MED_ERR_READ
,
MED_ERR_ATTRIBUTE
,
MED_ERR_MESH_MSG
);
61
SSCRUTE
(meshname);
SSCRUTE
(
MED_NOM_SRT
);
ISCRUTE
(_intsortingtype);
goto
ERROR;
62
}
63
64
*sortingtype = (
med_sorting_type
) (_intsortingtype);
65
66
_ret = 0;
67
68
ERROR:
69
70
if
(_meshid>0)
if
(
_MEDdatagroupFermer
(_meshid) < 0) {
71
MED_ERR_
(_ret,
MED_ERR_CLOSE
,
MED_ERR_DATAGROUP
,_meshpath);
72
ISCRUTE_id
(_meshid);
73
}
74
75
76
return
_ret;
77
78
}
ISCRUTE_id
#define ISCRUTE_id(entier)
Definition:
med_utils.h:319
med_idt
hid_t med_idt
Definition:
med.h:333
MED_ERR_
#define MED_ERR_(rt, r1, r2, r3)
Definition:
med_utils.h:160
MED_ERR_ATTRIBUTE
#define MED_ERR_ATTRIBUTE
Definition:
med_err.h:100
MED_MESH_GRP
#define MED_MESH_GRP
Definition:
med_outils.h:160
med_err
herr_t med_err
Definition:
med.h:334
med_sorting_type
med_sorting_type
Definition:
med.h:311
MEDmeshSortingTypeRd
med_err MEDmeshSortingTypeRd(const med_idt fid, const char *const meshname, med_sorting_type *const sortingtype)
Cette routine lit l'ordre de tri des étapes évolutives du maillage.
Definition:
MEDmeshSortingTypeRd.c:35
med_outils.h
MED_ERR_CLOSE
#define MED_ERR_CLOSE
Definition:
med_err.h:30
MED_NOM_SRT
#define MED_NOM_SRT
Definition:
med_outils.h:75
MED_ERR_OPEN
#define MED_ERR_OPEN
Definition:
med_err.h:37
med_int
int med_int
Definition:
med.h:344
ISCRUTE
#define ISCRUTE(entier)
Definition:
med_utils.h:313
med_config.h
MED_ERR_READ
#define MED_ERR_READ
Definition:
med_err.h:28
MED_MESH_GRP_SIZE
#define MED_MESH_GRP_SIZE
Definition:
med_outils.h:161
MED_ERR_DATAGROUP
#define MED_ERR_DATAGROUP
Definition:
med_err.h:99
SSCRUTE
#define SSCRUTE(chaine)
Definition:
med_utils.h:323
MED_NAME_SIZE
#define MED_NAME_SIZE
Definition:
med.h:83
_MEDattrEntierLire
#define _MEDattrEntierLire(x, y, z)
Definition:
med_hdfi.h:68
med.h
MED_ERR_MESH_MSG
#define MED_ERR_MESH_MSG
Definition:
med_err.h:133
_MEDdatagroupOuvrir
MEDC_EXPORT med_idt _MEDdatagroupOuvrir(med_idt pid, const char *const nom)
_MEDdatagroupFermer
MEDC_EXPORT med_err _MEDdatagroupFermer(med_idt id)
Généré le Mardi 6 Juin 2023 16:57:43 pour MED fichier par
1.8.16