From 65be66ed34b587bac04d0b3fb4a08c8691467fdb Mon Sep 17 00:00:00 2001 From: Joe Date: Fri, 14 Jun 2024 23:18:38 -0400 Subject: [PATCH] Fix formatting --- src/FEQParse.F90 | 2 +- src/FEQParse_FloatStacks.F90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/FEQParse.F90 b/src/FEQParse.F90 index a1bd9cd..ddf998f 100644 --- 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 index 13a9d2c..35b464c 100644 --- 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