00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027       subroutine efouvr(fid, nom, acces, cret)
00028 
00029 
00030       implicit none
00031       save
00032 
00033       character *(*) nom
00034       integer acces, fid, cret
00035       integer edfouvr
00036 
00037       fid = edfouvr(nom, acces, len(nom))
00038       if (fid.eq.-1) then
00039          cret=-1
00040       else
00041          cret=0
00042       endif
00043 
00044       return
00045       end
00046       
00047 
00048       subroutine efferm(fid, cret)
00049 
00050       implicit none
00051       save
00052 
00053       integer fid,cret
00054       integer edfferm
00055 
00056       cret = edfferm(fid)
00057 
00058       return
00059       end
00060 
00061 
00062       subroutine eflfde (fid,lon,cret)
00063 
00064 
00065       implicit none
00066       save
00067 
00068       integer fid,cret,lon
00069       integer edflfde
00070 
00071       lon = edflfde(fid)
00072 
00073       if (lon .lt. 0) then
00074          cret = -1
00075       else
00076          cret = 0
00077       endif
00078 
00079       end
00080 
00081 
00082       subroutine effien (fid,quoi,str,cret)
00083 
00084 
00085       implicit none
00086       save
00087 
00088       integer fid,quoi,cret
00089       integer edffien
00090       character*(*) str
00091 
00092       cret = edffien(fid,quoi,str)
00093 
00094       end
00095       
00096 
00097 
00098       subroutine effide (fid,des,cret)
00099 
00100 
00101       implicit none
00102       save
00103       integer fid,cret
00104       character*(*) des
00105       integer edffide
00106 
00107       cret = edffide(fid,des,len(des))
00108 
00109       end
00110 
00111       subroutine effoco (nom,cret)
00112 
00113 
00114       implicit none
00115       save
00116 
00117       integer cret
00118       character*(*) nom
00119       integer edffoco
00120 
00121       cret = edffoco(nom,len(nom))
00122 
00123       return
00124       end
00125 
00126 
00127       subroutine efveco (nom,cret)
00128 
00129 
00130       implicit none
00131       save
00132 
00133       integer cret
00134       character*(*) nom
00135       integer edfveco
00136 
00137       cret = edfveco(nom,len(nom))
00138 
00139       return
00140       end
00141 
00142 
00143 
00144       subroutine efveli (fid,maj,min,rel,cret)
00145 
00146 
00147       implicit none
00148       save
00149 
00150       integer fid, maj, min, rel
00151       integer cret
00152       integer edfveli
00153 
00154       cret = edfveli(fid,maj,min,rel)
00155 
00156       return
00157       end
00158 
00159 
00160       subroutine efvedo (maj,min,rel,cret)
00161 
00162 
00163       implicit none
00164       save
00165 
00166       integer maj, min, rel
00167       integer cret
00168       integer edfvedo
00169 
00170       cret = edfvedo(maj,min,rel)
00171 
00172       return
00173       end
00174 
00175 
00176 
00177 
00178       subroutine efmont(fid, acces, type, mid, cret)
00179 
00180 
00181       implicit none
00182       save
00183 
00184       character *(*) acces
00185       integer mid, fid, type, cret
00186       integer edfmont
00187 
00188       mid = edfmont(fid, acces, len(acces), type)
00189       if (mid .eq.-1) then
00190          cret=-1
00191       else
00192          cret=0
00193       endif
00194 
00195       return
00196       end
00197 
00198 
00199 
00200       subroutine efdemo(fid, mid, type, cret)
00201 
00202 
00203       implicit none
00204       save
00205 
00206       integer mid, fid, type, cret
00207       integer edfdemo
00208 
00209       cret = edfdemo(fid, mid, type)
00210 
00211       return
00212       end