mtx: make float -> int conversions explicit

MESAHub · Aug 9, 2024 · 5919c82 · 5919c82
1 parent 1840ff9
commit 5919c82
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mtx/private/bcyclic.f90 b/mtx/private/bcyclic.f90
@@ -315,7 +315,7 @@ subroutine cycle_onestep( &
          if (odd_storage(nlevel)% ul_size < min_sz) then
             if (odd_storage(nlevel)% ul_size > 0) &
                deallocate(odd_storage(nlevel)% umat1, odd_storage(nlevel)% lmat1)         
-            new_sz = min_sz*1.1 + 100
+            new_sz = FLOOR(min_sz*1.1) + 100
             odd_storage(nlevel)% ul_size = new_sz
             allocate (odd_storage(nlevel)% umat1(new_sz), &
                       odd_storage(nlevel)% lmat1(new_sz), stat=ierr)