_MEDsubdomainCorrespondenceSizeInfo236.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 _MEDsubdomainCorrespondenceSizeInfo236(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 int corit = va_arg(params,const int );
00041 med_entity_type * const localentitype = va_arg(params,med_entity_type * const );
00042 med_geometry_type * const localgeotype = va_arg(params,med_geometry_type * const );
00043 med_entity_type * const remoteentitype = va_arg(params,med_entity_type * const );
00044 med_geometry_type * const remotegeotype = va_arg(params,med_geometry_type * const );
00045 med_int * const nentitycor = va_arg(params,med_int * const );
00046 med_err * fret = va_arg(params,med_err *);
00047
00048 med_err _ret=-1;
00049 med_int _nentitycor=0;
00050
00051
00052
00053
00054 _MEDmodeErreurVerrouiller();
00055
00056 if ( (numdt != MED_NO_DT) || (numit != MED_NO_IT) ) {
00057 MED_ERR_(_ret,MED_ERR_INVALID,MED_ERR_PARAMETER,"");
00058 ISCRUTE(numdt);ISCRUTE(numit);goto ERROR;
00059 }
00060
00061
00062 if ( MEDjointTypeCorres( fid, (char *) meshname, (char *) jointname,corit,
00063 (med_entite_maillage * ) localentitype , (med_geometrie_element*) localgeotype,
00064 (med_entite_maillage * ) remoteentitype, (med_geometrie_element*) remotegeotype) < 0 ) {
00065 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"MEDjointTypeCorres");
00066 SSCRUTE(meshname);SSCRUTE(jointname);
00067 goto ERROR;
00068 }
00069
00070 if ( (_nentitycor=MEDjointnCorres(fid, (char *) meshname, (char *) jointname,
00071 (med_entite_maillage ) *localentitype , (med_geometrie_element) *localgeotype,
00072 (med_entite_maillage ) *remoteentitype, (med_geometrie_element) *remotegeotype) ) < 0 ) {
00073 MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"MEDjointnCorres");
00074 SSCRUTE(meshname);SSCRUTE(jointname);
00075 goto ERROR;
00076 }
00077 *nentitycor = _nentitycor;
00078
00079
00080 _ret = 0;
00081 ERROR:
00082
00083 va_end(params);
00084 *fret = _ret;
00085 return;
00086 }