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* 17c 18c 19c 20 subroutine mfrcre(fid,nent,nvent,ncent,cs,swm, 21 & stm,pname,fltas,flta,flt,cret) 22c DEC$ ATTRIBUTES DLLEXPORT :: mfrcre 23c 24 implicit none 25 save 26 character*(*) pname 27 integer flta(*) 28 integer*8 fid 29 integer nent,nvent,ncent 30 integer stm,fltas 31 integer*8 flt 32 integer cret,cs,swm 33 integer mfrfcre 34c 35 cret = mfrfcre(fid,nent,nvent,ncent,cs,swm,stm, 36 & pname,len(pname),fltas,flta,flt) 37c 38 return 39 end 40c 41c 42c 43 subroutine mfrall(nflt,flt,cret) 44c DEC$ ATTRIBUTES DLLEXPORT :: mfrall 45c 46 implicit none 47 save 48 integer*8 flt(*) 49 integer nflt,cret 50 integer mfrfall 51c 52 cret = mfrfall(nflt,flt) 53c 54 return 55 end 56c 57c 58c 59 subroutine mfrdea(nflt,flt,cret) 60c DEC$ ATTRIBUTES DLLEXPORT :: mfrdea 61c 62 implicit none 63 save 64 integer*8 flt(*) 65 integer nflt,cret 66 integer mfrfdea 67c 68 cret = mfrfdea(nflt,flt) 69c 70 return 71 end 72c 73c 74c 75 subroutine mfrblc(fid,nent,nvent,ncent,cs,swm, 76 & stm,pname,start,stride,count,bsize, 77 & lbsize,flt,cret) 78c DEC$ ATTRIBUTES DLLEXPORT :: mfrblc 79c 80 implicit none 81 save 82 character*(*) pname 83 integer*8 fid 84 integer nent,nvent,ncent 85 integer start,stride,count,bsize,lbsize 86 integer stm 87 integer*8 flt 88 integer cret,cs,swm 89 integer mfrfblc 90c 91 cret = mfrfblc(fid,nent,nvent,ncent,cs,swm,stm, 92 & pname,len(pname),start,stride,count,bsize, 93 & lbsize,flt) 94c 95 return 96 end 97 98 99