[indent-bot] standardised indentation

danieljprice · Jul 24, 2020 · 13263ba · 13263ba
1 parent d1ccbe3
commit 13263ba
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 12 deletions.
diff --git a/src/setup/set_fixedentropycore.f90 b/src/setup/set_fixedentropycore.f90
@@ -261,7 +261,7 @@ subroutine get_rho_from_p_s(pres,S,rho)
     rho = rho - corr
  enddo
 
-return
+ return
 
 end subroutine get_rho_from_p_s
 
@@ -300,4 +300,4 @@ subroutine calc_mass_from_rho(r,rho,m)
 
 end subroutine calc_mass_from_rho
 
-end module setfixedentropycore
+end module setfixedentropycore
diff --git a/src/setup/setup_dustsettle.f90 b/src/setup/setup_dustsettle.f90
@@ -45,7 +45,7 @@ module setup
  implicit none
  public  :: setpart
 
-private
+ private
  integer :: npartx,norbit
  real    :: Rdisc_au,Rmax_au
  real    :: H0,HonR,dtg,smincgs,smaxcgs,sindex
@@ -365,4 +365,4 @@ subroutine read_setupfile(filename,ierr)
 
 end subroutine read_setupfile
 !----------------------------------------------------------------
-end module setup
+end module setup
diff --git a/src/setup/setup_star.f90 b/src/setup/setup_star.f90
@@ -754,8 +754,8 @@ subroutine write_setupfile(filename,gamma,polyk)
              call write_inopt(mcore,'mcore','Mass of sink particle stellar core',iunit)
           endif
        elseif (isoftcore == 2) then
-         call write_inopt(hdens,'hdens','Radius of core softening',iunit)
-         call write_inopt(mcore,'mcore','Initial guess for mass of sink particle stellar core',iunit)
+          call write_inopt(hdens,'hdens','Radius of core softening',iunit)
+          call write_inopt(mcore,'mcore','Initial guess for mass of sink particle stellar core',iunit)
        endif
     else
        call write_inopt(isinkcore,'isinkcore','Add a sink particle stellar core',iunit)
@@ -848,12 +848,12 @@ subroutine read_setupfile(filename,gamma,polyk,ierr)
 
  ! star properties
  if (isoftcore == 0) then
-  if (need_densityfile) then
-     call read_inopt(densityfile,'densityfile',db,errcount=nerr)
-  else
-     call read_inopt(Mstar,'Mstar',db,errcount=nerr)
-     if (need_rstar) call read_inopt(Rstar,'Rstar',db,errcount=nerr)
-  endif
+    if (need_densityfile) then
+       call read_inopt(densityfile,'densityfile',db,errcount=nerr)
+    else
+       call read_inopt(Mstar,'Mstar',db,errcount=nerr)
+       if (need_rstar) call read_inopt(Rstar,'Rstar',db,errcount=nerr)
+    endif
  endif
 
  ! relax star options