From 5919c82d98eb8d2c5bf1fc79d4616638e2355077 Mon Sep 17 00:00:00 2001 From: Vincent Vanlaer Date: Thu, 8 Aug 2024 12:39:03 -0400 Subject: [PATCH] mtx: make float -> int conversions explicit --- mtx/private/bcyclic.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mtx/private/bcyclic.f90 b/mtx/private/bcyclic.f90 index 3d93f4bfa..e53aed033 100644 --- 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)