_MEDmeshComputationStepInfo236.c
Aller à la documentation de ce fichier.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
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
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 }