Fix a few extra things in math

Author: timfelle

src/math/math.f90

@@ -930,14 +930,14 @@ subroutine flipvdp(b, ind, n)
     integer :: i, jj
 
     do i = 1, n
-       jj = n+1-i
+       jj = n + 1 - i
        temp(jj) = b(i)
        tempind(jj) = ind(i)
     end do
-    do i = 1,n
-       b(i) = temp(i)
-       ind(i) = tempind(i)
-    end do
+
+    b = temp
+    ind = tempind
+
   end subroutine flipvdp
 
   !> Flip single integer vector b and ind
@@ -957,10 +957,9 @@ subroutine flipvi4(b, ind, n)
        temp(jj) = b(i)
        tempind(jj) = ind(i)
     end do
-    do i = 1, n
-       b(i) = temp(i)
-       ind(i) = tempind(i)
-    end do
+
+    b = temp
+    ind = tempind
   end subroutine flipvi4
 
 end module math