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 <stdlib.h>
00023 #include <string.h>
00024 
00025 
00026 #define nedfngau F77_FUNC(edfngau,EDFNGAU)
00027 #define nedfgaui F77_FUNC(edfgaui,EDFGAUI)
00028 #define nedfgaue F77_FUNC(edfgaue,EDFGAUE)
00029 #define nedfgaul F77_FUNC(edfgaul,EDFGAUL)
00030 
00031 #ifdef PPRO_NT
00032 med_int 
00033  EDFGAUI(med_int *fid, med_int *indice, char * locname, unsigned int bidon,
00034                   med_int *typ_geo, med_int *ngauss)
00035 #else
00036 med_int
00037 nedfgaui(med_int *fid,med_int *indice, char * locname,
00038          med_int *typ_geo, med_int *ngauss)
00039 #endif
00040 {
00041   med_int ret;
00042   char fs1[MED_TAILLE_NOM+1];
00043   med_geometrie_element type;
00044 
00045   ret = (med_int) MEDgaussInfo((med_idt)*fid,(med_int) *indice, (char *) fs1, 
00046                                &type, (med_int *) ngauss); 
00047   
00048   strncpy(locname,fs1,MED_TAILLE_NOM);
00049   _MEDfstring(locname,MED_TAILLE_NOM);
00050   *typ_geo = (med_int) type;
00051 
00052   return(ret); 
00053 }
00054 
00055 
00056 #ifdef PPRO_NT
00057 med_int 
00058  EDFNGAU(med_int *fid)
00059 #else
00060 med_int 
00061 nedfngau(med_int *fid)
00062 #endif
00063 {
00064   med_int ret; 
00065   
00066   ret = (med_int) MEDnGauss((med_idt) *fid); 
00067 
00068   return(ret); 
00069 }
00070 
00071 
00072 #ifdef PPRO_NT
00073 med_int
00074  EDFGAUE(med_int *fid,med_int *typ_geo,
00075                   med_float *refcoo, med_int *mode_coo,
00076                   med_int *ngauss, med_float *gscoo, med_float *wg,
00077                   char *locname, unsigned int bidon1, med_int *lon1)
00078 #else
00079 med_int 
00080 nedfgaue(med_int *fid,med_int *typ_geo,
00081                   med_float *refcoo, med_int *mode_coo,
00082                   med_int *ngauss, med_float *gscoo, med_float *wg,
00083                   char *locname, med_int *lon1)
00084 #endif
00085 {
00086   med_int ret;
00087   char *fn1;
00088   med_geometrie_element type = (med_geometrie_element) *typ_geo;
00089   med_mode_switch mode = (med_mode_switch) *mode_coo;
00090 
00091   fn1 = _MED2cstring(locname, (int) * lon1);
00092 
00093   if (!fn1) return(-1); 
00094   
00095   ret = (med_int) MEDgaussEcr( (med_idt) *fid, type,
00096                                (med_float *) refcoo, mode,
00097                                (med_int) *ngauss, (med_float *) gscoo, (med_float *) wg,
00098                                (char *) fn1);
00099 
00100   _MEDcstringFree(fn1);
00101 
00102   return (ret);
00103 }
00104 
00105 
00106 #ifdef PPRO_NT
00107 med_int
00108  EDFGAUL(med_int * fid, med_float *refcoo, med_float *gscoo, med_float * wg,
00109                   med_int *mode_coo, char *locname, unsigned int bidon1, med_int *lon1)
00110 #else
00111 med_int 
00112 nedfgaul(med_int * fid, med_float *refcoo, med_float *gscoo, med_float * wg,
00113          med_int *mode_coo, char *locname, med_int *lon1)
00114 #endif
00115 {
00116   med_int ret;
00117   char *fn1;
00118   med_mode_switch mode = (med_mode_switch) *mode_coo;
00119 
00120   fn1 = _MED2cstring(locname, (int) * lon1);
00121 
00122   if (!fn1) return(-1); 
00123   
00124   ret = (med_int) MEDgaussLire( (med_idt) *fid, (med_float *) refcoo, (med_float *)gscoo,
00125                                 (med_float *) wg, mode,
00126                                 (char *) fn1);
00127 
00128   _MEDcstringFree(fn1);
00129 
00130   return (ret);
00131 }
00132