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