C EFNPDT4   SOURCE    CHAT      11/10/26    22:15:19     7176           
      subroutine efnpdt4(fid,cha,typent,typgeo,n,cret)
      integer fid,typent,typgeo,n,cret
      character*32 cha      
      integer*4 fid4,typent4,typgeo4,n4,cret4
      fid4=fid
      typent4=typent
      typgeo4=typgeo
      call efnpdt(fid4,cha,typent4,typgeo4,n4,cret4)
      n=n4
      cret=cret4
      return
      end