C EFFERM4   SOURCE    CHAT      11/10/26    22:15:12     7176           
      subroutine efferm4(fid, cret)
      integer fid,cret
      integer*4 fid4,cret4
      fid4=fid
      call efferm(fid4,cret4)
      cret=cret4
      return
      end