MED fichier: Fichier source de medfield.f

MED fichier

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