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)
subroutine mlclci(fid, it, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
subroutine mlcnlc(fid, n, cret)
subroutine mlclor(fid, lname, swm, ecoo, ipcoo, wght, cret)
subroutine mlclni(fid, lname, gtype, sdim, nip, giname, isname, nsmc, sgtype, cret)
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)