[u/mrichter/AliRoot.git] / PHOS / shaker / shfpsi.f

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

      SHFPSI = SHMTSC(ULMASS(443),X)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*CMZ : 17/07/98 15.49.05 by Federico Carminati
	2	*-- Author :
	3	FUNCTION SHFPSI(X)
	4	c ==================
	5
	6	SHFPSI = SHMTSC(ULMASS(443),X)
	7	RETURN
	8	END