cvecProd.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cvecprod (a, b, c)

Function/Subroutine Documentation

cvecprod()

subroutine cvecprod	(	type(coord)	a,
		type(coord)	b,
		type(coord)	c
	)

Definition at line 4 of file cvecProd.f.

Referenced by __det2exyz.f__(), __det2prim.f__(), __det2prim2.f__(), __xyz2det.f__(), cgetbsin(), cinitobs(), cmagneticdef(), and cprimxyz().

!----      include 'Zcoord.h'
#include  "Zcoord.h"
      type(coord)::a
      type(coord)::b
      type(coord)::c
!       c <-  a x b
      c%r(1) = a%r(2) * b%r(3) - a%r(3) * b%r(2)
      c%r(2) = a%r(3) * b%r(1) - a%r(1) * b%r(3)
      c%r(3) = a%r(1) * b%r(2) - a%r(2) * b%r(1)

Here is the caller graph for this function: