src/MEDWrapper/V2_1/Core/MEDnPasdetemps.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
  20 #include "med.hxx"
  21 #include "med_outils.hxx"
  22
  23 #include <string.h>
  24 #include <stdlib.h>
  25
  26 /*
  27  * Nombre de Couple (PDT,NOR) pour le champ <cha>
  28  */
  29
  30 namespace med_2_1{
  31
  32 med_int
  33 MEDnPasdetemps(med_idt fid,char *cha,med_entite_maillage type_ent,
  34                med_geometrie_element type_geo)
  35
  36 {
  37   med_err ret;
  38   int n1;
  39   char nomdatagroup1[MED_TAILLE_NOM+1];
  40   char tmp1         [MED_TAILLE_NOM_ENTITE+1];
  41   char chemin       [MED_TAILLE_CHA+(MED_TAILLE_NOM+1)+MED_TAILLE_NOM+1];
  42
  43   /*
  44    * On inhibe le gestionnaire d'erreur HDF 5
  45    */
  46   _MEDmodeErreurVerrouiller();
  47
  48   /*
  49    * Creation du chemin d'accès aux différents (PDT,NOR) pour les différents <type_ent>[.<type_geo>]
  50    */
  51   strcpy(chemin,MED_CHA);
  52   strcat(chemin,cha);
  53   strcat(chemin,"/");
  54
  55   if ((ret = _MEDnomEntite(nomdatagroup1,type_ent)) < 0)
  56     return -1;
  57   if ((type_ent != MED_NOEUD))
  58     {
  59       if ((ret = _MEDnomGeometrie(tmp1,type_geo)) < 0)
  60         return -1;
  61       strcat(nomdatagroup1,".");
  62       strcat(nomdatagroup1,tmp1);
  63     }
  64   strcat(chemin,nomdatagroup1);
  65
  66   n1 =0;
  67   _MEDnObjets(fid,chemin,&n1);
  68
  69   return (med_int) n1;
  70
  71 }
  72
  73 }