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 - 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 
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 fid, fnum, ngro, cret
26  integer mfafcre
27 c
28  cret = mfafcre(fid, name, len(name), fname, len(name),
29  & fnum, ngro, gname, 80 * ngro)
30 c
31  return
32  end
33 c
34 c
35 c
36  subroutine mfanfa(fid,maa,n,cret)
37 c DEC$ ATTRIBUTES DLLEXPORT :: mfanfa
38 c
39  implicit none
40  save
41 c
42  integer fid,n,cret
43  character *(*) maa
44  integer mfafnfa
45 c
46  n = mfafnfa(fid,maa,len(maa))
47  if (n.lt.0) then
48  cret = -1
49  else
50  cret = 0
51  endif
52 c
53  return
54  end
55 c
56 c
57 c
58  subroutine mfanfg(fid,maa,it,n,cret)
59 c DEC$ ATTRIBUTES DLLEXPORT :: mfanfg
60 c
61  implicit none
62  save
63 c
64  integer fid,n,cret,it
65  character *(*) maa
66  integer mfafnfg
67 c
68  n = mfafnfg(fid,maa,len(maa),it)
69  if (n.lt.0) then
70  cret = -1
71  else
72  cret = 0
73  endif
74 c
75  return
76  end
77 c
78 c
79 c
80  subroutine mfafai(fid,maa,ind,fam,num,gro,cret)
81 c DEC$ ATTRIBUTES DLLEXPORT :: mfafai
82 c
83  implicit none
84  save
85 c
86  integer fid,num,cret,ind
87  character *(*) maa,fam,gro
88  integer mfaffai
89 c
90  cret = mfaffai(fid,maa,len(maa),ind,fam,num,gro)
91 c
92  return
93  end
94 c
95 c
96 c
97  subroutine mfaona(fid,maa,it,n,cret)
98 c DEC$ ATTRIBUTES DLLEXPORT :: mfaona
99 c
100  implicit none
101  save
102 c
103  integer fid,it,n,cret
104  character *(*) maa
105  integer mfafona
106 c
107  n = mfafona(fid,maa,len(maa),it)
108  if (n.lt.0) then
109  cret = -1
110  else
111  cret = 0
112  endif
113 c
114  return
115  end
116 c
117 c
118 c
119  subroutine mfaofi(fid,maa,it,fam,attnum,attval,attdes,
120  & num,gro,cret)
121 c DEC$ ATTRIBUTES DLLEXPORT :: mfaofi
122 c
123  implicit none
124  save
125 c
126  integer fid,num,cret,it
127  integer attnum(*),attval(*)
128  character *(*) maa,fam,gro,attdes
129  integer mfafofi
130 c
131  cret = mfafofi(fid,maa,len(maa),it,fam,attnum,attval,attdes,
132  & num,gro)
133 c
134  return
135  end
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
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:98
subroutine mfanfa(fid, maa, n, cret)
Cette routine permet de lire le nombre de famille dans un maillage.
Definition: medfamily.f:37
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:81
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:121
subroutine mfanfg(fid, maa, it, n, cret)
Cette routine permet de lire le nombre de groupe dans une famille.
Definition: medfamily.f:59