fixed indentation

src/rotations.f90

@@ -204,12 +204,19 @@ function rotTensor(self,m,active)
   real(pReal),     intent(in), dimension(3,3) :: m
   logical,         intent(in), optional       :: active
    
+  logical           :: passive
 
- passive: if (merge(.not. active, .true., present(active))) then
+  if (present(active)) then
+    passive = .not. active
+  else
+    passive = .true.
+  endif
+ 
+  if (passive) then
     rotTensor = matmul(matmul(self%asRotationMatrix(),m),transpose(self%asRotationMatrix()))
- else passive
+  else
     rotTensor = matmul(matmul(transpose(self%asRotationMatrix()),m),self%asRotationMatrix())
- endif passive
+  endif
 
 end function rotTensor
 
@@ -478,6 +485,7 @@ end function ax2ho
 pure function ho2ax(ho) result(ax)
   use prec, only: &
     dEq0
+
   implicit none 
   real(pReal), intent(in), dimension(3) :: ho
   real(pReal),             dimension(4) :: ax
@@ -1025,7 +1033,6 @@ pure function ho2ro(ho) result(ro)
   real(pReal), intent(in), dimension(3) :: ho
   real(pReal),             dimension(4) :: ro
 
-
   ro = ax2ro(ho2ax(ho))
 
 end function ho2ro