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 efngau( fid , n , cret) 19c DEC$ ATTRIBUTES DLLEXPORT :: efngau 20c 21 implicit none 22 save 23c 24 integer*8 fid 25 integer n, cret 26 integer edfngau 27c 28 n = edfngau(fid) 29 30 if (n.lt.0) then 31 cret = -1 32 else 33 cret = 0 34 endif 35c 36 return 37 end 38c 39c 40c 41 subroutine efgaui( fid , indice , locname, typgeo, ngauss , cret) 42c DEC$ ATTRIBUTES DLLEXPORT :: efgaui 43c 44 implicit none 45 save 46c 47 integer*8 fid 48 integer indice,typgeo,ngauss,cret 49 character *(*) locname 50 integer edfgaui 51c 52 locname = ' ' 53c 54 cret = edfgaui (fid,indice,locname,typgeo,ngauss) 55c 56 return 57 end 58c 59c 60c 61 subroutine efgaue( fid, typgeo, refcoo, mode_coo, ngauss, 62 1 gscoo, wg, locname,cret) 63c DEC$ ATTRIBUTES DLLEXPORT :: efgaue 64c 65 implicit none 66 save 67c 68 integer*8 fid 69 integer typgeo,mode_coo,ngauss,cret 70 real*8 refcoo(*),gscoo(*),wg(*) 71 character *(*) locname 72 integer edfgaue 73c 74 cret = edfgaue( fid, typgeo, refcoo, mode_coo, ngauss, 75 1 gscoo, wg, locname,len(locname)) 76c 77 return 78 end 79c 80c 81c 82 subroutine efgaul( fid, refcoo, gscoo, wg, 83 1 mode_coo, locname, cret) 84c DEC$ ATTRIBUTES DLLEXPORT :: efgaul 85c 86 implicit none 87 save 88c 89 integer*8 fid 90 integer mode_coo,cret 91 real*8 refcoo(*),gscoo(*),wg(*) 92 character *(*) locname 93 integer edfgaul 94c 95 cret = edfgaul(fid, refcoo, gscoo, wg, 96 1 mode_coo, locname, len(locname), cret) 97c 98 return 99 end 100c 101