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 mlclow(fid,lname,gtype,sdim,ecoo,swm,nip, 21 & ipcoo, wght, giname, isname, cret) 22c DEC$ ATTRIBUTES DLLEXPORT :: mlclow 23c 24 implicit none 25 save 26 character*(*) lname,giname, isname 27 real*8 ecoo(*), ipcoo(*), wght(*) 28 integer*8 fid 29 integer cret,gtype,sdim,swm,nip 30 integer mlcflow 31c 32 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip, 33 & ipcoo, wght,giname,len(giname), isname, len(isname) ) 34c 35 return 36 end 37c 38c 39c 40 subroutine mlcnlc(fid,n,cret) 41c DEC$ ATTRIBUTES DLLEXPORT :: mlcnlc 42c 43 implicit none 44 save 45 integer*8 fid 46 integer n,cret 47 integer mlcfnlc 48c 49 n = mlcfnlc(fid) 50c 51 if (n.lt.0) then 52 cret = -1 53 else 54 cret = 0 55 endif 56c 57 return 58 end 59c 60c 61c 62 subroutine mlclci(fid, it, lname, gtype, sdim, nip, 63 & giname, isname, nsmc, sgtype, cret) 64c DEC$ ATTRIBUTES DLLEXPORT :: mlclci 65c 66 implicit none 67 save 68c 69 character*(*) lname,giname, isname 70 integer*8 fid 71 integer gtype, it, cret, sdim, nip 72 integer nsmc, sgtype 73 integer mlcflci 74c 75 cret = mlcflci(fid, it, lname, gtype, sdim, nip, 76 & giname, isname,nsmc,sgtype) 77c 78 return 79 end 80c 81c 82c 83 subroutine mlclni(fid, lname, gtype, sdim, nip, 84 & giname, isname, nsmc, sgtype, cret) 85c DEC$ ATTRIBUTES DLLEXPORT :: mlclni 86c 87 implicit none 88 save 89c 90 character*(*) lname,giname, isname 91 integer*8 fid 92 integer gtype, cret, sdim, nip 93 integer nsmc, sgtype 94 integer mlcflni 95c 96 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip, 97 & giname, isname, nsmc, sgtype) 98c 99 return 100 end 101c 102c 103c 104 105 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret) 106c DEC$ ATTRIBUTES DLLEXPORT :: mlclor 107c 108 implicit none 109 save 110 character*(*) lname 111 real*8 ecoo(*), ipcoo(*), wght(*) 112 integer*8 fid 113 integer cret,swm 114 integer mlcflor 115c 116 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght) 117c 118 return 119 end 120 121 122