modttbhiggs::operator(.ndot.) Interface Reference

Private Member Functions
complex(8) function	fourvecdot (p1, p2)

Detailed Description

Definition at line 53 of file mod_TTBHiggs.F90.

Member Function/Subroutine Documentation

fourvecdot()

complex(8) function modttbhiggs::operator(.ndot.)::fourvecdot ( complex(8), dimension(1:dv), intent(in)  p1, complex(8), dimension(1:dv), intent(in)  p2  )

private

Definition at line 5009 of file mod_TTBHiggs.F90.

implicit none
complex(8), intent(in) :: p1(1:Dv),p2(1:Dv)
complex(8)  :: FourVecDot
integer :: mu
 
   fourvecdot = p1(1)*p2(1)
!DEC$ UNROLL
   do mu=2,dv
      fourvecdot = fourvecdot - p1(mu)*p2(mu)
   enddo
return

---

The documentation for this interface was generated from the following file:

• MELA/fortran/mod_TTBHiggs.F90