Ignore max_allowed_nz if ≤ 0 (#642)

* ignore max_allowed_nz if <= 0

* added documentation in controls.defauls

* [ci skip] update to controls

---------

Co-authored-by: Meridith Joyce <meridith.joyce@gmail.com>

docs/source/changelog.rst

@@ -18,6 +18,8 @@ Backwards-incompatible changes
 New Features
 ------------
 
+``max_allowed_nz`` is now ignored if the value is less than or equal to zero.
+
 
 .. _Bug Fixes main:
 

star/defaults/controls.defaults

@@ -5597,6 +5597,7 @@
       ! ~~~~~~~~~~~~~~
 
       ! Maximum number of grid points allowed.
+      ! Array allowed to grow arbitrarily large if max_allowed_nz <= 0
 
       ! ::
 

star/private/mesh_plan.f90

@@ -411,7 +411,7 @@ subroutine split1(k, ierr)
                if (ierr /= 0) return
             end if
             nz_new = nz_new + 1
-            if (nz_new > max_allowed_nz) then
+            if (max_allowed_nz > 0 .and. nz_new > max_allowed_nz) then
                write(*,*) 'tried to increase number of mesh points beyond max allowed nz', max_allowed_nz
                ierr = -1
                return
@@ -868,7 +868,7 @@ subroutine pick_new_points(s, ierr)
                dq_sum = sum(dq_new(1:k_new))
 
                k_new = k_new + 1
-               if (k_new > max_allowed_nz) then
+               if (max_allowed_nz > 0 .and. k_new > max_allowed_nz) then
                   write(*,*) 'tried to increase number of mesh points beyond max allowed nz', max_allowed_nz
                   ierr = -1
                   return