sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:44
0001 C 0002 C 0003 C 0004 FUNCTION OMG0(X) 0005 COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50) 0006 SAVE /HIPARNT/ 0007 COMMON /BESEL/X4 0008 SAVE /BESEL/ 0009 EXTERNAL BK 0010 X4=HIPR1(32)*SQRT(X) 0011 OMG0=HIPR1(32)**2*GAUSS2(BK,X4,X4+20.0,0.01)/96.0 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 |
|