00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine efchac(fid,cha,type,comp,unit,ncomp,cret)
00019
00020
00021 implicit none
00022 save
00023
00024 character *(*) cha,comp,unit
00025 integer fid, ncomp, cret, type
00026 integer edfchac
00027
00028 cret = edfchac (fid, cha,len(cha),type, comp,16*ncomp,
00029 1 unit, 16*ncomp, ncomp)
00030
00031 return
00032 end
00033
00034
00035
00036 subroutine efchae(fid,maa,cha,val,interlace,n,locname,numco,
00037 1 profil,pflmod,typent,typgeo,numdt,dtunit,
00038 1 dt,numo,cret)
00039
00040 implicit none
00041 save
00042
00043 character *(*) cha,maa,profil,locname
00044 character*(*) dtunit
00045 integer fid,val(*)
00046 integer n,pflmod,typent,typgeo,cret
00047 integer interlace,numco,numdt,numo
00048 real*8 dt
00049 integer edfchae
00050
00051 cret = edfchae(fid,maa,len(maa),cha,len(cha),val,
00052 1 interlace,n,locname,len(locname),numco,
00053 1 profil,len(profil),pflmod,
00054 1 typent,typgeo,numdt,dtunit,len(dtunit),
00055 1 dt,numo)
00056
00057 return
00058 end
00059
00060
00061
00062 subroutine efchie(fid,maa,cha,val,interlace,n,locname,numco,
00063 1 profil,pflmod,typent,typgeo,numdt,dtunit,
00064 1 dt,numo,cret)
00065
00066
00067 implicit none
00068 save
00069
00070 character *(*) cha,maa,profil,locname
00071 character*(*) dtunit
00072 integer fid,val(*),n,pflmod,typent,typgeo,cret
00073 integer interlace,numco,numdt,numo
00074 real*8 dt
00075 integer edfchae
00076
00077 cret = edfchae(fid,maa,len(maa),cha,len(cha),val,
00078 1 interlace,n,locname,len(locname),numco,
00079 1 profil,len(profil),pflmod,
00080 1 typent,typgeo,numdt,dtunit,len(dtunit),
00081 1 dt,numo)
00082
00083 return
00084 end
00085
00086
00087
00088
00089 subroutine efchal(fid,maa,cha,val,
00090 1 interlace,numco,locname,
00091 1 profil,pflmod,
00092 1 typent,typgeo,
00093 1 numdt, numo,cret)
00094
00095
00096 implicit none
00097 save
00098
00099 character *(*) cha,maa,locname,profil
00100 integer fid,val(*),pflmod,typent,typgeo,cret
00101 integer interlace,numco,numdt,numo
00102 integer edfchal
00103
00104 cret = edfchal(fid,maa,len(maa),cha,len(cha),val,
00105 1 interlace,numco,locname,profil,pflmod,
00106 1 typent,typgeo,numdt,numo)
00107
00108 return
00109 end
00110
00111
00112
00113
00114 subroutine efchil(fid,maa,cha,val,
00115 1 interlace,numco,locname,
00116 1 profil,pflmod,
00117 1 typent,typgeo,
00118 1 numdt, numo,cret)
00119
00120
00121 implicit none
00122 save
00123
00124 character *(*) cha,maa,locname,profil
00125 integer fid,val(*),typent,typgeo,cret,pflmod
00126 integer interlace,numco,numdt,numo
00127 integer edfchal
00128
00129 cret = edfchal(fid,maa,len(maa),cha,len(cha),val,
00130 1 interlace,numco,locname,profil,pflmod,
00131 1 typent,typgeo,numdt,numo)
00132
00133 return
00134 end
00135
00136
00137
00138 subroutine efchai(fid,ind,cha,type,comp,unit,ncomp,cret)
00139
00140
00141 implicit none
00142 save
00143
00144 character *(*) cha,comp,unit
00145 integer fid,ind,type,ncomp,cret
00146 integer edfchai
00147
00148 cret = edfchai(fid,ind,cha,type,
00149 1 comp,unit,ncomp)
00150
00151 return
00152 end
00153
00154 subroutine efncha(fid,ind,n,cret)
00155
00156
00157 implicit none
00158 save
00159
00160 integer fid,ind,cret,n
00161 integer edfncha
00162
00163 n = edfncha(fid,ind)
00164 if (n.lt.0) then
00165 cret = -1
00166 else
00167 cret = 0
00168 endif
00169
00170 return
00171 end
00172
00173
00174 subroutine efnval(fid,cha,typent,typgeo,numdt,numo,maa,pflmod,
00175 1 n,cret)
00176
00177
00178 implicit none
00179 save
00180
00181 integer fid,typent,typgeo,n,cret
00182 integer numdt, numo, pflmod
00183 character *(*) cha, maa
00184 integer edfnval
00185
00186 n = edfnval(fid,cha,len(cha),typent,typgeo,
00187 1 numdt,numo,maa,len(maa),pflmod)
00188 if (n.lt.0) then
00189 cret = -1
00190 else
00191 cret = 0
00192 endif
00193
00194 return
00195 end
00196
00197
00198
00199
00200
00201 subroutine efnpdt(fid,cha,type,geo,n,cret)
00202
00203
00204 implicit none
00205 save
00206
00207 integer fid,type,geo,n,cret
00208 character*32 cha
00209 integer edfnpdt
00210
00211 n = edfnpdt(fid,cha,len(cha),type,geo)
00212
00213 if (n.lt.0) then
00214 cret = -1
00215 else
00216 cret = 0
00217 endif
00218
00219 return
00220 end
00221
00222
00223 subroutine efpdti(fid,cha,typent,typgeo,ind,ngauss,
00224 1 numdt,numo,dtunit,dt,maa,local,nmaa,cret)
00225
00226
00227 implicit none
00228 save
00229
00230 integer fid,typent,typgeo,ind,ngauss,numdt,numo,nmaa,cret
00231 character*32 cha,maa
00232 character*16 dtunit
00233 real*8 dt
00234 logical local
00235 integer edfpdti
00236
00237 cret = edfpdti(fid,cha,len(cha),typent,typgeo,ind,
00238 1 ngauss,numdt,numo,dtunit,dt,maa,local,nmaa)
00239
00240 return
00241 end
00242
00243
00244
00245 subroutine efnref(fid,cha,typent,typgeo,numdt,numo,n,cret)
00246
00247
00248 implicit none
00249 save
00250
00251 integer fid,typent,typgeo,n,cret
00252 integer numdt, numo
00253 character *(*) cha
00254 integer edfnref
00255
00256 n = edfnref(fid,cha,len(cha),typent,typgeo,
00257 1 numdt,numo)
00258
00259 if (n.lt.0) then
00260 cret = -1
00261 else
00262 cret = 0
00263 endif
00264
00265 return
00266 end
00267
00268
00269 subroutine efrefi(fid,cha, typent, typgeo, indice, numdt, numo,
00270 1 maa, local, ngauss, cret)
00271
00272
00273 implicit none
00274 save
00275
00276 integer fid,typent,typgeo,indice,n,cret
00277 integer numdt, numo, ngauss
00278 character *(*) cha, maa
00279 logical local
00280 integer edfrefi
00281
00282 n = edfrefi(fid,cha,len(cha),typent,typgeo,indice,
00283 1 numdt,numo,maa,local,ngauss)
00284
00285 if (n.lt.0) then
00286 cret = -1
00287 else
00288 cret = 0
00289 endif
00290
00291 return
00292 end
00293
00294
00295 subroutine efliee(fid,lienval,maa,cret)
00296
00297 integer fid,cret
00298 character *(*) lienval, maa
00299 integer edfliee
00300
00301
00302 cret = edfliee(fid,lienval,len(lienval),maa,len(maa))
00303
00304 return
00305 end
00306
00307
00308
00309 subroutine efnlie(fid,n,cret)
00310
00311
00312 implicit none
00313 save
00314
00315 integer fid,cret,n
00316 integer edfnlie
00317
00318 n = edfnlie(fid)
00319
00320 if (n.lt.0) then
00321 cret = -1
00322 else
00323 cret = 0
00324 endif
00325
00326 return
00327 end
00328
00329 subroutine efliei( fid , indice , maa , n , cret)
00330
00331
00332 implicit none
00333 save
00334
00335 integer fid,n,cret,indice
00336 character *(*) maa
00337 integer edfliei
00338
00339 maa = ' '
00340
00341 cret = edfliei (fid,indice,maa,n)
00342
00343 return
00344 end
00345
00346 subroutine efnvli(fid,maa,n,cret)
00347
00348
00349 implicit none
00350 save
00351
00352 integer fid,cret,n
00353 character *(*) maa
00354 integer edfnvli
00355
00356 n = edfnvli(fid,maa,len(maa))
00357
00358 if (n.lt.0) then
00359 cret = -1
00360 else
00361 cret = 0
00362 endif
00363
00364 return
00365 end
00366
00367
00368 subroutine efliel(fid,lienval,n,maa,cret)
00369
00370
00371 implicit none
00372 save
00373
00374 integer fid,n,cret
00375 character *(*) maa,lienval
00376 integer edfliel
00377
00378 cret = edfliel(fid,lienval,n,maa,len(maa))
00379
00380 return
00381 end
00382
00383