1C*  This file is part of MED.
2C*
3C*  COPYRIGHT (C) 1999 - 2019  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
257