Fix formatting

FluidNumerics · Jun 15, 2024 · 65be66e · 65be66e
1 parent cf6977c
commit 65be66e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/FEQParse.F90 b/src/FEQParse.F90
@@ -138,7 +138,7 @@ subroutine Finalize_EquationParser(parser)
     if(allocated(parser%equation)) deallocate(parser%equation)
     if(allocated(parser%variableName)) deallocate(parser%variableName)
     if(allocated(parser%indepVars)) then
-      do i=1,parser%nIndepVars
+      do i = 1,parser%nIndepVars
         deallocate(parser%indepVars(i)%value)
       enddo
       deallocate(parser%indepVars)

diff --git a/src/FEQParse_FloatStacks.F90 b/src/FEQParse_FloatStacks.F90
@@ -282,7 +282,7 @@ subroutine Construct_r1fp64Stack(stack,N,mold)
     stack%top_index = 0
 
   endsubroutine Construct_r1fp64Stack
-  
+
   subroutine Finalize_r1fp64Stack(stack)
     type(r1fp64Stack),intent(inout) :: stack
 
@@ -374,7 +374,7 @@ subroutine Construct_r2fp64Stack(stack,N,mold)
     stack%top_index = 0
 
   endsubroutine Construct_r2fp64Stack
-  
+
   subroutine Finalize_r2fp64Stack(stack)
     type(r2fp64Stack),intent(inout) :: stack