modmisc::operator(.cross.) Interface Reference

Public Member Functions
real(8) function, dimension(1:3)	vectorcross (p1, p2)

Detailed Description

Definition at line 20 of file mod_Misc.F90.

Member Function/Subroutine Documentation

vectorcross()

real(8) function, dimension(1:3) modmisc::operator(.cross.)::vectorcross	(	real(8), dimension(1:3), intent(in)	p1,
		real(8), dimension(1:3), intent(in)	p2
	)

Definition at line 38 of file mod_Misc.F90.

implicit none
real(8), intent(in) :: p1(1:3),p2(1:3)
real(8)             :: VectorCross(1:3)
 
    vectorcross(1)  = p1(2)*p2(3) - p1(3)*p2(2)
    vectorcross(2)  = p1(3)*p2(1) - p1(1)*p2(3)
    vectorcross(3)  = p1(1)*p2(2) - p1(2)*p2(1)

---

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

• MELA/fortran/mod_Misc.F90