MED fichier: Fichier source de medfield.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medfield.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C*
17 c
18 c
19 c
20 subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
21 & dtunit,mname,cret)
22 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcre
23 c
24 implicit none
25 save
26 character*(*) fname,cname,cunit,dtunit,mname
27 integer fid,ncomp,cret,ftype
28 integer mfdfcre
29 c
30 cret = mfdfcre(fid,fname,len(fname),ftype,
31 & ncomp,cname,16*ncomp,cunit,16*ncomp,
32 & dtunit,len(dtunit),mname,len(mname))
33 c
34 return
35 end
36 c
37 c
38 c
39 subroutine mfdrvw(fid,fname,numdt,numit,dt,
40 & etype,gtype,swm,cs,n,val,cret)
41 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrvw
42 c
43 implicit none
44 save
45 character*(*) fname
46 integer numdt,numit
47 real*8 dt,val(*)
48 integer fid,cret,etype,gtype,swm,cs,n
49 integer mfdfrvw
50 c
51 cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
52 & etype,gtype,swm,cs,n,val)
53 c
54 return
55 end
56 c
57 c
58 c
59 subroutine mfdivw(fid,fname,numdt,numit,dt,
60 & etype,gtype,swm,cs,n,val,cret)
61 c DEC$ ATTRIBUTES DLLEXPORT :: mfdivw
62 c
63 implicit none
64 save
65 character*(*) fname
66 integer numdt,numit
67 real*8 dt
68 integer val(*)
69 integer fid,cret,etype,gtype,swm,cs,n
70 integer mfdfivw
71 c
72 cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
73 & etype,gtype,swm,cs,n,val)
74 c
75 return
76 end
77 c
78 c
79 c
80 subroutine mfdrpw(fid,fname,numdt,numit,dt,
81 & etype,gtype,
82 & stm,pname,lname,
83 & swm,cs,n,val,cret)
84 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrpw
85 c
86 implicit none
87 save
88 character*(*) fname,pname,lname
89 integer numdt,numit
90 real*8 dt,val(*)
91 integer fid,cret,etype,gtype,swm,cs,n,stm
92 integer mfdfrpw
93 c
94 cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
95 & etype,gtype,stm,pname,len(pname),
96 & lname,len(lname),swm,cs,n,val)
97 c
98 return
99 end
100 c
101 c
102 c
103 subroutine mfdipw(fid,fname,numdt,numit,dt,
104 & etype,gtype,
105 & stm,pname,lname,
106 & swm,cs,n,val,cret)
107 c DEC$ ATTRIBUTES DLLEXPORT :: mfdipw
108 c
109 implicit none
110 save
111 character*(*) fname,pname,lname
112 integer numdt,numit
113 real*8 dt
114 integer val(*)
115 integer fid,cret,etype,gtype,swm,cs,n,stm
116 integer mfdfipw
117 c
118 cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
119 & etype,gtype,stm,pname,len(pname),
120 & lname,len(lname),swm,cs,n,val,cret)
121 c
122 return
123 end
124 c
125 c
126 c
127 subroutine mfdraw(fid,fname,numdt,numit,dt,
128 & etype,gtype,lname,flt,
129 & val,cret)
130 c DEC$ ATTRIBUTES DLLEXPORT :: mfdraw
131 c
132 implicit none
133 save
134 character*(*) fname,lname
135 integer numdt,numit
136 real*8 dt,val(*)
137 integer*8 flt(*)
138 integer fid,cret,etype,gtype
139 integer mfdfraw
140 c
141 cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
142 & etype,gtype,lname,len(lname),flt,val)
143 c
144 return
145 end
146 c
147 c
148 c
149 subroutine mfdiaw(fid,fname,numdt,numit,dt,
150 & etype,gtype,lname,flt,
151 & val,cret)
152 c DEC$ ATTRIBUTES DLLEXPORT :: mfdiaw
153 c
154 implicit none
155 save
156 character*(*) fname,lname
157 integer numdt,numit
158 real*8 dt
159 integer val(*)
160 integer*8 flt(*)
161 integer fid,cret,etype,gtype
162 integer mfdfiaw
163 c
164 cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
165 & etype,gtype,lname,len(lname),flt,val)
166 c
167 return
168 end
169 c
170 c
171 c
172 subroutine mfdnfd(fid,n,cret)
173 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnfd
174 c
175 implicit none
176 save
177 integer fid,n,cret
178 integer mfdfnfd
179 c
180 n = mfdfnfd(fid)
181 c
182 if (n.lt.0) then
183 cret = -1
184 else
185 cret = 0
186 endif
187 c
188 return
189 end
190 c
191 c
192 c
193 subroutine mfdnfc(fid,ind,n,cret)
194 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnfc
195 c
196 implicit none
197 save
198 integer fid,n,cret,ind
199 integer mfdfnfc
200 c
201 n = mfdfnfc(fid,ind)
202 c
203 if (n.lt.0) then
204 cret = -1
205 else
206 cret = 0
207 endif
208 c
209 return
210 end
211 c
212 c
213 c
214 subroutine mfdncn(fid,fname,n,cret)
215 c DEC$ ATTRIBUTES DLLEXPORT :: mfdncn
216 c
217 implicit none
218 save
219 integer fid,n,cret
220 character *(*) fname
221 integer mfdfncn
222 c
223 n = mfdfncn(fid,fname,len(fname))
224 c
225 if (n.lt.0) then
226 cret = -1
227 else
228 cret = 0
229 endif
230 c
231 return
232 end
233 c
234 c
235 c
236 subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
237 & cname, cunit, dtunit, nc, cret)
238 c DEC$ ATTRIBUTES DLLEXPORT :: mfdfdi
239 c
240 implicit none
241 save
242 c
243 character *(*) fname, mname, dtunit, cname, cunit
244 integer lmesh, cret
245 integer fid, type, it, nc
246 integer mfdffdi
247 c
248 cret = mfdffdi(fid, it, fname, mname, lmesh, type,
249 & cname, cunit, dtunit, nc)
250 c DEC$ ATTRIBUTES DLLEXPORT :: mfdffdi
251 c
252 return
253 end
254 c
255 c
256 c
257 subroutine mfdfin(fid, fname, mname, lmesh, type,
258 & cname, cunit, dtunit, nc, cret)
259 c DEC$ ATTRIBUTES DLLEXPORT :: mfdfin
260 c
261 implicit none
262 save
263 c
264 character *(*) fname, mname, dtunit, cname, cunit
265 integer lmesh, cret
266 integer fid, type, nc
267 integer mfdffin
268 c
269 cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
270 & cname, cunit, dtunit, nc)
271 c
272 return
273 end
274 c
275 c
276 c
277 subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
278 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcsi
279 c
280 implicit none
281 save
282 c
283 character*(*) fname
284 integer cret
285 integer fid, it, numdt, numit
286 real*8 dt
287 integer mfdfcsi
288 c
289 cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
290 c
291 return
292 end
293 c
294 c
295 c
296 subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
297 & mnumdt, mnumit, cret)
298 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcmi
299 c
300 implicit none
301 save
302 c
303 character*(*) fname
304 integer cret
305 integer fid, it, numdt, numit, mnumdt, mnumit
306 real*8 dt
307 integer mfdfcmi
308 c
309 cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
310 & mnumdt,mnumit)
311 c
312 return
313 end
314 c
315 c
316 c
317 subroutine mfdcmw(fid, fname, numdt, numit,
318 & mnumdt, mnumit, cret)
319 c DEC$ ATTRIBUTES DLLEXPORT :: mfdcmw
320 c
321 implicit none
322 save
323 c
324 character*(*) fname
325 integer cret
326 integer fid, numdt, numit, mnumdt, mnumit
327 integer mfdfcmw
328 c
329 cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
330 & mnumdt,mnumit)
331 c
332 return
333 end
334 c
335 c
336 c
337 subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
338 & dpname, dlname, n,cret)
339 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnpf
340 c
341 implicit none
342 save
343 integer fid,n,cret
344 integer numdt,numit,etype,gtype
345 character*(*) fname,dpname,dlname
346
347 integer mfdfnpf
348 c
349 n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
350 & gtype,dpname,dlname)
351 c
352 if (n.lt.0) then
353 cret = -1
354 else
355 cret = 0
356 endif
357 c
358 return
359 end
360 c
361 c
362 c
363 subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
364 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnva
365 c
366 implicit none
367 save
368 character*(*) fname
369 integer fid,n,cret,numdt,numit,etype,gtype
370 integer mfdfnva
371 c
372 n = mfdfnva(fid,fname,len(fname),numdt,numit,
373 & etype,gtype,cret)
374 c
375 if (n.lt.0) then
376 cret = -1
377 else
378 cret = 0
379 endif
380 c
381 return
382 end
383 c
384 c
385 c
386 subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
387 & pit,stm,pname,psize,lname,nip,
388 & n,cret)
389 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnvp
390 c
391 implicit none
392 save
393 character*(*) fname, pname, lname
394 integer pit,stm,psize
395 integer fid,n,cret,numdt,numit,etype,gtype,nip
396 integer mfdfnvp
397 c
398 n = mfdfnvp(fid,fname,len(fname),numdt,numit,
399 & etype,gtype,pit,stm,pname,psize,lname,
400 & nip,cret)
401 c
402 if (n.lt.0) then
403 cret = -1
404 else
405 cret = 0
406 endif
407 c
408 return
409 end
410 c
411 c
412 c
413 subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
414 & pname,stm,psize,lname,nip,
415 & n,cret)
416 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnpn
417 c
418 implicit none
419 save
420 character*(*) fname, pname, lname
421 integer stm,psize
422 integer fid,n,cret,numdt,numit,etype,gtype,nip
423 integer mfdfnpn
424 c
425 n = mfdfnpn(fid,fname,len(fname),numdt,numit,
426 & etype,gtype,pname,len(pname),stm,
427 & psize,lname,nip,cret)
428 c
429 if (n.lt.0) then
430 cret = -1
431 else
432 cret = 0
433 endif
434 c
435 return
436 end
437 c
438 c
439 c
440 subroutine mfdrvr(fid,fname,numdt,numit,
441 & etype,gtype,swm,cs,val,cret)
442 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrvr
443 c
444 implicit none
445 save
446 character*(*) fname
447 integer numdt,numit
448 real*8 val(*)
449 integer fid,cret,etype,gtype,swm,cs
450 integer mfdfrvr
451 c
452 cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
453 & etype,gtype,swm,cs,val)
454 c
455 return
456 end
457 c
458 c
459 c
460 subroutine mfdivr(fid,fname,numdt,numit,
461 & etype,gtype,swm,cs,val,cret)
462 c DEC$ ATTRIBUTES DLLEXPORT :: mfdivr
463 c
464 implicit none
465 save
466 character*(*) fname
467 integer numdt,numit
468 integer val(*)
469 integer fid,cret,etype,gtype,swm,cs
470 integer mfdfivr
471 c
472 cret = mfdfivr(fid,fname,len(fname),numdt,numit,
473 & etype,gtype,swm,cs,val)
474 c
475 return
476 end
477 c
478 c
479 c
480 subroutine mfdrpr(fid,fname,numdt,numit,
481 & etype,gtype,
482 & stm,pname,
483 & swm,cs,val,cret)
484 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrpr
485 c
486 implicit none
487 save
488 character*(*) fname,pname
489 integer numdt,numit
490 real*8 val(*)
491 integer fid,cret,etype,gtype,swm,cs,stm
492 integer mfdfrpr
493 c
494 cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
495 & etype,gtype,stm,pname,len(pname),swm,cs,val)
496 c
497 return
498 end
499 c
500 c
501 c
502 subroutine mfdipr(fid,fname,numdt,numit,
503 & etype,gtype,
504 & stm,pname,
505 & swm,cs,val,cret)
506 c DEC$ ATTRIBUTES DLLEXPORT :: mfdipr
507 c
508 implicit none
509 save
510 character*(*) fname,pname
511 integer numdt,numit
512 integer val(*)
513 integer fid,cret,etype,gtype,swm,cs,n,stm
514 integer mfdfipr
515 c
516 cret = mfdfipr(fid,fname,len(fname),numdt,numit,
517 & etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
518 c
519 return
520 end
521 c
522 c
523 c
524 subroutine mfdrar(fid,fname,numdt,numit,
525 & etype,gtype,flt,
526 & val,cret)
527 c DEC$ ATTRIBUTES DLLEXPORT :: mfdrar
528 c
529 implicit none
530 save
531 character*(*) fname
532 integer numdt,numit
533 real*8 val(*)
534 integer*8 flt(*)
535 integer fid,cret,etype,gtype
536 integer mfdfrar
537 c
538 cret = mfdfrar(fid,fname,len(fname),numdt,numit,
539 & etype,gtype,flt,val)
540 c
541 return
542 end
543 c
544 c
545 c
546 subroutine mfdiar(fid,fname,numdt,numit,
547 & etype,gtype,flt,
548 & val,cret)
549 c DEC$ ATTRIBUTES DLLEXPORT :: mfdiar
550 c
551 implicit none
552 save
553 character*(*) fname
554 integer numdt,numit
555 integer val(*)
556 integer*8 flt(*)
557 integer fid,cret,etype,gtype
558 integer mfdfiar
559 c
560 cret = mfdfiar(fid,fname,len(fname),numdt,numit,
561 & etype,gtype,flt,val)
562 c
563 return
564 end
565 c
566 c
567 c
568 subroutine mfdinw(fid,fname,iname,cret)
569 c DEC$ ATTRIBUTES DLLEXPORT :: mfdinw
570 c
571 implicit none
572 save
573 character*(*) fname,iname
574 integer fid,cret
575 integer mfdfinw
576 c
577 cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
578 c
579 return
580 end
581 c
582 c
583 c
584 subroutine mfdnin(fid,fname,n,cret)
585 c DEC$ ATTRIBUTES DLLEXPORT :: mfdnin
586 c
587 implicit none
588 save
589 integer fid,n,cret
590 character*(*) fname
591 integer mfdfnin
592 c
593 n = mfdfnin(fid,fname,len(fname))
594 c
595 if (n.lt.0) then
596 cret = -1
597 else
598 cret = 0
599 endif
600 c
601 return
602 end
603 c
604 c
605 c
606 subroutine mfdini(fid,fname,it,iname,cret)
607 c DEC$ ATTRIBUTES DLLEXPORT :: mfdini
608 c
609 implicit none
610 save
611 character*(*) fname,iname
612 integer fid,cret,it
613 integer mfdfini
614 c
615 cret = mfdfini(fid,fname,len(fname),it,iname,cret)
616 c
617 return
618 end
619 c
620 c
621 c
622 subroutine mfdoci(fid, fname, it, numdt, numit, dt,
623 & nmesh, mname, lmesh,
624 & mnumdt, mnumit, cret)
625 c DEC$ ATTRIBUTES DLLEXPORT :: mfdoci
626 c
627 implicit none
628 save
629 c
630 character*(*) fname,mname
631 integer cret
632 integer fid,it,numdt,numit,nmesh,lmesh
633 integer mnumdt,mnumit
634 real*8 dt
635 integer mfdfoci
636 c
637 cret = mfdfoci(fid,fname,len(fname),it,
638 & numdt,numit,dt,
639 & nmesh, mname, lmesh,
640 & mnumdt, mnumit)
641 c
642 return
643 end
644 c
645 c
646 c
647 subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
648 & it,mname, dpname, dlname, n, cret)
649 c DEC$ ATTRIBUTES DLLEXPORT :: mfdonp
650 c
651 implicit none
652 save
653 integer fid,n,cret
654 integer numdt,numit,etype,gtype,it
655 character*(*) fname,dpname,dlname,mname
656
657 integer mfdfonp
658 c
659 n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
660 & gtype,it,mname,dpname,dlname)
661 c
662 if (n.lt.0) then
663 cret = -1
664 else
665 cret = 0
666 endif
667 c
668 return
669 end
670 c
671 c
672 c
673 subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
674 & mname,pit,stm,pname,psize,lname,
675 & nip,n,cret)
676 c DEC$ ATTRIBUTES DLLEXPORT :: mfdonv
677 c
678 implicit none
679 save
680 character*(*) fname, pname, lname, mname
681 integer pit,stm,psize
682 integer fid,n,cret,numdt,numit,etype,gtype,nip
683 integer mfdfonv
684 c
685 n = mfdfonv(fid,fname,len(fname),numdt,numit,
686 & etype,gtype,
687 & mname,len(mname),
688 & pit,stm,pname,psize,lname,
689 & nip,cret)
690 c
691 if (n.lt.0) then
692 cret = -1
693 else
694 cret = 0
695 endif
696 c
697 return
698 end
699 c
700 c
701 c
702 subroutine mfdorr(fid,fname,numdt,numit,
703 & etype,gtype,
704 & mname,
705 & stm,pname,
706 & swm,cs,val,cret)
707 c DEC$ ATTRIBUTES DLLEXPORT :: mfdorr
708 c
709 implicit none
710 save
711 character*(*) fname,pname,mname
712 integer numdt,numit
713 real*8 val(*)
714 integer fid,cret,etype,gtype,swm,cs,stm
715 integer mfdforr
716 c
717 cret = mfdforr(fid,fname,len(fname),numdt,numit,
718 & etype,gtype,mname,len(mname),
719 & stm,pname,len(pname),swm,cs,val)
720 c
721 return
722 end
723 c
724 c
725 c
726 subroutine mfdoir(fid,fname,numdt,numit,
727 & etype,gtype,
728 & mname,
729 & stm,pname,
730 & swm,cs,val,cret)
731 c DEC$ ATTRIBUTES DLLEXPORT :: mfdoir
732 c
733 implicit none
734 save
735 character*(*) fname,pname,mname
736 integer numdt,numit
737 integer val(*)
738 integer fid,cret,etype,gtype,swm,cs,n,stm
739 integer mfdfoir
740 c
741 cret = mfdfoir(fid,fname,len(fname),numdt,numit,
742 & etype,gtype,mname,len(mname),
743 & stm,pname,len(pname),swm,cs,val,cret)
744 c
745 return
746 end
mfdraw
subroutine mfdraw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Cette fonction permet d'écire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:130
mfdivr
subroutine mfdivr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:462
mfdiar
subroutine mfdiar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:549
mfdrvw
subroutine mfdrvw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:41
mfdnvp
subroutine mfdnvp(fid, fname, numdt, numit, etype, gtype, pit, stm, pname, psize, lname, nip, n, cret)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
Definition: medfield.f:389
mfdncn
subroutine mfdncn(fid, fname, n, cret)
Cette fonction lit le nombre de composantes d'un champ (accès direct à partir du nom du champ)...
Definition: medfield.f:215
mfdiaw
subroutine mfdiaw(fid, fname, numdt, numit, dt, etype, gtype, lname, flt, val, cret)
Cette fonction permet d'écire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:152
mfdnfd
subroutine mfdnfd(fid, n, cret)
Cette fonction permet de lire le nombre de champs dans un fichier.
Definition: medfield.f:173
mfdrvr
subroutine mfdrvr(fid, fname, numdt, numit, etype, gtype, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:442
mfdini
subroutine mfdini(fid, fname, it, iname, cret)
Cette routine indique le nom interpname de la interpit ème fonction d'interpolation associées au cham...
Definition: medfield.f:607
mfdrpw
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:84
mfdorr
subroutine mfdorr(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:707
mfdonv
subroutine mfdonv(fid, fname, numdt, numit, etype, gtype, mname, pit, stm, pname, psize, lname, nip, n, cret)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
Definition: medfield.f:676
mfdnin
subroutine mfdnin(fid, fname, n, cret)
Cette routine renvoie le nombre de fonctions d'interpolation associées au champ résultat fieldname...
Definition: medfield.f:585
mfdcmw
subroutine mfdcmw(fid, fname, numdt, numit, mnumdt, mnumit, cret)
Cette fonction permet de définir l'étape de calcul ( meshnumdit , meshnumit ) à utiliser pour le mail...
Definition: medfield.f:319
mfdfin
subroutine mfdfin(fid, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Cette fonction permet de lire les informations concernant le champ de nom fieldname.
Definition: medfield.f:259
mfdnpn
subroutine mfdnpn(fid, fname, numdt, numit, etype, gtype, pname, stm, psize, lname, nip, n, cret)
Cette fonction permet de lire le nombre de valeurs à lire dans un champ pour une séquence de calcul...
Definition: medfield.f:416
mfdrpr
subroutine mfdrpr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:484
mfdcsi
subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
Definition: medfield.f:278
mfdonp
subroutine mfdonp(fid, fname, numdt, numit, etype, gtype, it, mname, dpname, dlname, n, cret)
Cette fonction permet de lire le nombre de profils référencés dans un champ pour une séquence de calc...
Definition: medfield.f:649
mfdivw
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:61
mfdoir
subroutine mfdoir(fid, fname, numdt, numit, etype, gtype, mname, stm, pname, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:731
mfdnfc
subroutine mfdnfc(fid, ind, n, cret)
Cette fonction lit le nombre de composantes d'un champ.
Definition: medfield.f:194
mfdnva
subroutine mfdnva(fid, fname, numdt, numit, etype, gtype, n, cret)
Cette fonction permet de lire le nombre de valeurs dans un champ pour une séquence de calcul...
Definition: medfield.f:364
mfdcre
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
Cette fonction crée un champ dans un fichier.
Definition: medfield.f:22
mfdfdi
subroutine mfdfdi(fid, it, fname, mname, lmesh, type, cname, cunit, dtunit, nc, cret)
Cette fonction permet de lire les informations concernant le champ d'indice ind . ...
Definition: medfield.f:238
mfdoci
subroutine mfdoci(fid, fname, it, numdt, numit, dt, nmesh, mname, lmesh, mnumdt, mnumit, cret)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
Definition: medfield.f:625
mfdinw
subroutine mfdinw(fid, fname, iname, cret)
Cette routine associe une fonction d'interpolation interpname au champ résultat fieldname.
Definition: medfield.f:569
mfdnpf
subroutine mfdnpf(fid, fname, numdt, numit, etype, gtype, dpname, dlname, n, cret)
Cette fonction permet de lire le nombre de profils référencés dans un champ pour une séquence de calc...
Definition: medfield.f:339
mfdcmi
subroutine mfdcmi(fid, fname, it, numdt, numit, dt, mnumdt, mnumit, cret)
Cette fonction permet de lire les informations caractérisant une séquence de calcul : numéro de pas d...
Definition: medfield.f:298
mfdipw
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:107
mfdrar
subroutine mfdrar(fid, fname, numdt, numit, etype, gtype, flt, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:527
mfdipr
subroutine mfdipr(fid, fname, numdt, numit, etype, gtype, stm, pname, swm, cs, val, cret)
Cette fonction permet de lire les valeurs d'un champ définies sur des entités d'un maillage pour une ...
Definition: medfield.f:506