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