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 mlnliw(fid,mname,lname,cret) 21c DEC$ ATTRIBUTES DLLEXPORT :: mlnliw 22c 23 implicit none 24 save 25 character*(*) mname,lname 26 integer*8 fid 27 integer cret 28 integer mlnfliw 29c 30 cret = mlnfliw(fid,mname,len(mname),lname,len(lname)) 31c 32 return 33 end 34c 35c 36c 37 subroutine mlnnln(fid,n,cret) 38c DEC$ ATTRIBUTES DLLEXPORT :: mlnnln 39c 40 implicit none 41 save 42 integer*8 fid 43 integer n,cret 44 integer mlnfnln 45c 46 n = mlnfnln(fid) 47c 48 if (n.lt.0) then 49 cret = -1 50 else 51 cret = 0 52 endif 53c 54 return 55 end 56c 57c 58c 59 subroutine mlnlni(fid, it, mname, lsize, cret) 60c DEC$ ATTRIBUTES DLLEXPORT :: mlnlni 61c 62 implicit none 63 save 64c 65 character *(*) mname 66 integer*8 fid 67 integer lsize, it, cret 68 integer mlnflni 69c 70 cret = mlnflni(fid, it, mname, lsize) 71c 72 return 73 end 74c 75c 76c 77 subroutine mlnlai(fid, mname, lsize, cret) 78c DEC$ ATTRIBUTES DLLEXPORT :: mlnlai 79c 80 implicit none 81 save 82c 83 character *(*) mname 84 integer*8 fid 85 integer lsize, cret,n 86 integer mlnflai 87c 88 n = mlnflai(fid, mname, len(mname), lsize) 89c 90 if (n.lt.0) then 91 cret = -1 92 else 93 cret = 0 94 endif 95c 96 return 97 end 98c 99c 100c 101 subroutine mlnlir(fid,mname,lname,cret) 102c DEC$ ATTRIBUTES DLLEXPORT :: mlnlir 103c 104 implicit none 105 save 106 character*(*) mname,lname 107 integer*8 fid 108 integer cret 109 integer mlnflir 110c 111 cret = mlnflir(fid,mname,len(mname),lname,len(lname)) 112c 113 return 114 end 115 116 117