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