*CMZ :          17/07/98  15.49.05  by  Federico Carminati
*-- Author :
      FUNCTION SHFETA(X)
c	==================

      SHFETA = SHMTSC(ULMASS(221),X)
      RETURN
      END