Return error if we reach max_steps

rjfarmer · Feb 10, 2023 · cc13fb1 · cc13fb1
1 parent 4bbe0c6
commit cc13fb1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/lib_bbq.f90 b/src/lib_bbq.f90
@@ -447,6 +447,8 @@ subroutine do_burn(in, out, bbq_in,  ierr)
          out% nfcn, out% njac, out% nstep, &
          out% naccpt, out% nrejct, ierr)
 
+      if(out% nstep >= bbq_in% max_steps) ierr = -1
+
       out% eps_nuc = avg_eps_nuc * in% time
       out% xa = ending_x