src/MEDWrapper/V2_1/Core/MEDfamMaaCr.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.hxx"
  20 #include "med_outils.hxx"
  21
  22 #include <stdio.h>
  23 #include <cstring>
  24
  25 namespace med_2_1{
  26
  27 med_err
  28 MEDfamMaaCr(med_idt fid,char *maa,
  29             med_int *numfam,med_int *attide,
  30             med_int *attval,char *attdes,int *indatt,char *gro,int *indgro,
  31             med_int nfamilles)
  32 {
  33   med_err ret;
  34   med_int i;
  35   med_int natt,ngro;
  36   med_int numf;
  37   char nomfam[MED_TAILLE_NOM+1];
  38
  39   /* La famille de numero 0 n'a aucun attribut, ni aucun groupe
  40      Les familles de numero > 0 sont des familles de noeuds
  41      Les familles de numero < 0 sont des familles d'elements */
  42   for (i=0;i<nfamilles;i++)
  43     {
  44       numf = *(numfam+i);
  45       if (numf == 0)
  46         strcpy(nomfam,"FAMILLE_0");
  47       if (numf > 0)
  48         {
  49           strcpy(nomfam,"FAMILLE_NOEUD_");
  50           sprintf(nomfam,"%s%d",nomfam,numf);
  51           nomfam[MED_TAILLE_NOM] = '\0';
  52         }
  53       if (numf < 0)
  54         {
  55           strcpy(nomfam,"FAMILLE_ELEMENT_");
  56           sprintf(nomfam,"%s%d",nomfam,-numf);
  57           nomfam[MED_TAILLE_NOM] = '\0';
  58         }
  59       natt = *(indatt+i+1) - *(indatt+i);
  60       ngro = (*(indgro+i+1) - *(indgro+i))/MED_TAILLE_LNOM;
  61       if ((ret = MEDfamCr(fid,maa,nomfam,numf,
  62                           attide+*(indatt+i),
  63                           attval+*(indatt+i),
  64                           attdes+*(indatt+i)*MED_TAILLE_DESC,natt,
  65                           gro+*(indgro+i),ngro)) < 0)
  66         return -1;
  67     }
  68
  69   return 0;
  70 }
  71
  72 }