testTensor_prg Program

program~~testtensor_prg~~UsesGraph program~testtensor_prg testTensor_prg module~kinds_mod kinds_mod module~kinds_mod->program~testtensor_prg module~tensor_mod tensor_mod module~kinds_mod->module~tensor_mod module~tensor_mod->program~testtensor_prg
Help


Test program for Tensor_mod

Calls

program~~testtensor_prg~~CallsGraph program~testtensor_prg testTensor_prg proc~testdot testDot program~testtensor_prg->proc~testdot
Help

Source Code


Subroutines

subroutine testDot()

Verify operation of Dot and Dyadic

Arguments

None

Source Code

program testTensor_prg
	!! Test program for Tensor_mod
	use kinds_mod
	use tensor_mod
	implicit none
	
	call testDot
	
contains

	subroutine testDot
		!! Verify operation of Dot and Dyadic
		real(wp),dimension(3)::u,v
		real(wp),dimension(3,3)::D
		real(wp)::r
		
		u = [1.0_wp,2.0_wp,0.0_wp]
		v = [0.0_wp,2.0_wp,3.0_wp]
		
		r = u.o.v
		D = u.d.v
	end subroutine testDot

end program testTensor_prg