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)
48 n = mfafnfa(fid,maa,len(maa))
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)
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 mfanfg(fid, maa, it, n, cret)
subroutine mfaofi(fid, maa, it, fam, attnum, attval, attdes, num, gro, cret)
subroutine mfanfa(fid, maa, n, cret)
subroutine mfaona(fid, maa, it, n, cret)
subroutine mfafai(fid, maa, ind, fam, num, gro, cret)
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)