MED fichier
medfile.f
Aller à la documentation de ce fichier.
1C* This file is part of MED.
2C*
3C* COPYRIGHT (C) 1999 - 2020 EDF R&D, CEA/DEN
4C* MED is free software: you can redistribute it and/or modify
5C* it under the terms of the GNU Lesser General Public License as published by
6C* the Free Software Foundation, either version 3 of the License, or
7C* (at your option) any later version.
8C*
9C* MED is distributed in the hope that it will be useful,
10C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12C* GNU Lesser General Public License for more details.
13C*
14C* You should have received a copy of the GNU Lesser General Public License
15C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16C*
17
18
19 subroutine mfivop(fid, name, access, major, minor, rel, cret)
20c DEC$ ATTRIBUTES DLLEXPORT :: mfivop
21c
22 implicit none
23 save
24 character *(*) name
25 integer*8 fid
26 integer cret
27 integer access
28 integer major, minor, rel
29 integer*8 mfifvop
30c
31 fid = mfifvop(name, access, major, minor, rel, len(name))
32 if (fid.lt.0) then
33 cret = fid
34 else
35 cret = 0
36 endif
37c
38 return
39 end
40
41 subroutine mfiope(fid, name, access, cret)
42c DEC$ ATTRIBUTES DLLEXPORT :: mfiope
43c
44 implicit none
45 save
46 character *(*) name
47 integer*8 fid
48 integer cret
49 integer access
50 integer*8 mfifope
51c
52 fid = mfifope(name, access, len(name))
53 if (fid.lt.0) then
54 cret = fid
55 else
56 cret = 0
57 endif
58c
59 return
60 end
61
62
63
64 subroutine mfinam(fid, name, cret)
65c DEC$ ATTRIBUTES DLLEXPORT :: mfinam
66c
67 implicit none
68 save
69 character *(*) name
70 integer*8 fid
71 integer namesize,cret
72 integer mfifnam
73c
74 cret = mfifnam(fid, name, len(name))
75c
76 return
77 end
78
79
80
81 subroutine mficlo(fid, cret)
82c DEC$ ATTRIBUTES DLLEXPORT :: mficlo
83c
84 implicit none
85 save
86c
87 integer*8 fid
88 integer cret
89 integer mfifclo
90c
91 cret = mfifclo(fid)
92c
93 return
94 end
95
96
97
98 subroutine mficow(fid,cmt,cret)
99c DEC$ ATTRIBUTES DLLEXPORT :: mficow
100c
101 implicit none
102 save
103c
104 integer*8 fid
105 integer cret
106 character*(*) cmt
107 integer mfifcow
108c
109 cret = mfifcow(fid,cmt,len(cmt),cret)
110c
111 return
112 end
113
114
115 subroutine mficor(fid,cmt,cret)
116c DEC$ ATTRIBUTES DLLEXPORT :: mficor
117c
118 implicit none
119 save
120c
121 integer*8 fid
122 integer cret
123 character*(*) cmt
124 integer mfifcor
125c
126 cret = mfifcor(fid,cmt,len(cmt),cret)
127c
128 return
129 end
130
131
132
133 subroutine mfinvr(fid,major,minor,rel,cret)
134c DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
135c
136 implicit none
137 save
138c
139 integer*8 fid
140 integer major, minor,rel
141 integer cret
142 integer mfifnvr
143c
144 cret = mfifnvr(fid,major,minor,rel)
145c
146 return
147 end
148
149
150 subroutine mfisvr(fid,version,cret)
151c DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
152c
153 implicit none
154 save
155c
156 character*(*) version
157 integer*8 fid
158 integer cret
159 integer mfifsvr
160c
161 cret = mfifsvr(fid,version,len(version))
162c
163 return
164 end
165
166c
167c
168c
169 subroutine mficom(fname,hdfok,medok,cret)
170c DEC$ ATTRIBUTES DLLEXPORT :: mficom
171c
172 implicit none
173 save
174c
175 integer cret
176 character *(*) fname
177 integer hdfok,medok
178 integer mfifcom
179c
180 cret = mfifcom(fname,len(fname),hdfok,medok)
181c
182 return
183 end
184
185
186 subroutine mfiomn(fid, fname, class, mid, cret)
187c DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
188c
189 implicit none
190 save
191c
192 character *(*) fname
193 integer*8 fid, mid
194 integer class, cret
195 integer*8 mfifomn
196c
197 mid = mfifomn(fid, fname, len(fname), class)
198 if (mid.lt.0) then
199 cret=mid
200 else
201 cret=0
202 endif
203c
204 return
205 end
206
207c
208c
209c
210 subroutine mfioun(fid, mid, class, cret)
211c DEC$ ATTRIBUTES DLLEXPORT :: mfioun
212c
213 implicit none
214 save
215c
216 integer*8 mid, fid
217 integer class, cret
218 integer mfifoun
219c
220 cret = mfifoun(fid, mid, class)
221c
222 return
223 end
224
225
226 subroutine mfioex(fid, class, oname, oexist, cret)
227c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
228c
229 implicit none
230 save
231c
232 character *(*) oname
233 integer*8 fid
234 integer class, oexist, cret
235 integer mfifoex
236c
237 cret = mfifoex(fid, class, oname, len(oname), oexist)
238c
239 return
240 end
241
242
243 subroutine mfiexi(fname, access, fexist, accok, cret)
244c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
245c
246 implicit none
247 save
248c
249 character *(*) fname
250 integer access, fexist, accok, cret
251 integer mfifexi
252c
253 cret = mfifexi(fname, len(fname), access, fexist, accok)
254c
255 return
256 end
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:227
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:244
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:151
subroutine mfinam(fid, name, cret)
Renvoi le nom de fichier MED à partir d'un med_idt.
Definition: medfile.f:65
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:134
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
Definition: medfile.f:42
subroutine mficor(fid, cmt, cret)
Lecture d'un descripteur dans un fichier MED.
Definition: medfile.f:116
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
Definition: medfile.f:99
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:82
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
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
Definition: medfile.f:170
subroutine mfioun(fid, mid, class, cret)
Definition: medfile.f:211
subroutine mfiomn(fid, fname, class, mid, cret)
Definition: medfile.f:187