sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:15
0001 0002 C********************************************************************* 0003 0004 C...PYRVR 0005 C...Breit-Wigner for resonance contributions 0006 0007 FUNCTION PYRVR(Mab2,RM,RW) 0008 0009 IMPLICIT NONE 0010 DOUBLE PRECISION Mab2,RM,RW,PYRVR 0011 PYRVR = 1D0/((Mab2-RM**2)**2+RM**2*RW**2) 0012 RETURN 0013 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|