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 19c 20c 21c 22 subroutine efchre(fid,maa,cha,val,interlace,n,locname,numco, 23 1 profil,pflmod,typent,typgeo,numdt,dtunit, 24 1 dt,numo,cret) 25c DEC$ ATTRIBUTES DLLEXPORT :: efchre 26c 27 implicit none 28 save 29c 30 character *(*) cha,maa,profil,locname 31 character*(*) dtunit 32 integer*8 fid 33 integer n,pflmod,typent,typgeo,cret 34 integer interlace,numco,numdt,numo 35 real*8 dt 36 real*8 val(*) 37 integer edfchae 38c 39 cret = edfchae(fid,maa,len(maa),cha,len(cha),val, 40 1 interlace,n,locname,len(locname),numco, 41 1 profil,len(profil),pflmod, 42 1 typent,typgeo,numdt,dtunit,len(dtunit), 43 1 dt,numo) 44c 45 return 46 end 47c 48c 49c 50 51 subroutine efchrl(fid,maa,cha,val, 52 1 interlace,numco,locname,profil,pflmod, 53 1 typent,typgeo, 54 1 numdt, numo,cret) 55c DEC$ ATTRIBUTES DLLEXPORT :: efchrl 56c 57 implicit none 58 save 59c 60 character *(*) cha,maa,locname,profil 61 integer*8 fid 62 integer typent,typgeo,cret 63 integer interlace,numco,numdt,numo,pflmod 64 integer edfchal 65 real*8 val(*) 66c 67 cret = edfchal(fid,maa,len(maa),cha,len(cha),val, 68 1 interlace,numco,locname,profil,pflmod, 69 1 typent,typgeo,numdt,numo) 70c 71 return 72 end 73c 74c 75c 76