(setup_shock) BUG FIX: setup_shock writes .setup file after interacti…

…ve setup
danieljprice · Jul 21, 2020 · 612f061 · 612f061
1 parent 54935a4
commit 612f061
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/setup/setup_shock.F90 b/src/setup/setup_shock.F90
@@ -157,7 +157,7 @@ subroutine setpart(id,npart,npartoftype,xyzh,massoftype,vxyzu,polyk,gamma,hfact,
  else
     if (id==master) call choose_shock(gamma,polyk,dtg,iexist) ! Choose shock
  endif
- if (ierr /= 0 .and. id==master) then
+ if ((.not. iexist .or. ierr /= 0) .and. id==master) then
     call write_setupfile(shkfile,iprint,nstates,gamma,polyk,dtg) ! write shock file with defaults
     print "(/,a,/)",' please check/edit .setup and rerun phantomsetup'
     stop