sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 C 0003 FUNCTION FLAP1(X) 0004 COMMON/PACT/BB,B1,PHI,Z1 0005 SAVE /PACT/ 0006 R=SQRT(BB**2+X**2) 0007 FLAP1=WDSAX1(R) 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 |
|