sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:10
0001 0002 0003 0004 0005 0006 C********************************************************************* 0007 0008 C...PYFINT 0009 C...Auxiliary routine to PYPOLE for SUSY Higgs calculations. 0010 0011 FUNCTION PYFINT(A,B,C) 0012 0013 C...Double precision and integer declarations. 0014 IMPLICIT DOUBLE PRECISION(A-H, O-Z) 0015 IMPLICIT INTEGER(I-N) 0016 INTEGER PYK,PYCHGE,PYCOMP 0017 C...Commonblock. 0018 COMMON/PYINTS/XXM(20) 0019 SAVE/PYINTS/ 0020 0021 C...Local variables. 0022 EXTERNAL PYFISB 0023 DOUBLE PRECISION PYFISB 0024 0025 XXM(1)=A 0026 XXM(2)=B 0027 XXM(3)=C 0028 XLO=0D0 0029 XHI=1D0 0030 PYFINT = PYGAUS(PYFISB,XLO,XHI,1D-3) 0031 0032 RETURN 0033 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|