sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:10
0001 0002 C********************************************************************* 0003 0004 C...PYFISB 0005 C...Auxiliary routine to PYFINT for SUSY Higgs calculations. 0006 0007 FUNCTION PYFISB(X) 0008 0009 C...Double precision and integer declarations. 0010 IMPLICIT DOUBLE PRECISION(A-H, O-Z) 0011 IMPLICIT INTEGER(I-N) 0012 INTEGER PYK,PYCHGE,PYCOMP 0013 C...Commonblock. 0014 COMMON/PYINTS/XXM(20) 0015 SAVE/PYINTS/ 0016 0017 PYFISB = LOG(ABS(X*XXM(2)+(1-X)*XXM(3)-X*(1-X)*XXM(1))/ 0018 &(X*(XXM(2)-XXM(3))+XXM(3))) 0019 0020 RETURN 0021 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|