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 - 2016 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
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
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
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
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
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
subroutine mfdinw(fid, fname, iname, cret)
Cette routine associe une fonction d'interpolation interpname au champ résultat fieldname.
Definition: medfield.f:569
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
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
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
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
subroutine mfdnfc(fid, ind, n, cret)
Cette fonction lit le nombre de composantes d'un champ.
Definition: medfield.f:194
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
Cette fonction crée un champ dans un fichier.
Definition: medfield.f:22
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
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
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
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
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
subroutine mfdnfd(fid, n, cret)
Cette fonction permet de lire le nombre de champs dans un fichier.
Definition: medfield.f:173
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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