famcf231.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 <med_versioned.h>
00023 #include <stdlib.h>
00024 #include <string.h>
00025
00026 #define nedffamc231 F77_FUNC(edffamc231,EDFFAMC231)
00027
00028
00029 #ifdef PPRO_NT
00030 void
00031 EDFFAMC231(int dummy,...)
00032 #else
00033 void
00034 nedffamc231(int dummy,...)
00035 #endif
00036 {
00037
00038 med_int *fid;
00039 char *maa;
00040 med_int *lon1;
00041 char *fam;
00042 med_int *lon2;
00043 med_int *num;
00044 med_int *attr_ident;
00045 med_int *attr_val;
00046 char *attr_desc;
00047 med_int *lon3;
00048 med_int *n_attr;
00049 char *groupe ;
00050 med_int *lon4;
00051 med_int *n_groupe;
00052 med_err *fret;
00053
00054 med_int ret=-1;
00055 char * fn1, *fn2, *fn3, *fn4;
00056
00057 va_list params;
00058 va_start(params,dummy);
00059
00060 fid = va_arg(params, med_int* );
00061 maa = va_arg(params, char* );
00062 lon1 = va_arg(params, med_int* );
00063 fam = va_arg(params, char* );
00064 lon2 = va_arg(params, med_int* );
00065 num = va_arg(params, med_int* );
00066 attr_ident = va_arg(params, med_int* );
00067 attr_val = va_arg(params, med_int* );
00068 attr_desc = va_arg(params, char* );
00069 lon3 = va_arg(params, med_int* );
00070 n_attr = va_arg(params, med_int* );
00071 groupe = va_arg(params, char* );
00072 lon4 = va_arg(params, med_int* );
00073 n_groupe = va_arg(params, med_int* );
00074 fret = va_arg(params, med_err* );
00075
00076
00077 fn1 = _MED2cstring(maa, (int) * lon1);
00078 fn2 = _MED1cstring(fam, (int) * lon2,MED_TAILLE_NOM);
00079 fn3 = _MED1cstring(attr_desc,(int) * lon3,
00080 (int) *n_attr*MED_TAILLE_DESC);
00081 fn4 = _MED1cstring(groupe, (int) * lon4,
00082 (int) *n_groupe*MED_TAILLE_LNOM);
00083
00084 if (!fn1 || !fn2 || !fn3 || !fn4)
00085 goto ERROR;
00086
00087 if( MEDfamCr((med_idt) *fid,fn1,fn2,(med_int) *num,
00088 (med_int *) attr_ident,
00089 (med_int *) attr_val, fn3, (med_int) *n_attr, fn4,
00090 (med_int) *n_groupe) < 0 )
00091 goto ERROR;
00092
00093 _MEDcstringFree(fn1);
00094 _MEDcstringFree(fn2);
00095 _MEDcstringFree(fn3);
00096 _MEDcstringFree(fn4);
00097
00098 ret=0;
00099 ERROR:
00100 va_end(params);
00101 *fret = ret;
00102 return;
00103
00104 }
00105
00106
00107
00108
00109
00110