src/equilibrium.f90: fix mixed tab/spaces

2021-12-15 02:31:00 +01:00 · 2021-12-15 02:31:00 +01:00 · 861a723ebc
commit 861a723ebc
parent 08dad4ff45
1 changed files with 5 additions and 5 deletions
--- 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