fasts.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	tensr3 (v, nv, u, nu, A, Bt, Ct, w)
	Tensor product application of v = (C x B x A) u . NOTE – the transpose of B & C must be input, rather than B & C. More...

Function/Subroutine Documentation

subroutine tensr3	(	real(dp), dimension(*)	v,
		integer	nv,
		real(dp), dimension(*)	u,
		integer	nu,
		real(dp), dimension(*)	A,
		real(dp), dimension(*)	Bt,
		real(dp), dimension(*)	Ct,
		real(dp), dimension(*)	w
	)

Tensor product application of v = (C x B x A) u . NOTE – the transpose of B & C must be input, rather than B & C.

• scratch arrays: w(nu*nu*nv)

Definition at line 5 of file fasts.F90.

References exitt(), and mxm().

Referenced by xyzlin().

Here is the call graph for this function:

Here is the caller graph for this function: