This commit was generated by cvs2svn to compensate for changes in r2,

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

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

      SHFRHO = SHMTSC(ULMASS(113),X)
      RETURN
      END