_MEDsubdomainCorrespondenceSize236.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
00020 #include <med.h>
00021 #include <med_config.h>
00022 #include <med_outils.h>
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 _MEDsubdomainCorrespondenceSize236(int dummy, ...) {
00031
00032 va_list params;
00033 va_start(params,dummy);
00034
00035 const med_idt fid = va_arg(params,const med_idt );
00036 const char * const meshname = va_arg(params,const char * const );
00037 const char * const jointname = va_arg(params,const char * const );
00038 const med_int numdt = va_arg(params,const med_int );
00039 const med_int numit = va_arg(params,const med_int );
00040 const med_entity_type localentitype = va_arg(params,const med_entity_type );
00041 const med_geometry_type localgeotype = va_arg(params,const med_geometry_type);
00042 const med_entity_type remoteentitype = va_arg(params,const med_entity_type );
00043 const med_geometry_type remotegeotype = va_arg(params,const med_geometry_type);
00044 med_int * const nentitycor = va_arg(params,med_int * const );
00045 med_err * fret = va_arg(params,med_err *);
00046
00047 med_err _ret=-1;
00048 med_int _nentitycor=0;
00049
00050 if ( (numdt != MED_NO_DT) || (numit != MED_NO_IT) ) {
00051 MED_ERR_(_ret,MED_ERR_INVALID,MED_ERR_PARAMETER,"");
00052 ISCRUTE(numdt);ISCRUTE(numit);
00053 SSCRUTE(jointname);SSCRUTE(meshname);ISCRUTE_int(localgeotype);ISCRUTE_int(localentitype);
00054 ISCRUTE_int(remotegeotype);ISCRUTE_int(remoteentitype);goto ERROR;
00055 }
00056
00057 if ( ( _nentitycor = MEDjointnCorres (fid, (char *) meshname,(char *) jointname,
00058 (med_entite_maillage) localentitype,
00059 (med_geometrie_element) localgeotype,
00060 (med_entite_maillage) remoteentitype,
00061 (med_geometrie_element) remotegeotype) ) < 0 ) {
00062 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"MEDjointnCorres");
00063 SSCRUTE(jointname);SSCRUTE(meshname);ISCRUTE_int(localgeotype);ISCRUTE_int(localentitype);
00064 ISCRUTE_int(remotegeotype);ISCRUTE_int(remoteentitype);goto ERROR;
00065 }
00066
00067 *nentitycor = _nentitycor;
00068
00069 _ret = 0;
00070 ERROR:
00071
00072
00073 va_end(params);
00074 *fret = _ret;
00075 return;
00076 }