C EFEXIT4   SOURCE    CHAT      11/10/26    22:15:09     7176           
      subroutine efexit4(imes)
      integer imes
      integer*4 imes4
      imes4=imes
      call efexit(imes4)
      return
      end