# _MEDfamily23Info236.c

Aller à la documentation de ce fichier.

    00001 /*  This file is part of MED.
    00002  *
    00003  *  COPYRIGHT (C) 1999 - 2011  EDF R&D, CEA/DEN
    00004  *  MED is free software: you can redistribute it and/or modify
    00005  *  it under the terms of the GNU Lesser General Public License as published by
    00006  *  the Free Software Foundation, either version 3 of the License, or
    00007  *  (at your option) any later version.
    00008  *
    00009  *  MED is distributed in the hope that it will be useful,
    00010  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
    00011  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00012  *  GNU Lesser General Public License for more details.
    00013  *
    00014  *  You should have received a copy of the GNU Lesser General Public License
    00015  *  along with MED.  If not, see <http://www.gnu.org/licenses/>.
    00016  */
    00017
    00018
    00019 #include <med.h>
    00020 #include <med_config.h>
    00021 #include <med_outils.h>
    00022
    00023 #include <string.h>
    00024 #include <stdlib.h>
    00025
    00026 #include <2.3.6/med23v30.h>
    00027 #include <2.3.6/med23v30_proto.h>
    00028 #include "2.3.6/med23v30_misc.h"
    00029
    00030 void
    00031 _MEDfamily23Info236(int dummy,...)
    00032 {
    00033   med_int             _nattributes=0;
    00034   med_int             _ngroups=0;
    00035
    00036   MED_VARGS_DECL(const, med_idt       , , fid             );
    00037   MED_VARGS_DECL(const, char*   , const , meshname        );
    00038   MED_VARGS_DECL(const, int           , , famit           );
    00039   MED_VARGS_DECL(, char*        , const , familyname      );
    00040   MED_VARGS_DECL(, med_int*     , const , attributenumber );
    00041   MED_VARGS_DECL(, med_int*     , const , attributevalue  );
    00042   MED_VARGS_DECL(, char*        , const , attributedes    );
    00043   MED_VARGS_DECL(, med_int*     , const , familynumber    );
    00044   MED_VARGS_DECL(, char*        , const , groupname       );
    00045   MED_VARGS_DECL(, med_err*            ,, fret            );
    00046
    00047   va_list params;
    00048   va_start(params,dummy);
    00049
    00050   MED_VARGS_DEF(const, med_idt       , , fid             );
    00051   MED_VARGS_DEF(const, char*   , const , meshname        );
    00052   MED_VARGS_DEF(const, int           , , famit           );
    00053   MED_VARGS_DEF(, char*        , const , familyname      );
    00054   MED_VARGS_DEF(, med_int*     , const , attributenumber );
    00055   MED_VARGS_DEF(, med_int*     , const , attributevalue  );
    00056   MED_VARGS_DEF(, char*        , const , attributedes    );
    00057   MED_VARGS_DEF(, med_int*     , const , familynumber    );
    00058   MED_VARGS_DEF(, char*        , const , groupname       );
    00059   MED_VARGS_DEF(, med_err*            ,, fret            );
    00060
    00061 /*   ISCRUTE(                   fid); */
    00062 /*   SSCRUTE(                meshname); */
    00063 /*   ISCRUTE_int(                    famit); */
    00064 /*   SSCRUTE(                familyname); */
    00065
    00066   *fret = MEDfamInfo(fid,
    00067                      (char * ) meshname,
    00068                      famit,
    00069                      familyname,
    00070                      familynumber,
    00071                      attributenumber,
    00072                      attributevalue,
    00073                      attributedes,
    00074                      &_nattributes,
    00075                      groupname,
    00076                      &_ngroups);
    00077
    00078 /*   ISCRUTE(                *familynumber); */
    00079 /*   ISCRUTE(                *attributenumber); */
    00080 /*   XSCRUTE(                attributevalue); */
    00081 /*   SSCRUTE(                attributedes); */
    00082 /*   ISCRUTE(                _nattributes); */
    00083 /*   SSCRUTE(                groupname); */
    00084 /*   ISCRUTE(                _ngroups); */
    00085 /*   ISCRUTE(                *fret); */
    00086
    00087   va_end(params);
    00088
    00089   return;
    00090 }