_MEDsubdomainCorrespondenceRd236.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
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 _MEDsubdomainCorrespondenceRd236(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 localmeshname = 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 correspondence = va_arg(params,med_int * const );
00045 med_err * fret = va_arg(params,med_err *);
00046
00047 med_err _ret=-1;
00048
00049 if ( (numdt != MED_NO_DT) || (numit != MED_NO_IT) ) {
00050 MED_ERR_(_ret,MED_ERR_INVALID,MED_ERR_PARAMETER,"");
00051 ISCRUTE(numdt);ISCRUTE(numit);
00052 SSCRUTE(jointname);SSCRUTE(localmeshname);ISCRUTE_int(localgeotype);ISCRUTE_int(localentitype);
00053 ISCRUTE_int(remotegeotype);ISCRUTE_int(remoteentitype);goto ERROR;
00054 }
00055
00056 if ( MEDjointLire(fid, (char *) localmeshname,(char *) jointname, correspondence,-1,
00057 (med_entite_maillage) localentitype,
00058 (med_geometrie_element) localgeotype,
00059 (med_entite_maillage) remoteentitype,
00060 (med_geometrie_element) remotegeotype) < 0 ) {
00061 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"MEDjointLire");
00062 SSCRUTE(jointname);SSCRUTE(localmeshname);ISCRUTE_int(localgeotype);ISCRUTE_int(localentitype);
00063 ISCRUTE_int(remotegeotype);ISCRUTE_int(remoteentitype);goto ERROR;
00064 }
00065
00066
00067 _ret=0;
00068 ERROR:
00069
00070 va_end(params);
00071 *fret = _ret;
00072 return;
00073 }