sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 FUNCTION FGP1(X) 0003 COMMON/PACT/BB,B1,PHI,Z1 0004 SAVE /PACT/ 0005 COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50) 0006 SAVE /HIPARNT/ 0007 EXTERNAL FGP2 0008 PHI=X 0009 FGP1=2.0*GAUSS3(FGP2,0.0,HIPR1(34),0.01) 0010 RETURN 0011 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|