sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 FUNCTION FGP3(X) 0003 COMMON/PACT/BB,B1,PHI,Z1 0004 SAVE /PACT/ 0005 R1=SQRT(B1**2+Z1**2) 0006 R2=SQRT(BB**2+B1**2-2.0*B1*BB*COS(PHI)+X**2) 0007 FGP3=B1*WDSAX1(R1)*WDSAX2(R2) 0008 RETURN 0009 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|