pytbhs.f

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file pytbhs.f

C=====================================================================
C     ************* FUNCTION SCALAR PRODUCTS *************************
      DOUBLE PRECISION FUNCTION pytbhs(A,B)
      IMPLICIT DOUBLE PRECISION(a-h, o-z)
      IMPLICIT INTEGER(i-n)
      dimension a(4),b(4)
      dum=a(4)*b(4)
      DO 100 id=1,3
         dum=dum-a(id)*b(id)
  100 CONTINUE
      pytbhs=dum
      RETURN
      END