src/MEDWrapper/V2_1/Core/MEDbodyFittedLire.cxx

   1 /*************************************************************************
   2 * COPYRIGHT (C) 1999 - 2002  EDF R&D
   3 * THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   4 * IT UNDER THE TERMS OF THE GNU LESSER GENERAL PUBLIC LICENSE
   5 * AS PUBLISHED BY THE FREE SOFTWARE FOUNDATION;
   6 * EITHER VERSION 2.1 OF THE LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.
   7 *
   8 * THIS LIBRARY IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
   9 * WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  10 * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  11 * LESSER GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  12 *
  13 * YOU SHOULD HAVE RECEIVED A COPY OF THE GNU LESSER GENERAL PUBLIC LICENSE
  14 * ALONG WITH THIS LIBRARY; IF NOT, WRITE TO THE FREE SOFTWARE FOUNDATION,
  15 * INC., 59 TEMPLE PLACE, SUITE 330, BOSTON, MA 02111-1307 USA
  16 *
  17 *************************************************************************/
  18
  19 #include "med_outils.hxx"
  20 #include "med.hxx"
  21
  22 #include <cstring>
  23
  24 namespace med_2_1{
  25
  26 med_err
  27 MEDbodyFittedLire(med_idt fid, char *maa, med_int mdim, med_float *coo, med_mode_switch mode_coo,
  28                   med_repere *repere, char *nomcoo, char *unicoo, med_int *fam, med_int nnoeuds )
  29 {
  30     med_idt maaid, noeid, dataset;
  31     char    chemin[MED_TAILLE_MAA+MED_TAILLE_NOM+1];
  32     med_int type_rep_int;
  33
  34     /* On inhibe le gestionnaire d'erreur */
  35     _MEDmodeErreurVerrouiller();
  36
  37     /* Si le maillage n'existe pas => erreur */
  38     strcpy(chemin, MED_MAA);
  39     strcat(chemin, maa);
  40     maaid = _MEDdatagroupOuvrir(fid, chemin);
  41     if (maaid < 0) return(-1);
  42
  43     /* Si le Data Group "NOE" n'existe pas => erreur */
  44     noeid = _MEDdatagroupOuvrir(maaid, MED_NOM_NOE);
  45     if (noeid < 0) return(-1);
  46
  47     /* Lecture du Data Set "BOF" */
  48     if (_MEDdatasetNumLire(noeid, MED_NOM_BOF, MED_REEL64, mode_coo, mdim, MED_ALL, MED_NOPF, 0, 1, (unsigned char*)coo) < 0) {
  49         return(-1);
  50     };
  51
  52     /* On re-ouvre le Data Set "BOF" pour y lire des attributs */
  53     dataset = _MEDdatasetOuvrir(noeid, MED_NOM_BOF);
  54     if (dataset < 0) return(-1);
  55
  56     /* L'attribut "REP" */
  57     if (_MEDattrEntierLire(dataset, MED_NOM_REP, &type_rep_int) < 0) {
  58         return(-1);
  59     } else {
  60         *repere = (med_repere)type_rep_int;
  61     };
  62
  63     /* Attribut "NOM" */
  64     if (_MEDattrStringLire(dataset, MED_NOM_NOM, mdim*MED_TAILLE_PNOM, nomcoo) < 0) {
  65         return(-1);
  66     };
  67
  68     /* Attribut "UNI" */
  69     if (_MEDattrStringLire(dataset, MED_NOM_UNI, mdim*MED_TAILLE_PNOM, unicoo) < 0) {
  70         return(-1);
  71     };
  72
  73     /* lecture des numeros de familles */
  74     if (MEDfamLire(fid, maa, fam, nnoeuds, MED_NOEUD, MED_POINT1) < 0) {
  75         return(-1);
  76     };
  77
  78     /* On ferme tout */
  79     if (_MEDdatasetFermer(dataset) < 0) {
  80         return(-1);
  81     };
  82     if (_MEDdatagroupFermer(noeid) < 0) {
  83         return(-1);
  84     };
  85     if (_MEDdatagroupFermer(maaid) < 0) {
  86         return(-1);
  87     };
  88     return(0);
  89 }
  90
  91 }