C EFCHAL4   SOURCE    FANDEUR   13/01/16    21:15:12     7666           
      subroutine efchal4(fid,maa,cha,val,
     1                  modswt,numco,locname,profil,pflmod,
     1                  typent,typgeo,
     1                  numdt, numo,cret)
      character *(*) cha,maa,locname,profil
      integer fid,typent,typgeo,cret
C*      integer n
      integer modswt,numco,pflmod,numdt,numo
      real*8 val(*)
      integer*4 fid4,typent4,typgeo4,cret4
c*      integer*4 n4
      integer*4 modswt4,numco4,pflmod4,numdt4,numo4
      fid4=fid
C*      n4=n
      typent4=typent
      typgeo4=typgeo
      modswt4=modswt
      numco4=numco
      pflmod4=pflmod
      numdt4=numdt
      numo4=numo
      call efchal(fid4,maa,cha,val,
     1                  modswt4,numco4,locname,profil,pflmod4,
     1                  typent4,typgeo4,
     1                  numdt4, numo4,cret4)
      cret=cret4
      return
      end