13.2.24} sphspc.f: user-defined Sampling optical PHoton SPectrum

 -------------------------------------------------

     Argument list (all variables are input only):
          IP     : ip-th  scintillation emission for material Mmat
          MMAT   : material index

 Function SPHSPC returns the energy (GeV) of a scintillation optical photon
 sampled from an user-defined spectrum, corresponding to the ip-th scintillation
 emission for material Mmat.
 It is activated by OPT-PROD, with 
SDUM
 = SCINTILL/SCINT-WVb/SCINT-OM, and
 
WHAT(2)
 < -99.
 See option OPT-PROD and Chap. 12} and usfsci.f for more information.

Previous Index Next