sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:46
0001 C 0002 C 0003 FUNCTION SUBCRS3(T,U) 0004 IMPLICIT REAL*8(A-H,O-Z) 0005 SUBCRS3=4.D0/9.D0*(T**2+U**2+(1.D0+U**2)/T**2 0006 1 -2.D0*U**2/3.D0/T) 0007 RETURN 0008 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|