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