sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 C 0003 C 0004 C 0005 FUNCTION FNJET(X) 0006 COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50) 0007 SAVE /HIPARNT/ 0008 COMMON/NJET/N,IP_CRS 0009 SAVE /NJET/ 0010 OMG1=OMG0(X)*HINT1(11)/HIPR1(31) 0011 C0=EXP(N*ALOG(OMG1)-SGMIN(N+1)) 0012 IF(N.EQ.0) C0=1.0-EXP(-2.0*OMG0(X)*HIPR1(30)/HIPR1(31)/2.0) 0013 FNJET=C0*EXP(-OMG1) 0014 RETURN 0015 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|