20 subroutine mlclow(fid,lname,gtype,sdim,ecoo,swm,nip,
21 & ipcoo, wght, giname, isname, cret)
26 character*(*) lname,giname, isname
27 real*8 ecoo(*), ipcoo(*), wght(*)
29 integer cret,gtype,sdim,swm,nip
32 cret = mlcflow(fid,lname,len(lname),gtype,sdim,ecoo,swm,nip,
33 & ipcoo, wght,giname,len(giname), isname, len(isname) )
40 subroutine mlcnlc(fid,n,cret)
62 subroutine mlclci(fid, it, lname, gtype, sdim, nip,
63 & giname, isname, nsmc, sgtype, cret)
69 character*(*) lname,giname, isname
71 integer gtype, it, cret, sdim, nip
75 cret = mlcflci(fid, it, lname, gtype, sdim, nip,
76 & giname, isname,nsmc,sgtype)
83 subroutine mlclni(fid, lname, gtype, sdim, nip,
84 & giname, isname, nsmc, sgtype, cret)
90 character*(*) lname,giname, isname
92 integer gtype, cret, sdim, nip
96 cret = mlcflni(fid, lname, len(lname), gtype, sdim, nip,
97 & giname, isname, nsmc, sgtype)
105 subroutine mlclor(fid,lname,swm,ecoo,ipcoo, wght, cret)
111 real*8 ecoo(*), ipcoo(*), wght(*)
116 cret = mlcflor(fid,lname,len(lname),swm,ecoo,ipcoo,wght)