MED fichier
meshcf.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 - MEDmeshCr
28 - MEDnMesh
29 - MEDmeshnAxis
30 - MEDmeshnAxisByName
31 - MEDmeshInfo
32 - MEDmeshInfoByName
33 - MEDmeshUniversalNameWr
34 - MEDmeshAttributeRd
35 - MEDmeshAttributeWr
36 - MEDmeshUniversalNameRd
37 - MEDmeshGridTypeWr
38 - MEDmeshGridTypeRd
39 - MEDmeshGridStructWr
40 - MEDmeshGridStructRd
41 - MEDmeshNodeCoordinateWr
42 - MEDmeshNodeCoordinateRd
43 - MEDmeshNodeCoordinateWithProfileWr
44 - MEDmeshNodeCoordinateWithProfileRd
45 - MEDmeshGridIndexCoordinateWr
46 - MEDmeshGridIndexCoordinateRd
47 - MEDmeshEntityFamilyNumberWr
48 - MEDmeshEntityNumberWr
49 - MEDmeshEntityNameWr
50 - MEDmeshnEntity
51 - MEDmeshEntityNameRd
52 - MEDmeshEntityNumberRd
53 - MEDmeshEntityFamilyNumberRd
54 - MEDmeshElementConnectivityRd
55 - MEDmeshElementConnectivityWr
56 - MEDmeshElementConnectivityWithProfileRd
57 - MEDmeshnEntityWithProfile
58 - MEDmeshElementConnectivityWithProfileWr
59 - MEDmeshNodeWr
60 - MEDmeshNodeRd
61 - MEDmeshElementWr
62 
63 - MEDmeshElementRd
64 - MEDmeshNodeCoordinateAdvancedWr
65 - MEDmeshNodeCoordinateAdvancedRd
66 - MEDmeshElementConnectivityAdvancedRd
67 - MEDmeshElementConnectivityAdvancedWr
68 - MEDmeshPolygonWr
69 - MEDmeshPolygonRd
70 - MEDmeshPolyhedronRd
71 - MEDmeshPolyhedronWr
72 - MEDmeshGlobalNumberWr
73 - MEDmeshGlobalNumberRd
74 - MEDmeshComputationStepCr
75 - MEDmeshComputationStepInfo
76 - MEDmeshComputationStepDtRd
77 - MEDmeshSortingTypeRd
78 - MEDmeshStructElementVarAttRd
79 - MEDmeshStructElementVarAttWr
80 - MEDmeshEntityInfo
81 - MEDmeshNodeCoordinateTrsfRd
82 - MEDmeshNodeCoordinateTrsfWr
83 - MEDmeshEntityAttributeAdvancedWr
84 - MEDmeshEntityAttributeAdvancedRd
85 */
86 
87 #define nmmhfcre F77_FUNC(mmhfcre,MMHFCRE)
88 #define nmmhfnmh F77_FUNC(mmhfnmh,MMHFNMH)
89 #define nmmhfnax F77_FUNC(mmhfnax,MMHFNAX)
90 #define nmmhfnan F77_FUNC(mmhfnan,MMHFNAN)
91 #define nmmhfmhi F77_FUNC(mmhfmhi,MMHFMHI)
92 #define nmmhfmin F77_FUNC(mmhfmin,MMHFMIN)
93 #define nmmhfunw F77_FUNC(mmhfunw,MMHFUNW)
94 #define nmmhfunr F77_FUNC(mmhfunr,MMHFUNR)
95 #define nmmhfatw F77_FUNC(mmhfatw,MMHFATW)
96 #define nmmhfatr F77_FUNC(mmhfatr,MMHFATR)
97 #define nmmhfgtw F77_FUNC(mmhfgtw,MMHFGTW)
98 #define nmmhfgtr F77_FUNC(mmhfgtr,MMHFGTR)
99 #define nmmhfgsw F77_FUNC(mmhfgsw,MMHFGSW)
100 #define nmmhfgsr F77_FUNC(mmhfgsr,MMHFGSR)
101 #define nmmhfcow F77_FUNC(mmhfcow,MMHFCOW)
102 #define nmmhfcor F77_FUNC(mmhfcor,MMHFCOR)
103 #define nmmhfcpw F77_FUNC(mmhfcpw,MMHFCPW)
104 #define nmmhfcpr F77_FUNC(mmhfcpr,MMHFCPR)
105 #define nmmhfgcw F77_FUNC(mmhfgcw,MMHFGCW)
106 #define nmmhfgcr F77_FUNC(mmhfgcr,MMHFGCR)
107 #define nmmhfenw F77_FUNC(mmhfenw,MMHFENW)
108 #define nmmhfenr F77_FUNC(mmhfenr,MMHFENR)
109 #define nmmhffnw F77_FUNC(mmhffnw,MMHFFNW)
110 #define nmmhffnr F77_FUNC(mmhffnr,MMHFFNR)
111 #define nmmhfeaw F77_FUNC(mmhfeaw,MMHFEAW)
112 #define nmmhfear F77_FUNC(mmhfear,MMHFEAR)
113 #define nmmhfnme F77_FUNC(mmhfnme,MMHFNME)
114 #define nmmhfcyw F77_FUNC(mmhfcyw,MMHFCYW)
115 #define nmmhfcyr F77_FUNC(mmhfcyr,MMHFCYR)
116 #define nmmhfypw F77_FUNC(mmhfypw,MMHFYPW)
117 #define nmmhfypr F77_FUNC(mmhfypr,MMHFYPR)
118 #define nmmhfnep F77_FUNC(mmhfnep,MMHFNEP)
119 #define nmmhfnow F77_FUNC(mmhfnow,MMHFNOW)
120 #define nmmhfnor F77_FUNC(mmhfnor,MMHFNOR)
121 #define nmmhfelw F77_FUNC(mmhfelw,MMHFELW)
122 #define nmmhfelr F77_FUNC(mmhfelr,MMHFELR)
123 #define nmmhfcaw F77_FUNC(mmhfcaw,MMHFCAW)
124 #define nmmhfcar F77_FUNC(mmhfcar,MMHFCAR)
125 #define nmmhfyaw F77_FUNC(mmhfyaw,MMHFYAW)
126 #define nmmhfyar F77_FUNC(mmhfyar,MMHFYAR)
127 #define nmmhfpgw F77_FUNC(mmhfpgw,MMHFPGW)
128 #define nmmhfpgr F77_FUNC(mmhfpgr,MMHFPGR)
129 #define nmmhfphw F77_FUNC(mmhfphw,MMHFPHW)
130 #define nmmhfphr F77_FUNC(mmhfphr,MMHFPHR)
131 #define nmmhfgnw F77_FUNC(mmhfgnw,MMHFGNW)
132 #define nmmhfgnr F77_FUNC(mmhfgnr,MMHFGNR)
133 #define nmmhfcsc F77_FUNC(mmhfcsc,MMHFCSC)
134 #define nmmhfcsi F77_FUNC(mmhfcsi,MMHFCSI)
135 #define nmmhfcsr F77_FUNC(mmhfcsr,MMHFCSR)
136 #define nmmhfstr F77_FUNC(mmhfstr,MMHFSTR)
137 #define nmmhfraw F77_FUNC(mmhfraw,MMHFRAW)
138 #define nmmhfiaw F77_FUNC(mmhfiaw,MMHFIAW)
139 #define nmmhfsaw F77_FUNC(mmhfsaw,MMHFSAW)
140 #define nmmhfrar F77_FUNC(mmhfrar,MMHFRAR)
141 #define nmmhfiar F77_FUNC(mmhfiar,MMHFIAR)
142 #define nmmhfsar F77_FUNC(mmhfsar,MMHFSAR)
143 #define nmmhfeni F77_FUNC(mmhfeni,MMHFENI)
144 #define nmmhftfw F77_FUNC(mmhftfw,MMHFTFW)
145 #define nmmhftfr F77_FUNC(mmhftfr,MMHFTFR)
146 #define nmmhfaaw F77_FUNC(mmhfaaw,MMHFAAW)
147 #define nmmhfaar F77_FUNC(mmhfaar,MMHFAAR)
148 #define nmmhfasw F77_FUNC(mmhfasw,MMHFASW)
149 #define nmmhfasr F77_FUNC(mmhfasr,MMHFASR)
150 
151 
152 #ifdef PPRO_NT
153 med_int
154 MMHFCRE(med_int *fid, char *mname, unsigned int bidon,
155  med_int *mnamelen, med_int * sdim, med_int * mdim, med_int *mtype,
156  char *desc, unsigned int bidon2, med_int *desclen,
157  char *dtunit, unsigned int bidon3, med_int *dtunitlen,
158  med_int *stype, med_int *atype, char *aname, unsigned int bidon4,
159  med_int *anamelen, char *aunit, unsigned int bidon5, med_int* aunitlen)
160 #else
161 med_int
162 nmmhfcre(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim,
163  med_int *mdim, med_int *mtype, char *desc, med_int *desclen,
164  char *dtunit, med_int *dtunitlen,
165  med_int *stype, med_int *atype, char *aname,
166  med_int *anamelen, char *aunit, med_int* aunitlen)
167 #endif
168 {
169  med_int _ret;
170  char *_fn1, *_fn2, *_fn3, *_fn4, *_fn5;
171  med_mesh_type _meshtype = (med_mesh_type) *mtype;
172  med_sorting_type _sortingtype = (med_sorting_type) *stype;
173  med_axis_type _axistype = (med_axis_type) *atype;
174 
175 
176  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
177  if (!_fn1)
178  return(-1);
179  _fn2 = _MED2cstring((char *) desc, (int) *desclen);
180  if (!_fn2)
181  return(-1);
182  _fn3 = _MED2cstring((char *) dtunit, (int) *dtunitlen);
183  if (!_fn3)
184  return(-1);
185  _fn4 = _MED1cstring((char *) aname, (int) *anamelen, (int) *sdim*MED_SNAME_SIZE);
186  if (!_fn4)
187  return(-1);
188  _fn5 = _MED1cstring((char *) aunit, (int) *aunitlen, (int) *sdim*MED_SNAME_SIZE);
189  if (!_fn5)
190  return(-1);
191 
192  _ret = (med_int) MEDmeshCr((const med_idt) *fid, _fn1, (const med_int) *sdim, (const med_int) *mdim,
193  _meshtype, _fn2, _fn3, _sortingtype, _axistype,
194  _fn4, _fn5);
195 
196  _MEDcstringFree(_fn1);
197  _MEDcstringFree(_fn2);
198  _MEDcstringFree(_fn3);
199  _MEDcstringFree(_fn4);
200  _MEDcstringFree(_fn5);
201 
202  return _ret;
203 }
204 
205 
206 
207 #ifdef PPRO_NT
208 med_int
209 MMHFNMH(med_int *fid)
210 #else
211 med_int
213 #endif
214 {
215  med_int _ret;
216 
217  _ret = (med_int) MEDnMesh((const med_idt) *fid);
218 
219  return(_ret);
220 }
221 
222 
223 #ifdef PPRO_NT
224 med_int
225 MMHFNAN(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen)
226 #else
227 med_int
228 nmmhfnan(med_int *fid, char *mname, med_int *mnamelen)
229 #endif
230 {
231  med_int _ret;
232  char *_fn1;
233 
234  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
235  if (!_fn1)
236  return(-1);
237 
238  _ret = (med_int) MEDmeshnAxisByName((const med_idt) *fid, (const char*) _fn1);
239 
240  _MEDcstringFree(_fn1);
241 
242  return(_ret);
243 }
244 
245 
246 #ifdef PPRO_NT
247 med_int
248 MMHFNAX(med_int *fid, med_int *it)
249 #else
250 med_int
252 #endif
253 {
254  med_int _ret;
255 
256  _ret = (med_int) MEDmeshnAxis((const med_idt) *fid, (const med_int) *it);
257 
258  return(_ret);
259 }
260 
261 
262 #ifdef PPRO_NT
263 med_int
264 MMHFMHI(med_int *fid, med_int *it, char*mname, unsigned int bidon,
265  med_int * sdim, med_int * mdim, med_int *mtype,
266  char *desc, unsigned int bidon2,
267  char *dtunit, unsigned int bidon3,
268  med_int *stype, med_int *nstep, med_int *atype,
269  char *aname, unsigned int bidon4,
270  char *aunit, unsigned int bidon5)
271 #else
272 med_int
273 nmmhfmhi(med_int *fid, med_int *it, char *mname, med_int * sdim,
274  med_int *mdim, med_int *mtype, char *desc,
275  char *dtunit, med_int *stype, med_int *nstep,
276  med_int *atype, char *aname, char *aunit)
277 #endif
278 {
279  med_int _ret;
280  char _fs1[MED_NAME_SIZE+1]="";
281  char _fs2[MED_COMMENT_SIZE+1]="";
282  char _fs3[MED_SNAME_SIZE+1]="";
283  char *_fs4, *_fs5;
284  med_mesh_type _mtype;
285  med_sorting_type _stype;
286  med_axis_type _atype;
287  med_int _sdim;
288 
289  _sdim = MEDmeshnAxis((const med_idt)*fid, (const med_int) *it);
290  if (_sdim < 0)
291  return (-1);
292 
293  _fs4 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_sdim)+1);*_fs4='\0';
294  _fs5 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_sdim)+1);*_fs5='\0';
295 
296  if (!(_fs4&&_fs5))
297  return (-1);
298 
299  _ret = (med_int) MEDmeshInfo((const med_idt)*fid, (const med_int) *it, (char *) _fs1,
300  (med_int *) sdim, (med_int *) mdim, &_mtype, (char *) _fs2,
301  (char *) _fs3, &_stype, (med_int *) nstep, &_atype,
302  (char *) _fs4, (char *) _fs5);
303 
304 
305  *mtype = (med_int) _mtype;
306  *stype = (med_int) _stype;
307  *atype = (med_int) _atype;
308 
309  _MEDc2fString(_fs1,mname,MED_NAME_SIZE);
310  _MEDc2fString(_fs2,desc,MED_COMMENT_SIZE);
311  _MEDc2fString(_fs3,dtunit,MED_SNAME_SIZE);
312  _MEDc2fString(_fs4,aname,MED_SNAME_SIZE*(*sdim));
313  _MEDc2fString(_fs5,aunit,MED_SNAME_SIZE*(*sdim));
314 
315  free(_fs4);
316  free(_fs5);
317 
318  return _ret;
319 }
320 
321 
322 #ifdef PPRO_NT
323 med_int
324 MMHFMIN(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen,
325  med_int * sdim, med_int * mdim, med_int *mtype,
326  char *desc, unsigned int bidon2,
327  char *dtunit, unsigned int bidon3,
328  med_int *stype, med_int *nstep, med_int *atype,
329  char *aname, unsigned int bidon4,
330  char *aunit, unsigned int bidon5)
331 #else
332 med_int
333 nmmhfmin(med_int *fid, char *mname, med_int *mnamelen, med_int * sdim,
334  med_int *mdim, med_int *mtype, char *desc,
335  char *dtunit, med_int *stype, med_int *nstep,
336  med_int *atype, char *aname, char *aunit)
337 #endif
338 {
339  med_int _ret;
340  char *_fn1;
341  char _fs2[MED_COMMENT_SIZE+1]="";
342  char _fs3[MED_SNAME_SIZE+1]="";
343  char *_fs4, *_fs5;
344  med_mesh_type _mtype;
345  med_sorting_type _stype;
346  med_axis_type _atype;
347  med_int _sdim;
348 
349  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
350  if (!_fn1)
351  return(-1);
352 
353  _sdim = MEDmeshnAxisByName((const med_idt)*fid, _fn1);
354  if (_sdim < 0)
355  return (-1);
356 
357  _fs4 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_sdim)+1);*_fs4='\0';
358  _fs5 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*(_sdim)+1);*_fs5='\0';
359 
360  if (!(_fs4&&_fs5))
361  return (-1);
362 
363  _ret = (med_int) MEDmeshInfoByName((const med_idt)*fid, (char *) _fn1,
364  (med_int *) sdim, (med_int *) mdim, &_mtype, (char *) _fs2,
365  (char *) _fs3, &_stype, (med_int *) nstep, &_atype,
366  (char *) _fs4, (char *) _fs5);
367 
368 
369  *mtype = (med_int) _mtype;
370  *stype = (med_int) _stype;
371  *atype = (med_int) _atype;
372 
373  _MEDc2fString(_fs2,desc,MED_COMMENT_SIZE);
374  _MEDc2fString(_fs3,dtunit,MED_SNAME_SIZE);
375  _MEDc2fString(_fs4,aname,MED_SNAME_SIZE*(*sdim));
376  _MEDc2fString(_fs5,aunit,MED_SNAME_SIZE*(*sdim));
377 
378  _MEDcstringFree(_fn1);
379  free(_fs4);
380  free(_fs5);
381 
382  return _ret;
383 }
384 
385 
386 
387 #ifdef PPRO_NT
388 med_int
389 MMHFUNW(med_int *fid, char *uname, unsigned int bidon, med_int *unamelen)
390 #else
391 med_int
392 nmmhfunw(med_int *fid, char *uname, med_int *unamelen)
393 #endif
394 {
395  med_int _ret;
396  char *_fn1;
397 
398  _fn1 = _MED2cstring((char *) uname, (int) *unamelen);
399  if (!_fn1)
400  return(-1);
401 
402  _ret = (med_int) MEDmeshUniversalNameWr((const med_idt) *fid, (const char*) _fn1);
403 
404  _MEDcstringFree(_fn1);
405 
406  return(_ret);
407 }
408 
409 
410 
411 #ifdef PPRO_NT
412 med_int
413 MMHFUNR(med_int *fid, char*mname, unsigned int bidon, med_int *mnamelen,
414  char *uname, unsigned int bidon1)
415 #else
416 med_int
417 nmmhfunr(med_int *fid, char*mname, med_int *mnamelen,
418  char *uname)
419 #endif
420 {
421  med_int _ret;
422  char *_fn1;
423  char _fs2[MED_LNAME_SIZE+1]="";
424 
425  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
426  if (!_fn1)
427  return(-1);
428 
429  _ret = (med_int) MEDmeshUniversalNameRd((med_idt) *fid, (char*) _fn1,
430  (char*) _fs2);
431 
432  _MEDc2fString(_fs2,uname,MED_LNAME_SIZE);
433 
434  _MEDcstringFree(_fn1);
435 
436  return(_ret);
437 }
438 
439 
440 #ifdef PPRO_NT
441 med_int
442 MMHFATW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
443  med_int *nin, med_int *nvn, med_int *nnc)
444 #else
445 med_int
446 nmmhfatw(med_int *fid, char *mname, med_int *mnamelen,
447  med_int *nin, med_int *nvn, med_int *nnc)
448 #endif
449 {
450  med_int _ret;
451  char *_fn1;
452 
453  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
454  if (!_fn1)
455  return(-1);
456 
457  _ret = (med_int) MEDmeshAttributeWr((const med_idt) *fid, (const char*) _fn1, (const med_int) *nin,
458  (const med_int) *nvn, (const med_int) *nnc);
459 
460  _MEDcstringFree(_fn1);
461 
462  return(_ret);
463 }
464 
465 
466 
467 
468 #ifdef PPRO_NT
469 med_int
470 MMHFATR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
471  med_int *nin, med_int *nvn, med_int *nnc)
472 #else
473 med_int
474 nmmhfatr(med_int *fid, char *mname, med_int *mnamelen,
475  med_int *nin, med_int *nvn, med_int *nnc)
476 #endif
477 {
478  med_int _ret;
479  char *_fn1;
480 
481  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
482  if (!_fn1)
483  return(-1);
484 
485  _ret = (med_int) MEDmeshAttributeRd((const med_idt) *fid, (const char*) _fn1, (med_int *) nin,
486  (med_int *) nvn, (med_int *) nnc);
487 
488  _MEDcstringFree(_fn1);
489 
490  return(_ret);
491 }
492 
493 
494 
495 
496 #ifdef PPRO_NT
497 med_int
498 MMHFGTW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
499  med_int *gtype)
500 #else
501 med_int
502 nmmhfgtw(med_int *fid, char *mname, med_int *mnamelen,
503  med_int *gtype)
504 #endif
505 {
506  med_int _ret;
507  char *_fn1;
508  med_grid_type _gtype = (med_grid_type) *gtype;
509 
510 
511  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
512  if (!_fn1)
513  return(-1);
514 
515  _ret = (med_int) MEDmeshGridTypeWr((const med_idt) *fid, (const char*) _fn1, _gtype);
516 
517  _MEDcstringFree(_fn1);
518 
519  return(_ret);
520 }
521 
522 
523 
524 
525 #ifdef PPRO_NT
526 med_int
527 MMHFGTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
528  med_int *gtype)
529 #else
530 med_int
531 nmmhfgtr(med_int *fid, char *mname, med_int *mnamelen,
532  med_int *gtype)
533 #endif
534 {
535  med_int _ret;
536  char *_fn1;
537  med_grid_type _gtype;
538 
539  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
540  if (!_fn1)
541  return(-1);
542 
543  _ret = (med_int) MEDmeshGridTypeRd((const med_idt) *fid, (const char*) _fn1, &_gtype);
544 
545  *gtype = (med_int) _gtype;
546 
547  _MEDcstringFree(_fn1);
548 
549  return(_ret);
550 }
551 
552 
553 #ifdef PPRO_NT
554 med_int
555 MMHFGSW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
556  med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
557 #else
558 med_int
559 nmmhfgsw(med_int *fid, char *mname, med_int *mnamelen,
560  med_int *numdt, med_int *numit, med_float *dt, med_int *gstruct)
561 #endif
562 {
563  med_int _ret;
564  char *_fn1;
565 
566  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
567  if (!_fn1)
568  return(-1);
569 
570  _ret = (med_int) MEDmeshGridStructWr((const med_idt) *fid, (const char*) _fn1, (const med_int) *numdt,
571  (const med_int) *numit, (med_float) *dt, (const med_int *) gstruct);
572 
573  _MEDcstringFree(_fn1);
574 
575  return(_ret);
576 }
577 
578 
579 
580 
581 #ifdef PPRO_NT
582 med_int
583 MMHFGSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
584  med_int *numdt, med_int *numit, med_int *gstruct)
585 #else
586 med_int
587 nmmhfgsr(med_int *fid, char *mname, med_int *mnamelen,
588  med_int *numdt, med_int *numit, med_int *gstruct)
589 #endif
590 {
591  med_int _ret;
592  char *_fn1;
593 
594  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
595  if (!_fn1)
596  return(-1);
597 
598  _ret = (med_int) MEDmeshGridStructRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
599  (med_int) *numit, (med_int *) gstruct);
600 
601  _MEDcstringFree(_fn1);
602 
603  return(_ret);
604 }
605 
606 
607 
608 #ifdef PPRO_NT
609 med_int
610 MMHFCOW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
611  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
612  med_int *n, med_float *coo)
613 #else
614 med_int
615 nmmhfcow(med_int *fid, char *mname, med_int *mnamelen,
616  med_int *numdt, med_int *numit, med_float *dt,
617  med_int *swm, med_int *n, med_float *coo)
618 #endif
619 {
620  med_int _ret;
621  char *_fn1;
622  med_switch_mode _swm = (med_switch_mode) *swm;
623 
624  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
625  if (!_fn1)
626  return(-1);
627 
628  _ret = (med_int) MEDmeshNodeCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
629  (med_int) *numit, (med_float) *dt, _swm, (med_int) *n,
630  (med_float *) coo);
631 
632  _MEDcstringFree(_fn1);
633 
634  return(_ret);
635 }
636 
637 
638 #ifdef PPRO_NT
639 med_int
640 MMHFCOR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
641  med_int *numdt, med_int *numit, med_int *swm,
642  med_float *coo)
643 #else
644 med_int
645 nmmhfcor(med_int *fid, char *mname, med_int *mnamelen,
646  med_int *numdt, med_int *numit,
647  med_int *swm, med_float *coo)
648 #endif
649 {
650  med_int _ret;
651  char *_fn1;
652  med_switch_mode _swm = (med_switch_mode) *swm;
653 
654  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
655  if (!_fn1)
656  return(-1);
657 
658  _ret = (med_int) MEDmeshNodeCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
659  (med_int) *numit, _swm, (med_float *) coo);
660 
661  _MEDcstringFree(_fn1);
662 
663  return(_ret);
664 }
665 
666 
667 #ifdef PPRO_NT
668 med_int
669 MMHFCPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
670  med_int *numdt, med_int *numit, med_float *dt,
671  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
672  med_int *swm, med_int *dim, med_int *n, med_float *coo)
673 #else
674 med_int
675 nmmhfcpw(med_int *fid, char *mname, med_int *mnamelen,
676  med_int *numdt, med_int *numit, med_float *dt,
677  med_int *smode, char *pname, med_int *pnamelen,
678  med_int *swm, med_int *dim, med_int *n, med_float *coo)
679 #endif
680 {
681  med_int _ret;
682  char *_fn1, *_fn2;
683  med_switch_mode _swm = (med_switch_mode) *swm;
684  med_storage_mode _smode = (med_storage_mode) *smode;
685 
686  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
687  if (!_fn1)
688  return(-1);
689  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
690  if (!_fn2)
691  return(-1);
692 
693  _ret = (med_int) MEDmeshNodeCoordinateWithProfileWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
694  (med_int) *numit, (med_float) *dt,
695  _smode, _fn2,
696  _swm, (med_int) *dim, (med_int) *n, (med_float *) coo);
697 
698  _MEDcstringFree(_fn1);
699  _MEDcstringFree(_fn2);
700 
701  return(_ret);
702 }
703 
704 
705 #ifdef PPRO_NT
706 med_int
707 MMHFCPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
708  med_int *numdt, med_int *numit,
709  med_int *smode, char *pname, unsigned int bidon2, med_int *pnamelen,
710  med_int *swm, med_int *dim, med_float *coo)
711 #else
712 med_int
713 nmmhfcpr(med_int *fid, char *mname, med_int *mnamelen,
714  med_int *numdt, med_int *numit,
715  med_int *smode, char *pname, med_int *pnamelen,
716  med_int *swm, med_int *dim, med_float *coo)
717 #endif
718 {
719  med_int _ret;
720  char *_fn1, *_fn2;
721  med_switch_mode _swm = (med_switch_mode) *swm;
722  med_storage_mode _smode = (med_storage_mode) *smode;
723 
724  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
725  if (!_fn1)
726  return(-1);
727  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
728  if (!_fn2)
729  return(-1);
730 
731  _ret = (med_int) MEDmeshNodeCoordinateWithProfileRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt, (med_int) *numit,
732  _smode, _fn2,
733  _swm, (med_int) *dim, (med_float *) coo);
734 
735  _MEDcstringFree(_fn1);
736  _MEDcstringFree(_fn2);
737 
738  return(_ret);
739 }
740 
741 
742 #ifdef PPRO_NT
743 med_int
744 MMHFGCW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
745  med_int *numdt, med_int *numit, med_float *dt,
746  med_int *axis, med_int *size, med_float *index)
747 #else
748 med_int
749 nmmhfgcw(med_int *fid, char *mname, med_int *mnamelen,
750  med_int *numdt, med_int *numit, med_float *dt,
751  med_int *axis, med_int *size, med_float *index)
752 #endif
753 {
754  med_int _ret;
755  char *_fn1;
756 
757  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
758  if (!_fn1)
759  return(-1);
760 
761  _ret = (med_int) MEDmeshGridIndexCoordinateWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
762  (med_int) *numit, (med_float) *dt,
763  (med_int) *axis, (med_int) *size,(med_float *) index);
764 
765  _MEDcstringFree(_fn1);
766 
767  return(_ret);
768 }
769 
770 
771 #ifdef PPRO_NT
772 med_int
773 MMHFGCR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
774  med_int *numdt, med_int *numit,
775  med_int *axis, med_float *index)
776 #else
777 med_int
778 nmmhfgcr(med_int *fid, char *mname, med_int *mnamelen,
779  med_int *numdt, med_int *numit,
780  med_int *axis, med_float *index)
781 #endif
782 {
783  med_int _ret;
784  char *_fn1;
785 
786  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
787  if (!_fn1)
788  return(-1);
789 
790  _ret = (med_int) MEDmeshGridIndexCoordinateRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
791  (med_int) *numit,
792  (med_int) *axis, (med_float *) index);
793 
794  _MEDcstringFree(_fn1);
795 
796  return(_ret);
797 }
798 
799 
800 #ifdef PPRO_NT
801 med_int
802 MMHFENW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
803  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
804  med_int *n, med_int *num)
805 #else
806 med_int
807 nmmhfenw(med_int *fid, char *mname, med_int *mnamelen,
808  med_int *numdt, med_int *numit, med_int *entype,
809  med_int *geotype, med_int *n, med_int *num)
810 #endif
811 {
812  med_int _ret;
813  char *_fn1;
814  med_entity_type _etype = (med_entity_type) *entype;
815  med_geometry_type _gtype = (med_geometry_type) *geotype;
816 
817  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
818  if (!_fn1)
819  return(-1);
820 
821  _ret = (med_int) MEDmeshEntityNumberWr((med_idt) *fid,
822  (char*) _fn1,
823  (med_int) *numdt,
824  (med_int) *numit,
825  _etype,
826  _gtype,
827  (med_int) *n,
828  (med_int *) num);
829 
830  _MEDcstringFree(_fn1);
831 
832  return (_ret);
833 }
834 
835 
836 #ifdef PPRO_NT
837 med_int
838 MMHFENR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
839  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
840  med_int *num)
841 #else
842 med_int
843 nmmhfenr(med_int *fid, char *mname, med_int *mnamelen,
844  med_int *numdt, med_int *numit, med_int *entype,
845  med_int *geotype, med_int *num)
846 #endif
847 {
848  med_int _ret;
849  char *_fn1;
850  med_entity_type _etype = (med_entity_type) *entype;
851  med_geometry_type _gtype = (med_geometry_type) *geotype;
852 
853  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
854  if (!_fn1)
855  return(-1);
856 
857  _ret = (med_int) MEDmeshEntityNumberRd((med_idt) *fid,
858  (char*) _fn1,
859  (med_int) *numdt,
860  (med_int) *numit,
861  _etype,
862  _gtype,
863  (med_int *) num);
864 
865  _MEDcstringFree(_fn1);
866 
867  return (_ret);
868 }
869 
870 
871 
872 #ifdef PPRO_NT
873 med_int
874 MMHFFNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
875  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
876  med_int *n, med_int *num)
877 #else
878 med_int
879 nmmhffnw(med_int *fid, char *mname, med_int *mnamelen,
880  med_int *numdt, med_int *numit, med_int *entype,
881  med_int *geotype, med_int *n, med_int *num)
882 #endif
883 {
884  med_int _ret;
885  char *_fn1;
886  med_entity_type _etype = (med_entity_type) *entype;
887  med_geometry_type _gtype = (med_geometry_type) *geotype;
888 
889  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
890  if (!_fn1)
891  return(-1);
892 
893  _ret = (med_int) MEDmeshEntityFamilyNumberWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
894  (med_int) *numit, _etype, _gtype, (med_int) *n,
895  (med_int *) num);
896 
897  _MEDcstringFree(_fn1);
898 
899  return (_ret);
900 }
901 
902 
903 
904 #ifdef PPRO_NT
905 med_int
906 MMHFFNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
907  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
908  med_int *num)
909 #else
910 med_int
911 nmmhffnr(med_int *fid, char *mname, med_int *mnamelen,
912  med_int *numdt, med_int *numit, med_int *entype,
913  med_int *geotype, med_int *num)
914 #endif
915 {
916  med_int _ret;
917  char *_fn1;
918  med_entity_type _etype = (med_entity_type) *entype;
919  med_geometry_type _gtype = (med_geometry_type) *geotype;
920 
921  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
922  if (!_fn1)
923  return(-1);
924 
925  _ret = (med_int) MEDmeshEntityFamilyNumberRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
926  (med_int) *numit, _etype, _gtype,
927  (med_int *) num);
928 
929  _MEDcstringFree(_fn1);
930 
931  return (_ret);
932 }
933 
934 
935 
936 #ifdef PPRO_NT
937 med_int
938 MMHFEAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
939  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
940  med_int *n, char *ename, unsigned int bidon2, med_int *enamelen)
941 #else
942 med_int
943 nmmhfeaw(med_int *fid, char *mname, med_int *mnamelen,
944  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
945  med_int *n, char *ename, med_int *enamelen)
946 #endif
947 {
948  med_int _ret;
949  char *_fn1, *_fn2;
950  med_entity_type _etype = (med_entity_type) *entype;
951  med_geometry_type _gtype = (med_geometry_type) *geotype;
952 
953  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
954  if (!_fn1)
955  return(-1);
956 
957  /* Ce traitement est-il utile ?
958  A moins d'accès en subscript dont l'union ne constituerait pas le tableau Fortran complet, le fortran remplit le tableau de blancs t[1:?] */
959  /* _fn2 = _MED1cstring(ename, (int) *enamelen,(int) *n*MED_SNAME_SIZE); */
960  /* if (!_fn2) */
961  /* return(-1); */
962 
963  _ret = (med_int) MEDmeshEntityNameWr((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
964  (med_int) *numit, _etype, _gtype, (med_int) *n,
965  ename);
966  /* _fn2); */
967  _MEDcstringFree(_fn1);
968  /* _MEDcstringFree(_fn2); */
969 
970  return (_ret);
971 }
972 
973 
974 #ifdef PPRO_NT
975 med_int
976 MMHFEAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
977  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
978  char *ename, unsigned int bidon2)
979 #else
980 med_int
981 nmmhfear(med_int *fid, char *mname, med_int *mnamelen,
982  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
983  char *ename)
984 #endif
985 {
986  med_int _ret;
987  char *_fn1, *_fs2;
988  med_int _n;
989  med_entity_type _etype = (med_entity_type) *entype;
990  med_geometry_type _gtype = (med_geometry_type) *geotype;
991  med_bool _changement;
992  med_bool _transformation;
994 
995  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
996  if (!_fn1)
997  return(-1);
998 
999  if ((_gtype == MED_POLYGON) ||
1000  (_gtype == MED_POLYHEDRON))
1001  _cmode = MED_NODAL;
1002 
1003  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit,
1004  _etype, _gtype,MED_NAME,_cmode,&_changement,
1005  &_transformation);
1006 
1007  if (_n < 0) return(-1);
1008 
1009  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
1010  if (!_fs2) return (-1);
1011 
1012  _ret = (med_int) MEDmeshEntityNameRd((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
1013  (med_int) *numit, _etype, _gtype,
1014  _fs2);
1015 
1016  _MEDc2fString(_fs2,ename,MED_SNAME_SIZE*_n);
1017 
1018  _MEDcstringFree(_fn1);
1019  free(_fs2);
1020 
1021  return (_ret);
1022 }
1023 
1024 
1025 #ifdef PPRO_NT
1026 med_int
1027 MMHFNME(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1028  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1029  med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf)
1030 #else
1031 med_int
1032 nmmhfnme(med_int *fid, char *mname, med_int *mnamelen,
1033  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1034  med_int *datatype, med_int *cmode, med_int *chgt, med_int *tsf)
1035 #endif
1036 {
1037  med_int ret;
1038  char *_fn1;
1039  med_entity_type _etype = (med_entity_type) *entype;
1040  med_geometry_type _gtype = (med_geometry_type) *geotype;
1041  med_data_type _datatype = (med_data_type) *datatype;
1042  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1043  med_bool _changement;
1044  med_bool _transformation;
1045 
1046  _fn1 = _MED2cstring(mname, (int) * mnamelen);
1047 
1048  if (!_fn1 )
1049  return(-1);
1050 
1051  ret = (med_int) MEDmeshnEntity((med_idt) *fid, (char*) _fn1, (med_int) *numdt,
1052  (med_int) *numit, _etype, _gtype, _datatype,_cmode,
1053  &_changement,&_transformation);
1054 
1055  *chgt = (med_int) _changement;
1056  *tsf = (med_int) _transformation;
1057 
1058  _MEDcstringFree(_fn1);
1059 
1060  return(ret);
1061 }
1062 
1063 
1064 
1065 #ifdef PPRO_NT
1066 med_int
1067 MMHFCYW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1068  med_int *numdt, med_int *numit, med_float* dt,
1069  med_int *entype, med_int *geotype, med_int *cmode,
1070  med_int *swm, med_int *n, med_int *connectivity)
1071 #else
1072 med_int
1073 nmmhfcyw(med_int *fid, char *mname, med_int *mnamelen,
1074  med_int *numdt, med_int *numit, med_float* dt,
1075  med_int *entype, med_int *geotype, med_int *cmode,
1076  med_int *swm, med_int *n, med_int *connectivity)
1077 #endif
1078 {
1079  med_int _ret;
1080  char *_fn1;
1081  med_entity_type _etype = (med_entity_type) *entype;
1082  med_geometry_type _gtype = (med_geometry_type) *geotype;
1083  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1084  med_switch_mode _swm = (med_switch_mode) *swm;
1085 
1086  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1087  if (!_fn1)
1088  return(-1);
1089 
1090  _ret = (med_int) MEDmeshElementConnectivityWr((med_idt) *fid,
1091  (char*) _fn1,
1092  (med_int) *numdt,
1093  (med_int) *numit,
1094  (med_float) *dt,
1095  _etype,
1096  _gtype,
1097  _cmode,
1098  _swm,
1099  (med_int) *n,
1100  (med_int *) connectivity);
1101 
1102  _MEDcstringFree(_fn1);
1103 
1104  return (_ret);
1105 }
1106 
1107 
1108 #ifdef PPRO_NT
1109 med_int
1110 MMHFCYR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1111  med_int *numdt, med_int *numit,
1112  med_int *entype, med_int *geotype, med_int *cmode,
1113  med_int *swm, med_int *connectivity)
1114 #else
1115 med_int
1116 nmmhfcyr(med_int *fid, char *mname, med_int *mnamelen,
1117  med_int *numdt, med_int *numit,
1118  med_int *entype, med_int *geotype, med_int *cmode,
1119  med_int *swm, med_int *connectivity)
1120 #endif
1121 {
1122  med_int _ret;
1123  char *_fn1;
1124  med_entity_type _etype = (med_entity_type) *entype;
1125  med_geometry_type _gtype = (med_geometry_type) *geotype;
1126  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1127  med_switch_mode _swm = (med_switch_mode) *swm;
1128 
1129  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1130  if (!_fn1)
1131  return(-1);
1132 
1133  _ret = (med_int) MEDmeshElementConnectivityRd((med_idt) *fid,
1134  (char*) _fn1,
1135  (med_int) *numdt,
1136  (med_int) *numit,
1137  _etype,
1138  _gtype,
1139  _cmode,
1140  _swm,
1141  (med_int *) connectivity);
1142 
1143  _MEDcstringFree(_fn1);
1144 
1145  return (_ret);
1146 }
1147 
1148 #ifdef PPRO_NT
1149 med_int
1150 MMHFYPW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1151  med_int *numdt, med_int *numit, med_float* dt,
1152  med_int *entype, med_int *geotype, med_int *cmode,
1153  med_int *stmode, char *pname, unsigned int bidon2,med_int *pnamelen,
1154  med_int *swm, med_int *dim, med_int *n, med_int *connectivity)
1155 #else
1156 med_int
1157 nmmhfypw(med_int *fid, char *mname, med_int *mnamelen,
1158  med_int *numdt, med_int *numit, med_float* dt,
1159  med_int *entype, med_int *geotype, med_int *cmode,
1160  med_int *stmode,char *pname, med_int *pnamelen,
1161  med_int *swm, med_int *dim, med_int *n, med_int *connectivity)
1162 #endif
1163 {
1164  med_int _ret;
1165  char *_fn1,*_fn2;
1166  med_entity_type _etype = (med_entity_type) *entype;
1167  med_geometry_type _gtype = (med_geometry_type) *geotype;
1168  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1169  med_switch_mode _swm = (med_switch_mode) *swm;
1170  med_storage_mode _stmode = (med_storage_mode) *stmode;
1171 
1172  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1173  if (!_fn1)
1174  return(-1);
1175 
1176  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
1177  if (!_fn2)
1178  return(-1);
1179 
1181  (char*) _fn1,
1182  (med_int) *numdt,
1183  (med_int) *numit,
1184  (med_float) *dt,
1185  _etype,
1186  _gtype,
1187  _cmode,
1188  _stmode,
1189  (char *) _fn2,
1190  _swm,
1191  (med_int) *dim,
1192  (med_int) *n,
1193  (med_int *) connectivity);
1194 
1195  _MEDcstringFree(_fn1);
1196  _MEDcstringFree(_fn2);
1197 
1198  return (_ret);
1199 }
1200 
1201 
1202 #ifdef PPRO_NT
1203 med_int
1204 MMHFYPR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1205  med_int *numdt, med_int *numit,
1206  med_int *entype, med_int *geotype, med_int *cmode,
1207  med_int *stmode, char* pname, unsigned int bidon2, med_int *pnamelen,
1208  med_int *swm, med_int*dim, med_int *n, med_int *connectivity)
1209 #else
1210 med_int
1211 nmmhfypr(med_int *fid, char *mname, med_int *mnamelen,
1212  med_int *numdt, med_int *numit,
1213  med_int *entype, med_int *geotype, med_int *cmode,
1214  med_int *stmode, char* pname, med_int *pnamelen,
1215  med_int *swm, med_int*dim, med_int *n, med_int *connectivity)
1216 #endif
1217 {
1218  med_int _ret;
1219  char *_fn1, *_fn2;
1220  med_entity_type _etype = (med_entity_type) *entype;
1221  med_geometry_type _gtype = (med_geometry_type) *geotype;
1222  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1223  med_switch_mode _swm = (med_switch_mode) *swm;
1224  med_storage_mode _stmode = (med_storage_mode) *stmode;
1225 
1226  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1227  if (!_fn1)
1228  return(-1);
1229 
1230  _fn2 = _MED2cstring((char *) pname, (int) *pnamelen);
1231  if (!_fn2)
1232  return(-1);
1233 
1235  (char*) _fn1,
1236  (med_int) *numdt,
1237  (med_int) *numit,
1238  _etype,
1239  _gtype,
1240  _cmode,
1241  _stmode,
1242  _fn2,
1243  _swm,
1244  (med_int) *dim,
1245  (med_int) *n,
1246  (med_int *) connectivity);
1247 
1248  _MEDcstringFree(_fn1);
1249  _MEDcstringFree(_fn2);
1250 
1251  return (_ret);
1252 }
1253 
1254 
1255 
1256 #ifdef PPRO_NT
1257 med_int
1258 MMHFNEP(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1259  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1260  med_int *datatype, med_int *cmode,
1261  med_int *stmode, char* pname, unsigned int bidon1, med_int *psize,
1262  med_int *chgt, med_int *tsf)
1263 #else
1264 med_int
1265 nmmhfnep(med_int *fid, char *mname, med_int *mnamelen,
1266  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1267  med_int *datatype, med_int *cmode,
1268  med_int *stmode, char* pname, med_int *psize,
1269  med_int *chgt, med_int *tsf)
1270 #endif
1271 {
1272  med_int ret;
1273  char *_fn1;
1274  char _fs2[MED_NAME_SIZE+1]="";
1275  med_entity_type _etype = (med_entity_type) *entype;
1276  med_geometry_type _gtype = (med_geometry_type) *geotype;
1277  med_data_type _datatype = (med_data_type) *datatype;
1278  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1279  med_bool _changement;
1280  med_bool _transformation;
1281  med_storage_mode _stmode = (med_storage_mode) *stmode;
1282 
1283  _fn1 = _MED2cstring((char *) mname, (int) * mnamelen);
1284  if (!_fn1 ) return(-1);
1285 
1286  ret = (med_int) MEDmeshnEntityWithProfile((med_idt) *fid,
1287  (char*) _fn1,
1288  (med_int) *numdt,
1289  (med_int) *numit,
1290  _etype,
1291  _gtype,
1292  _datatype,
1293  _cmode,
1294  _stmode,
1295  _fs2,
1296  (med_int *) psize,
1297  &_changement,
1298  &_transformation);
1299 
1300  *chgt = (med_int) _changement;
1301  *tsf = (med_int) _transformation;
1302 
1303 
1304  _MEDc2fString(_fs2,pname,MED_NAME_SIZE);
1305  _MEDcstringFree(_fn1);
1306 
1307  return(ret);
1308 }
1309 
1310 
1311 
1312 #ifdef PPRO_NT
1313 med_int
1314 MMHFNOW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1315  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1316  med_int *n, med_float *coo,
1317  med_int *iname, char*nname, unsigned int bidon2, med_int *nnamelen,
1318  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1319 #else
1320 med_int
1321 nmmhfnow(med_int *fid, char *mname, med_int *mnamelen,
1322  med_int *numdt, med_int *numit, med_float *dt, med_int *swm,
1323  med_int *n, med_float *coo,
1324  med_int *iname, char*nname, med_int *nnamelen,
1325  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1326 #endif
1327 {
1328  med_int _ret;
1329  char *_fn1, *_fn2;
1330  med_switch_mode _swm = (med_switch_mode) *swm;
1331  med_bool _iname = (med_bool) *iname;
1332  med_bool _inum = (med_bool) *inum;
1333  med_bool _ifam = (med_bool) *ifam;
1334 
1335  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1336  if (!_fn1)
1337  return(-1);
1338 
1339  /*TODO : cf nmmhfeaw*/
1340  _fn2 = _MED1cstring(nname, (int) *nnamelen,(int) *n*MED_SNAME_SIZE);
1341  if (!_fn2)
1342  return(-1);
1343 
1344  _ret = (med_int) MEDmeshNodeWr((med_idt) *fid,
1345  (char*) _fn1,
1346  (med_int) *numdt,
1347  (med_int) *numit,
1348  (med_float) *dt,
1349  _swm,
1350  (med_int) *n,
1351  (med_float *) coo,
1352  _iname,
1353  _fn2,
1354  _inum,
1355  (med_int*) num,
1356  _ifam,
1357  (med_int *) fam);
1358 
1359  _MEDcstringFree(_fn1);
1360  _MEDcstringFree(_fn2);
1361 
1362  return(_ret);
1363 }
1364 
1365 
1366 #ifdef PPRO_NT
1367 med_int
1368 MMHFNOR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1369  med_int *numdt, med_int *numit, med_int *swm,med_float *coo,
1370  med_int *iname, char*nname, unsigned int bidon,
1371  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1372 #else
1373 med_int
1374 nmmhfnor(med_int *fid, char *mname, med_int *mnamelen,
1375  med_int *numdt, med_int *numit, med_int *swm, med_float *coo,
1376  med_int *iname, char*nname, med_int *inum, med_int *num,
1377  med_int *ifam, med_int *fam)
1378 #endif
1379 {
1380  med_int _ret,_n;
1381  char *_fn1, *_fs2;
1382  med_switch_mode _swm = (med_switch_mode) *swm;
1383  med_bool _iname,_inum,_ifam,_changement,_transformation;
1384 
1385  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1386  if (!_fn1)
1387  return(-1);
1388 
1389  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit,
1390  MED_NODE,MED_NONE,MED_NAME,MED_NO_CMODE,&_changement,
1391  &_transformation);
1392  if (_n < 0)
1393  return(-1);
1394 
1395  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
1396  if (!_fs2)
1397  return (-1);
1398 
1399  _ret = (med_int) MEDmeshNodeRd((med_idt) *fid,
1400  (char*) _fn1,
1401  (med_int) *numdt,
1402  (med_int) *numit,
1403  _swm,
1404  (med_float *) coo,
1405  &_iname,
1406  _fs2,
1407  &_inum,
1408  (med_int*) num,
1409  &_ifam,
1410  (med_int *) fam);
1411 
1412  _MEDc2fString(_fs2,nname,MED_SNAME_SIZE*_n);
1413 
1414  *iname = (med_int) _iname;
1415  *inum = (med_int) _inum;
1416  *ifam = (med_int) _ifam;
1417 
1418  _MEDcstringFree(_fn1);
1419  free(_fs2);
1420 
1421  return(_ret);
1422 }
1423 
1424 
1425 
1426 #ifdef PPRO_NT
1427 med_int
1428 MMHFELW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1429  med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype,
1430  med_int *cmode, med_int *swm,
1431  med_int *n, med_int *connectivity,
1432  med_int *iname, char*nname, unsigned int bidon2, med_int *nnamelen,
1433  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1434 #else
1435 med_int
1436 nmmhfelw(med_int *fid, char *mname, med_int *mnamelen,
1437  med_int *numdt, med_int *numit, med_float *dt, med_int *entype, med_int *geotype,
1438  med_int *cmode, med_int *swm,
1439  med_int *n, med_int *connectivity,
1440  med_int *iname, char*nname, med_int *nnamelen,
1441  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1442 #endif
1443 {
1444  med_int _ret;
1445  char *_fn1, *_fn2;
1446  med_switch_mode _swm = (med_switch_mode) *swm;
1447  med_bool _iname = (med_bool) *iname;
1448  med_bool _inum = (med_bool) *inum;
1449  med_bool _ifam = (med_bool) *ifam;
1450  med_entity_type _etype = (med_entity_type) *entype;
1451  med_geometry_type _gtype = (med_geometry_type) *geotype;
1452  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1453 
1454  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1455  if (!_fn1)
1456  return(-1);
1457 
1458  /*TODO : nmmhfeaw */
1459  _fn2 = _MED1cstring(nname, (int) *nnamelen,(int) *n*MED_SNAME_SIZE);
1460  if (!_fn2)
1461  return(-1);
1462 
1463  _ret = (med_int) MEDmeshElementWr((med_idt) *fid,
1464  (char*) _fn1,
1465  (med_int) *numdt,
1466  (med_int) *numit,
1467  (med_float) *dt,
1468  _etype,
1469  _gtype,
1470  _cmode,
1471  _swm,
1472  (med_int) *n,
1473  (med_int *) connectivity,
1474  _iname,
1475  _fn2,
1476  _inum,
1477  (med_int*) num,
1478  _ifam,
1479  (med_int *) fam);
1480 
1481  _MEDcstringFree(_fn1);
1482  _MEDcstringFree(_fn2);
1483 
1484  return(_ret);
1485 }
1486 
1487 
1488 
1489 #ifdef PPRO_NT
1490 med_int
1491 MMHFELR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
1492  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1493  med_int *cmode, med_int *swm,
1494  med_int *connectivity,
1495  med_int *iname, char*nname, unsigned int bidon,
1496  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1497 #else
1498 med_int
1499 nmmhfelr(med_int *fid, char *mname, med_int *mnamelen,
1500  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1501  med_int *cmode, med_int *swm, med_int *connectivity,
1502  med_int *iname, char*nname,
1503  med_int *inum, med_int *num, med_int *ifam, med_int *fam)
1504 #endif
1505 {
1506  med_int _ret,_n;
1507  char *_fn1, *_fs2;
1508  med_switch_mode _swm = (med_switch_mode) *swm;
1509  med_bool _iname,_inum,_ifam, _changement,_transformation;
1510  med_entity_type _etype = (med_entity_type) *entype;
1511  med_geometry_type _gtype = (med_geometry_type) *geotype;
1512  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1513 
1514  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1515  if (!_fn1)
1516  return(-1);
1517 
1518  _n = MEDmeshnEntity((med_idt) *fid,_fn1,(med_int) *numdt,(med_int) *numit,
1519  _etype,_gtype,MED_NAME,_cmode,&_changement,
1520  &_transformation);
1521  if (_n < 0)
1522  return(-1);
1523 
1524  _fs2 = (char *) malloc(sizeof(char)*MED_SNAME_SIZE*_n+1);*_fs2='\0';
1525  if (!_fs2)
1526  return (-1);
1527 
1528  _ret = (med_int) MEDmeshElementRd((med_idt) *fid,
1529  _fn1,
1530  (med_int) *numdt,
1531  (med_int) *numit,
1532  _etype,
1533  _gtype,
1534  _cmode,
1535  _swm,
1536  (med_int *) connectivity,
1537  &_iname,
1538  _fs2,
1539  &_inum,
1540  (med_int*) num,
1541  &_ifam,
1542  (med_int *) fam);
1543 
1544  *iname = (med_int) _iname;
1545  *inum = (med_int) _inum;
1546  *ifam = (med_int) _ifam;
1547 
1548  _MEDc2fString(_fs2,nname,MED_SNAME_SIZE*_n);
1549 
1550  _MEDcstringFree(_fn1);
1551  free(_fs2);
1552 
1553  return(_ret);
1554 }
1555 
1556 
1557 
1558 
1559 #ifdef PPRO_NT
1560 med_int
1561 MMHFCAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1562  med_int *numdt, med_int *numit, med_float *dt,
1563  unsigned char **flt, med_float *coo)
1564 #else
1565 med_int
1566 nmmhfcaw(med_int *fid, char *mname, med_int *mnamelen,
1567  med_int *numdt, med_int *numit, med_float *dt,
1568  unsigned char **flt,med_float *coo)
1569 #endif
1570 {
1571  med_int _ret;
1572  char *_fn1;
1573  med_filter *_filter = (med_filter*) *flt;
1574 
1575  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1576  if (!_fn1)
1577  return(-1);
1578 
1580  _fn1,
1581  (med_int) *numdt,
1582  (med_int) *numit,
1583  (med_float) *dt,
1584  _filter,
1585  (med_float *) coo);
1586 
1587  _MEDcstringFree(_fn1);
1588 
1589  return(_ret);
1590 }
1591 
1592 
1593 #ifdef PPRO_NT
1594 med_int
1595 MMHFCAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1596  med_int *numdt, med_int *numit, unsigned char **flt,
1597  med_float *coo)
1598 #else
1599 med_int
1600 nmmhfcar(med_int *fid, char *mname, med_int *mnamelen,
1601  med_int *numdt, med_int *numit, unsigned char **flt,
1602  med_float *coo)
1603 #endif
1604 {
1605  med_int _ret;
1606  char *_fn1;
1607  med_filter *_filter = (med_filter*) *flt;
1608 
1609  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1610  if (!_fn1)
1611  return(-1);
1612 
1614  _fn1,
1615  (med_int) *numdt,
1616  (med_int) *numit,
1617  _filter,
1618  (med_float *) coo);
1619 
1620  _MEDcstringFree(_fn1);
1621 
1622  return(_ret);
1623 }
1624 
1625 
1626 
1627 #ifdef PPRO_NT
1628 med_int
1629 MMHFYAW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1630  med_int *numdt, med_int *numit, med_float* dt,
1631  med_int *entype, med_int *geotype, med_int *cmode, unsigned char **flt,
1632  med_int *connectivity)
1633 #else
1634 med_int
1635 nmmhfyaw(med_int *fid, char *mname, med_int *mnamelen,
1636  med_int *numdt, med_int *numit, med_float* dt,
1637  med_int *entype, med_int *geotype, med_int *cmode,
1638  unsigned char **flt, med_int *connectivity)
1639 #endif
1640 {
1641  med_int _ret;
1642  char *_fn1;
1643  med_entity_type _etype = (med_entity_type) *entype;
1644  med_geometry_type _gtype = (med_geometry_type) *geotype;
1645  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1646  med_filter *_filter = (med_filter*) *flt;
1647 
1648  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1649  if (!_fn1)
1650  return(-1);
1651 
1653  _fn1,
1654  (med_int) *numdt,
1655  (med_int) *numit,
1656  (med_float) *dt,
1657  _etype,
1658  _gtype,
1659  _cmode,
1660  _filter,
1661  (med_int *) connectivity);
1662 
1663  _MEDcstringFree(_fn1);
1664 
1665  return (_ret);
1666 }
1667 
1668 
1669 #ifdef PPRO_NT
1670 med_int
1671 MMHFYAR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1672  med_int *numdt, med_int *numit,
1673  med_int *entype, med_int *geotype, med_int *cmode,
1674  unsigned char **flt, med_int *connectivity)
1675 #else
1676 med_int
1677 nmmhfyar(med_int *fid, char *mname, med_int *mnamelen,
1678  med_int *numdt, med_int *numit,
1679  med_int *entype, med_int *geotype, med_int *cmode,
1680  unsigned char **flt, med_int *connectivity)
1681 #endif
1682 {
1683  med_int _ret;
1684  char *_fn1;
1685  med_entity_type _etype = (med_entity_type) *entype;
1686  med_geometry_type _gtype = (med_geometry_type) *geotype;
1687  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1688  med_filter *_filter = (med_filter*) *flt;
1689 
1690  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1691  if (!_fn1)
1692  return(-1);
1693 
1695  (char*) _fn1,
1696  (med_int) *numdt,
1697  (med_int) *numit,
1698  _etype,
1699  _gtype,
1700  _cmode,
1701  _filter,
1702  (med_int *) connectivity);
1703 
1704  _MEDcstringFree(_fn1);
1705 
1706  return (_ret);
1707 }
1708 
1709 
1710 
1711 #ifdef PPRO_NT
1712 med_int
1713 MMHFPGW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1714  med_int *numdt, med_int *numit, med_float* dt,
1715  med_int *entype, med_int *cmode,
1716  med_int *indexsize, med_int *index, med_int *connectivity)
1717 #else
1718 med_int
1719 nmmhfpgw(med_int *fid, char *mname, med_int *mnamelen,
1720  med_int *numdt, med_int *numit, med_float* dt,
1721  med_int *entype, med_int *cmode,
1722  med_int *indexsize, med_int *index, med_int *connectivity)
1723 #endif
1724 {
1725  med_int _ret;
1726  char *_fn1;
1727  med_entity_type _etype = (med_entity_type) *entype;
1728  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1729 
1730  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1731  if (!_fn1)
1732  return(-1);
1733 
1734  _ret = (med_int) MEDmeshPolygonWr((med_idt) *fid,
1735  (char*) _fn1,
1736  (med_int) *numdt,
1737  (med_int) *numit,
1738  (med_float) *dt,
1739  _etype,
1740  _cmode,
1741  (med_int) *indexsize,
1742  (med_int *) index,
1743  (med_int *) connectivity);
1744 
1745  _MEDcstringFree(_fn1);
1746 
1747  return (_ret);
1748 }
1749 
1750 
1751 #ifdef PPRO_NT
1752 med_int
1753 MMHFPGR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1754  med_int *numdt, med_int *numit,
1755  med_int *entype, med_int *cmode,
1756  med_int *index,
1757  med_int *connectivity)
1758 #else
1759 med_int
1760 nmmhfpgr(med_int *fid, char *mname, med_int *mnamelen,
1761  med_int *numdt, med_int *numit,
1762  med_int *entype, med_int *cmode,
1763  med_int *index,
1764  med_int *connectivity)
1765 #endif
1766 {
1767  med_int _ret;
1768  char *_fn1;
1769  med_entity_type _etype = (med_entity_type) *entype;
1770  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1771 
1772  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1773  if (!_fn1)
1774  return(-1);
1775 
1776  _ret = (med_int) MEDmeshPolygonRd((med_idt) *fid,
1777  (char*) _fn1,
1778  (med_int) *numdt,
1779  (med_int) *numit,
1780  _etype,
1781  _cmode,
1782  (med_int *) index,
1783  (med_int *) connectivity);
1784 
1785  _MEDcstringFree(_fn1);
1786 
1787  return (_ret);
1788 }
1789 
1790 
1791 #ifdef PPRO_NT
1792 med_int
1793 MMHFPHW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1794  med_int *numdt, med_int *numit, med_float* dt,
1795  med_int *entype, med_int *cmode,
1796  med_int *findexsize, med_int *findex,
1797  med_int *nindexsize, med_int *nindex,
1798  med_int *connectivity)
1799 #else
1800 med_int
1801 nmmhfphw(med_int *fid, char *mname, med_int *mnamelen,
1802  med_int *numdt, med_int *numit, med_float* dt,
1803  med_int *entype, med_int *cmode,
1804  med_int *findexsize, med_int *findex,
1805  med_int *nindexsize, med_int *nindex,
1806  med_int *connectivity)
1807 #endif
1808 {
1809  med_int _ret;
1810  char *_fn1;
1811  med_entity_type _etype = (med_entity_type) *entype;
1812  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1813 
1814  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1815  if (!_fn1)
1816  return(-1);
1817 
1818  _ret = (med_int) MEDmeshPolyhedronWr((med_idt) *fid,
1819  (char*) _fn1,
1820  (med_int) *numdt,
1821  (med_int) *numit,
1822  (med_float) *dt,
1823  _etype,
1824  _cmode,
1825  (med_int) *findexsize,
1826  (med_int *) findex,
1827  (med_int) *nindexsize,
1828  (med_int *) nindex,
1829  (med_int *) connectivity);
1830 
1831  _MEDcstringFree(_fn1);
1832 
1833  return (_ret);
1834 }
1835 
1836 
1837 
1838 #ifdef PPRO_NT
1839 med_int
1840 MMHFPHR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1841  med_int *numdt, med_int *numit,
1842  med_int *entype, med_int *cmode,
1843  med_int *findex,
1844  med_int *nindex,
1845  med_int *connectivity)
1846 #else
1847 med_int
1848 nmmhfphr(med_int *fid, char *mname, med_int *mnamelen,
1849  med_int *numdt, med_int *numit,
1850  med_int *entype, med_int *cmode,
1851  med_int *findex,
1852  med_int *nindex,
1853  med_int *connectivity)
1854 #endif
1855 {
1856  med_int _ret;
1857  char *_fn1;
1858  med_entity_type _etype = (med_entity_type) *entype;
1859  med_connectivity_mode _cmode = (med_connectivity_mode) *cmode;
1860 
1861  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1862  if (!_fn1)
1863  return(-1);
1864 
1865  _ret = (med_int) MEDmeshPolyhedronRd((med_idt) *fid,
1866  (char*) _fn1,
1867  (med_int) *numdt,
1868  (med_int) *numit,
1869  _etype,
1870  _cmode,
1871  (med_int *) findex,
1872  (med_int *) nindex,
1873  (med_int *) connectivity);
1874 
1875  _MEDcstringFree(_fn1);
1876 
1877  return (_ret);
1878 }
1879 
1880 #ifdef PPRO_NT
1881 med_int
1882 MMHFGNW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1883  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1884  med_int *n, med_int *num)
1885 #else
1886 med_int
1887 nmmhfgnw(med_int *fid, char *mname, med_int *mnamelen,
1888  med_int *numdt, med_int *numit, med_int *entype,
1889  med_int *geotype, med_int *n, med_int *num)
1890 #endif
1891 {
1892  med_int _ret;
1893  char *_fn1;
1894  med_entity_type _etype = (med_entity_type) *entype;
1895  med_geometry_type _gtype = (med_geometry_type) *geotype;
1896 
1897  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1898  if (!_fn1)
1899  return(-1);
1900 
1901  _ret = (med_int) MEDmeshGlobalNumberWr((med_idt) *fid,
1902  (char*) _fn1,
1903  (med_int) *numdt,
1904  (med_int) *numit,
1905  _etype,
1906  _gtype,
1907  (med_int) *n,
1908  (med_int *) num);
1909 
1910  _MEDcstringFree(_fn1);
1911 
1912  return (_ret);
1913 }
1914 
1915 
1916 #ifdef PPRO_NT
1917 med_int
1918 MMHFGNR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1919  med_int *numdt, med_int *numit, med_int *entype, med_int *geotype,
1920  med_int *num)
1921 #else
1922 med_int
1923 nmmhfgnr(med_int *fid, char *mname, med_int *mnamelen,
1924  med_int *numdt, med_int *numit, med_int *entype,
1925  med_int *geotype, med_int *num)
1926 #endif
1927 {
1928  med_int _ret;
1929  char *_fn1;
1930  med_entity_type _etype = (med_entity_type) *entype;
1931  med_geometry_type _gtype = (med_geometry_type) *geotype;
1932 
1933  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1934  if (!_fn1)
1935  return(-1);
1936 
1937  _ret = (med_int) MEDmeshGlobalNumberRd((med_idt) *fid,
1938  (char*) _fn1,
1939  (med_int) *numdt,
1940  (med_int) *numit,
1941  _etype,
1942  _gtype,
1943  (med_int *) num);
1944 
1945  _MEDcstringFree(_fn1);
1946 
1947  return (_ret);
1948 }
1949 
1950 #ifdef PPRO_NT
1951 med_int
1952 MMHFCSC(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1953  med_int *numdt1, med_int *numit1,
1954  med_int *numdt2, med_int *numit2, med_float *dt2)
1955 #else
1956 med_int
1957 nmmhfcsc(med_int *fid, char *mname, med_int *mnamelen,
1958  med_int *numdt1, med_int *numit1,
1959  med_int *numdt2, med_int *numit2, med_float *dt2)
1960 #endif
1961 {
1962  med_int _ret;
1963  char *_fn1;
1964 
1965  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1966  if (!_fn1)
1967  return(-1);
1968 
1969  _ret = (med_int) MEDmeshComputationStepCr((const med_idt) *fid,
1970  (const char*) _fn1,
1971  (const med_int) *numdt1,
1972  (const med_int) *numit1,
1973  (const med_int) *numdt2,
1974  (const med_int) *numit2,
1975  (med_float) *dt2);
1976 
1977  _MEDcstringFree(_fn1);
1978 
1979  return(_ret);
1980 }
1981 
1982 
1983 #ifdef PPRO_NT
1984 med_int
1985 MMHFCSI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
1986  med_int *csit, med_int *numdt, med_int *numit, med_float *dt)
1987 #else
1988 med_int
1989 nmmhfcsi(med_int *fid, char *mname, med_int *mnamelen,
1990  med_int *csit, med_int *numdt, med_int *numit,
1991  med_float *dt)
1992 #endif
1993 {
1994  med_int _ret;
1995  char *_fn1;
1996 
1997  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
1998  if (!_fn1)
1999  return(-1);
2000 
2001  _ret = (med_int) MEDmeshComputationStepInfo((const med_idt) *fid,
2002  (const char*) _fn1,
2003  (const med_int) *csit,
2004  (med_int *) numdt,
2005  (med_int *) numit,
2006  (med_float *) dt);
2007 
2008  _MEDcstringFree(_fn1);
2009 
2010  return(_ret);
2011 }
2012 
2013 
2014 
2015 #ifdef PPRO_NT
2016 med_int
2017 MMHFCSR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2018  med_int *numdt, med_int *numit, med_float *dt)
2019 #else
2020 med_int
2021 nmmhfcsr(med_int *fid, char *mname, med_int *mnamelen,
2022  med_int *numdt, med_int *numit,
2023  med_float *dt)
2024 #endif
2025 {
2026  med_int _ret;
2027  char *_fn1;
2028 
2029  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2030  if (!_fn1)
2031  return(-1);
2032 
2033  _ret = (med_int) MEDmeshComputationStepDtRd((const med_idt) *fid,
2034  (const char*) _fn1,
2035  (const med_int) *numdt,
2036  (const med_int) *numit,
2037  (med_float *) dt);
2038 
2039  _MEDcstringFree(_fn1);
2040 
2041  return(_ret);
2042 }
2043 
2044 
2045 #ifdef PPRO_NT
2046 med_int
2047 MMHFSTR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2048  med_int *stype)
2049 #else
2050 med_int
2051 nmmhfstr(med_int *fid, char *mname, med_int *mnamelen,med_int *stype)
2052 #endif
2053 {
2054  med_int _ret;
2055  char *_fn1;
2056  med_sorting_type _st;
2057 
2058  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2059  if (!_fn1)
2060  return(-1);
2061 
2062  _ret = (med_int) MEDmeshSortingTypeRd((const med_idt) *fid,
2063  (const char*) _fn1,
2064  &_st);
2065 
2066  *stype = (med_int) _st;
2067  _MEDcstringFree(_fn1);
2068 
2069  return(_ret);
2070 }
2071 
2072 
2073 
2074 #ifdef PPRO_NT
2075 med_int
2076 MMHFRAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2077  med_int *numdt, med_int *numit, med_int *geotype,
2078  char *aname, unsigned int bidon2, med_int *anamelen,
2079  med_int *n, med_float *val)
2080 #else
2081 med_int
2082 nmmhfraw(med_int *fid, char *mname, med_int *mnamelen,
2083  med_int *numdt, med_int *numit, med_int *geotype,
2084  char *aname, med_int *anamelen,
2085  med_int *n, med_float *val)
2086 #endif
2087 {
2088  med_int _ret;
2089  char *_fn1, *_fn2;
2090  med_geometry_type _gtype = (med_geometry_type) *geotype;
2091 
2092  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2093  if (!_fn1)
2094  return(-1);
2095 
2096  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2097  if (!_fn2)
2098  return(-1);
2099 
2100  _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid,
2101  _fn1,
2102  (med_int) *numdt,
2103  (med_int) *numit,
2104  _gtype,
2105  _fn2,
2106  (med_int) *n,
2107  (void *) val);
2108 
2109  _MEDcstringFree(_fn1);
2110  _MEDcstringFree(_fn2);
2111 
2112  return (_ret);
2113 }
2114 
2115 
2116 #ifdef PPRO_NT
2117 med_int
2118 MMHFIAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2119  med_int *numdt, med_int *numit, med_int *geotype,
2120  char *aname, unsigned int bidon2, med_int *anamelen,
2121  med_int *n, med_int *val)
2122 #else
2123 med_int
2124 nmmhfiaw(med_int *fid, char *mname, med_int *mnamelen,
2125  med_int *numdt, med_int *numit, med_int *geotype,
2126  char *aname, med_int *anamelen,
2127  med_int *n, med_int *val)
2128 #endif
2129 {
2130  med_int _ret;
2131  char *_fn1, *_fn2;
2132  med_geometry_type _gtype = (med_geometry_type) *geotype;
2133 
2134  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2135  if (!_fn1)
2136  return(-1);
2137 
2138  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2139  if (!_fn2)
2140  return(-1);
2141 
2142  _ret = (med_int) MEDmeshStructElementVarAttWr((med_idt) *fid,
2143  _fn1,
2144  (med_int) *numdt,
2145  (med_int) *numit,
2146  _gtype,
2147  _fn2,
2148  (med_int) *n,
2149  (void *) val);
2150 
2151  _MEDcstringFree(_fn1);
2152  _MEDcstringFree(_fn2);
2153 
2154  return (_ret);
2155 }
2156 
2157 
2158 #ifdef PPRO_NT
2159 med_int
2160 MMHFSAW(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2161  med_int *numdt, med_int *numit, med_int *geotype,
2162  char *aname, unsigned int bidon2, med_int *anamelen,
2163  med_int *n, char *val, unsigned int bidon3, med_int *vallen)
2164 #else
2165 med_int
2166 nmmhfsaw(med_int *fid, char *mname, med_int *mnamelen,
2167  med_int *numdt, med_int *numit, med_int *geotype,
2168  char *aname, med_int *anamelen,
2169  med_int *n, char *val, med_int *vallen)
2170 #endif
2171 {
2172  med_int _ret;
2173  char *_fn1, *_fn2, *_fn3;
2174  med_geometry_type _gtype = (med_geometry_type) *geotype;
2175  char _modelname[MED_NAME_SIZE+1]="";
2176  med_int _ncomp=0;
2177  med_attribute_type _type;
2178 
2179  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2180  if (!_fn1)
2181  return(-1);
2182 
2183  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2184  if (!_fn2)
2185  return(-1);
2186 
2187  /* nom de l'element de structure */
2188  _ret = MEDstructElementName((med_idt) *fid,
2189  _gtype,
2190  _modelname);
2191  if (_ret < 0)
2192  return (-1);
2193 
2194  /* nombre de composante de l'attribut */
2196  _modelname,
2197  _fn2,
2198  &_type,
2199  &_ncomp);
2200  if (_ncomp < 0)
2201  return (-1);
2202 
2203  /* TODO: cf nmmhfeaw */
2204  _fn3 = _MED1cstring(val,
2205  (int) *vallen*_ncomp,
2206  (int) *n*_ncomp*MED_NAME_SIZE);
2207  if (!_fn3)
2208  return(-1);
2209 
2211  _fn1,
2212  (med_int) *numdt,
2213  (med_int) *numit,
2214  _gtype,
2215  _fn2,
2216  (med_int) *n,
2217  (void *) _fn3);
2218 
2219  _MEDcstringFree(_fn1);
2220  _MEDcstringFree(_fn2);
2221  _MEDcstringFree(_fn3);
2222 
2223  return (_ret);
2224 }
2225 
2226 
2227 
2228 #ifdef PPRO_NT
2229 med_int
2230 MMHFRAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2231  med_int *numdt, med_int *numit, med_int *geotype,
2232  char *aname, unsigned int bidon2, med_int *anamelen,
2233  med_float *val)
2234 #else
2235 med_int
2236 nmmhfrar(med_int *fid, char *mname, med_int *mnamelen,
2237  med_int *numdt, med_int *numit, med_int *geotype,
2238  char *aname, med_int *anamelen,
2239  med_float *val)
2240 #endif
2241 {
2242  med_int _ret;
2243  char *_fn1, *_fn2;
2244  med_geometry_type _gtype = (med_geometry_type) *geotype;
2245 
2246  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2247  if (!_fn1)
2248  return(-1);
2249 
2250  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2251  if (!_fn2)
2252  return(-1);
2253 
2254  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid,
2255  _fn1,
2256  (med_int) *numdt,
2257  (med_int) *numit,
2258  _gtype,
2259  _fn2,
2260  (void *) val);
2261 
2262  _MEDcstringFree(_fn1);
2263  _MEDcstringFree(_fn2);
2264 
2265  return (_ret);
2266 }
2267 
2268 
2269 #ifdef PPRO_NT
2270 med_int
2271 MMHFIAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2272  med_int *numdt, med_int *numit, med_int *geotype,
2273  char *aname, unsigned int bidon2, med_int *anamelen,
2274  med_int *val)
2275 #else
2276 med_int
2277 nmmhfiar(med_int *fid, char *mname, med_int *mnamelen,
2278  med_int *numdt, med_int *numit, med_int *geotype,
2279  char *aname, med_int *anamelen,
2280  med_int *val)
2281 #endif
2282 {
2283  med_int _ret;
2284  char *_fn1, *_fn2;
2285  med_geometry_type _gtype = (med_geometry_type) *geotype;
2286 
2287  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2288  if (!_fn1)
2289  return(-1);
2290 
2291  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2292  if (!_fn2)
2293  return(-1);
2294 
2295  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid,
2296  _fn1,
2297  (med_int) *numdt,
2298  (med_int) *numit,
2299  _gtype,
2300  _fn2,
2301  (void *) val);
2302 
2303  _MEDcstringFree(_fn1);
2304  _MEDcstringFree(_fn2);
2305 
2306  return (_ret);
2307 }
2308 
2309 
2310 
2311 #ifdef PPRO_NT
2312 med_int
2313 MMHFSAR(med_int *fid, char *mname, unsigned int bidon1, med_int *mnamelen,
2314  med_int *numdt, med_int *numit, med_int *geotype,
2315  char *aname, unsigned int bidon2, med_int *anamelen,
2316  char *val, unsigned int bidon3)
2317 #else
2318 med_int
2319 nmmhfsar(med_int *fid, char *mname, med_int *mnamelen,
2320  med_int *numdt, med_int *numit, med_int *geotype,
2321  char *aname, med_int *anamelen,
2322  char *val)
2323 #endif
2324 {
2325  med_int _ret;
2326  char *_fn1, *_fn2;
2327  char *_fs3;
2328  med_geometry_type _gtype = (med_geometry_type) *geotype;
2329  med_attribute_type _atype;
2330  med_int _nacomp=0;
2331  med_int _size=0;
2332  med_int _n;
2333  med_bool _coordinatechangement=MED_FALSE;
2334  med_bool _geotransformation=MED_FALSE;
2335  char _modelname[MED_NAME_SIZE+1]="";
2336 
2337  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2338  if (!_fn1)
2339  return(-1);
2340 
2341  _fn2 = _MED2cstring((char *) aname, (int) *anamelen);
2342  if (!_fn2)
2343  return(-1);
2344 
2345  /* on recupere le nom du modèle de structure */
2346  _ret = MEDstructElementName((med_idt) *fid,
2347  _gtype,
2348  _modelname);
2349  if (_ret < 0)
2350  return (-1);
2351 
2352  /* on recupere le nombre de composante de l'attribut */
2354  _modelname,
2355  _fn2,
2356  &_atype,
2357  &_nacomp) < 0)
2358  return -1;
2359 
2360  /* On recupere le nombre d'element correspondant
2361  au type de modele de structure dans le maillage
2362  de calcul
2363  */
2364  _n = MEDmeshnEntity((med_idt) *fid,
2365  _fn1,
2366  (med_int) *numdt,
2367  (med_int) *numit,
2369  _gtype,
2371  MED_NODAL,
2372  &_coordinatechangement,
2373  &_geotransformation);
2374  if (_n < 0)
2375  return -1;
2376 
2377  /* memory allocation */
2378  _size = _n*_nacomp*MED_NAME_SIZE*sizeof(char);
2379  _fs3 = (char *) malloc(_size+1);
2380  *_fs3='\0';
2381  if (!_fs3)
2382  return(-1);
2383 
2384  _ret = (med_int) MEDmeshStructElementVarAttRd((med_idt) *fid,
2385  _fn1,
2386  (med_int) *numdt,
2387  (med_int) *numit,
2388  _gtype,
2389  _fn2,
2390  (void *) _fs3);
2391 
2392  _MEDc2fString(_fs3,val,_size);
2393  free(_fs3);
2394 
2395  _MEDcstringFree(_fn1);
2396  _MEDcstringFree(_fn2);
2397 
2398  return (_ret);
2399 }
2400 
2401 
2402 
2403 #ifdef PPRO_NT
2404 med_int
2405 MMHFENI(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2406  med_int *numdt, med_int *numit, med_int *entype, med_int *it,
2407  char *geoname, unsigned int bidon1, med_int *geotype)
2408 #else
2409 med_int
2410 nmmhfeni(med_int *fid, char *mname, med_int *mnamelen,
2411  med_int *numdt, med_int *numit, med_int *entype, med_int *it,
2412  char *geoname, med_int *geotype)
2413 #endif
2414 {
2415  med_int _ret;
2416  char *_fn1;
2417  char _fs1[MED_NAME_SIZE+1]="";
2418  med_entity_type _etype = (med_entity_type) *entype;
2419  med_geometry_type _gtype;
2420 
2421  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2422  if (!_fn1)
2423  return(-1);
2424 
2425  _ret = (med_int) MEDmeshEntityInfo((med_idt) *fid,
2426  (char*) _fn1,
2427  (med_int) *numdt,
2428  (med_int) *numit,
2429  _etype,
2430  (med_int) *it,
2431  _fs1,
2432  &_gtype);
2433 
2434  *geotype = (med_int) _gtype;
2435  _MEDc2fString(_fs1,geoname,MED_NAME_SIZE);
2436 
2437  _MEDcstringFree(_fn1);
2438 
2439  return (_ret);
2440 }
2441 
2442 
2443 #ifdef PPRO_NT
2444 med_int
2445 MMHFTFW(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2446  med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2447 #else
2448 med_int
2449 nmmhftfw(med_int *fid, char *mname, med_int *mnamelen,
2450  med_int *numdt, med_int *numit, med_float *dt, med_float *tsf)
2451 #endif
2452 {
2453  med_int _ret;
2454  char *_fn1;
2455 
2456  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2457  if (!_fn1)
2458  return(-1);
2459 
2460  _ret = (med_int) MEDmeshNodeCoordinateTrsfWr((med_idt) *fid,
2461  (char*) _fn1,
2462  (med_int) *numdt,
2463  (med_int) *numit,
2464  (med_float) *dt,
2465  (med_float *) tsf);
2466 
2467  _MEDcstringFree(_fn1);
2468 
2469  return(_ret);
2470 }
2471 
2472 
2473 #ifdef PPRO_NT
2474 med_int
2475 MMHFTFR(med_int *fid, char *mname, unsigned int bidon, med_int *mnamelen,
2476  med_int *numdt, med_int *numit, med_float *tsf)
2477 #else
2478 med_int
2479 nmmhftfr(med_int *fid, char *mname, med_int *mnamelen,
2480  med_int *numdt, med_int *numit, med_float *tsf)
2481 #endif
2482 {
2483  med_int _ret;
2484  char *_fn1;
2485 
2486  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2487  if (!_fn1)
2488  return(-1);
2489 
2490  _ret = (med_int) MEDmeshNodeCoordinateTrsfRd((med_idt) *fid,
2491  (char*) _fn1,
2492  (med_int) *numdt,
2493  (med_int) *numit,
2494  (med_float *) tsf);
2495 
2496  _MEDcstringFree(_fn1);
2497 
2498  return(_ret);
2499 }
2500 
2501 
2502 
2503 
2504 #ifdef PPRO_NT
2505 med_int
2506 MMHFAAW(med_int *fid,
2507  char *mname, unsigned int bidon, med_int *mnamelen,
2508  med_int *datatype,
2509  med_int *numdt,
2510  med_int *numit,
2511  med_int *entype,
2512  med_int *geotype,
2513  unsigned char **flt,
2514  med_int *val)
2515 #else
2516 med_int
2518  char *mname, med_int *mnamelen,
2519  med_int *datatype,
2520  med_int *numdt,
2521  med_int *numit,
2522  med_int *entype,
2523  med_int *geotype,
2524  unsigned char **flt,
2525  med_int *val)
2526 #endif
2527 {
2528  med_int _ret;
2529  char *_fn1;
2530  med_entity_type _etype = (med_entity_type) *entype;
2531  med_geometry_type _gtype = (med_geometry_type) *geotype;
2532  med_data_type _datatype = (med_data_type) *datatype;
2533  med_filter *_filter = (med_filter*) *flt;
2534 
2535  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2536  if (!_fn1)
2537  return(-1);
2538 
2540  _fn1,
2541  _datatype,
2542  (med_int) *numdt,
2543  (med_int) *numit,
2544  _etype,
2545  _gtype,
2546  _filter,
2547  (med_int *) val);
2548 
2549  _MEDcstringFree(_fn1);
2550 
2551  return (_ret);
2552 }
2553 
2554 
2555 
2556 #ifdef PPRO_NT
2557 med_int
2558 MMHFAAR(med_int *fid,
2559  char *mname, unsigned int bidon, med_int *mnamelen,
2560  med_int *datatype,
2561  med_int *numdt,
2562  med_int *numit,
2563  med_int *entype,
2564  med_int *geotype,
2565  unsigned char **flt,
2566  med_int *val)
2567 #else
2568 med_int
2570  char *mname, med_int *mnamelen,
2571  med_int *datatype,
2572  med_int *numdt,
2573  med_int *numit,
2574  med_int *entype,
2575  med_int *geotype,
2576  unsigned char **flt,
2577  med_int *val)
2578 #endif
2579 {
2580  med_int _ret;
2581  char *_fn1;
2582  med_entity_type _etype = (med_entity_type) *entype;
2583  med_geometry_type _gtype = (med_geometry_type) *geotype;
2584  med_data_type _datatype = (med_data_type) *datatype;
2585  med_filter *_filter = (med_filter*) *flt;
2586 
2587  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2588  if (!_fn1)
2589  return(-1);
2590 
2592  _fn1,
2593  _datatype,
2594  (med_int) *numdt,
2595  (med_int) *numit,
2596  _etype,
2597  _gtype,
2598  _filter,
2599  (med_int *) val);
2600 
2601  _MEDcstringFree(_fn1);
2602 
2603  return (_ret);
2604 }
2605 
2606 
2607 
2608 
2609 
2610 #ifdef PPRO_NT
2611 med_int
2612 MMHFASW(med_int *fid,
2613  char *mname, unsigned int bidon, med_int *mnamelen,
2614  med_int *datatype,
2615  med_int *numdt,
2616  med_int *numit,
2617  med_int *entype,
2618  med_int *geotype,
2619  unsigned char **flt,
2620  char *val)
2621 #else
2622 med_int
2624  char *mname, med_int *mnamelen,
2625  med_int *datatype,
2626  med_int *numdt,
2627  med_int *numit,
2628  med_int *entype,
2629  med_int *geotype,
2630  unsigned char **flt,
2631  char *val)
2632 #endif
2633 {
2634  med_int _ret;
2635  char *_fn1;
2636  med_entity_type _etype = (med_entity_type) *entype;
2637  med_geometry_type _gtype = (med_geometry_type) *geotype;
2638  med_data_type _datatype = (med_data_type) *datatype;
2639  med_filter *_filter = (med_filter*) *flt;
2640 
2641  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2642  if (!_fn1)
2643  return(-1);
2644 
2646  _fn1,
2647  _datatype,
2648  (med_int) *numdt,
2649  (med_int) *numit,
2650  _etype,
2651  _gtype,
2652  _filter,
2653  val);
2654 
2655  _MEDcstringFree(_fn1);
2656 
2657  return (_ret);
2658 }
2659 
2660 
2661 
2662 
2663 #ifdef PPRO_NT
2664 med_int
2665 MMHFASR(med_int *fid,
2666  char *mname, unsigned int bidon, med_int *mnamelen,
2667  med_int *datatype,
2668  med_int *numdt,
2669  med_int *numit,
2670  med_int *entype,
2671  med_int *geotype,
2672  unsigned char **flt,
2673  char *val)
2674 #else
2675 med_int
2677  char *mname, med_int *mnamelen,
2678  med_int *datatype,
2679  med_int *numdt,
2680  med_int *numit,
2681  med_int *entype,
2682  med_int *geotype,
2683  unsigned char **flt,
2684  char *val)
2685 #endif
2686 {
2687  med_int _ret;
2688  char *_fn1;
2689  med_entity_type _etype = (med_entity_type) *entype;
2690  med_geometry_type _gtype = (med_geometry_type) *geotype;
2691  med_data_type _datatype = (med_data_type) *datatype;
2692  med_filter *_filter = (med_filter*) *flt;
2693 
2694  _fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
2695  if (!_fn1)
2696  return(-1);
2697 
2699  _fn1,
2700  _datatype,
2701  (med_int) *numdt,
2702  (med_int) *numit,
2703  _etype,
2704  _gtype,
2705  _filter,
2706  val);
2707 
2708  _MEDcstringFree(_fn1);
2709 
2710  return (_ret);
2711 }
MEDC_EXPORT med_err MEDmeshGridStructWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_int *const gridstruct)
Cette routine définit la structure (nombre de points sur chaque axe du repère) d'un maillage structur...
Definition: med.h:136
MEDC_EXPORT med_err MEDmeshGlobalNumberWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitytype, const med_geometry_type geotype, const med_int nentity, const med_int *const number)
Cette routine permet l'écriture d'une numérotation globale sur un maillage pour un type d'entité...
MEDC_EXPORT med_err MEDmeshEntityInfo(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const int geotypeit, char *const geotypename, med_geometry_type *const geotype)
Cette routine indique de façon itérative les types géométriques disponibles dans un maillage...
med_connectivity_mode
Definition: med.h:235
#define nmmhfgcr
Definition: meshcf.c:106
#define nmmhfenw
Definition: meshcf.c:107
MEDC_EXPORT med_err MEDstructElementVarAttInfoByName(const med_idt fid, const char *const modelname, const char *const varattname, med_attribute_type *const varatttype, med_int *const ncomponent)
Cette routine décrit les caractéristiques d'un attribut variable de modèle d'élément de structure à p...
MEDC_EXPORT med_err _MEDcstringFree(char *chaine)
#define nmmhfraw
Definition: meshcf.c:137
#define MED_POLYGON
Definition: med.h:204
#define nmmhfmhi
Definition: meshcf.c:91
#define nmmhfiaw
Definition: meshcf.c:138
Filtre de sélection.
Definition: med.h:326
MEDC_EXPORT med_err MEDmeshEntityNumberRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, med_int *const number)
Cette routine permet de lire les numéros d'un type d'entité d'un maillage.
#define nmmhfiar
Definition: meshcf.c:141
#define nmmhfsar
Definition: meshcf.c:142
#define nmmhfasw
Definition: meshcf.c:148
#define nmmhfgsr
Definition: meshcf.c:100
#define nmmhfcsi
Definition: meshcf.c:134
#define nmmhfnme
Definition: meshcf.c:113
MEDC_EXPORT med_err MEDmeshGridTypeWr(const med_idt fid, const char *const meshname, const med_grid_type gridtype)
Cette routine permet de définir le type d'un maillage structuré (MED_STRUCTURED_MESH).
#define nmmhfgnr
Definition: meshcf.c:132
med_switch_mode
Definition: med.h:89
MEDC_EXPORT med_err MEDmeshPolygonWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_connectivity_mode cmode, const med_int indexsize, const med_int *const polyindex, const med_int *const connectivity)
Cette routine permet l'écriture des connectivités de polygones.
MEDC_EXPORT med_err MEDmeshElementConnectivityWithProfileRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int dimselect, const med_int nentity, med_int *const connectivity)
Cette routine permet de lire dans un maillage le tableau des connectivités pour un type géométrique d...
med_data_type
Definition: med.h:142
#define nmmhfgcw
Definition: meshcf.c:105
#define nmmhfatr
Definition: meshcf.c:96
double med_float
Definition: med.h:314
#define nmmhfsaw
Definition: meshcf.c:139
med_mesh_type
Definition: med.h:124
#define nmmhfcaw
Definition: meshcf.c:123
#define nmmhfphr
Definition: meshcf.c:130
MEDC_EXPORT med_err MEDmeshNodeCoordinateWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_switch_mode switchmode, const med_int nentity, const med_float *const coordinates)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.
#define nmmhfcsc
Definition: meshcf.c:133
#define nmmhftfr
Definition: meshcf.c:145
Definition: med.h:235
MEDC_EXPORT med_err MEDmeshPolyhedronWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_connectivity_mode cmode, const med_int faceindexsize, const med_int *const faceindex, const med_int nodeindexsize, const med_int *const nodeindex, const med_int *const connectivity)
Cette routine permet l'écriture dans un maillage des connectivités de polyèdres.
MEDC_EXPORT med_int MEDmeshnAxis(const med_idt fid, const int meshit)
Cette routine permet de lire dans un maillage le nombre d'axes du repère des coordonnées des noeuds...
Definition: MEDmeshnAxis.c:35
#define nmmhfeaw
Definition: meshcf.c:111
#define nmmhfcpr
Definition: meshcf.c:104
MEDC_EXPORT med_err MEDmeshUniversalNameRd(const med_idt fid, const char *const meshname, char *const univname)
Cette routine permet la lecture du nom universel d'un maillage.
MEDC_EXPORT med_err MEDmeshUniversalNameWr(const med_idt fid, const char *const meshname)
Cette routine permet l'écriture du nom universel d'un maillage.
MEDC_EXPORT med_err MEDmeshSortingTypeRd(const med_idt fid, const char *const meshname, med_sorting_type *const sortingtype)
Cette routine lit l'ordre de tri des séquences évolutives du maillage.
MEDC_EXPORT med_err MEDmeshNodeCoordinateTrsfRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float *const coordinatetrsf)
Cette routine lit les paramètres de translation rotation à appliquer aux noeuds de la séquence de cal...
MEDC_EXPORT med_err MEDmeshElementRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_switch_mode switchmode, med_int *const connectivity, med_bool *const withelementname, char *const elementname, med_bool *const withelementnumber, med_int *const elementnumber, med_bool *const withfamnumber, med_int *const famnumber)
Cette routine permet la lecture d'un type d'élément d'un maillage non structuré pour une séquence de ...
#define nmmhfgtr
Definition: meshcf.c:98
#define MED_POLYHEDRON
Definition: med.h:206
MEDC_EXPORT med_err MEDmeshElementConnectivityAdvancedWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_filter *const filter, const med_int *const connectivity)
Cette routine permet d'écrire dans un maillage le tableau des connectivités pour un type géométrique ...
#define nmmhfunw
Definition: meshcf.c:93
med_sorting_type
Definition: med.h:289
MEDC_EXPORT med_err MEDmeshEntityNameRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, char *const name)
Cette routine permet de lire les noms d'un type d'entité d'un maillage.
MEDC_EXPORT med_err MEDmeshGlobalNumberRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitytype, const med_geometry_type geotype, med_int *const number)
Cette routine permet la lecture d'une numérotation globale sur un maillage pour un type d'entité...
MEDC_EXPORT med_err MEDmeshElementConnectivityWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_switch_mode switchmode, const med_int nentity, const med_int *const connectivity)
Cette routine permet d'écrire dans un maillage le tableau des connectivités pour un type géométrique ...
MEDC_EXPORT med_err MEDmeshEntityAttributeAdvancedWr(const med_idt fid, const char *const meshname, const med_data_type datatype, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_filter *const filter, const void *const attval)
Cette routine permet d'écrire les attributs optionnels d'entités d'un maillage en utilisant un filtre...
#define nmmhfphw
Definition: meshcf.c:129
#define MED_LNAME_SIZE
Definition: med.h:76
MEDC_EXPORT med_err MEDmeshCr(const med_idt fid, const char *const meshname, const med_int spacedim, const med_int meshdim, const med_mesh_type meshtype, const char *const description, const char *const dtunit, const med_sorting_type sortingtype, const med_axis_type axistype, const char *const axisname, const char *const axisunit)
Cette routine permet de créer un maillage dans un fichier.
Definition: MEDmeshCr.c:45
MEDC_EXPORT med_err MEDmeshNodeWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_switch_mode switchmode, const med_int nentity, const med_float *const coordinate, const med_bool withnodename, const char *const nodename, const med_bool withnodenumber, const med_int *const nodenumber, const med_bool withfamnumber, const med_int *const famnumber)
Cette routine permet l'écriture des noeuds d'un maillage non structuré pour une séquence de calcul do...
Definition: MEDmeshNodeWr.c:45
#define nmmhfelr
Definition: meshcf.c:122
med_entity_type
Definition: med.h:136
#define nmmhfcar
Definition: meshcf.c:124
#define MED_NONE
Definition: med.h:211
MEDC_EXPORT med_err MEDmeshInfo(const med_idt fid, const int meshit, char *const meshname, med_int *const spacedim, med_int *const meshdim, med_mesh_type *const meshtype, char *const description, char *const dtunit, med_sorting_type *const sortingtype, med_int *const nstep, med_axis_type *const axistype, char *const axisname, char *const axisunit)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
Definition: MEDmeshInfo.c:43
MEDC_EXPORT med_err MEDmeshComputationStepInfo(const med_idt fid, const char *const meshname, const int csit, med_int *const numdt, med_int *const numit, med_float *const dt)
Cette routine permet de lire les informations relatives à une séquence de calcul d'un maillage...
#define nmmhftfw
Definition: meshcf.c:144
int med_int
Definition: med.h:316
#define nmmhfypr
Definition: meshcf.c:117
MEDC_EXPORT med_int MEDnMesh(const med_idt fid)
Cette routine permet de lire le nombre de maillages dans un fichier.
Definition: MEDnMesh.c:34
Definition: med.h:142
med_axis_type
Definition: med.h:238
#define nmmhfmin
Definition: meshcf.c:92
#define nmmhfnax
Definition: meshcf.c:89
#define nmmhfunr
Definition: meshcf.c:94
MEDC_EXPORT med_err MEDmeshEntityNumberWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_int nentity, const med_int *const number)
Cette routine permet d'écrire les numéros d'un type d'entité d'un maillage.
MEDC_EXPORT char * _MED1cstring(char *chaine, int longueur_reelle, int longueur_fixee)
Definition: MED1cstring.c:37
MEDC_EXPORT med_err MEDmeshElementConnectivityAdvancedRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_filter *const filter, med_int *const connectivity)
Cette routine permet de lire dans un maillage le tableau des connectivités pour un type géométrique d...
#define nmmhfypw
Definition: meshcf.c:116
MEDC_EXPORT med_err MEDmeshComputationStepCr(const med_idt fid, const char *const meshname, const med_int numdt1, const med_int numit1, const med_int numdt2, const med_int numit2, const med_float dt2)
Cette routine permet de créer une nouvelle séquence de calcul dans un maillage.
MEDC_EXPORT med_err MEDmeshStructElementVarAttRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_geometry_type mgeotype, const char *const varattname, void *const value)
Cette routine lit les valeurs d'un attribut caractéristique variable sur les éléments de structure d'...
MEDC_EXPORT med_err MEDmeshEntityFamilyNumberWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_int nentity, const med_int *const number)
Cette routine permet l'écriture des numéros de famille d'un type d'entité d'un maillage.
MEDC_EXPORT med_err MEDmeshNodeCoordinateWithProfileRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int dimselect, med_float *const coordinates)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée et un profil donnés.
#define nmmhffnr
Definition: meshcf.c:110
MEDC_EXPORT med_err MEDmeshGridIndexCoordinateWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_int axis, const med_int indexsize, const med_float *const gridindex)
Cette routine permet l'écriture des coordonnées des noeuds d'un maillage structuré selon un axe du re...
med_storage_mode
Definition: med.h:101
#define nmmhfnan
Definition: meshcf.c:90
#define nmmhfnow
Definition: meshcf.c:119
#define nmmhfcre
Definition: meshcf.c:87
MEDC_EXPORT med_err MEDmeshGridTypeRd(const med_idt fid, const char *const meshname, med_grid_type *const gridtype)
Cette routine permet de lire le type d'un maillage structuré (MED_STRUCTURED_MESH).
MEDC_EXPORT med_int MEDmeshnAxisByName(const med_idt fid, const char *const meshname)
Cette routine permet de lire dans un maillage le nombre d'axes du repère des coordonnées des noeuds a...
#define nmmhfgsw
Definition: meshcf.c:99
#define nmmhfyaw
Definition: meshcf.c:125
#define nmmhfenr
Definition: meshcf.c:108
#define nmmhffnw
Definition: meshcf.c:109
MEDC_EXPORT med_err MEDmeshStructElementVarAttWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_geometry_type mgeotype, const char *const varattname, const med_int nentity, const void *const value)
Cette routine écrit les valeurs d'un attribut caractéristique variable sur les éléments de structure ...
#define nmmhfcyw
Definition: meshcf.c:114
#define nmmhfeni
Definition: meshcf.c:143
#define nmmhfnor
Definition: meshcf.c:120
Definition: med.h:240
#define nmmhfnep
Definition: meshcf.c:118
MEDC_EXPORT med_err MEDstructElementName(const med_idt fid, const med_geometry_type mgeotype, char *const modelname)
Cette routine renvoie le nom du modèle d'éléments de structure associé au type mgeotype.
MEDC_EXPORT med_err MEDmeshNodeCoordinateTrsfWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_float *const coordinatetrsf)
Cette routine définit les paramètres de translation rotation à appliquer aux noeuds de la séquence de...
#define MED_COMMENT_SIZE
Definition: med.h:72
MEDC_EXPORT med_err MEDmeshEntityAttributeAdvancedRd(const med_idt fid, const char *const meshname, const med_data_type datatype, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_filter *const filter, void *const attval)
Cette routine permet de lire les attributs optionnels d'entités d'un maillage en utilisant un filtre...
#define nmmhfaar
Definition: meshcf.c:147
#define nmmhfcsr
Definition: meshcf.c:135
MEDC_EXPORT med_err MEDmeshNodeCoordinateAdvancedRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_filter *const filter, med_float *const value)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul et un filtre donnés.
#define nmmhfnmh
Definition: meshcf.c:88
MEDC_EXPORT med_err MEDmeshComputationStepDtRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int umit, med_float *const dt)
MEDC_EXPORT med_err _MEDc2fString(const char *const chainec, char *const chainef, med_int longueur_buffer77)
#define nmmhfstr
Definition: meshcf.c:136
MEDC_EXPORT med_err MEDmeshInfoByName(const med_idt fid, const char *const meshname, med_int *const spacedim, med_int *const meshdim, med_mesh_type *const meshtype, char *const description, char *const dtunit, med_sorting_type *const sortingtype, med_int *const nstep, med_axis_type *const axistype, char *const axisname, char *const axisunit)
Cette routine permet de lire les informations relatives à un maillage en précisant son nom...
MEDC_EXPORT med_err MEDmeshAttributeWr(const med_idt fid, const char *const meshname, const med_int isolatednodes, const med_int verticesnodes, const med_int cellmaxnodes)
Cette routine permet l'écriture des attributs optionnels d'un maillage.
hid_t med_idt
Definition: med.h:309
MEDC_EXPORT med_err MEDmeshPolygonRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_connectivity_mode cmode, med_int *const polyindex, med_int *const connectivity)
Cette routine permet la lecture des connectivités de polygones.
med_grid_type
Definition: med.h:130
MEDC_EXPORT med_err MEDmeshAttributeRd(const med_idt fid, const char *const meshname, med_int *const isolatednodes, med_int *const verticesnodes, med_int *const cellmaxnodes)
Cette routine permet la lecture des attributs optionnels d'un maillage.
#define MED_SNAME_SIZE
Definition: med.h:75
#define nmmhfelw
Definition: meshcf.c:121
#define nmmhfcor
Definition: meshcf.c:102
#define MED_NAME_SIZE
Definition: med.h:74
#define nmmhfaaw
Definition: meshcf.c:146
#define nmmhfatw
Definition: meshcf.c:95
#define nmmhfpgr
Definition: meshcf.c:128
MEDC_EXPORT med_err MEDmeshPolyhedronRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_connectivity_mode cmode, med_int *const faceindex, med_int *const nodeindex, med_int *const connectivity)
Cette routine permet la lecture dans un maillage des connectivités de polyèdres.
MEDC_EXPORT med_err MEDmeshNodeRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_switch_mode switchmode, med_float *const coordinate, med_bool *const withnodename, char *const nodename, med_bool *const withnodenumber, med_int *const nodenumber, med_bool *const withfamnumber, med_int *const famnumber)
Cette routine permet la lecture des noeuds d'un maillage non structuré pour une séquence de calcul do...
Definition: MEDmeshNodeRd.c:43
#define nmmhfgnw
Definition: meshcf.c:131
MEDC_EXPORT med_err MEDmeshGridStructRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, med_int *const gridstruct)
Cette routine permet la lecture de la structure (nombre de points sur chaque axe du repère) d'un mail...
MEDC_EXPORT med_err MEDmeshElementConnectivityWithProfileWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int dimselect, const med_int nentity, const med_int *const connectivity)
Cette routine permet d'écrire dans un maillage le tableau des connectivités pour un type géométrique ...
med_bool
Definition: med.h:240
MEDC_EXPORT med_err MEDmeshGridIndexCoordinateRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_int axis, med_float *const gridindex)
Cette routine permet la lecture des coordonnées des noeuds d'un maillage structuré selon un axe du re...
MEDC_EXPORT med_int MEDmeshnEntityWithProfile(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_data_type datatype, const med_connectivity_mode cmode, const med_storage_mode storagemode, char *const profilename, med_int *const profilesize, med_bool *const changement, med_bool *const transformation)
Cette routine permet de lire le nombre d'entités dans un maillage pour une séquence de calcul et un p...
#define nmmhfcyr
Definition: meshcf.c:115
MEDC_EXPORT med_err MEDmeshElementConnectivityRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_switch_mode switchmode, med_int *const connectivity)
Cette routine permet de lire dans un maillage le tableau des connectivités pour un type géométrique d...
#define nmmhfrar
Definition: meshcf.c:140
#define nmmhfcow
Definition: meshcf.c:101
MEDC_EXPORT char * _MED2cstring(char *chaine, int longueur)
Definition: MED2cstring.c:35
MEDC_EXPORT med_err MEDmeshNodeCoordinateWithProfileWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_storage_mode storagemode, const char *const profilename, const med_switch_mode switchmode, const med_int dimselect, const med_int nentity, const med_float *const coordinates)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée et un profil donnés.
int med_geometry_type
Definition: med.h:179
#define nmmhfear
Definition: meshcf.c:112
#define nmmhfyar
Definition: meshcf.c:126
#define nmmhfgtw
Definition: meshcf.c:97
MEDC_EXPORT med_err MEDmeshEntityFamilyNumberRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, med_int *const number)
Cette routine permet la lecture des numéros de famille d'un type d'entité d'un maillage.
#define nmmhfasr
Definition: meshcf.c:149
MEDC_EXPORT med_err MEDmeshElementWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_connectivity_mode cmode, const med_switch_mode switchmode, const med_int nentity, const med_int *const connectivity, const med_bool withelementname, const char *const elementname, const med_bool withelementnumber, const med_int *const elementnumber, const med_bool withfamnumber, const med_int *const famnumber)
Cette routine permet l'écriture d'un type d'élément d'un maillage non structuré pour une séquence de ...
MEDC_EXPORT med_int MEDmeshnEntity(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_data_type datatype, const med_connectivity_mode cmode, med_bool *const changement, med_bool *const transformation)
Cette routine permet de lire le nombre d'entités dans un maillage pour une séquence de calcul donnée...
med_attribute_type
Definition: med.h:158
MEDC_EXPORT med_err MEDmeshEntityNameWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_entity_type entitype, const med_geometry_type geotype, const med_int nentity, const char *const name)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.
MEDC_EXPORT med_err MEDmeshNodeCoordinateRd(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_switch_mode switchmode, med_float *const coordinates)
Cette routine permet de lire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul donnée.
#define nmmhfpgw
Definition: meshcf.c:127
MEDC_EXPORT med_err MEDmeshNodeCoordinateAdvancedWr(const med_idt fid, const char *const meshname, const med_int numdt, const med_int numit, const med_float dt, const med_filter *const filter, const med_float *const value)
Cette routine permet d'écrire dans un maillage le tableau des coordonnées des noeuds, selon une séquence de calcul et un filtre donnés.
#define nmmhfcpw
Definition: meshcf.c:103