00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine efmaac ( fid , nom , dim , type, desc, cret )
00019
00020
00021 implicit none
00022 save
00023
00024 character *(*) nom
00025 character *(*) desc
00026 integer fid, dim, type, cret
00027 integer edfmaac
00028
00029 cret = edfmaac (fid, nom , len(nom), dim, type, desc, len(desc))
00030
00031 return
00032 end
00033
00034
00035 subroutine efnmaa( fid , n , cret)
00036
00037
00038 implicit none
00039 save
00040
00041 integer fid, n, cret
00042 integer edfnmaa
00043
00044 n = edfnmaa(fid)
00045
00046 if (n.lt.0) then
00047 cret = -1
00048 else
00049 cret = 0
00050 endif
00051
00052 return
00053 end
00054
00055
00056
00057 subroutine efmaai( fid, indice, maa, dim, type, desc, cret)
00058
00059
00060 implicit none
00061 save
00062
00063 integer fid,dim,cret,indice,type
00064 character *(*) maa
00065 character *(*) desc
00066 integer edfmaai
00067
00068 maa = ' '
00069
00070 cret = edfmaai (fid,indice,maa,dim,type,desc)
00071
00072 return
00073 end
00074
00075 subroutine efdiml( fid , maa, dim, cret)
00076
00077
00078 implicit none
00079 save
00080
00081 integer fid,dim,cret
00082 character *(*) maa
00083 integer edfdiml
00084
00085 dim = edfdiml (fid,maa,len(maa))
00086
00087 if (dim.lt.0) then
00088 cret = -1
00089 else
00090 cret = 0
00091 endif
00092 return
00093 end
00094
00095
00096 subroutine efnnsl (fid,maa,n,cret)
00097
00098
00099 implicit none
00100 save
00101
00102 integer fid,n,cret
00103 character*(*) maa
00104 integer edfnnsl
00105
00106 n = edfnnsl(fid,maa,len(maa))
00107
00108 if (n .lt. 0) then
00109 cret = -1
00110 else
00111 cret = 0
00112 endif
00113
00114 end
00115
00116
00117 subroutine efnnse (fid,maa,n,cret)
00118
00119
00120 implicit none
00121 save
00122
00123 integer fid,n,cret
00124 character*(*) maa
00125 integer edfnnse
00126
00127 cret = edfnnse(fid,maa,len(maa),n)
00128
00129 end
00130
00131
00132 subroutine efnnil (fid,maa,n,cret)
00133
00134
00135 implicit none
00136 save
00137
00138 integer fid,n,cret
00139 character*(*) maa
00140 integer edfnnil
00141
00142 n = edfnnil(fid,maa,len(maa))
00143
00144 if (n .lt. 0) then
00145 cret = -1
00146 else
00147 cret = 0
00148 endif
00149
00150 end
00151
00152
00153 subroutine efnnie (fid,maa,n,cret)
00154
00155
00156 implicit none
00157 save
00158
00159 integer fid,n,cret
00160 character*(*) maa
00161 integer edfnnie
00162
00163 cret = edfnnie(fid,maa,len(maa),n)
00164
00165 end
00166
00167
00168 subroutine efnnml (fid,maa,n,cret)
00169
00170
00171 implicit none
00172 save
00173
00174 integer fid,n,cret
00175 character*(*) maa
00176 integer edfnnml
00177
00178 n = edfnnml(fid,maa,len(maa))
00179
00180 if (n .lt. 0) then
00181 cret = -1
00182 else
00183 cret = 0
00184 endif
00185
00186 end
00187
00188
00189 subroutine efnnme (fid,maa,n,cret)
00190
00191
00192 implicit none
00193 save
00194
00195 integer fid,n,cret
00196 character*(*) maa
00197 integer edfnnme
00198
00199 cret = edfnnme(fid,maa,len(maa),n)
00200
00201 end
00202
00203
00204 subroutine efunvc ( fid , nom , cret )
00205
00206
00207 implicit none
00208 save
00209
00210 character *(*) nom
00211 integer fid, cret
00212 integer edfunvc
00213
00214 cret = edfunvc (fid, nom , len(nom))
00215
00216 return
00217 end
00218
00219 subroutine efunvl( fid , nom , nomu , cret)
00220
00221
00222 implicit none
00223 save
00224
00225 integer fid,cret
00226 character *(*) nom,nomu
00227 integer edfunvl
00228
00229 cret = edfunvl (fid,nom,len(nom),nomu,len(nomu))
00230
00231 return
00232 end
00233
00234
00235 subroutine efespc(fid, nom, dim, cret )
00236
00237
00238 implicit none
00239 save
00240
00241 character *(*) nom
00242 integer fid, dim, cret
00243 integer edfespc
00244
00245 cret = edfespc (fid, nom , len(nom), dim)
00246
00247 return
00248 end
00249
00250
00251 subroutine efespl( fid , maa, dim, cret)
00252
00253
00254 implicit none
00255 save
00256
00257 integer fid,dim,cret
00258 character *(*) maa
00259 integer edfespl
00260
00261 dim = edfespl (fid,maa,len(maa))
00262
00263 if (dim.lt.0) then
00264 cret = -1
00265 else
00266 cret = 0
00267 endif
00268 return
00269 end
00270
00271
00272
00273 subroutine efnage(fid,maa,typ,cret)
00274
00275
00276 implicit none
00277 save
00278
00279 integer fid,typ,cret
00280 character*(*) maa
00281 integer edfnage
00282
00283 cret = edfnage(fid,maa,len(maa),typ)
00284
00285 end
00286
00287
00288
00289 subroutine efnagl(fid,maa,typ,cret)
00290
00291
00292 implicit none
00293 save
00294
00295 integer fid,typ,cret
00296 character*(*) maa
00297 integer edfnagl
00298
00299 cret = edfnagl(fid,maa,len(maa),typ)
00300
00301 end