MED fichier
medfamily.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2021 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 
18  subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
19 c DEC$ ATTRIBUTES DLLEXPORT :: mfacre
20 c
21  implicit none
22  save
23 c
24  character *(*) name, fname, gname
25  integer*8 fid
26  integer fnum, ngro, cret
27  integer mfafcre
28 c
29  cret = mfafcre(fid, name, len(name), fname, len(name),
30  & fnum, ngro, gname, 80 * ngro)
31 c
32  return
33  end
34 c
35 c
36 c
37  subroutine mfanfa(fid,maa,n,cret)
38 c DEC$ ATTRIBUTES DLLEXPORT :: mfanfa
39 c
40  implicit none
41  save
42 c
43  integer*8 fid
44  integer n,cret
45  character *(*) maa
46  integer mfafnfa
47 c
48  n = mfafnfa(fid,maa,len(maa))
49  if (n.lt.0) then
50  cret = -1
51  else
52  cret = 0
53  endif
54 c
55  return
56  end
57 c
58 c
59 c
60  subroutine mfanfg(fid,maa,it,n,cret)
61 c DEC$ ATTRIBUTES DLLEXPORT :: mfanfg
62 c
63  implicit none
64  save
65 c
66  integer*8 fid
67  integer n,cret,it
68  character *(*) maa
69  integer mfafnfg
70 c
71  n = mfafnfg(fid,maa,len(maa),it)
72  if (n.lt.0) then
73  cret = -1
74  else
75  cret = 0
76  endif
77 c
78  return
79  end
80 c
81 c
82 c
83  subroutine mfafai(fid,maa,ind,fam,num,gro,cret)
84 c DEC$ ATTRIBUTES DLLEXPORT :: mfafai
85 c
86  implicit none
87  save
88 c
89  integer*8 fid
90  integer num,cret,ind
91  character *(*) maa,fam,gro
92  integer mfaffai
93 c
94  cret = mfaffai(fid,maa,len(maa),ind,fam,num,gro)
95 c
96  return
97  end
98 c
99 c
100 c
101  subroutine mfaona(fid,maa,it,n,cret)
102 c DEC$ ATTRIBUTES DLLEXPORT :: mfaona
103 c
104  implicit none
105  save
106 c
107  integer*8 fid
108  integer it,n,cret
109  character *(*) maa
110  integer mfafona
111 c
112  n = mfafona(fid,maa,len(maa),it)
113  if (n.lt.0) then
114  cret = -1
115  else
116  cret = 0
117  endif
118 c
119  return
120  end
121 c
122 c
123 c
124  subroutine mfaofi(fid,maa,it,fam,attnum,attval,attdes,
125  & num,gro,cret)
126 c DEC$ ATTRIBUTES DLLEXPORT :: mfaofi
127 c
128  implicit none
129  save
130 c
131  integer*8 fid
132  integer num,cret,it
133  integer attnum(*),attval(*)
134  character *(*) maa,fam,gro,attdes
135  integer mfafofi
136 c
137  cret = mfafofi(fid,maa,len(maa),it,fam,attnum,attval,attdes,
138  & num,gro)
139 c
140  return
141  end
mfaofi
subroutine mfaofi(fid, maa, it, fam, attnum, attval, attdes, num, gro, cret)
Cette routine permet de lire les informations relatives à une famille d'un maillage créé avec MED 2....
Definition: medfamily.f:126
mfanfg
subroutine mfanfg(fid, maa, it, n, cret)
Cette routine permet de lire le nombre de groupe dans une famille.
Definition: medfamily.f:61
mfacre
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
Cette routine permet la création d'une famille portant sur les entités d'un maillage.
Definition: medfamily.f:19
mfaona
subroutine mfaona(fid, maa, it, n, cret)
Cette routine permet de lire le nombre d'attribut dans une famille dans un maillage créé avec MED 2....
Definition: medfamily.f:102
mfanfa
subroutine mfanfa(fid, maa, n, cret)
Cette routine permet de lire le nombre de famille dans un maillage.
Definition: medfamily.f:38
mfafai
subroutine mfafai(fid, maa, ind, fam, num, gro, cret)
Cette routine permet de lire les informations relatives à une famille d'un maillage.
Definition: medfamily.f:84