18 subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
24 character *(*) name, fname, gname
26 integer fnum, ngro, cret
29 cret = mfafcre(fid, name, len(name), fname, len(name),
30 & fnum, ngro, gname, 80 * ngro)
37 subroutine mfanfa(fid,maa,n,cret)
48 n = mfafnfa(fid,maa,len(maa))
60 subroutine mfanfg(fid,maa,it,n,cret)
71 n = mfafnfg(fid,maa,len(maa),it)
83 subroutine mfafai(fid,maa,ind,fam,num,gro,cret)
91 character *(*) maa,fam,gro
94 cret = mfaffai(fid,maa,len(maa),ind,fam,num,gro)
101 subroutine mfaona(fid,maa,it,n,cret)
112 n = mfafona(fid,maa,len(maa),it)
124 subroutine mfaofi(fid,maa,it,fam,attnum,attval,attdes,
133 integer attnum(*),attval(*)
134 character *(*) maa,fam,gro,attdes
137 cret = mfafofi(fid,maa,len(maa),it,fam,attnum,attval,attdes,
subroutine mfaofi(fid, maa, it, fam, attnum, attval, attdes, num, gro, cret)
subroutine mfaona(fid, maa, it, n, cret)
subroutine mfafai(fid, maa, ind, fam, num, gro, cret)
subroutine mfanfg(fid, maa, it, n, cret)
subroutine mfanfa(fid, maa, n, cret)
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)