src/MEDWrapper/V2_1/MEDnoeudsEcr.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
  21 namespace med_2_1{
  22
  23 med_err
  24 MEDnoeudsEcr(med_idt fid,char *maa,med_int mdim,med_float *coord,
  25              med_mode_switch mode_coo,
  26              med_repere repere,char *nomcoo, char *unicoo,char *nom,
  27              med_booleen inom,med_int *num,med_booleen inum,med_int *fam,
  28              med_int nnoeuds,med_mode_acces mode)
  29 {
  30   med_err ret;
  31
  32   /* ecriture des coordonnees */
  33   if ((ret = MEDcoordEcr(fid,maa,mdim,coord,mode_coo,
  34                          nnoeuds,mode,repere,nomcoo,
  35                          unicoo)) < 0)
  36     return -1;
  37
  38   /* ecriture des noms (facultatifs) */
  39   if (inom == MED_VRAI)
  40     if ((ret = MEDnomEcr(fid,maa,nom,nnoeuds,mode,MED_NOEUD,MED_POINT1)) < 0)
  41       return -1;
  42
  43   /* ecriture des numeros (facultatifs) */
  44   if (inum == MED_VRAI)
  45     if ((ret = MEDnumEcr(fid,maa,num,nnoeuds,mode,MED_NOEUD,MED_POINT1)) < 0)
  46       return -1;
  47
  48   /* ecriture des numeros de familles */
  49   if ((ret = MEDfamEcr(fid,maa,fam,nnoeuds,mode,MED_NOEUD,MED_POINT1)) < 0)
  50     return -1;
  51
  52   return 0;
  53 }
  54
  55 }