C EFESPC4   SOURCE    CHAT      11/10/26    22:15:08     7176           
      subroutine efespc4( fid , maa, dim, cret)
      integer fid,dim,cret
      character *(*) maa
      integer*4 fid4,dim4,cret4
      fid4=fid
      dim4=dim
      call efespc( fid4 , maa, dim4, cret4)
      cret=cret4
      return
      end