00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine effamc(fid,maa,fam,num,attid,attval,attdes,
00019 1 natt, gro,ngro,cret)
00020
00021
00022 implicit none
00023 save
00024
00025 integer fid,num,attid(*),attval(*),natt,ngro,cret
00026 character *(*) maa,fam,attdes
00027 character *80 gro(*)
00028 integer edffamc
00029
00030 cret = edffamc (fid,maa,len(maa),fam,len(fam),
00031 1 num,attid,attval,attdes, 200 * natt ,natt,
00032 2 gro, 80 * ngro ,ngro)
00033
00034 return
00035 end
00036
00037 subroutine effame(fid,maa,fam,n,typent,typgeo,cret)
00038
00039
00040 implicit none
00041 save
00042
00043 integer fid,fam(*),n,typent,typgeo,cret
00044 character *(*) maa
00045 integer edffame
00046
00047 cret = edffame(fid,maa,len(maa),fam,n,typent,typgeo)
00048
00049 return
00050 end
00051
00052 subroutine effaml(fid,maa,fam,n,typent,typgeo,cret)
00053
00054
00055 implicit none
00056 save
00057
00058 integer fid,fam(*),n,typent,typgeo,cret
00059 character *(*) maa
00060 integer edffaml
00061
00062 cret = edffaml(fid,maa,len(maa),fam,n,typent,typgeo)
00063
00064 return
00065 end
00066
00067 subroutine effami(fid,maa,ind,fam,num,attid,attval,attdes,
00068 1 natt,gro,ngro,cret)
00069
00070
00071 implicit none
00072 save
00073
00074 integer fid,num,attid(*),attval(*),natt,ngro,cret,ind
00075 character *(*) maa,fam,attdes,gro
00076 integer edffami
00077
00078 cret = edffami (fid,maa,len(maa),ind,fam,
00079 1 num,attid,attval,attdes,natt,
00080 2 gro, ngro)
00081
00082 return
00083 end
00084
00085 subroutine efnfam(fid,maa,n,cret)
00086
00087
00088 implicit none
00089 save
00090
00091 integer fid,n,cret
00092 character *(*) maa
00093 integer edfnfam
00094
00095 n = edfnfam(fid,maa,len(maa))
00096 if (n.lt.0) then
00097 cret = -1
00098 else
00099 cret = 0
00100 endif
00101
00102 return
00103 end
00104
00105
00106 subroutine efngro(fid,maa,ind,n,cret)
00107
00108
00109 implicit none
00110 save
00111
00112 integer fid,ind,n,cret
00113 character *(*) maa
00114 integer edfngro
00115
00116 n = edfngro(fid,maa,len(maa),ind)
00117 if (n.lt.0) then
00118 cret = -1
00119 else
00120 cret = 0
00121 endif
00122
00123 return
00124 end
00125
00126
00127 subroutine efnatt(fid,maa,ind,n,cret)
00128
00129
00130 implicit none
00131 save
00132
00133 integer fid,ind,n,cret
00134 character *(*) maa
00135 integer edfnatt
00136
00137 n = edfnatt(fid,maa,len(maa),ind)
00138 if (n.lt.0) then
00139 cret = -1
00140 else
00141 cret = 0
00142 endif
00143
00144 return
00145 end
00146
00147
00148