MED fichier
medfile.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2023 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
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:227
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)
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
mfiomn
subroutine mfiomn(fid, fname, class, mid, cret)
Definition: medfile.f:187
mficow
subroutine mficow(fid, cmt, cret)
Ecriture d'un descripteur dans un fichier MED.
Definition: medfile.f:99
mficlo
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:82
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
mfioun
subroutine mfioun(fid, mid, class, cret)
Definition: medfile.f:211
mfinam
subroutine mfinam(fid, name, cret)
Renvoi le nom de fichier MED à partir d'un med_idt.
Definition: medfile.f:65
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
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:134
mficor
subroutine mficor(fid, cmt, cret)
Lecture d'un descripteur dans un fichier MED.
Definition: medfile.f:116
mfiope
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
Definition: medfile.f:42