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 19 subroutine mfivop(fid, name, access, major, minor, rel, cret) 20c DEC$ ATTRIBUTES DLLEXPORT :: mfivop 21c 22 implicit none 23 save 24 character *(*) name 25 integer*8 fid 26 integer cret 27 integer access 28 integer major, minor, rel 29 integer*8 mfifvop 30c 31 fid = mfifvop(name, access, major, minor, rel, len(name)) 32 if (fid.lt.0) then 33 cret = fid 34 else 35 cret = 0 36 endif 37c 38 return 39 end 40 41 subroutine mfiope(fid, name, access, cret) 42c DEC$ ATTRIBUTES DLLEXPORT :: mfiope 43c 44 implicit none 45 save 46 character *(*) name 47 integer*8 fid 48 integer cret 49 integer access 50 integer*8 mfifope 51c 52 fid = mfifope(name, access, len(name)) 53 if (fid.lt.0) then 54 cret = fid 55 else 56 cret = 0 57 endif 58c 59 return 60 end 61 62 63 64 subroutine mfinam(fid, name, cret) 65c DEC$ ATTRIBUTES DLLEXPORT :: mfinam 66c 67 implicit none 68 save 69 character *(*) name 70 integer*8 fid 71 integer namesize,cret 72 integer mfifnam 73c 74 cret = mfifnam(fid, name, len(name)) 75c 76 return 77 end 78 79 80 81 subroutine mficlo(fid, cret) 82c DEC$ ATTRIBUTES DLLEXPORT :: mficlo 83c 84 implicit none 85 save 86c 87 integer*8 fid 88 integer cret 89 integer mfifclo 90c 91 cret = mfifclo(fid) 92c 93 return 94 end 95 96 97 98 subroutine mficow(fid,cmt,cret) 99c DEC$ ATTRIBUTES DLLEXPORT :: mficow 100c 101 implicit none 102 save 103c 104 integer*8 fid 105 integer cret 106 character*(*) cmt 107 integer mfifcow 108c 109 cret = mfifcow(fid,cmt,len(cmt),cret) 110c 111 return 112 end 113 114 115 subroutine mficor(fid,cmt,cret) 116c DEC$ ATTRIBUTES DLLEXPORT :: mficor 117c 118 implicit none 119 save 120c 121 integer*8 fid 122 integer cret 123 character*(*) cmt 124 integer mfifcor 125c 126 cret = mfifcor(fid,cmt,len(cmt),cret) 127c 128 return 129 end 130 131 132 133 subroutine mfinvr(fid,major,minor,rel,cret) 134c DEC$ ATTRIBUTES DLLEXPORT :: mfinvr 135c 136 implicit none 137 save 138c 139 integer*8 fid 140 integer major, minor,rel 141 integer cret 142 integer mfifnvr 143c 144 cret = mfifnvr(fid,major,minor,rel) 145c 146 return 147 end 148 149 150 subroutine mfisvr(fid,version,cret) 151c DEC$ ATTRIBUTES DLLEXPORT :: mfisvr 152c 153 implicit none 154 save 155c 156 character*(*) version 157 integer*8 fid 158 integer cret 159 integer mfifsvr 160c 161 cret = mfifsvr(fid,version,len(version)) 162c 163 return 164 end 165 166c 167c 168c 169 subroutine mficom(fname,hdfok,medok,cret) 170c DEC$ ATTRIBUTES DLLEXPORT :: mficom 171c 172 implicit none 173 save 174c 175 integer cret 176 character *(*) fname 177 integer hdfok,medok 178 integer mfifcom 179c 180 cret = mfifcom(fname,len(fname),hdfok,medok) 181c 182 return 183 end 184 185 186 subroutine mfiomn(fid, fname, class, mid, cret) 187c DEC$ ATTRIBUTES DLLEXPORT :: mfiomn 188c 189 implicit none 190 save 191c 192 character *(*) fname 193 integer*8 fid, mid 194 integer class, cret 195 integer*8 mfifomn 196c 197 mid = mfifomn(fid, fname, len(fname), class) 198 if (mid.lt.0) then 199 cret=mid 200 else 201 cret=0 202 endif 203c 204 return 205 end 206 207c 208c 209c 210 subroutine mfioun(fid, mid, class, cret) 211c DEC$ ATTRIBUTES DLLEXPORT :: mfioun 212c 213 implicit none 214 save 215c 216 integer*8 mid, fid 217 integer class, cret 218 integer mfifoun 219c 220 cret = mfifoun(fid, mid, class) 221c 222 return 223 end 224 225 226 subroutine mfioex(fid, class, oname, oexist, cret) 227c DEC$ ATTRIBUTES DLLEXPORT :: mfioex 228c 229 implicit none 230 save 231c 232 character *(*) oname 233 integer*8 fid 234 integer class, oexist, cret 235 integer mfifoex 236c 237 cret = mfifoex(fid, class, oname, len(oname), oexist) 238c 239 return 240 end 241 242 243 subroutine mfiexi(fname, access, fexist, accok, cret) 244c DEC$ ATTRIBUTES DLLEXPORT :: mfioex 245c 246 implicit none 247 save 248c 249 character *(*) fname 250 integer access, fexist, accok, cret 251 integer mfifexi 252c 253 cret = mfifexi(fname, len(fname), access, fexist, accok) 254c 255 return 256 end 257