C EFNVAL4   SOURCE    CHAT      11/10/26    22:15:19     7176           
      subroutine efnval4(fid,cha,typent,typgeo,numdt,numo,maa,
     $    pflmod,n,cret)
      integer fid,typent,typgeo,n,cret
      integer numdt, numo, pflmod
      character *(*) cha, maa
      integer*4 fid4,typent4,typgeo4,n4,cret4
      integer*4 numdt4, numo4, pflmod4
      fid4=fid
      typent4=typent
      typgeo4=typgeo
      numdt4=numdt
      numo4=numo
      pflmod4=pflmod
      call efnval(fid4,cha,typent4,typgeo4,numdt4,numo4,maa,
     $    pflmod4,n4,cret4)
      n=n4
      cret=cret4
      return
      end