00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine efcone (fid, maa, mdim,conn, switch, n,
00019 1typent,typgeo,typcon,cret)
00020
00021
00022 implicit none
00023 save
00024
00025 character *(*) maa
00026 integer fid, conn(*),typent,typgeo,typcon,cret
00027 integer edfcone,n,mdim, switch
00028
00029 cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n,
00030 1typent,typgeo,typcon)
00031
00032 return
00033 end
00034
00035
00036 subroutine efconl(fid, maa, mdim,conn,switch,
00037 1 pfltab,psize,
00038 1 typent,typgeo,typcon,cret)
00039
00040
00041 implicit none
00042 save
00043
00044 character *(*) maa
00045 integer mdim
00046 integer fid, conn(*),typent,typgeo,typcon,cret
00047 integer pfltab(*), psize
00048 integer edfconl,switch
00049
00050 cret = edfconl (fid, maa ,len(maa),mdim,conn,switch,
00051 1 pfltab,psize,
00052 1 typent,typgeo,typcon)
00053
00054 return
00055 end
00056
00057 subroutine efcooe(fid, maa, mdim, coo, modcoo,
00058 & n,typrep,
00059 & nom,unit,cret)
00060
00061
00062 implicit none
00063 save
00064
00065 character *(*) maa
00066 real*8 coo(*)
00067 integer fid,typrep,mdim
00068 integer edfcooe,n,cret,modcoo
00069 character *(*) nom, unit
00070
00071
00072 cret = edfcooe (fid, maa ,len(maa),mdim,coo,modcoo,
00073 & n, typrep,nom, 16*mdim, unit, 16*mdim )
00074
00075 return
00076 end
00077
00078 subroutine efcool(fid, maa, mdim,coo,modcoo,
00079 1 numco,pfltab,psize,
00080 1 typrep,nom,unit,cret)
00081
00082
00083 implicit none
00084 save
00085
00086 character *(*) maa
00087 real*8 coo(*)
00088 integer mdim
00089 integer fid,typrep,cret,modcoo
00090 integer pfltab(*),psize, numco
00091 integer edfcool
00092 character *(*) nom, unit
00093
00094 cret = edfcool (fid, maa ,len(maa),mdim,coo,modcoo,
00095 1 numco,pfltab,psize,
00096 1 typrep,nom, unit)
00097
00098 return
00099 end
00100
00101 subroutine efnome(fid, maa, nom, n,
00102 1 typent, typgeo,cret)
00103
00104
00105 implicit none
00106 save
00107
00108 character *(*) maa
00109 character*(*) nom
00110 integer fid,typent, typgeo,cret
00111 integer edfnome,n
00112
00113 cret = edfnome (fid, maa ,len(maa),nom, 16*n, n,
00114 1typent, typgeo)
00115
00116 return
00117 end
00118
00119 subroutine efnoml(fid, maa, nom, n,
00120 1typent, typgeo,cret)
00121
00122
00123 implicit none
00124 save
00125
00126 character *(*) maa
00127 character*(*) nom
00128 integer fid,typent, typgeo,cret
00129 integer edfnoml,n
00130
00131 cret = edfnoml (fid, maa ,len(maa),nom,n,
00132 1typent, typgeo)
00133
00134 return
00135 end
00136
00137 subroutine efnume(fid, maa, num, n,
00138 1typent, typgeo,cret)
00139
00140
00141 implicit none
00142 save
00143
00144 character *(*) maa
00145 integer num(*)
00146 integer fid,typent, typgeo,cret
00147 integer edfnume, n
00148
00149 cret = edfnume (fid, maa ,len(maa),num, n,
00150 1 typent, typgeo)
00151
00152 return
00153 end
00154
00155
00156 subroutine efnuml(fid, maa, num, n,
00157 1typent, typgeo,cret)
00158
00159
00160 implicit none
00161 save
00162
00163 character *(*) maa
00164 integer num(*)
00165 integer fid,typent, typgeo,cret
00166 integer edfnuml,n
00167
00168 cret = edfnuml (fid, maa ,len(maa),num, n,
00169 1typent, typgeo)
00170
00171 return
00172 end
00173
00174 subroutine efnema(fid, maa, quoi,
00175 1typent, typgeo,typcon,n,cret)
00176
00177
00178 implicit none
00179 save
00180
00181 character *(*) maa
00182 integer fid,typent, typgeo,cret,typcon,n,quoi
00183 integer edfnema
00184
00185 n = edfnema(fid, maa ,len(maa),quoi,
00186 1typent, typgeo,typcon)
00187
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 subroutine efpgce(fid,maa,index,ni,conn,typent,typcon,cret)
00200
00201
00202 implicit none
00203 save
00204
00205 character *32 maa
00206 integer fid, conn(*),typent,typcon,cret,index(*)
00207 integer edfpgce,ni
00208
00209 cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon)
00210
00211 return
00212 end
00213
00214
00215
00216 subroutine efpgcl(fid,maa,index,ni,conn,typent,typcon,cret)
00217
00218
00219 implicit none
00220 save
00221
00222 character*32 maa
00223 integer fid, conn(*),typent,typcon,cret,index(*)
00224 integer edfpgcl,ni
00225
00226 cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon)
00227
00228 return
00229 end
00230
00231 subroutine efpygi(fid,maa,typent,typcon,consiz,cret)
00232
00233
00234 implicit none
00235 save
00236
00237 character*32 maa
00238 integer fid,typent,typcon,cret
00239 integer edfpygi,consiz
00240
00241 cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz)
00242
00243 return
00244 end
00245
00246
00247
00248 subroutine efpece(fid,maa,indexp,np,indexf,nf,conn,typcon,cret)
00249
00250
00251 implicit none
00252 save
00253
00254 character *32 maa
00255 integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
00256 integer edfpece,np,nf
00257
00258 cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
00259
00260 return
00261 end
00262
00263
00264
00265 subroutine efpecl(fid,maa,indexp,np,indexf,nf,conn,typcon,cret)
00266
00267
00268 implicit none
00269 save
00270
00271 character*32 maa
00272 integer fid, conn(*),typcon,cret,indexp(*),indexf(*)
00273 integer edfpecl,np,nf
00274
00275 cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon)
00276
00277 return
00278 end
00279
00280 subroutine efpyei(fid,maa,typcon,nf,consiz,cret)
00281
00282
00283 implicit none
00284 save
00285
00286 character*32 maa
00287 integer fid,typcon,cret
00288 integer edfpyei,consiz,nf
00289
00290 cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz)
00291
00292 return
00293 end
00294
00295
00296
00297 subroutine eficoe(fid,maa,mdim,indices,
00298 & n,axe,comp,unit,cret)
00299
00300
00301 implicit none
00302 save
00303
00304 character*32 maa
00305 real*8 indices(*)
00306 integer fid,mdim,axe
00307 integer edficoe,n,cret
00308 character*(*) comp, unit
00309
00310
00311 cret = edficoe (fid,maa,len(maa),mdim,indices,
00312 & n,axe,comp,len(comp),unit,len(unit))
00313
00314 return
00315 end
00316
00317
00318 subroutine eficol(fid,maa,mdim,indices,
00319 & n,axe,comp,unit,cret)
00320
00321
00322 implicit none
00323 save
00324
00325 character*32 maa
00326 real*8 indices(*)
00327 integer fid,mdim,axe
00328 integer edficol,n,cret
00329 character*16 comp, unit
00330
00331
00332 cret = edficol (fid,maa,len(maa),mdim,indices,
00333 & n,axe,comp,len(comp),unit,len(unit))
00334
00335 return
00336 end
00337
00338
00339 subroutine efscoe(fid,maa,mdim,struct,cret)
00340
00341
00342 implicit none
00343 save
00344
00345 character*32 maa
00346 integer struct(*)
00347 integer fid,cret,mdim
00348 integer edfscoe
00349
00350 cret = edfscoe (fid, maa ,len(maa),mdim,struct)
00351
00352 return
00353 end
00354
00355
00356 subroutine efscol(fid,maa,mdim,struct,cret)
00357
00358
00359 implicit none
00360 save
00361
00362 character*32 maa
00363 integer struct(*)
00364 integer fid,cret,mdim
00365 integer edfscol
00366
00367 cret = edfscol (fid, maa ,len(maa),mdim,struct)
00368
00369 print *,mdim,struct(1),struct(2)
00370 return
00371 end