MED fichier: Fichier source de medfile.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medfile.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 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
19 subroutine mfivop(fid, name, access, major, minor, rel, cret)
20 c DEC$ ATTRIBUTES DLLEXPORT :: mfivop
21 c
22 implicit none
23 save
24 character *(*) name
25 integer fid
26 integer access,cret
27 integer major, minor, rel
28 integer mfifvop
29 c
30 fid = mfifvop(name, access, major, minor, rel, len(name))
31 if (fid.lt.0) then
32 cret = fid
33 else
34 cret = 0
35 endif
36 c
37 return
38 end
39
40 subroutine mfiope(fid, name, access, cret)
41 c DEC$ ATTRIBUTES DLLEXPORT :: mfiope
42 c
43 implicit none
44 save
45 character *(*) name
46 integer fid
47 integer access,cret
48 integer mfifope
49 c
50 fid = mfifope(name, access, len(name))
51 if (fid.lt.0) then
52 cret = fid
53 else
54 cret = 0
55 endif
56 c
57 return
58 end
59
60
61
62 subroutine mfinam(fid, name, cret)
63 c DEC$ ATTRIBUTES DLLEXPORT :: mfinam
64 c
65 implicit none
66 save
67 character *(*) name
68 integer fid
69 integer namesize,cret
70 integer mfifnam
71 c
72 cret = mfifnam(fid, name, len(name))
73 c
74 return
75 end
76
77
78
79 subroutine mficlo(fid, cret)
80 c DEC$ ATTRIBUTES DLLEXPORT :: mficlo
81 c
82 implicit none
83 save
84 c
85 integer fid,cret
86 integer mfifclo
87 c
88 cret = mfifclo(fid)
89 c
90 return
91 end
92
93
94
95 subroutine mficow(fid,cmt,cret)
96 c DEC$ ATTRIBUTES DLLEXPORT :: mficow
97 c
98 implicit none
99 save
100 c
101 integer fid,cret
102 character*(*) cmt
103 integer mfifcow
104 c
105 cret = mfifcow(fid,cmt,len(cmt),cret)
106 c
107 return
108 end
109
110
111 subroutine mficor(fid,cmt,cret)
112 c DEC$ ATTRIBUTES DLLEXPORT :: mficor
113 c
114 implicit none
115 save
116 c
117 integer fid,cret
118 character*(*) cmt
119 integer mfifcor
120 c
121 cret = mfifcor(fid,cmt,len(cmt),cret)
122 c
123 return
124 end
125
126
127
128 subroutine mfinvr(fid,major,minor,rel,cret)
129 c DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
130 c
131 implicit none
132 save
133 c
134 integer fid,major, minor,rel
135 integer cret
136 integer mfifnvr
137 c
138 cret = mfifnvr(fid,major,minor,rel)
139 c
140 return
141 end
142
143
144 subroutine mfisvr(fid,version,cret)
145 c DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
146 c
147 implicit none
148 save
149 c
150 character*(*) version
151 integer cret,fid
152 integer mfifsvr
153 c
154 cret = mfifsvr(fid,version,len(version))
155 c
156 return
157 end
158
159 c
160 c
161 c
162 subroutine mficom(fname,hdfok,medok,cret)
163 c DEC$ ATTRIBUTES DLLEXPORT :: mficom
164 c
165 implicit none
166 save
167 c
168 integer cret
169 character *(*) fname
170 integer hdfok,medok
171 integer mfifcom
172 c
173 cret = mfifcom(fname,len(fname),hdfok,medok)
174 c
175 return
176 end
177
178
179 subroutine mfiomn(fid, fname, class, mid, cret)
180 c DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
181 c
182 implicit none
183 save
184 c
185 character *(*) fname
186 integer class, fid, mid , cret
187 integer mfifomn
188 c
189 mid = mfifomn(fid, fname, len(fname), class)
190 if (mid .eq.-1) then
191 cret=-1
192 else
193 cret=0
194 endif
195 c
196 return
197 end
198
199 c
200 c
201 c
202 subroutine mfioun(fid, mid, class, cret)
203 c DEC$ ATTRIBUTES DLLEXPORT :: mfioun
204 c
205 implicit none
206 save
207 c
208 integer mid, fid, class, cret
209 integer mfifoun
210 c
211 cret = mfifoun(fid, mid, class)
212 c
213 return
214 end
215
216
217 subroutine mfioex(fid, class, oname, oexist, cret)
218 c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
219 c
220 implicit none
221 save
222 c
223 character *(*) oname
224 integer fid, class, oexist, cret
225 integer mfifoex
226 c
227 cret = mfifoex(fid, class, oname, len(oname), oexist)
228 c
229 return
230 end
231
232
233 subroutine mfiexi(fname, access, fexist, accok, cret)
234 c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
235 c
236 implicit none
237 save
238 c
239 character *(*) fname
240 integer access, fexist, accok, cret
241 integer mfifexi
242 c
243 cret = mfifexi(fname, len(fname), access, fexist, accok)
244 c
245 return
246 end
mfioun
subroutine mfioun(fid, mid, class, cret)
Une fois le démontage effectué, les données précédemment montées ne sont plus accessibles.
Definition: medfile.f:203
mfinam
subroutine mfinam(fid, name, cret)
Renvoi le nom de fichier MED à partir d'un med_idt.
Definition: medfile.f:63
mfiexi
subroutine mfiexi(fname, access, fexist, accok, cret)
Interroge l'existence d'un fichier de nom filename et la possibilité de l'ouvrir selon le mode d'accè...
Definition: medfile.f:234
mficlo
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:80
mficow
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
Definition: medfile.f:96
mficor
subroutine mficor(fid, cmt, cret)
Lecture d'un descripteur dans un fichier MED.
Definition: medfile.f:112
mfioex
subroutine mfioex(fid, class, oname, oexist, cret)
Interroge le fichier fid pour tester l'existence de l'objet objectname de type medclass.
Definition: medfile.f:218
mfisvr
subroutine mfisvr(fid, version, cret)
Lecture du numéro de version de la bibliothèque MED utilisée pour créer le fichier (renvoyé sous la f...
Definition: medfile.f:145
mfinvr
subroutine mfinvr(fid, major, minor, rel, cret)
Lecture du numéro de version de la bibliothèque MED utilisée pour créer le fichier.
Definition: medfile.f:129
mficom
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
Definition: medfile.f:163
mfiomn
subroutine mfiomn(fid, fname, class, mid, cret)
Cette routine permet de monter dans le fichier courant un type de données (exemples les maillages...
Definition: medfile.f:180
mfiope
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
Definition: medfile.f:41
mfivop
subroutine mfivop(fid, name, access, major, minor, rel, cret)
Ouverture d'un fichier MED en indiquant la version du modèle à utiliser en cas de création d'un nouve...
Definition: medfile.f:20