[indent-bot] standardised indentation

src/main/eos.f90

@@ -1512,12 +1512,12 @@ subroutine read_headeropts_eos(ieos,hdr,ierr)
  if (id==master) then
     if (maxvxyzu >= 4) then
        if (use_krome) then
-         if (iverbose >= 0) write(iprint,*) 'KROME eos: initial gamma = 1.666667'
+          if (iverbose >= 0) write(iprint,*) 'KROME eos: initial gamma = 1.666667'
        else
           if (iverbose >= 0) write(iprint,*) 'adiabatic eos: gamma = ',gamma
        endif
     else
-      if (iverbose >= 0) write(iprint,*) 'setting isothermal sound speed^2 (polyk) = ',polyk,' gamma = ',gamma
+       if (iverbose >= 0) write(iprint,*) 'setting isothermal sound speed^2 (polyk) = ',polyk,' gamma = ',gamma
        if (polyk <= tiny(polyk)) write(iprint,*) 'WARNING! sound speed zero in dump!, polyk = ',polyk
     endif
  endif

src/setup/setup_masstransfer.f90

@@ -27,7 +27,7 @@ module setup
 !   setbinary, setunits, timestep, units
 !
 
-use inject, only:init_inject,nstar,Rstar,lattice_type,handled_layers,&
+ use inject, only:init_inject,nstar,Rstar,lattice_type,handled_layers,&
                   wind_radius,wind_injection_x,wind_length,&
                   rho_inf,mach,v_inf
 
@@ -338,7 +338,7 @@ subroutine read_setupfile(filename,ierr)
     ierr = nerr
  endif
 
-call close_db(db)
+ call close_db(db)
 end subroutine read_setupfile
 
 end module setup

src/tests/test_ptmass.f90

@@ -250,7 +250,7 @@ subroutine test_binary(ntests,npass,string)
              if (id==master) write(*,"(/,a)") '--> testing integration of circumbinary disc'//trim(string)
           endif
        endif
-     case(6)
+    case(6)
        if (id==master) write(*,"(/,a)") '--> testing integration of binary orbit in a corotate frame'//trim(string)
     case default
        if (id==master) write(*,"(/,a)") '--> testing integration of binary orbit'//trim(string)