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*
17c
18c
19c
20      subroutine mpfprw(fid,pname,psize,profil,cret)
21c     DEC$ ATTRIBUTES DLLEXPORT :: mpfprw
22c
23      implicit none
24      save
25      character*(*) pname
26      integer profil(*)
27      integer*8 fid
28      integer   cret,psize
29      integer mpffprw
30c
31      cret = mpffprw(fid,pname,len(pname),psize,profil)
32c
33      return
34      end
35c
36c
37c
38      subroutine mpfnpf(fid,n,cret)
39c     DEC$ ATTRIBUTES DLLEXPORT :: mpfnpf
40c
41      implicit none
42      save
43      integer*8 fid
44      integer   n,cret
45      integer mpffnpf
46c
47      n = mpffnpf(fid)
48c
49      if (n.lt.0) then
50         cret = -1
51      else
52         cret = 0
53      endif
54c
55      return
56      end
57c
58c
59c
60      subroutine mpfpfi(fid, it, pname, psize, cret)
61c     DEC$ ATTRIBUTES DLLEXPORT :: mpfpfi
62c
63      implicit none
64      save
65c
66      character *(*) pname
67      integer*8 fid
68      integer   psize, it, cret
69      integer mpffpfi
70c
71      cret = mpffpfi(fid, it, pname, psize)
72c
73      return
74      end
75c
76c
77c
78      subroutine mpfpsn(fid, pname, psize, cret)
79c     DEC$ ATTRIBUTES DLLEXPORT :: mpfpsn
80c
81      implicit none
82      save
83c
84      character *(*) pname
85      integer*8 fid
86      integer   psize, cret
87      integer mpffpsn
88c
89      cret = mpffpsn(fid, pname, len(pname), psize)
90c
91      return
92      end
93c
94c
95c
96      subroutine mpfprr(fid,pname,profil,cret)
97c     DEC$ ATTRIBUTES DLLEXPORT :: mpfprr
98c
99      implicit none
100      save
101      character*(*) pname
102      integer profil(*)
103      integer*8 fid
104      integer   cret
105      integer mpffprr
106c
107      cret = mpffprr(fid,pname,len(pname),profil)
108c
109      return
110      end
111
112