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