From 861a723ebc082e1f04f764d39fd81c3acac5fa67 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Wed, 15 Dec 2021 02:31:00 +0100 Subject: [PATCH] src/equilibrium.f90: fix mixed tab/spaces --- src/equilibrium.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/equilibrium.f90 b/src/equilibrium.f90 index d02f8cc..9a92494 100644 --- a/src/equilibrium.f90 +++ b/src/equilibrium.f90 @@ -192,8 +192,8 @@ contains q(1)=q0 q(2)=qa q(3)=alq - - if(ipass.ge.2) then + + if(ipass.ge.2) then ! get size of boundary and limiter arrays and allocate them read (u,*) nlim @@ -205,9 +205,9 @@ contains allocate(rlim(nlim),zlim(nlim)) read(u,*) (rlim(i),zlim(i),i=1,nlim) end if - - end if - + + end if + close(u) end subroutine read_equil_an