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