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

10
src/equilibrium.f90
View File

@ -192,8 +192,8 @@ contains
q(1)=q0 q(1)=q0
q(2)=qa q(2)=qa
q(3)=alq q(3)=alq
if(ipass.ge.2) then if(ipass.ge.2) then
! get size of boundary and limiter arrays and allocate them ! get size of boundary and limiter arrays and allocate them
read (u,*) nlim read (u,*) nlim
@ -205,9 +205,9 @@ contains
allocate(rlim(nlim),zlim(nlim)) allocate(rlim(nlim),zlim(nlim))
read(u,*) (rlim(i),zlim(i),i=1,nlim) read(u,*) (rlim(i),zlim(i),i=1,nlim)
end if end if
end if end if
close(u) close(u)
end subroutine read_equil_an end subroutine read_equil_an