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 nedfdiml F77_FUNC(edfdiml,EDFDIML)
00027 #define nedfmaac F77_FUNC(edfmaac,EDFMAAC)
00028 #define nedfnmaa F77_FUNC(edfnmaa,EDFNMAA)
00029 #define nedfmaai F77_FUNC(edfmaai,EDFMAAI)
00030 #define nedfnnsl F77_FUNC(edfnnsl,EDFNNSL)
00031 #define nedfnnse F77_FUNC(edfnnse,EDFNNSE)
00032 #define nedfnnil F77_FUNC(edfnnil,EDFNNIL)
00033 #define nedfnnie F77_FUNC(edfnnie,EDFNNIE)
00034 #define nedfnnml F77_FUNC(edfnnml,EDFNNML)
00035 #define nedfnnme F77_FUNC(edfnnme,EDFNNME)
00036 #define nedfunvc F77_FUNC(edfunvc,EDFUNVC)
00037 #define nedfunvl F77_FUNC(edfunvl,EDFUNVL)
00038 #define nedfespc F77_FUNC(edfespc,EDFESPC)
00039 #define nedfespl F77_FUNC(edfespl,EDFESPL)
00040 #define nedfnage F77_FUNC(edfnage,EDFNAGE)
00041 #define nedfnagl F77_FUNC(edfnagl,EDFNAGL)
00042
00043
00044 #ifdef PPRO_NT
00045 med_int
00046 EDFDIML(med_int *fid, char *maa, unsigned int bidon,
00047 med_int *lon)
00048 #else
00049 med_int
00050 nedfdiml(med_int *fid, char *maa,med_int *lon)
00051 #endif
00052 {
00053 char *fn;
00054 med_int ret;
00055
00056 fn = _MED2cstring(maa, (int) * lon);
00057 if (!fn)
00058 return(-1);
00059
00060 ret = (med_int) MEDdimLire((med_idt) *fid,fn);
00061
00062 _MEDcstringFree(fn);
00063
00064 return(ret);
00065 }
00066
00067 #ifdef PPRO_NT
00068 med_int
00069 EDFMAAC(med_int *fid , char *nom, unsigned int bidon,
00070 med_int *lon, med_int * dim, med_int *type,
00071 char *desc, unsigned int bidon2, med_int *lon2)
00072 #else
00073 med_int
00074 nedfmaac(med_int *fid , char *nom, med_int *lon, med_int * dim, med_int *type,
00075 char *desc, med_int *lon2)
00076 #endif
00077 {
00078 char *fn1, *fn2;
00079 med_int ret;
00080
00081 fn1 = _MED2cstring(nom, (int) * lon);
00082 fn2 = _MED2cstring(desc,(int) * lon2);
00083
00084 if (!fn1)
00085 return(-1);
00086
00087 if (!fn2)
00088 return -1;
00089
00090 ret = (med_int) MEDmaaCr((med_idt) *fid, fn1, (med_int) *dim,
00091 (med_maillage) *type,fn2);
00092
00093 _MEDcstringFree(fn1);
00094 _MEDcstringFree(fn2);
00095
00096 return(ret);
00097 }
00098
00099 #ifdef PPRO_NT
00100 med_int
00101 EDFMAAI(med_int *fid, med_int *indice, char *maa,
00102 unsigned int bidon, med_int *dim, med_int *type,
00103 char *desc, unsigned int bidon2)
00104 #else
00105 med_int
00106 nedfmaai(med_int *fid,med_int *indice, char *maa,med_int *dim,
00107 med_int *type,char *desc)
00108 #endif
00109 {
00110 med_int ret;
00111 char fs1[MED_TAILLE_NOM+1];
00112 char fs2[MED_TAILLE_DESC+1];
00113 med_maillage local_type;
00114
00115 ret = (med_int) MEDmaaInfo((med_idt)*fid,(med_int) *indice, (char *) fs1,
00116 (med_int *) dim,&local_type,
00117 (char *) fs2);
00118
00119 *type = (med_int) local_type;
00120
00121 strncpy(maa,fs1,MED_TAILLE_NOM);
00122 _MEDfstring(maa,MED_TAILLE_NOM);
00123
00124 strncpy(desc,fs2,MED_TAILLE_DESC);
00125 _MEDfstring(desc,MED_TAILLE_DESC);
00126
00127 return(ret);
00128 }
00129
00130 #ifdef PPRO_NT
00131 med_int
00132 EDFNMAA(med_int *fid)
00133 #else
00134 med_int
00135 nedfnmaa(med_int *fid)
00136 #endif
00137 {
00138 med_int ret;
00139
00140 ret = (med_int) MEDnMaa((med_idt) *fid);
00141
00142 return(ret);
00143 }
00144
00145 #ifdef PPRO_NT
00146 med_int
00147 EDFNNSL(med_int *fid,char *maa,unsigned int bidon1, med_int *lon1)
00148 #else
00149 med_int
00150 nedfnnsl(med_int *fid,char *maa,med_int *lon1)
00151 #endif
00152 {
00153 med_int ret;
00154 char *fn1;
00155
00156 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00157
00158 if (!fn1)
00159 return -1;
00160
00161 ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00162
00163 _MEDcstringFree(fn1);
00164
00165 return ret;
00166 }
00167
00168 #ifdef PPRO_NT
00169 med_int
00170 EDFNNSE(med_int *fid,char *maa, unsigned int bidon1,
00171 med_int *lon1,med_int *n)
00172 #else
00173 med_int
00174 nedfnnse(med_int *fid,char *maa,med_int *lon1,med_int *n)
00175 #endif
00176 {
00177 med_int ret;
00178 char *fn1;
00179
00180 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00181
00182 if (!fn1)
00183 return -1;
00184
00185 ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00186
00187 _MEDcstringFree(fn1);
00188
00189 return ret;
00190 }
00191
00192 #ifdef PPRO_NT
00193 med_int
00194 EDFNNIL(med_int *fid,char *maa,unsigned bidon1, med_int *lon1)
00195 #else
00196 med_int
00197 nedfnnil(med_int *fid,char *maa,med_int *lon1)
00198 #endif
00199 {
00200 med_int ret;
00201 char *fn1;
00202
00203 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00204
00205 if (!fn1)
00206 return -1;
00207
00208 ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00209
00210 _MEDcstringFree(fn1);
00211
00212 return ret;
00213 }
00214
00215
00216 #ifdef PPRO_NT
00217 med_int
00218 EDFNNIE(med_int *fid, char *maa, unsigned int bidon1,
00219 med_int *lon1,med_int *n)
00220 #else
00221 med_int
00222 nedfnnie(med_int *fid,char *maa,med_int *lon1,med_int *n)
00223 #endif
00224 {
00225 med_int ret;
00226 char *fn1;
00227
00228 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00229
00230 if (!fn1)
00231 return -1;
00232
00233 ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00234
00235 _MEDcstringFree(fn1);
00236
00237 return ret;
00238 }
00239
00240 #ifdef PPRO_NT
00241 med_int
00242 EDFNNML(med_int *fid,char *maa,unsigned int bidon1,med_int *lon1)
00243 #else
00244 med_int
00245 nedfnnml(med_int *fid,char *maa,med_int *lon1)
00246 #endif
00247 {
00248 med_int ret;
00249 char *fn1;
00250
00251 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00252
00253 if (!fn1)
00254 return -1;
00255
00256 ret = (med_int) MEDnbnosoLire((med_idt) *fid,(char *)fn1);
00257
00258 _MEDcstringFree(fn1);
00259
00260 return ret;
00261 }
00262
00263 #ifdef PPRO_NT
00264 med_int
00265 EDFNNME(med_int *fid,char *maa,unsigned int bidon1,
00266 med_int *lon1,med_int *n)
00267 #else
00268 med_int
00269 nedfnnme(med_int *fid,char *maa,med_int *lon1,med_int *n)
00270 #endif
00271 {
00272 med_int ret;
00273 char *fn1;
00274
00275 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00276
00277 if (!fn1)
00278 return -1;
00279
00280 ret = (med_int) MEDnbnosoEcr((med_idt) *fid,(char *)fn1,(med_int)*n);
00281
00282 _MEDcstringFree(fn1);
00283
00284 return ret;
00285 }
00286
00287
00288 #ifdef PPRO_NT
00289 med_int
00290 EDFUNVC(med_int *fid , char *nom, unsigned int bidon, med_int *lon)
00291 #else
00292 med_int
00293 nedfunvc(med_int *fid , char *nom, med_int *lon)
00294 #endif
00295 {
00296 char *fn;
00297 med_int ret;
00298
00299 fn = _MED2cstring(nom, (int) * lon);
00300
00301 if (!fn)
00302 return(-1);
00303
00304 ret = (med_int) MEDunvCr((med_idt) *fid, fn);
00305
00306 _MEDcstringFree(fn);
00307
00308 return(ret);
00309 }
00310
00311 #ifdef PPRO_NT
00312 med_int
00313 EDFUNVL(med_int *fid,char *nom, unsigned int bidon, med_int *lon,
00314 char *nomu, unsigned int bidon1, med_int *lonu)
00315 #else
00316 med_int
00317 nedfunvl(med_int *fid,char *nom,med_int *lon,char *nomu,med_int *lonu)
00318 #endif
00319 {
00320 char *fn;
00321 char *fs1;
00322 med_int ret;
00323
00324 fn = _MED2cstring(nom, (int) * lon);
00325 fs1 = (char *) malloc(sizeof(char)*MED_TAILLE_LNOM+1);
00326
00327 if (!(fn&&fs1))
00328 return(-1);
00329
00330 ret = (med_int) MEDunvLire((med_idt)*fid,fn,fs1);
00331
00332 strncpy(nomu,fs1,MED_TAILLE_LNOM);
00333 _MEDfstring(nomu,MED_TAILLE_LNOM);
00334
00335 _MEDcstringFree(fn);
00336 free(fs1);
00337
00338 return(ret);
00339 }
00340
00341 #ifdef PPRO_NT
00342 med_int
00343 EDFESPC(med_int *fid, char *maa, unsigned int bidon,
00344 med_int *lon, med_int *dim)
00345 #else
00346 med_int
00347 nedfespc(med_int *fid, char *maa,med_int *lon,med_int *dim)
00348 #endif
00349 {
00350 char *fn;
00351 med_int ret;
00352
00353 fn = _MED2cstring(maa, (int) * lon);
00354
00355 if (!fn)
00356 return(-1);
00357
00358 ret = (med_int) MEDdimEspaceCr((med_idt) *fid, fn, (med_int) *dim);
00359
00360 _MEDcstringFree(fn);
00361
00362 return(ret);
00363 }
00364
00365 #ifdef PPRO_NT
00366 med_int
00367 EDFESPL(med_int *fid, char *maa, unsigned int bidon,
00368 med_int *lon)
00369 #else
00370 med_int
00371 nedfespl(med_int *fid, char *maa,med_int *lon)
00372 #endif
00373 {
00374 char *fn;
00375 med_int ret;
00376
00377 fn = _MED2cstring(maa, (int) * lon);
00378
00379 if (!fn)
00380 return(-1);
00381
00382 ret = (med_int) MEDdimEspaceLire((med_idt) *fid,fn);
00383
00384 _MEDcstringFree(fn);
00385
00386 return(ret);
00387 }
00388
00389 #ifdef PPRO_NT
00390 med_int
00391 EDFNAGE(med_int *fid,char *maa, unsigned int bidon1,
00392 med_int *lon1,med_int *type)
00393 #else
00394 med_int
00395 nedfnage(med_int *fid,char *maa,med_int *lon1,med_int *type)
00396 #endif
00397 {
00398 med_int ret;
00399 char *fn1;
00400
00401 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00402
00403 if (!fn1)
00404 return -1;
00405
00406 ret = (med_int) MEDnatureGrilleEcr((med_idt) *fid,(char *)fn1,(med_type_grille)*type);
00407
00408 _MEDcstringFree(fn1);
00409
00410 return ret;
00411 }
00412
00413 #ifdef PPRO_NT
00414 med_int
00415 EDFNAGL(med_int *fid,char *maa, unsigned int bidon1,
00416 med_int *lon1,med_int *type)
00417 #else
00418 med_int
00419 nedfnagl(med_int *fid,char *maa,med_int *lon1,med_int *type)
00420 #endif
00421 {
00422 med_int ret;
00423 char *fn1;
00424
00425 fn1 = _MED2cstring((char *)maa,(int)*lon1);
00426
00427 if (!fn1)
00428 return -1;
00429
00430 ret = (med_int) MEDnatureGrilleLire((med_idt) *fid,(char *)fn1,(med_type_grille *)type);
00431
00432 _MEDcstringFree(fn1);
00433
00434 return ret;
00435 }