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 - 2019 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*8 fid
26 integer cret
27 integer access
28 integer major, minor, rel
29 integer*8 mfifvop
30 c
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
37 c
38 return
39 end
40
41 subroutine mfiope(fid, name, access, cret)
42 c DEC$ ATTRIBUTES DLLEXPORT :: mfiope
43 c
44 implicit none
45 save
46 character *(*) name
47 integer*8 fid
48 integer cret
49 integer access
50 integer*8 mfifope
51 c
52 fid = mfifope(name, access, len(name))
53 if (fid.lt.0) then
54 cret = fid
55 else
56 cret = 0
57 endif
58 c
59 return
60 end
61
62
63
64 subroutine mfinam(fid, name, cret)
65 c DEC$ ATTRIBUTES DLLEXPORT :: mfinam
66 c
67 implicit none
68 save
69 character *(*) name
70 integer*8 fid
71 integer namesize,cret
72 integer mfifnam
73 c
74 cret = mfifnam(fid, name, len(name))
75 c
76 return
77 end
78
79
80
81 subroutine mficlo(fid, cret)
82 c DEC$ ATTRIBUTES DLLEXPORT :: mficlo
83 c
84 implicit none
85 save
86 c
87 integer*8 fid
88 integer cret
89 integer mfifclo
90 c
91 cret = mfifclo(fid)
92 c
93 return
94 end
95
96
97
98 subroutine mficow(fid,cmt,cret)
99 c DEC$ ATTRIBUTES DLLEXPORT :: mficow
100 c
101 implicit none
102 save
103 c
104 integer*8 fid
105 integer cret
106 character*(*) cmt
107 integer mfifcow
108 c
109 cret = mfifcow(fid,cmt,len(cmt),cret)
110 c
111 return
112 end
113
114
115 subroutine mficor(fid,cmt,cret)
116 c DEC$ ATTRIBUTES DLLEXPORT :: mficor
117 c
118 implicit none
119 save
120 c
121 integer*8 fid
122 integer cret
123 character*(*) cmt
124 integer mfifcor
125 c
126 cret = mfifcor(fid,cmt,len(cmt),cret)
127 c
128 return
129 end
130
131
132
133 subroutine mfinvr(fid,major,minor,rel,cret)
134 c DEC$ ATTRIBUTES DLLEXPORT :: mfinvr
135 c
136 implicit none
137 save
138 c
139 integer*8 fid
140 integer major, minor,rel
141 integer cret
142 integer mfifnvr
143 c
144 cret = mfifnvr(fid,major,minor,rel)
145 c
146 return
147 end
148
149
150 subroutine mfisvr(fid,version,cret)
151 c DEC$ ATTRIBUTES DLLEXPORT :: mfisvr
152 c
153 implicit none
154 save
155 c
156 character*(*) version
157 integer*8 fid
158 integer cret
159 integer mfifsvr
160 c
161 cret = mfifsvr(fid,version,len(version))
162 c
163 return
164 end
165
166 c
167 c
168 c
169 subroutine mficom(fname,hdfok,medok,cret)
170 c DEC$ ATTRIBUTES DLLEXPORT :: mficom
171 c
172 implicit none
173 save
174 c
175 integer cret
176 character *(*) fname
177 integer hdfok,medok
178 integer mfifcom
179 c
180 cret = mfifcom(fname,len(fname),hdfok,medok)
181 c
182 return
183 end
184
185
186 subroutine mfiomn(fid, fname, class, mid, cret)
187 c DEC$ ATTRIBUTES DLLEXPORT :: mfiomn
188 c
189 implicit none
190 save
191 c
192 character *(*) fname
193 integer*8 fid, mid
194 integer class, cret
195 integer*8 mfifomn
196 c
197 mid = mfifomn(fid, fname, len(fname), class)
198 if (mid.lt.0) then
199 cret=mid
200 else
201 cret=0
202 endif
203 c
204 return
205 end
206
207 c
208 c
209 c
210 subroutine mfioun(fid, mid, class, cret)
211 c DEC$ ATTRIBUTES DLLEXPORT :: mfioun
212 c
213 implicit none
214 save
215 c
216 integer*8 mid, fid
217 integer class, cret
218 integer mfifoun
219 c
220 cret = mfifoun(fid, mid, class)
221 c
222 return
223 end
224
225
226 subroutine mfioex(fid, class, oname, oexist, cret)
227 c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
228 c
229 implicit none
230 save
231 c
232 character *(*) oname
233 integer*8 fid
234 integer class, oexist, cret
235 integer mfifoex
236 c
237 cret = mfifoex(fid, class, oname, len(oname), oexist)
238 c
239 return
240 end
241
242
243 subroutine mfiexi(fname, access, fexist, accok, cret)
244 c DEC$ ATTRIBUTES DLLEXPORT :: mfioex
245 c
246 implicit none
247 save
248 c
249 character *(*) fname
250 integer access, fexist, accok, cret
251 integer mfifexi
252 c
253 cret = mfifexi(fname, len(fname), access, fexist, accok)
254 c
255 return
256 end
mficor
subroutine mficor(fid, cmt, cret)
Definition: medfile.f:116
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:244
mfinam
subroutine mfinam(fid, name, cret)
Definition: medfile.f:65
mfioun
subroutine mfioun(fid, mid, class, cret)
Definition: medfile.f:211
mfiomn
subroutine mfiomn(fid, fname, class, mid, cret)
Definition: medfile.f:187
mfinvr
subroutine mfinvr(fid, major, minor, rel, cret)
Definition: medfile.f:134
mfioex
subroutine mfioex(fid, class, oname, oexist, cret)
Definition: medfile.f:227
mfiope
subroutine mfiope(fid, name, access, cret)
Definition: medfile.f:42
mfivop
subroutine mfivop(fid, name, access, major, minor, rel, cret)
Definition: medfile.f:20
mficom
subroutine mficom(fname, hdfok, medok, cret)
Vérification de la compatibilité d'un fichier avec HDF et MED.
Definition: medfile.f:170
mfisvr
subroutine mfisvr(fid, version, cret)
Definition: medfile.f:151
mficow
subroutine mficow(fid, cmt, cret)
Definition: medfile.f:99
mficlo
subroutine mficlo(fid, cret)
Definition: medfile.f:82