_MEDmeshComputationStepInfo236.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 #include <string.h>
00023 #include <stdlib.h>
00024 
00025 #include <2.3.6/med23v30.h>
00026 #include <2.3.6/med23v30_proto.h>
00027 #include "2.3.6/med23v30_misc.h"
00028 
00029 #include "med_versioned.h"
00030 
00031 void _MEDmeshComputationStepInfo236(int dummy, ...) {
00032 
00033   va_list params;
00034   va_start(params,dummy);
00035 
00036   const med_idt      fid         = va_arg(params,const med_idt      );
00037   const char * const meshname    = va_arg(params,const char * const );
00038   const int          csit        = va_arg(params,const int          );
00039   med_int * const    numdt       = va_arg(params,med_int * const    );
00040   med_int * const    numit       = va_arg(params,med_int * const    );
00041   med_float * const  dt          = va_arg(params,med_float * const  );
00042   med_bool           musthave1cs = va_arg(params,med_bool           );
00043   med_err *          fret        = va_arg(params,med_err *);
00044 
00045 
00046   med_err   _ret            = -1;
00047   int       _num            = csit - 1;
00048   med_bool  _changement     = MED_FALSE;
00049   med_bool  _transformation = MED_FALSE;
00050   med_int   _n=0,_numdt=MED_NO_DT,_numit=MED_NO_IT;
00051   int       _dummy = 0;
00052   char      _profilename[MED_TAILLE_NOM+1]="";
00053   med_int   _profilesize=0;
00054 
00055   if ( csit != 1 ) {
00056     MED_ERR_(_ret,MED_ERR_INVALID,MED_ERR_PARAMETER,"");
00057     ISCRUTE_int(csit);goto ERROR;
00058   }
00059 
00060   _MEDmeshnEntity236(_dummy,
00061                      fid,
00062                      meshname,
00063                      _numdt,
00064                      _numit,
00065                      MED_ALL_ENTITY_TYPE,
00066                      MED_ALL_GEOTYPE,
00067                      MED_UNDEF_DATATYPE,
00068                      MED_NO_CMODE,
00069                      MED_UNDEF_PFLMODE,
00070                      _profilename,
00071                      &_profilesize,
00072                      &_changement,
00073                      &_transformation, &_n );
00074 
00075   if (_n < 0 ) {
00076     MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"_MEDmeshnEntity236");
00077     SSCRUTE(meshname);ISCRUTE(_numdt);ISCRUTE(_numit);;
00078     ISCRUTE(_n);goto ERROR;
00079   }
00080 
00081   *numdt=MED_NO_DT;
00082   *numit=MED_NO_IT;
00083   *dt='\0';
00084 
00085   if (_n < 1 ) {
00086     if ( musthave1cs ) {
00087       MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"_MEDmeshnEntity236");
00088       SSCRUTE(meshname);ISCRUTE(_numdt);ISCRUTE(_numit);
00089       ISCRUTE(_n);goto ERROR;
00090     } else  {
00091       /*Pas d'erreur affiché */
00092       _ret = MED_ERR_CALL+MED_ERR_API;goto ERROR;
00093     }
00094   }
00095   _ret = 0;
00096  ERROR:
00097 
00098   va_end(params);
00099   *fret = _ret;
00100   return;
00101 }

Généré le Mon May 16 17:10:22 2011 pour MED fichier par  doxygen 1.6.1