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

      SHFPHI = SHMTSC(ULMASS(333),X)
      RETURN
      END