sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:19
0001 C===================================================================== 0002 C ************* FUNCTION SCALAR PRODUCTS ************************* 0003 DOUBLE PRECISION FUNCTION PYTBHS(A,B) 0004 IMPLICIT DOUBLE PRECISION(A-H, O-Z) 0005 IMPLICIT INTEGER(I-N) 0006 DIMENSION A(4),B(4) 0007 DUM=A(4)*B(4) 0008 DO 100 ID=1,3 0009 DUM=DUM-A(ID)*B(ID) 0010 100 CONTINUE 0011 PYTBHS=DUM 0012 RETURN 0013 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|