00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018       subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)
00019 
00020 
00021       implicit none
00022       save
00023 
00024       character *(*) name, fname, gname
00025       integer fid, fnum, ngro, cret
00026       integer mfafcre
00027 
00028       cret = mfafcre(fid, name, len(name), fname, len(name),
00029      &               fnum, ngro, gname, 80 * ngro)
00030 
00031       return
00032       end
00033 
00034 
00035 
00036       subroutine mfanfa(fid,maa,n,cret)
00037 
00038 
00039       implicit none
00040       save
00041 
00042       integer fid,n,cret
00043       character *(*) maa
00044       integer mfafnfa
00045 
00046       n = mfafnfa(fid,maa,len(maa))
00047       if (n.lt.0) then
00048          cret = -1
00049       else
00050          cret = 0
00051       endif
00052 
00053       return
00054       end
00055 
00056 
00057 
00058       subroutine mfanfg(fid,maa,it,n,cret)
00059 
00060 
00061       implicit none
00062       save
00063 
00064       integer fid,n,cret,it
00065       character *(*) maa
00066       integer mfafnfg
00067 
00068       n = mfafnfg(fid,maa,len(maa),it)
00069       if (n.lt.0) then
00070          cret = -1
00071       else
00072          cret = 0
00073       endif
00074 
00075       return
00076       end
00077 
00078 
00079 
00080       subroutine mfafai(fid,maa,ind,fam,num,gro,cret)
00081 
00082 
00083       implicit none
00084       save
00085 
00086       integer fid,num,cret,ind
00087       character *(*) maa,fam,gro
00088       integer mfaffai
00089 
00090       cret = mfaffai(fid,maa,len(maa),ind,fam,num,gro)
00091 
00092       return
00093       end
00094 
00095 
00096 
00097       subroutine mfaona(fid,maa,it,n,cret)
00098 
00099 
00100       implicit none
00101       save
00102 
00103       integer fid,it,n,cret
00104       character *(*) maa
00105       integer mfafona
00106 
00107       n =  mfafona(fid,maa,len(maa),it)
00108       if (n.lt.0) then
00109          cret = -1
00110       else
00111          cret = 0
00112       endif
00113 
00114       return
00115       end      
00116 
00117 
00118 
00119       subroutine mfaofi(fid,maa,it,fam,attnum,attval,attdes,
00120      &                  num,gro,cret)
00121 
00122 
00123       implicit none
00124       save
00125 
00126       integer fid,num,cret,it
00127       integer attnum(*),attval(*)
00128       character *(*) maa,fam,gro,attdes
00129       integer mfafofi
00130 
00131       cret = mfafofi(fid,maa,len(maa),it,fam,attnum,attval,attdes,
00132      &               num,gro)
00133 
00134       return
00135       end