consistent with other routines
This commit is contained in:
parent
e3a22a6e1f
commit
a248a24250
|
@ -452,7 +452,6 @@ pure function math_tensorproduct(A,B)
|
||||||
implicit none
|
implicit none
|
||||||
real(pReal), dimension(:), intent(in) :: A,B
|
real(pReal), dimension(:), intent(in) :: A,B
|
||||||
real(pReal), dimension(size(A,1),size(B,1)) :: math_tensorproduct
|
real(pReal), dimension(size(A,1),size(B,1)) :: math_tensorproduct
|
||||||
|
|
||||||
integer(pInt) :: i,j
|
integer(pInt) :: i,j
|
||||||
|
|
||||||
forall (i=1_pInt:size(A,1),j=1_pInt:size(B,1)) math_tensorproduct(i,j) = A(i)*B(j)
|
forall (i=1_pInt:size(A,1),j=1_pInt:size(B,1)) math_tensorproduct(i,j) = A(i)*B(j)
|
||||||
|
|
Loading…
Reference in New Issue