cscalerProd.f File Reference

Go to the source code of this file.

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

Function/Subroutine Documentation

cscalerprod()

subroutine cscalerprod	(	type(coord)	a,
		type(coord)	b,
		real*8	c
	)

Definition at line 4 of file cscalerProd.f.

References i.

Referenced by cifdead(), cifxhorizon(), cifxperpen(), cmagneticdef(), cmoveptcl1(), cresetposang(), and ctrackingall().

#include  "Zcoord.h"
      type(coord)::a 
      type(coord)::b
      real*8  c
!       c =  a . b
      c = 0.
      do i = 1, 3
         c = c + a%r(i) * b%r(i)
      enddo

Here is the caller graph for this function: