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