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