1C* This file is part of MED. 2C* 3C* COPYRIGHT (C) 1999 - 2019 EDF R&D, CEA/DEN 4C* MED is free software: you can redistribute it and/or modify 5C* it under the terms of the GNU Lesser General Public License as published by 6C* the Free Software Foundation, either version 3 of the License, or 7C* (at your option) any later version. 8C* 9C* MED is distributed in the hope that it will be useful, 10C* but WITHOUT ANY WARRANTY; without even the implied warranty of 11C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12C* GNU Lesser General Public License for more details. 13C* 14C* You should have received a copy of the GNU Lesser General Public License 15C* along with MED. If not, see <http://www.gnu.org/licenses/>. 16C* 17 18 subroutine efcone (fid, maa, mdim,conn, switch, n, 19 1typent,typgeo,typcon,cret) 20c DEC$ ATTRIBUTES DLLEXPORT :: efcone 21c 22 implicit none 23 save 24c 25 character *(*) maa 26 integer*8 fid 27 integer conn(*),typent,typgeo,typcon,cret 28 integer edfcone,n,mdim, switch 29c 30 cret = edfcone (fid, maa ,len(maa),mdim,conn,switch,n, 31 1typent,typgeo,typcon) 32c 33 return 34 end 35c 36c 37 subroutine efconl(fid, maa, mdim,conn,switch, 38 1 pfltab,psize, 39 1 typent,typgeo,typcon,cret) 40c DEC$ ATTRIBUTES DLLEXPORT :: efconl 41c 42 implicit none 43 save 44c 45 character *(*) maa 46 integer mdim 47 integer*8 fid 48 integer conn(*),typent,typgeo,typcon,cret 49 integer pfltab(*), psize 50 integer edfconl,switch 51c 52 cret = edfconl (fid, maa ,len(maa),mdim,conn,switch, 53 1 pfltab,psize, 54 1 typent,typgeo,typcon) 55c 56 return 57 end 58c 59 subroutine efcooe(fid, maa, mdim, coo, modcoo, 60 & n,typrep, 61 & nom,unit,cret) 62c DEC$ ATTRIBUTES DLLEXPORT :: efcooe 63c 64 implicit none 65 save 66c 67 character *(*) maa 68 real*8 coo(*) 69 integer*8 fid 70 integer typrep,mdim 71 integer edfcooe,n,cret,modcoo 72 character *(*) nom, unit 73c 74c 75 cret = edfcooe (fid, maa ,len(maa),mdim,coo,modcoo, 76 & n, typrep,nom, 16*mdim, unit, 16*mdim ) 77c 78 return 79 end 80c 81 subroutine efcool(fid, maa, mdim,coo,modcoo, 82 1 numco,pfltab,psize, 83 1 typrep,nom,unit,cret) 84c DEC$ ATTRIBUTES DLLEXPORT :: efcool 85c 86 implicit none 87 save 88c 89 character *(*) maa 90 real*8 coo(*) 91 integer mdim 92 integer*8 fid 93 integer typrep,cret,modcoo 94 integer pfltab(*),psize, numco 95 integer edfcool 96 character *(*) nom, unit 97c 98 cret = edfcool (fid, maa ,len(maa),mdim,coo,modcoo, 99 1 numco,pfltab,psize, 100 1 typrep,nom, unit) 101c 102 return 103 end 104c 105 subroutine efnome(fid, maa, nom, n, 106 1 typent, typgeo,cret) 107c DEC$ ATTRIBUTES DLLEXPORT :: efnome 108c 109 implicit none 110 save 111c 112 character *(*) maa 113 character*(*) nom 114 integer*8 fid 115 integer typent, typgeo,cret 116 integer edfnome,n 117c 118 cret = edfnome (fid, maa ,len(maa),nom, 16*n, n, 119 1typent, typgeo) 120c 121 return 122 end 123c 124 subroutine efnoml(fid, maa, nom, n, 125 1typent, typgeo,cret) 126c DEC$ ATTRIBUTES DLLEXPORT :: efnoml 127c 128 implicit none 129 save 130c 131 character *(*) maa 132 character*(*) nom 133 integer*8 fid 134 integer typent, typgeo,cret 135 integer edfnoml,n 136c 137 cret = edfnoml (fid, maa ,len(maa),nom,n, 138 1typent, typgeo) 139c 140 return 141 end 142c 143 subroutine efnume(fid, maa, num, n, 144 1typent, typgeo,cret) 145c DEC$ ATTRIBUTES DLLEXPORT :: efnume 146c 147 implicit none 148 save 149c 150 character *(*) maa 151 integer num(*) 152 integer*8 fid 153 integer typent, typgeo,cret 154 integer edfnume, n 155c 156 cret = edfnume (fid, maa ,len(maa),num, n, 157 1 typent, typgeo) 158c 159 return 160 end 161c 162 163 subroutine efnuml(fid, maa, num, n, 164 1typent, typgeo,cret) 165c DEC$ ATTRIBUTES DLLEXPORT :: efnuml 166c 167 implicit none 168 save 169c 170 character *(*) maa 171 integer num(*) 172 integer*8 fid 173 integer typent, typgeo,cret 174 integer edfnuml,n 175c 176 cret = edfnuml (fid, maa ,len(maa),num, n, 177 1typent, typgeo) 178c 179 return 180 end 181c 182 subroutine efnema(fid, maa, quoi, 183 1typent, typgeo,typcon,n,cret) 184c DEC$ ATTRIBUTES DLLEXPORT :: efnema 185c 186 implicit none 187 save 188c 189 character *(*) maa 190 integer*8 fid 191 integer typent, typgeo,cret,typcon,n,quoi 192 integer edfnema 193c 194 n = edfnema(fid, maa ,len(maa),quoi, 195 1typent, typgeo,typcon) 196 197 if (n.lt.0) then 198 cret = -1 199 else 200 cret =0 201 endif 202c 203 return 204 end 205c 206c 207c 208 subroutine efpgce(fid,maa,index,ni,conn,typent,typcon,cret) 209c DEC$ ATTRIBUTES DLLEXPORT :: efpgce 210c 211 implicit none 212 save 213c 214 character *32 maa 215 integer*8 fid 216 integer conn(*),typent,typcon,cret,index(*) 217 integer edfpgce,ni 218c 219 cret = edfpgce(fid,maa,len(maa),index,ni,conn,typent,typcon) 220c 221 return 222 end 223c 224c 225c 226 subroutine efpgcl(fid,maa,index,ni,conn,typent,typcon,cret) 227c DEC$ ATTRIBUTES DLLEXPORT :: efpgcl 228c 229 implicit none 230 save 231c 232 character*32 maa 233 integer*8 fid 234 integer conn(*),typent,typcon,cret,index(*) 235 integer edfpgcl,ni 236c 237 cret = edfpgcl(fid,maa,len(maa),index,ni,conn,typent,typcon) 238c 239 return 240 end 241c 242 subroutine efpygi(fid,maa,typent,typcon,consiz,cret) 243c DEC$ ATTRIBUTES DLLEXPORT :: efpygi 244c 245 implicit none 246 save 247c 248 character*32 maa 249 integer*8 fid 250 integer typent,typcon,cret 251 integer edfpygi,consiz 252c 253 cret = edfpygi(fid,maa,len(maa),typent,typcon,consiz) 254c 255 return 256 end 257c 258c 259c 260 subroutine efpece(fid,maa,indexp,np,indexf,nf,conn,typcon,cret) 261c DEC$ ATTRIBUTES DLLEXPORT :: efpece 262c 263 implicit none 264 save 265c 266 character *32 maa 267 integer*8 fid 268 integer conn(*),typcon,cret,indexp(*),indexf(*) 269 integer edfpece,np,nf 270c 271 cret = edfpece(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon) 272c 273 return 274 end 275c 276c 277c 278 subroutine efpecl(fid,maa,indexp,np,indexf,nf,conn,typcon,cret) 279c DEC$ ATTRIBUTES DLLEXPORT :: efpecl 280c 281 implicit none 282 save 283c 284 character*32 maa 285 integer*8 fid 286 integer conn(*),typcon,cret,indexp(*),indexf(*) 287 integer edfpecl,np,nf 288c 289 cret = edfpecl(fid,maa,len(maa),indexp,np,indexf,nf,conn,typcon) 290c 291 return 292 end 293c 294 subroutine efpyei(fid,maa,typcon,nf,consiz,cret) 295c DEC$ ATTRIBUTES DLLEXPORT :: efpyei 296c 297 implicit none 298 save 299c 300 character*32 maa 301 integer*8 fid 302 integer typcon,cret 303 integer edfpyei,consiz,nf 304c 305 cret = edfpyei(fid,maa,len(maa),typcon,nf,consiz) 306c 307 return 308 end 309C 310C 311c 312 subroutine eficoe(fid,maa,mdim,indices, 313 & n,axe,comp,unit,cret) 314c DEC$ ATTRIBUTES DLLEXPORT :: eficoe 315c 316 implicit none 317 save 318c 319 character*32 maa 320 real*8 indices(*) 321 integer*8 fid 322 integer mdim,axe 323 integer edficoe,n,cret 324 character*(*) comp, unit 325c 326c 327 cret = edficoe (fid,maa,len(maa),mdim,indices, 328 & n,axe,comp,len(comp),unit,len(unit)) 329c 330 return 331 end 332C 333c 334 subroutine eficol(fid,maa,mdim,indices, 335 & n,axe,comp,unit,cret) 336c DEC$ ATTRIBUTES DLLEXPORT :: eficol 337c 338 implicit none 339 save 340c 341 character*32 maa 342 real*8 indices(*) 343 integer*8 fid 344 integer mdim,axe 345 integer edficol,n,cret 346 character*16 comp, unit 347c 348c 349 cret = edficol (fid,maa,len(maa),mdim,indices, 350 & n,axe,comp,len(comp),unit,len(unit)) 351c 352 return 353 end 354 355c 356 subroutine efscoe(fid,maa,mdim,struct,cret) 357c DEC$ ATTRIBUTES DLLEXPORT :: efscoe 358c 359 implicit none 360 save 361c 362 character*32 maa 363 integer struct(*) 364 integer*8 fid 365 integer cret,mdim 366 integer edfscoe 367c 368 cret = edfscoe (fid, maa ,len(maa),mdim,struct) 369c 370 return 371 end 372 373c 374 subroutine efscol(fid,maa,mdim,struct,cret) 375c DEC$ ATTRIBUTES DLLEXPORT :: efscol 376c 377 implicit none 378 save 379c 380 character*32 maa 381 integer struct(*) 382 integer*8 fid 383 integer cret,mdim 384 integer edfscol 385c 386 cret = edfscol (fid, maa ,len(maa),mdim,struct) 387c 388 print *,mdim,struct(1),struct(2) 389 return 390 end 391