Test program for Tensor_mod
Verify operation of Dot and Dyadic
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