sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 C 0003 C 0004 FUNCTION BK(X) 0005 COMMON /BESEL/X4 0006 SAVE /BESEL/ 0007 BK=EXP(-X)*(X**2-X4**2)**2.50/15.0 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 |
|