MED fichier
medfieldcf.c
Aller à la documentation de ce fichier.
1 /* This file is part of MED.
2  *
3  * COPYRIGHT (C) 1999 - 2016 EDF R&D, CEA/DEN
4  * MED is free software: you can redistribute it and/or modify
5  * it under the terms of the GNU Lesser General Public License as published by
6  * the Free Software Foundation, either version 3 of the License, or
7  * (at your option) any later version.
8  *
9  * MED is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12  * GNU Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public License
15  * along with MED. If not, see <http://www.gnu.org/licenses/>.
16  */
17 
18 
19 #include <med.h>
20 #include "med_config.h"
21 #include "med_outils.h"
22 #include <string.h>
23 #include <stdlib.h>
24 
25 /*
26 From Fortran call of following C functions :
27 - MEDfieldCr
28 - MEDfieldValueWr
29 - MEDfieldValueWithProfileWr
30 - MEDnField
31 - MEDfieldnComponent
32 - MEDfieldInfo
33 - MEDfieldComputingStepInfo
34 - MEDfieldnProfile
35 - MEDfieldnValue
36 - MEDfieldnValueWithProfile
37 - MEDfieldValueRd
38 - MEDfieldValueWithProfileRd.c
39 - MEDfieldInterpWr
40 - MEDfieldnInterp
41 - MEDfieldInterpInfo
42 - MEDfieldValueAdvancedWr
43 - MEDfieldValueAdvancedRd
44 - MEDfieldnComponentByName
45 - MEDfieldInfoByName
46 - MEDfieldnValueWithProfileByName
47 - MEDfield23ComputingStepMeshInfo
48 - MEDfield23nProfile
49 - MEDfield23nValueWithProfile
50 - MEDfield23ValueWithProfileRd
51 */
52 
53 #define nmfdfcre F77_FUNC(mfdfcre,MFDFCRE)
54 #define nmfdfrvw F77_FUNC(mfdfrvw,MFDFRVW)
55 #define nmfdfivw F77_FUNC(mfdfivw,MFDFIVW)
56 #define nmfdfrpw F77_FUNC(mfdfrpw,MFDFRPW)
57 #define nmfdfipw F77_FUNC(mfdfipw,MFDFIPW)
58 #define nmfdfraw F77_FUNC(mfdfraw,MFDFRAW)
59 #define nmfdfiaw F77_FUNC(mfdfiaw,MFDFIAW)
60 #define nmfdfnfd F77_FUNC(mfdfnfd,MFDFNFD)
61 #define nmfdfnfc F77_FUNC(mfdfnfc,MFDFNFC)
62 #define nmfdfncn F77_FUNC(mfdfncn,MFDFNCN)
63 #define nmfdffdi F77_FUNC(mfdffdi,MFDFFDI)
64 #define nmfdffin F77_FUNC(mfdffin,MFDFFIN)
65 #define nmfdfcsi F77_FUNC(mfdfcsi,MFDFCSI)
66 #define nmfdfcmi F77_FUNC(mfdfcmi,MFDFCMI)
67 #define nmfdfcmw F77_FUNC(mfdfcmw,MFDFCMW)
68 #define nmfdfnpf F77_FUNC(mfdfnpf,MFDFNPF)
69 #define nmfdfnva F77_FUNC(mfdfnva,MFDFNVA)
70 #define nmfdfnvp F77_FUNC(mfdfnvp,MFDFNVP)
71 #define nmfdfnpn F77_FUNC(mfdfnpn,MFDFNPN)
72 #define nmfdfrvr F77_FUNC(mfdfrvr,MFDFRVR)
73 #define nmfdfivr F77_FUNC(mfdfivr,MFDFIVR)
74 #define nmfdfrpr F77_FUNC(mfdfrpr,MFDFRPR)
75 #define nmfdfipr F77_FUNC(mfdfipr,MFDFIPR)
76 #define nmfdfrar F77_FUNC(mfdfrar,MFDFRAR)
77 #define nmfdfiar F77_FUNC(mfdfiar,MFDFIAR)
78 #define nmfdfinw F77_FUNC(mfdfinw,MFDFINW)
79 #define nmfdfnin F77_FUNC(mfdfnin,MFDFNIN)
80 #define nmfdfini F77_FUNC(mfdfini,MFDFINI)
81 #define nmfdfoci F77_FUNC(mfdfoci,MFDFOCI)
82 #define nmfdfonp F77_FUNC(mfdfonp,MFDFONP)
83 #define nmfdfonv F77_FUNC(mfdfonv,MFDFONV)
84 #define nmfdforr F77_FUNC(mfdforr,MFDFORR)
85 #define nmfdfoir F77_FUNC(mfdfoir,MFDFOIR)
86 
87 
88 #ifdef PPRO_NT
89 med_int
90 MFDFCRE(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
91  med_int *ftype, med_int *ncomp, char *cname, unsigned int bidon2, med_int *cnamelen,
92  char *cuname, unsigned int bidon3, med_int *cunamelen,
93  char *dtunit, unsigned int bidon4, med_int *dtunitlen,
94  char* mname, unsigned int bidon5, med_int *mnamelen)
95 #else
96 med_int
97 nmfdfcre(med_int *fid, char *fname, med_int *fnamelen,
98  med_int *ftype, med_int *ncomp, char *cname, med_int *cnamelen,
99  char *cuname, med_int *cunamelen, char *dtunit, med_int *dtunitlen,
100  char* mname, med_int *mnamelen)
101 #endif
102 {
103  med_err _ret=0;
104  char *_fn1,*_fn2,*_fn3,*_fn4,*_fn5;
105  med_field_type _ftype = (med_field_type) *ftype;
106 
107  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
108  if (!_fn1)
109  return(-1);
110  _fn2 = _MED1cstring((char *) cname, (int) *cnamelen, (int) *ncomp*MED_SNAME_SIZE);
111  if (!_fn2)
112  return(-1);
113  _fn3 = _MED1cstring((char *) cuname, (int) *cunamelen, (int) *ncomp*MED_SNAME_SIZE);
114  if (!_fn3)
115  return(-1);
116  _fn4 = _MED2cstring((char *) dtunit, (int) *dtunitlen);
117  if (!_fn4)
118  return(-1);
119  _fn5 = _MED2cstring((char *) mname, (int) *mnamelen);
120  if (!_fn1)
121  return(-1);
122 
123  _ret = (med_int) MEDfieldCr((const med_idt) *fid,
124  _fn1,
125  _ftype,
126  (med_int) *ncomp,
127  _fn2,
128  _fn3,
129  _fn4,
130  _fn5);
131 
132  _MEDcstringFree(_fn1);
133  _MEDcstringFree(_fn2);
134  _MEDcstringFree(_fn3);
135  _MEDcstringFree(_fn4);
136  _MEDcstringFree(_fn5);
137 
138  return (_ret);
139 }
140 
141 
142 
143 
144 #ifdef PPRO_NT
145 med_int
146 MFDFRVW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
147  med_int *numdt, med_int *numit, med_float *dt,
148  med_int *etype, med_int *gtype, med_int *swm,
149  med_int *cs, med_int *n, med_float *val)
150 #else
151 med_int
152 nmfdfrvw(med_int *fid, char *fname, med_int *fnamelen,
153  med_int *numdt, med_int *numit, med_float *dt,
154  med_int *etype, med_int *gtype, med_int *swm,
155  med_int *cs, med_int *n, med_float *val)
156 #endif
157 {
158  med_err _ret=0;
159  char *_fn1;
160  med_switch_mode _swm = (med_switch_mode) *swm;
161  med_geometry_type _gtype = (med_geometry_type) *gtype;
162  med_entity_type _etype = (med_entity_type) *etype;
163 
164  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
165  if (!_fn1)
166  return(-1);
167 
168  _ret = (med_int) MEDfieldValueWr((const med_idt) *fid,
169  _fn1,
170  (med_int) *numdt,
171  (med_int) *numit,
172  (med_float) *dt,
173  _etype,
174  _gtype,
175  _swm,
176  (med_int) *cs,
177  (med_int) *n,
178  (unsigned char *) val);
179 
180 
181  _MEDcstringFree(_fn1);
182 
183  return (_ret);
184 }
185 
186 
187 
188 
189 #ifdef PPRO_NT
190 med_int
191 MFDFIVW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
192  med_int *numdt, med_int *numit, med_float *dt,
193  med_int *etype, med_int *gtype, med_int *swm,
194  med_int *cs, med_int *n, med_int *val)
195 #else
196 med_int
197 nmfdfivw(med_int *fid, char *fname, med_int *fnamelen,
198  med_int *numdt, med_int *numit, med_float *dt,
199  med_int *etype, med_int *gtype, med_int *swm,
200  med_int *cs, med_int *n, med_int *val)
201 #endif
202 {
203  med_err _ret=0;
204  char *_fn1;
205  med_switch_mode _swm = (med_switch_mode) *swm;
206  med_geometry_type _gtype = (med_geometry_type) *gtype;
207  med_entity_type _etype = (med_entity_type) *etype;
208 
209  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
210  if (!_fn1)
211  return(-1);
212 
213  _ret = (med_int) MEDfieldValueWr((const med_idt) *fid,
214  _fn1,
215  (med_int) *numdt,
216  (med_int) *numit,
217  (med_float) *dt,
218  _etype,
219  _gtype,
220  _swm,
221  (med_int) *cs,
222  (med_int) *n,
223  (unsigned char *) val);
224 
225 
226  _MEDcstringFree(_fn1);
227 
228  return (_ret);
229 }
230 
231 
232 
233 #ifdef PPRO_NT
234 med_int
235 MFDFRPW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
236  med_int *numdt, med_int *numit, med_float *dt,
237  med_int *etype, med_int *gtype,
238  med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen,
239  char *lname, unsigned int bidon3, med_int *lnamelen,
240  med_int *swm,med_int *cs, med_int *n, med_float *val)
241 #else
242 med_int
243 nmfdfrpw(med_int *fid, char *fname, med_int *fnamelen,
244  med_int *numdt, med_int *numit, med_float *dt,
245  med_int *etype, med_int *gtype,
246  med_int *stm, char *pname, med_int *pnamelen,
247  char *lname, med_int *lnamelen,
248  med_int *swm,med_int *cs, med_int *n, med_float *val)
249 #endif
250 {
251  med_err _ret=0;
252  char *_fn1,*_fn2,*_fn3;
253  med_switch_mode _swm = (med_switch_mode) *swm;
254  med_geometry_type _gtype = (med_geometry_type) *gtype;
255  med_entity_type _etype = (med_entity_type) *etype;
256  med_storage_mode _stm = (med_storage_mode) *stm;
257 
258  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
259  if (!_fn1)
260  return(-1);
261 
262  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
263  if (!_fn2)
264  return(-1);
265 
266  _fn3 = _MED2cstring((char *) lname, (int) *lnamelen);
267  if (!_fn3)
268  return(-1);
269 
270  _ret = (med_int) MEDfieldValueWithProfileWr((const med_idt) *fid,
271  _fn1,
272  (med_int) *numdt,
273  (med_int) *numit,
274  (med_float) *dt,
275  _etype,
276  _gtype,
277  _stm,
278  _fn2,
279  _fn3,
280  _swm,
281  (med_int) *cs,
282  (med_int) *n,
283  (unsigned char *) val);
284 
285 
286  _MEDcstringFree(_fn1);
287  _MEDcstringFree(_fn2);
288  _MEDcstringFree(_fn3);
289 
290  return (_ret);
291 }
292 
293 
294 #ifdef PPRO_NT
295 med_int
296 MFDFIPW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
297  med_int *numdt, med_int *numit, med_float *dt,
298  med_int *etype, med_int *gtype,
299  med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen,
300  char *lname, unsigned int bidon3, med_int *lnamelen,
301  med_int *swm,med_int *cs, med_int *n, med_int *val)
302 #else
303 med_int
304 nmfdfipw(med_int *fid, char *fname, med_int *fnamelen,
305  med_int *numdt, med_int *numit, med_float *dt,
306  med_int *etype, med_int *gtype,
307  med_int *stm, char *pname, med_int *pnamelen,
308  char *lname, med_int *lnamelen,
309  med_int *swm,med_int *cs, med_int *n, med_int *val)
310 #endif
311 {
312  med_err _ret=0;
313  char *_fn1,*_fn2,*_fn3;
314  med_switch_mode _swm = (med_switch_mode) *swm;
315  med_geometry_type _gtype = (med_geometry_type) *gtype;
316  med_entity_type _etype = (med_entity_type) *etype;
317  med_storage_mode _stm = (med_storage_mode) *stm;
318 
319  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
320  if (!_fn1)
321  return(-1);
322 
323  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
324  if (!_fn2)
325  return(-1);
326 
327  _fn3 = _MED2cstring((char *) lname, (int) *lnamelen);
328  if (!_fn3)
329  return(-1);
330 
331  _ret = (med_int) MEDfieldValueWithProfileWr((const med_idt) *fid,
332  _fn1,
333  (med_int) *numdt,
334  (med_int) *numit,
335  (med_float) *dt,
336  _etype,
337  _gtype,
338  _stm,
339  _fn2,
340  _fn3,
341  _swm,
342  (med_int) *cs,
343  (med_int) *n,
344  (unsigned char *) val);
345 
346 
347  _MEDcstringFree(_fn1);
348  _MEDcstringFree(_fn2);
349  _MEDcstringFree(_fn3);
350 
351  return (_ret);
352 }
353 
354 
355 #ifdef PPRO_NT
356 med_int
357 MFDFRAW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
358  med_int *numdt, med_int *numit, med_float *dt,
359  med_int *etype, med_int *gtype,
360  char *lname, unsigned int bidon2, med_int *lnamelen,
361  unsigned char **flt, med_float *val)
362 #else
363 med_int
364 nmfdfraw(med_int *fid, char *fname, med_int *fnamelen,
365  med_int *numdt, med_int *numit, med_float *dt,
366  med_int *etype, med_int *gtype,
367  char *lname, med_int *lnamelen,
368  unsigned char **flt, med_float *val)
369 #endif
370 {
371  med_err _ret=0;
372  char *_fn1,*_fn2;
373  med_geometry_type _gtype = (med_geometry_type) *gtype;
374  med_entity_type _etype = (med_entity_type) *etype;
375  med_filter *_filter = (med_filter*) *flt;
376 
377  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
378  if (!_fn1)
379  return(-1);
380 
381  _fn2 = _MED2cstring((char *) lname, (int) *lnamelen);
382  if (!_fn2)
383  return(-1);
384 
385  _ret = (med_int) MEDfieldValueAdvancedWr((const med_idt) *fid,
386  _fn1,
387  (med_int) *numdt,
388  (med_int) *numit,
389  (med_float) *dt,
390  _etype,
391  _gtype,
392  _fn2,
393  _filter,
394  (unsigned char *) val);
395 
396 
397  _MEDcstringFree(_fn1);
398  _MEDcstringFree(_fn2);
399 
400 
401  return (_ret);
402 }
403 
404 
405 
406 #ifdef PPRO_NT
407 med_int
408 MFDFIAW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
409  med_int *numdt, med_int *numit, med_float *dt,
410  med_int *etype, med_int *gtype,
411  char *lname, unsigned int bidon2, med_int *lnamelen,
412  unsigned char **flt, med_int *val)
413 #else
414 med_int
415 nmfdfiaw(med_int *fid, char *fname, med_int *fnamelen,
416  med_int *numdt, med_int *numit, med_float *dt,
417  med_int *etype, med_int *gtype,
418  char *lname, med_int *lnamelen,
419  unsigned char **flt, med_int *val)
420 #endif
421 {
422  med_err _ret=0;
423  char *_fn1,*_fn2;
424  med_geometry_type _gtype = (med_geometry_type) *gtype;
425  med_entity_type _etype = (med_entity_type) *etype;
426  med_filter *_filter = (med_filter*) *flt;
427 
428  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
429  if (!_fn1)
430  return(-1);
431 
432  _fn2 = _MED2cstring((char *) lname, (int) *lnamelen);
433  if (!_fn2)
434  return(-1);
435 
436  _ret = (med_int) MEDfieldValueAdvancedWr((const med_idt) *fid,
437  _fn1,
438  (med_int) *numdt,
439  (med_int) *numit,
440  (med_float) *dt,
441  _etype,
442  _gtype,
443  _fn2,
444  _filter,
445  (unsigned char *) val);
446 
447 
448  _MEDcstringFree(_fn1);
449  _MEDcstringFree(_fn2);
450 
451 
452  return (_ret);
453 }
454 
455 
456 
457 #ifdef PPRO_NT
458 med_int
459 MFDFNFD(med_int *fid)
460 #else
461 med_int
463 #endif
464 {
465  med_int _ret;
466 
467  _ret = (med_int) MEDnField((const med_idt) *fid);
468 
469  return(_ret);
470 }
471 
472 
473 #ifdef PPRO_NT
474 med_int
475 MFDFNFC(med_int *fid, med_int *ind)
476 #else
477 med_int
479 #endif
480 {
481  med_int _ret;
482 
483  _ret = (med_int) MEDfieldnComponent((const med_idt) *fid,
484  (med_int) *ind);
485 
486  return(_ret);
487 }
488 
489 
490 #ifdef PPRO_NT
491 med_int
492 MFDFNCN(med_int *fid,
493  char* fname, unsigned int bidon1, med_int *fnamelen)
494 #else
495 med_int
497  char* fname, med_int *fnamelen)
498 #endif
499 {
500  med_int _ret;
501  char *_fn1;
502 
503  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
504  if (!_fn1)
505  return(-1);
506 
507  _ret = (med_int) MEDfieldnComponentByName((const med_idt) *fid,
508  _fn1);
509 
510  _MEDcstringFree(_fn1);
511 
512  return(_ret);
513 }
514 
515 
516 
517 #ifdef PPRO_NT
518 med_int
519 MFDFFDI(med_int *fid, med_int *it, char *fname, unsigned int bidon1,
520  char*mname, unsigned int bidon2,
521  med_int *localmesh, med_int *type,
522  char *cname, unsigned int bidon3,
523  char *cunit, unsigned int bidon4,
524  char *dtunit, unsigned int bidon5,
525  med_int *nc)
526 #else
527 med_int
528 nmfdffdi(med_int *fid, med_int *it, char *fname,char *mname,
529  med_int *localmesh, med_int *type,
530  char *cname,char *cunit, char *dtunit, med_int *nc)
531 #endif
532 {
533  med_int _ret;
534  char _fs1[MED_NAME_SIZE+1]="";
535  char _fs2[MED_NAME_SIZE+1]="";
536  char _fs3[MED_SNAME_SIZE+1]="";
537  char *_fs4, *_fs5;
538  med_field_type _type;
539  med_int _nc;
540  med_bool _lmesh;
541 
542  _nc = MEDfieldnComponent((const med_idt)*fid, (const med_int) *it);
543  if (_nc < 0)
544  return (-1);
545 
546  _fs4 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs4='\0';
547  _fs5 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs5='\0';
548 
549  if (!(_fs4&&_fs5))
550  return (-1);
551 
552  _ret = (med_int) MEDfieldInfo((const med_idt)*fid,
553  (const med_int) *it,
554  _fs1,
555  _fs2,
556  &_lmesh,
557  &_type,
558  _fs4,
559  _fs5,
560  _fs3,
561  (med_int *) nc);
562 
563 
564  *type = (med_int) _type;
565  *localmesh = (med_int) _lmesh;
566 
567  _MEDc2fString(_fs1,fname,MED_NAME_SIZE);
568  _MEDc2fString(_fs2,mname,MED_NAME_SIZE);
569  _MEDc2fString(_fs3,dtunit,MED_SNAME_SIZE);
570  _MEDc2fString(_fs4,cname,MED_SNAME_SIZE*_nc);
571  _MEDc2fString(_fs5,cunit,MED_SNAME_SIZE*_nc);
572 
573  free(_fs4);
574  free(_fs5);
575 
576  return _ret;
577 }
578 
579 
580 #ifdef PPRO_NT
581 med_int
582 MFDFFIN(med_int *fid, char *fname, unsigned int bidon1,med_int *fnamelen,
583  char*mname, unsigned int bidon2,
584  med_int *localmesh, med_int *type,
585  char *cname, unsigned int bidon3,
586  char *cunit, unsigned int bidon4,
587  char *dtunit, unsigned int bidon5,
588  med_int *nc)
589 #else
590 med_int
591 nmfdffin(med_int *fid, char *fname, med_int *fnamelen,
592  char*mname, med_int *localmesh, med_int *type,
593  char *cname, char *cunit, char *dtunit,
594  med_int *nc)
595 #endif
596 {
597  med_int _ret;
598  char *_fn1;
599  char _fs2[MED_NAME_SIZE+1]="";
600  char _fs3[MED_SNAME_SIZE+1]="";
601  char *_fs4, *_fs5;
602  med_field_type _type;
603  med_int _nc;
604  med_bool _lmesh;
605 
606  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
607  if (!_fn1)
608  return(-1);
609 
610  _nc = MEDfieldnComponentByName((const med_idt)*fid, _fn1);
611  if (_nc < 0)
612  return (-1);
613 
614  _fs4 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs4='\0';
615  _fs5 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_nc)+1);*_fs5='\0';
616 
617  if (!(_fs4&&_fs5))
618  return (-1);
619 
620  _ret = (med_int) MEDfieldInfoByName((const med_idt)*fid,
621  _fn1,
622  _fs2,
623  &_lmesh,
624  &_type,
625  _fs4,
626  _fs5,
627  _fs3,
628  (med_int *) nc);
629 
630 
631  *type = (med_int) _type;
632  *localmesh = (med_int) _lmesh;
633 
634  _MEDc2fString(_fs2,mname,MED_NAME_SIZE);
635  _MEDc2fString(_fs3,dtunit,MED_SNAME_SIZE);
636  _MEDc2fString(_fs4,cname,MED_SNAME_SIZE*_nc);
637  _MEDc2fString(_fs5,cunit,MED_SNAME_SIZE*_nc);
638 
639  free(_fs4);
640  free(_fs5);
641 
642  _MEDcstringFree(_fn1);
643 
644  return _ret;
645 }
646 
647 
648 
649 #ifdef PPRO_NT
650 med_int
651 MFDFCSI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
652  med_int *it, med_int *numdt, med_int *numit, med_float *dt)
653 #else
654 med_int
655 nmfdfcsi(med_int *fid, char* fname, med_int *fnamelen,
656  med_int *it, med_int *numdt, med_int *numit, med_float *dt)
657 #endif
658 {
659  med_int _ret;
660  char *_fn1;
661 
662  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
663  if (!_fn1)
664  return(-1);
665 
667  _fn1,
668  (med_int) *it,
669  (med_int *) numdt,
670  (med_int *) numit,
671  (med_float *) dt);
672 
673  _MEDcstringFree(_fn1);
674 
675  return _ret;
676 }
677 
678 
679 #ifdef PPRO_NT
680 med_int
681 MFDFCMI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
682  med_int *it, med_int *numdt, med_int *numit, med_float *dt, med_int *meshnumdt, med_int *meshnumit)
683 #else
684 med_int
685 nmfdfcmi(med_int *fid, char* fname, med_int *fnamelen,
686  med_int *it, med_int *numdt, med_int *numit, med_float *dt,
687  med_int *meshnumdt, med_int *meshnumit)
688 #endif
689 {
690  med_int _ret;
691  char *_fn1;
692 
693  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
694  if (!_fn1)
695  return(-1);
696 
698  _fn1,
699  (med_int) *it,
700  (med_int *) numdt,
701  (med_int *) numit,
702  (med_float *) dt,
703  (med_int *) meshnumdt,
704  (med_int *) meshnumit);
705 
706  _MEDcstringFree(_fn1);
707 
708  return _ret;
709 }
710 
711 #ifdef PPRO_NT
712 med_int
713 MFDFCMW(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
714  med_int *numdt, med_int *numit, med_int *meshnumdt, med_int *meshnumit)
715 #else
716 med_int
717 nmfdfcmw(med_int *fid, char* fname, med_int *fnamelen,
718  med_int *numdt, med_int *numit,
719  med_int *meshnumdt, med_int *meshnumit)
720 #endif
721 {
722  med_int _ret;
723  char *_fn1;
724 
725  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
726  if (!_fn1)
727  return(-1);
728 
730  _fn1,
731  (med_int ) *numdt,
732  (med_int ) *numit,
733  (med_int ) *meshnumdt,
734  (med_int ) *meshnumit);
735 
736  _MEDcstringFree(_fn1);
737 
738  return _ret;
739 }
740 
741 
742 
743 #ifdef PPRO_NT
744 med_int
745 MFDFNPF(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen,
746  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
747  char *dpname, unsigned int bidon2, char *dlname, unsigned int bidon3)
748 #else
749 med_int
750 nmfdfnpf(med_int *fid, char*fname, med_int *fnamelen,
751  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
752  char *dpname, char *dlname)
753 #endif
754 {
755  med_int _ret;
756  char *_fn1;
757  char _fs2[MED_NAME_SIZE+1]="";
758  char _fs3[MED_NAME_SIZE+1]="";
759  med_geometry_type _gtype = (med_geometry_type) *gtype;
760  med_entity_type _etype = (med_entity_type) *etype;
761 
762  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
763  if (!_fn1)
764  return(-1);
765 
766  _ret = (med_int) MEDfieldnProfile((const med_idt) *fid,
767  _fn1,
768  (med_int) *numdt,
769  (med_int) *numit,
770  _etype,
771  _gtype,
772  _fs2,
773  _fs3);
774 
775  _MEDc2fString(_fs2,dpname,MED_NAME_SIZE);
776  _MEDc2fString(_fs3,dlname,MED_NAME_SIZE);
777 
778  _MEDcstringFree(_fn1);
779 
780  return(_ret);
781 }
782 
783 
784 #ifdef PPRO_NT
785 med_int
786 MFDFNVA(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
787  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype)
788 #else
789 med_int
790 nmfdfnva(med_int *fid, char *fname, med_int *fnamelen,
791  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype)
792 #endif
793 {
794  med_int _ret;
795  char *_fn1;
796  med_geometry_type _gtype = (med_geometry_type) *gtype;
797  med_entity_type _etype = (med_entity_type) *etype;
798 
799  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
800  if (!_fn1)
801  return(-1);
802 
803  _ret = (med_int) MEDfieldnValue((med_idt) *fid,
804  _fn1,
805  (med_int) *numdt,
806  (med_int) *numit,
807  _etype,
808  _gtype);
809 
810  _MEDcstringFree(_fn1);
811 
812  return(_ret);
813 }
814 
815 
816 #ifdef PPRO_NT
817 med_int
818 MFDFNVP(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen,
819  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
820  med_int *pit, med_int *stm, char *pname, unsigned int bidon2,
821  med_int *psize, char *lname, unsigned int bidon3, med_int *nip)
822 #else
823 med_int
824 nmfdfnvp(med_int *fid, char*fname, med_int *fnamelen,
825  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
826  med_int *pit, med_int *stm, char *pname,
827  med_int *psize, char *lname, med_int *nip)
828 #endif
829 {
830  med_int _ret;
831  char *_fn1;
832  char _fs2[MED_NAME_SIZE+1]="";
833  char _fs3[MED_NAME_SIZE+1]="";
834  med_geometry_type _gtype = (med_geometry_type) *gtype;
835  med_entity_type _etype = (med_entity_type) *etype;
836  med_storage_mode _stm = (med_storage_mode) *stm;
837 
838  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
839  if (!_fn1)
840  return(-1);
841 
842  _ret = (med_int) MEDfieldnValueWithProfile((med_idt) *fid,
843  _fn1,
844  (med_int) *numdt,
845  (med_int) *numit,
846  _etype,
847  _gtype,
848  (med_int) *pit,
849  _stm,
850  _fs2,
851  (med_int *) psize,
852  _fs3,
853  (med_int *) nip);
854 
855  _MEDc2fString(_fs2,pname,MED_NAME_SIZE);
856  _MEDc2fString(_fs3,lname,MED_NAME_SIZE);
857 
858  _MEDcstringFree(_fn1);
859 
860  return(_ret);
861 }
862 
863 
864 #ifdef PPRO_NT
865 med_int
866 MFDFNPN(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
867  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
868  char *pname, unsigned int bidon2, med_int *pnamelen, med_int *stm,
869  med_int *psize, char *lname, unsigned int bidon3, med_int *nip)
870 #else
871 med_int
872 nmfdfnpn(med_int *fid, char* fname, med_int *fnamelen,
873  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
874  char *pname, med_int *pnamelen, med_int *stm,
875  med_int *psize, char *lname, med_int *nip)
876 #endif
877 {
878  med_int _ret;
879  char *_fn1, *_fn2;
880  char _fs3[MED_NAME_SIZE+1]="";
881  med_geometry_type _gtype = (med_geometry_type) *gtype;
882  med_entity_type _etype = (med_entity_type) *etype;
883  med_storage_mode _stm = (med_storage_mode) *stm;
884 
885  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
886  if (!_fn1)
887  return(-1);
888 
889  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
890  if (!_fn2)
891  return(-1);
892 
894  _fn1,
895  (med_int) *numdt,
896  (med_int) *numit,
897  _etype,
898  _gtype,
899  _fn2,
900  _stm,
901  (med_int*) psize,
902  _fs3,
903  (med_int*) nip);
904 
905  _MEDc2fString(_fs3,lname,MED_NAME_SIZE);
906 
907  _MEDcstringFree(_fn1);
908  _MEDcstringFree(_fn2);
909 
910  return(_ret);
911 }
912 
913 
914 
915 #ifdef PPRO_NT
916 med_int
917 MFDFRVR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
918  med_int *numdt, med_int *numit,
919  med_int *etype, med_int *gtype, med_int *swm,
920  med_int *cs, med_float *val)
921 #else
922 med_int
923 nmfdfrvr(med_int *fid, char *fname, med_int *fnamelen,
924  med_int *numdt, med_int *numit,
925  med_int *etype, med_int *gtype, med_int *swm,
926  med_int *cs, med_float *val)
927 #endif
928 {
929  med_err _ret=0;
930  char *_fn1;
931  med_switch_mode _swm = (med_switch_mode) *swm;
932  med_geometry_type _gtype = (med_geometry_type) *gtype;
933  med_entity_type _etype = (med_entity_type) *etype;
934 
935  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
936  if (!_fn1)
937  return(-1);
938 
939  _ret = (med_int) MEDfieldValueRd((const med_idt) *fid,
940  _fn1,
941  (med_int) *numdt,
942  (med_int) *numit,
943  _etype,
944  _gtype,
945  _swm,
946  (med_int) *cs,
947  (unsigned char *) val);
948 
949 
950  _MEDcstringFree(_fn1);
951 
952  return (_ret);
953 }
954 
955 
956 
957 
958 #ifdef PPRO_NT
959 med_int
960 MFDFIVR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
961  med_int *numdt, med_int *numit,
962  med_int *etype, med_int *gtype, med_int *swm,
963  med_int *cs, med_int *val)
964 #else
965 med_int
966 nmfdfivr(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
967  med_int *numdt, med_int *numit,
968  med_int *etype, med_int *gtype, med_int *swm,
969  med_int *cs, med_int *val)
970 #endif
971 {
972  med_err _ret=0;
973  char *_fn1;
974  med_switch_mode _swm = (med_switch_mode) *swm;
975  med_geometry_type _gtype = (med_geometry_type) *gtype;
976  med_entity_type _etype = (med_entity_type) *etype;
977 
978  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
979  if (!_fn1)
980  return(-1);
981 
982  _ret = (med_int) MEDfieldValueRd((const med_idt) *fid,
983  _fn1,
984  (med_int) *numdt,
985  (med_int) *numit,
986  _etype,
987  _gtype,
988  _swm,
989  (med_int) *cs,
990  (unsigned char *) val);
991 
992 
993  _MEDcstringFree(_fn1);
994 
995  return (_ret);
996 }
997 
998 
999 
1000 #ifdef PPRO_NT
1001 med_int
1002 MFDFRPR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1003  med_int *numdt, med_int *numit,
1004  med_int *etype, med_int *gtype,
1005  med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen,
1006  med_int *swm,med_int *cs, med_float *val)
1007 #else
1008 med_int
1009 nmfdfrpr(med_int *fid, char *fname, med_int *fnamelen,
1010  med_int *numdt, med_int *numit,
1011  med_int *etype, med_int *gtype,
1012  med_int *stm, char *pname, med_int *pnamelen,
1013  med_int *swm,med_int *cs, med_float *val)
1014 #endif
1015 {
1016  med_err _ret=0;
1017  char *_fn1,*_fn2;
1018  med_switch_mode _swm = (med_switch_mode) *swm;
1019  med_geometry_type _gtype = (med_geometry_type) *gtype;
1020  med_entity_type _etype = (med_entity_type) *etype;
1021  med_storage_mode _stm = (med_storage_mode) *stm;
1022 
1023  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1024  if (!_fn1)
1025  return(-1);
1026 
1027  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
1028  if (!_fn2)
1029  return(-1);
1030 
1031  _ret = (med_int) MEDfieldValueWithProfileRd((med_idt) *fid,
1032  _fn1,
1033  (med_int) *numdt,
1034  (med_int) *numit,
1035  _etype,
1036  _gtype,
1037  _stm,
1038  _fn2,
1039  _swm,
1040  (med_int) *cs,
1041  (unsigned char *) val);
1042 
1043 
1044  _MEDcstringFree(_fn1);
1045  _MEDcstringFree(_fn2);
1046 
1047  return (_ret);
1048 }
1049 
1050 
1051 #ifdef PPRO_NT
1052 med_int
1053 MFDFIPR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1054  med_int *numdt, med_int *numit,
1055  med_int *etype, med_int *gtype,
1056  med_int *stm, char *pname, unsigned int bidon2, med_int *pnamelen,
1057  med_int *swm, med_int *cs, med_int *val)
1058 #else
1059 med_int
1060 nmfdfipr(med_int *fid, char *fname, med_int *fnamelen,
1061  med_int *numdt, med_int *numit,
1062  med_int *etype, med_int *gtype,
1063  med_int *stm, char *pname, med_int *pnamelen,
1064  med_int *swm,med_int *cs, med_int *val)
1065 #endif
1066 {
1067  med_err _ret=0;
1068  char *_fn1,*_fn2;
1069  med_switch_mode _swm = (med_switch_mode) *swm;
1070  med_geometry_type _gtype = (med_geometry_type) *gtype;
1071  med_entity_type _etype = (med_entity_type) *etype;
1072  med_storage_mode _stm = (med_storage_mode) *stm;
1073 
1074  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1075  if (!_fn1)
1076  return(-1);
1077 
1078  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
1079  if (!_fn2)
1080  return(-1);
1081 
1082  _ret = (med_int) MEDfieldValueWithProfileRd((med_idt) *fid,
1083  _fn1,
1084  (med_int) *numdt,
1085  (med_int) *numit,
1086  _etype,
1087  _gtype,
1088  _stm,
1089  _fn2,
1090  _swm,
1091  (med_int) *cs,
1092  (unsigned char *) val);
1093 
1094 
1095  _MEDcstringFree(_fn1);
1096  _MEDcstringFree(_fn2);
1097 
1098  return (_ret);
1099 }
1100 
1101 
1102 #ifdef PPRO_NT
1103 med_int
1104 MFDFRAR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1105  med_int *numdt, med_int *numit,
1106  med_int *etype, med_int *gtype,
1107  unsigned char **flt, med_float *val)
1108 #else
1109 med_int
1110 nmfdfrar(med_int *fid, char *fname, med_int *fnamelen,
1111  med_int *numdt, med_int *numit,
1112  med_int *etype, med_int *gtype,
1113  unsigned char **flt, med_float *val)
1114 #endif
1115 {
1116  med_err _ret=0;
1117  char *_fn1;
1118  med_geometry_type _gtype = (med_geometry_type) *gtype;
1119  med_entity_type _etype = (med_entity_type) *etype;
1120  med_filter *_filter = (med_filter*) *flt;
1121 
1122  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1123  if (!_fn1)
1124  return(-1);
1125 
1126  _ret = (med_int) MEDfieldValueAdvancedRd((const med_idt) *fid,
1127  _fn1,
1128  (med_int) *numdt,
1129  (med_int) *numit,
1130  _etype,
1131  _gtype,
1132  _filter,
1133  (unsigned char *) val);
1134 
1135 
1136  _MEDcstringFree(_fn1);
1137 
1138  return (_ret);
1139 }
1140 
1141 
1142 #ifdef PPRO_NT
1143 med_int
1144 MFDFIAR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1145  med_int *numdt, med_int *numit,
1146  med_int *etype, med_int *gtype,
1147  unsigned char **flt, med_int *val)
1148 #else
1149 med_int
1150 nmfdfiar(med_int *fid, char *fname, med_int *fnamelen,
1151  med_int *numdt, med_int *numit,
1152  med_int *etype, med_int *gtype,
1153  unsigned char **flt, med_int *val)
1154 #endif
1155 {
1156  med_err _ret=0;
1157  char *_fn1;
1158  med_geometry_type _gtype = (med_geometry_type) *gtype;
1159  med_entity_type _etype = (med_entity_type) *etype;
1160  med_filter *_filter = (med_filter*) *flt;
1161 
1162  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1163  if (!_fn1)
1164  return(-1);
1165 
1166  _ret = (med_int) MEDfieldValueAdvancedRd((const med_idt) *fid,
1167  _fn1,
1168  (med_int) *numdt,
1169  (med_int) *numit,
1170  _etype,
1171  _gtype,
1172  _filter,
1173  (unsigned char *) val);
1174 
1175 
1176  _MEDcstringFree(_fn1);
1177 
1178  return (_ret);
1179 }
1180 
1181 
1182 
1183 #ifdef PPRO_NT
1184 med_int
1185 MFDFINW(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1186  char *iname, unsigned int bidon2, med_int *inamelen)
1187 #else
1188 med_int
1189 nmfdfinw(med_int *fid, char *fname, med_int *fnamelen,
1190  char *iname, med_int *inamelen)
1191 #endif
1192 {
1193  med_err _ret=0;
1194  char *_fn1,*_fn2;
1195 
1196  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1197  if (!_fn1)
1198  return(-1);
1199 
1200  _fn2 = _MED2cstring((char *) iname, (int) *inamelen);
1201  if (!_fn2)
1202  return(-1);
1203 
1204  _ret = (med_int) MEDfieldInterpWr((med_idt) *fid,
1205  _fn1,
1206  _fn2);
1207 
1208 
1209  _MEDcstringFree(_fn1);
1210  _MEDcstringFree(_fn2);
1211 
1212  return (_ret);
1213 }
1214 
1215 
1216 
1217 #ifdef PPRO_NT
1218 med_int
1219 MFDFNIN(med_int *fid,
1220  char *fname, unsigned int bidon1, med_int *fnamelen)
1221 #else
1222 med_int
1223 nmfdfnin(med_int *fid,char *fname, med_int *fnamelen)
1224 #endif
1225 {
1226  med_int _ret;
1227  char *_fn1;
1228 
1229  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1230  if (!_fn1)
1231  return(-1);
1232 
1233  _ret = (med_int) MEDfieldnInterp((const med_idt) *fid,_fn1);
1234 
1235  _MEDcstringFree(_fn1);
1236 
1237  return(_ret);
1238 }
1239 
1240 
1241 
1242 #ifdef PPRO_NT
1243 med_int
1244 MFDFINI(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1245  med_int *it, char *iname, unsigned int bidon2)
1246 #else
1247 med_int
1248 nmfdfini(med_int *fid, char *fname, med_int *fnamelen, med_int *it, char *iname)
1249 #endif
1250 {
1251  med_err _ret=0;
1252  char *_fn1;
1253  char _fs1[MED_NAME_SIZE+1]="";
1254 
1255  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1256  if (!_fn1)
1257  return(-1);
1258 
1259  _ret = (med_int) MEDfieldInterpInfo((med_idt) *fid,
1260  _fn1,
1261  (med_int) *it,
1262  _fs1);
1263 
1264  _MEDc2fString(_fs1,iname,MED_NAME_SIZE);
1265  _MEDcstringFree(_fn1);
1266 
1267  return (_ret);
1268 }
1269 
1270 
1271 
1272 #ifdef PPRO_NT
1273 med_int
1274 MFDFOCI(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
1275  med_int *it, med_int *numdt, med_int *numit, med_float *dt,
1276  med_int *nmesh, char *mname, unsigned int bidon2, med_int *lmesh,
1277  med_int *mnumdt, med_int *mnumit)
1278 #else
1279 med_int
1280 nmfdfoci(med_int *fid, char* fname,med_int *fnamelen,
1281  med_int *it, med_int *numdt, med_int *numit, med_float *dt,
1282  med_int *nmesh, char *mname, med_int *lmesh,
1283  med_int *mnumdt, med_int *mnumit)
1284 #endif
1285 {
1286  med_int _ret;
1287  char *_fn1;
1288  char _fs1[MED_NAME_SIZE+1]="";
1289  med_bool _lmesh;
1290 
1291  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1292  if (!_fn1)
1293  return(-1);
1294 
1296  _fn1,
1297  (med_int) *it,
1298  (med_int *) numdt,
1299  (med_int *) numit,
1300  (med_float *) dt,
1301  (med_int *) nmesh,
1302  _fs1,
1303  &_lmesh,
1304  (med_int *) mnumdt,
1305  (med_int *) mnumit);
1306 
1307  *lmesh = (med_int) _lmesh;
1308  _MEDc2fString(_fs1,mname,MED_NAME_SIZE);
1309 
1310  _MEDcstringFree(_fn1);
1311 
1312  return _ret;
1313 }
1314 
1315 
1316 #ifdef PPRO_NT
1317 med_int
1318 MFDFONP(med_int *fid, char* fname, unsigned int bidon1, med_int *fnamelen,
1319  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
1320  med_int *it, char *mname, unsigned int bidon2,
1321  char *dpname, unsigned int bidon3, char *dlname, unsigned int bidon4)
1322 #else
1323 med_int
1324 nmfdfonp(med_int *fid, char*fname, med_int *fnamelen,
1325  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
1326  med_int *it, char *mname,
1327  char *dpname, char *dlname)
1328 #endif
1329 {
1330  med_int _ret;
1331  char *_fn1;
1332  char _fs2[MED_NAME_SIZE+1]="";
1333  char _fs3[MED_NAME_SIZE+1]="";
1334  char _fs4[MED_NAME_SIZE+1]="";
1335  med_geometry_type _gtype = (med_geometry_type) *gtype;
1336  med_entity_type _etype = (med_entity_type) *etype;
1337 
1338  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1339  if (!_fn1)
1340  return(-1);
1341 
1342  _ret = (med_int) MEDfield23nProfile((const med_idt) *fid,
1343  _fn1,
1344  (med_int) *numdt,
1345  (med_int) *numit,
1346  _etype,
1347  _gtype,
1348  (med_int) *it,
1349  _fs2,
1350  _fs3,
1351  _fs4);
1352 
1353  _MEDc2fString(_fs2,mname,MED_NAME_SIZE);
1354  _MEDc2fString(_fs3,dpname,MED_NAME_SIZE);
1355  _MEDc2fString(_fs4,dlname,MED_NAME_SIZE);
1356 
1357  _MEDcstringFree(_fn1);
1358 
1359  return(_ret);
1360 }
1361 
1362 
1363 
1364 #ifdef PPRO_NT
1365 med_int
1366 MFDFONV(med_int *fid, char*fname, unsigned int bidon1, med_int *fnamelen,
1367  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
1368  char* mname, unsigned int bidon2, med_int *mnamelen,
1369  med_int *pit, med_int *stm, char *pname, unsigned int bidon3,
1370  med_int *psize, char *lname, unsigned int bidon4, med_int *nip)
1371 #else
1372 med_int
1373 nmfdfonv(med_int *fid, char*fname, med_int *fnamelen,
1374  med_int *numdt, med_int *numit, med_int *etype, med_int *gtype,
1375  char* mname, med_int *mnamelen,
1376  med_int *pit, med_int *stm, char *pname,
1377  med_int *psize, char *lname, med_int *nip)
1378 #endif
1379 {
1380  med_int _ret;
1381  char *_fn1, *_fn2;
1382  char _fs2[MED_NAME_SIZE+1]="";
1383  char _fs3[MED_NAME_SIZE+1]="";
1384  med_geometry_type _gtype = (med_geometry_type) *gtype;
1385  med_entity_type _etype = (med_entity_type) *etype;
1386  med_storage_mode _stm = (med_storage_mode) *stm;
1387 
1388  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1389  if (!_fn1)
1390  return(-1);
1391 
1392  _fn2= _MED2cstring((char *) mname, (int) *mnamelen);
1393  if (!_fn2)
1394  return(-1);
1395 
1397  _fn1,
1398  (med_int) *numdt,
1399  (med_int) *numit,
1400  _etype,
1401  _gtype,
1402  _fn2,
1403  (med_int) *pit,
1404  _stm,
1405  _fs2,
1406  (med_int *) psize,
1407  _fs3,
1408  (med_int *) nip);
1409 
1410  _MEDc2fString(_fs2,pname,MED_NAME_SIZE);
1411  _MEDc2fString(_fs3,lname,MED_NAME_SIZE);
1412 
1413  _MEDcstringFree(_fn1);
1414  _MEDcstringFree(_fn2);
1415 
1416  return(_ret);
1417 }
1418 
1419 
1420 
1421 #ifdef PPRO_NT
1422 med_int
1423 MFDFORR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1424  med_int *numdt, med_int *numit,
1425  med_int *etype, med_int *gtype,
1426  char *mname, unsigned int bidon2, med_int *mnamelen,
1427  med_int *stm, char *pname, unsigned int bidon3, med_int *pnamelen,
1428  med_int *swm,med_int *cs, med_float *val)
1429 #else
1430 med_int
1431 nmfdforr(med_int *fid, char *fname, med_int *fnamelen,
1432  med_int *numdt, med_int *numit,
1433  med_int *etype, med_int *gtype,
1434  char *mname, med_int *mnamelen,
1435  med_int *stm, char *pname, med_int *pnamelen,
1436  med_int *swm,med_int *cs, med_float *val)
1437 #endif
1438 {
1439  med_err _ret=0;
1440  char *_fn1,*_fn2,*_fn3;
1441  med_switch_mode _swm = (med_switch_mode) *swm;
1442  med_geometry_type _gtype = (med_geometry_type) *gtype;
1443  med_entity_type _etype = (med_entity_type) *etype;
1444  med_storage_mode _stm = (med_storage_mode) *stm;
1445 
1446  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1447  if (!_fn1)
1448  return(-1);
1449 
1450  _fn2 = _MED2cstring((char *) mname, (int) *mnamelen);
1451  if (!_fn2)
1452  return(-1);
1453 
1454  _fn3 = _MED2cstring((char *) pname, (int) *pnamelen);
1455  if (!_fn3)
1456  return(-1);
1457 
1458  _ret = (med_int) MEDfield23ValueWithProfileRd((med_idt) *fid,
1459  _fn1,
1460  (med_int) *numdt,
1461  (med_int) *numit,
1462  _etype,
1463  _gtype,
1464  _fn2,
1465  _stm,
1466  _fn3,
1467  _swm,
1468  (med_int) *cs,
1469  (unsigned char *) val);
1470 
1471 
1472  _MEDcstringFree(_fn1);
1473  _MEDcstringFree(_fn2);
1474  _MEDcstringFree(_fn3);
1475 
1476  return (_ret);
1477 }
1478 
1479 
1480 #ifdef PPRO_NT
1481 med_int
1482 MFDFOIR(med_int *fid, char *fname, unsigned int bidon1, med_int *fnamelen,
1483  med_int *numdt, med_int *numit,
1484  med_int *etype, med_int *gtype,
1485  char *mname, unsigned int bidon2, med_int *mnamelen,
1486  med_int *stm, char *pname, unsigned int bidon3, med_int *pnamelen,
1487  med_int *swm, med_int *cs, med_int *val)
1488 #else
1489 med_int
1490 nmfdfoir(med_int *fid, char *fname, med_int *fnamelen,
1491  med_int *numdt, med_int *numit,
1492  med_int *etype, med_int *gtype,
1493  char *mname, med_int *mnamelen,
1494  med_int *stm, char *pname, med_int *pnamelen,
1495  med_int *swm,med_int *cs, med_int *val)
1496 #endif
1497 {
1498  med_err _ret=0;
1499  char *_fn1,*_fn2,*_fn3;
1500  med_switch_mode _swm = (med_switch_mode) *swm;
1501  med_geometry_type _gtype = (med_geometry_type) *gtype;
1502  med_entity_type _etype = (med_entity_type) *etype;
1503  med_storage_mode _stm = (med_storage_mode) *stm;
1504 
1505  _fn1 = _MED2cstring((char *) fname, (int) *fnamelen);
1506  if (!_fn1)
1507  return(-1);
1508 
1509  _fn2 = _MED2cstring((char *) mname, (int) *mnamelen);
1510  if (!_fn2)
1511  return(-1);
1512 
1513  _fn3 = _MED2cstring((char *) pname, (int) *pnamelen);
1514  if (!_fn3)
1515  return(-1);
1516 
1517  _ret = (med_int) MEDfield23ValueWithProfileRd((med_idt) *fid,
1518  _fn1,
1519  (med_int) *numdt,
1520  (med_int) *numit,
1521  _etype,
1522  _gtype,
1523  _fn2,
1524  _stm,
1525  _fn3,
1526  _swm,
1527  (med_int) *cs,
1528  (unsigned char *) val);
1529 
1530 
1531  _MEDcstringFree(_fn1);
1532  _MEDcstringFree(_fn2);
1533  _MEDcstringFree(_fn3);
1534 
1535  return (_ret);
1536 }
MEDC_EXPORT med_err MEDfield23ComputingStepMeshInfo(const med_idt fid, const char *const fieldname, const int csit, med_int *const numdt, med_int *const numit, med_float *const dt, med_int *const nmesh, char *const meshname, med_bool *const localmesh, med_int *const meshnumdt, med_int *const meshnumit)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
MEDC_EXPORT med_int MEDfieldnComponentByName(const med_idt fid, const char *const fieldname)
Cette fonction lit le nombre de composantes d'un champ (accès direct à partir du nom du champ)...
herr_t med_err
Definition: med.h:310
MEDC_EXPORT med_err _MEDcstringFree(char *chaine)
Filtre de sélection.
Definition: med.h:326
#define nmfdfivr
Definition: medfieldcf.c:73
MEDC_EXPORT med_int MEDfield23nProfile(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const int meshit, char *const meshname, char *const defaultprofilename, char *const defaultlocalizationname)
Cette fonction permet de lire le nombre de profils référencés dans un champ pour une séquence de calc...
med_switch_mode
Definition: med.h:89
#define nmfdfnva
Definition: medfieldcf.c:69
#define nmfdffdi
Definition: medfieldcf.c:63
#define nmfdfinw
Definition: medfieldcf.c:78
double med_float
Definition: med.h:314
#define nmfdfnfd
Definition: medfieldcf.c:60
MEDC_EXPORT med_err MEDfieldCr(const med_idt fid, const char *const fieldname, const med_field_type fieldtype, const med_int ncomponent, const char *const componentname, const char *const componentunit, const char *const dtunit, const char *const meshname)
Cette fonction crée un champ dans un fichier.
Definition: MEDfieldCr.c:41
#define nmfdfrvw
Definition: medfieldcf.c:54
MEDC_EXPORT med_err MEDfieldValueAdvancedWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const char *const localizationname, const med_filter *const filter, const unsigned char *const value)
Cette fonction permet d'écire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
#define nmfdfnvp
Definition: medfieldcf.c:70
#define nmfdfcmi
Definition: medfieldcf.c:66
MEDC_EXPORT med_err MEDfieldInfo(const med_idt fid, const int ind, char *const fieldname, char *const meshname, med_bool *const localmesh, med_field_type *const fieldtype, char *const componentname, char *const componentunit, char *const dtunit, med_int *const ncstp)
Cette fonction permet de lire les informations concernant le champ d'indice ind . ...
Definition: MEDfieldInfo.c:42
#define nmfdffin
Definition: medfieldcf.c:64
MEDC_EXPORT med_int MEDfield23nValueWithProfile(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const char *const meshname, const int profileit, const med_storage_mode storagemode, char *const profilename, med_int *const profilesize, char *const localizationname, med_int *const nintegrationpoint)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
MEDC_EXPORT med_err MEDfieldComputingStepMeshWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_int meshnumdt, const med_int meshnumit)
Cette fonction permet de définir l'étape de calcul ( meshnumdit , meshnumit ) à utiliser pour le mail...
MEDC_EXPORT med_int MEDfieldnValueWithProfileByName(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const char *const profilename, const med_storage_mode storagemode, med_int *const profilesize, char *const localizationname, med_int *const nintegrationpoint)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
MEDC_EXPORT med_int MEDfieldnValue(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype)
Cette fonction permet de lire le nombre de valeurs dans un champ pour une séquence de calcul...
#define nmfdfrpw
Definition: medfieldcf.c:56
#define nmfdfcmw
Definition: medfieldcf.c:67
MEDC_EXPORT med_err MEDfieldValueAdvancedRd(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_filter *const filter, unsigned char *const value)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
MEDC_EXPORT med_int MEDfieldnProfile(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type enttype, const med_geometry_type geotype, char *const defaultprofilename, char *const defaultlocalizationname)
Cette fonction permet de lire le nombre de profils référencés dans un champ pour une séquence de calc...
#define nmfdfoir
Definition: medfieldcf.c:85
med_entity_type
Definition: med.h:136
#define nmfdfiaw
Definition: medfieldcf.c:59
MEDC_EXPORT med_err MEDfieldComputingStepMeshInfo(const med_idt fid, const char *const fieldname, const int csit, med_int *const numdt, med_int *const numit, med_float *const dt, med_int *const meshnumdt, med_int *const meshnumit)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
#define nmfdfoci
Definition: medfieldcf.c:81
MEDC_EXPORT med_int MEDfieldnInterp(const med_idt fid, const char *const fieldname)
Cette routine renvoie le nombre de fonctions d'interpolation associées au champ résultat fieldname...
MEDC_EXPORT med_int MEDfieldnComponent(const med_idt fid, const int ind)
Cette fonction lit le nombre de composantes d'un champ.
int med_int
Definition: med.h:316
#define nmfdfnin
Definition: medfieldcf.c:79
MEDC_EXPORT char * _MED1cstring(char *chaine, int longueur_reelle, int longueur_fixee)
Definition: MED1cstring.c:37
#define nmfdfini
Definition: medfieldcf.c:80
#define nmfdfrvr
Definition: medfieldcf.c:72
MEDC_EXPORT med_int MEDfieldnValueWithProfile(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const int profileit, const med_storage_mode storagemode, char *const profilename, med_int *const profilesize, char *const localizationname, med_int *const nintegrationpoint)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
MEDC_EXPORT med_int MEDnField(const med_idt fid)
Cette fonction permet de lire le nombre de champs dans un fichier.
Definition: MEDnField.c:35
MEDC_EXPORT med_err MEDfield23ValueWithProfileRd(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const char *const meshname, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int componentselect, unsigned char *const value)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
#define nmfdfnfc
Definition: medfieldcf.c:61
med_storage_mode
Definition: med.h:101
med_field_type
Definition: med.h:155
MEDC_EXPORT med_err MEDfieldInterpInfo(const med_idt fid, const char *const fieldname, const int interpit, char *const interpname)
Cette routine indique le nom interpname de la interpit ème fonction d'interpolation associées au cham...
#define nmfdfcre
Definition: medfieldcf.c:53
#define nmfdfonv
Definition: medfieldcf.c:83
#define nmfdfivw
Definition: medfieldcf.c:55
#define nmfdfipr
Definition: medfieldcf.c:75
#define nmfdfonp
Definition: medfieldcf.c:82
#define nmfdforr
Definition: medfieldcf.c:84
MEDC_EXPORT med_err _MEDc2fString(const char *const chainec, char *const chainef, med_int longueur_buffer77)
#define nmfdfcsi
Definition: medfieldcf.c:65
#define nmfdfraw
Definition: medfieldcf.c:58
MEDC_EXPORT med_err MEDfieldComputingStepInfo(const med_idt fid, const char *const fieldname, const int csit, med_int *const numdt, med_int *const numit, med_float *const dt)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
MEDC_EXPORT med_err MEDfieldValueRd(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_switch_mode switchmode, const med_int componentselect, unsigned char *const value)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
hid_t med_idt
Definition: med.h:309
MEDC_EXPORT med_err MEDfieldValueWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_switch_mode switchmode, const med_int componentselect, const med_int nentity, const unsigned char *const value)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
#define nmfdfrar
Definition: medfieldcf.c:76
#define MED_SNAME_SIZE
Definition: med.h:75
MEDC_EXPORT med_err MEDfieldInfoByName(const med_idt fid, const char *const fieldname, char *const meshname, med_bool *const localmesh, med_field_type *const fieldtype, char *const componentname, char *const componentunit, char *const dtunit, med_int *const ncstp)
Cette fonction permet de lire les informations concernant le champ de nom fieldname.
#define MED_NAME_SIZE
Definition: med.h:74
#define nmfdfnpf
Definition: medfieldcf.c:68
#define nmfdfnpn
Definition: medfieldcf.c:71
MEDC_EXPORT med_err MEDfieldValueWithProfileWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_storage_mode storagemode, const char *const profilename, const char *const localizationname, const med_switch_mode switchmode, const med_int componentselect, const med_int nentity, const unsigned char *const value)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
med_bool
Definition: med.h:240
#define nmfdfipw
Definition: medfieldcf.c:57
MEDC_EXPORT char * _MED2cstring(char *chaine, int longueur)
Definition: MED2cstring.c:35
#define nmfdfrpr
Definition: medfieldcf.c:74
MEDC_EXPORT med_err MEDfieldValueWithProfileRd(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int componentselect, unsigned char *const value)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
int med_geometry_type
Definition: med.h:179
#define nmfdfncn
Definition: medfieldcf.c:62
MEDC_EXPORT med_err MEDfieldInterpWr(const med_idt fid, const char *const fieldname, const char *const interpname)
Cette routine associe une fonction d'interpolation interpname au champ résultat fieldname.
#define nmfdfiar
Definition: medfieldcf.c:77