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,