consistent with other routines

2017-02-08 20:01:42 +01:00 · 2017-02-08 20:01:42 +01:00 · a248a24250
parent e3a22a6e1f
commit a248a24250
1 changed files with 0 additions and 1 deletions
--- a/src/math.f90
+++ b/src/math.f90
@ -452,7 +452,6 @@ pure function math_tensorproduct(A,B)
 implicit none
 real(pReal), dimension(:), intent(in) ::  A,B
 real(pReal), dimension(size(A,1),size(B,1)) ::  math_tensorproduct
-
 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)