← Back to branch summary

~useakat/cfmc/gg_4g_cfmc

« back to all changes in this revision

Viewing changes to hml/hml/rdotxx.f

  • Committer: useakat at gmail
  • Date: 2012-10-01 07:45:50 UTC
  • mfrom: (4.1.13 gg_3g_cfmc_dev)
  • Revision ID: useakat@gmail.com-20121001074550-zs09eu30khm4yvyx
independent ver.

Show diffs side-by-side

added added

removed removed

Lines of Context:
hml/hml/rdotxx.f
 
1
C
 
2
C ----------------------------------------------------------------------
 
3
C
 
4
      SUBROUTINE RDOTXX(P1,P2 , SCALAR)
 
5
C
 
6
C This subroutine computes the scalar product of two REAL vectors.
 
7
C To get an inner-product of two momenta, call this subroutine.
 
8
C For the complex vectors, use CDOTxx subroutine.
 
9
C
 
10
C INPUT:
 
11
C       real    P1(0:3)        : vector
 
12
C       real    P2(0:3)        : vector
 
13
C
 
14
C OUTPUT:
 
15
C       real    SCALAR         : scalar product of two vectors
 
16
C
 
17
      IMPLICIT NONE
 
18
 
 
19
      DOUBLE PRECISION P1(0:3),P2(0:3)
 
20
      DOUBLE PRECISION SCALAR
 
21
C
 
22
      SCALAR =  P1(0)*P2(0)-P1(1)*P2(1)
 
23
     &         -P1(2)*P2(2)-P1(3)*P2(3)
 
24
      RETURN
 
25
      END