istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/equilibrium.f90: fix mixed tab/spaces

Browse Source
This commit is contained in:
Michele Guerini Rocco 2021-12-15 02:31:00 +01:00
parent 08dad4ff45
commit 861a723ebc
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/equilibrium.f90
View File

@ -193,7 +193,7 @@ contains
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
@ -206,7 +206,7 @@ contains
read(u,*) (rlim(i),zlim(i),i=1,nlim)
end if
end if
end if
close(u)
end subroutine read_equil_an