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