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