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