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