C EFCHAE4   SOURCE    CHAT      11/10/26    22:15:03     7176           
      subroutine efchae4(fid,maa,cha,val,modswt,n,locname,numco,
     1                  profil,pflmod,typent,typgeo,numdt,dtunit,
     1                  dt,numo,cret)
      character*(*) cha,maa,profil,locname
      character*16 dtunit
      integer fid
      integer n,pflmod,typent,typgeo,cret
      integer modswt,numco,numdt,numo
      real*8 dt ,val(*)
      integer*4 fid4 
      integer*4 n4,pflmod4,typent4,typgeo4,cret4 
      integer*4 modswt4,numco4,numdt4,numo4
      fid4=fid
      modswt4=modswt
      n4=n
      numco4=numco
      pflmod4=pflmod
      typent4=typent
      typgeo4=typgeo
      numdt4=numdt
      numo4=numo  
      call efchae(fid4,maa,cha,val,modswt4,n4,locname,numco4,
     1                  profil,pflmod4,typent4,typgeo4,numdt4,dtunit,
     1                  dt,numo4,cret4) 
      cret=cret4
      return
      end