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