From 92f8a6ed914fc8f7b9eb5cc7f2cb8f0aa40c1757 Mon Sep 17 00:00:00 2001 From: zaikunzhang Date: Sun, 7 Apr 2024 16:33:23 +0800 Subject: [PATCH] 240407.163323.HKT correct the typo "automatic allocation" mentioned in https://github.com/libprima/prima/issues/146#issuecomment-1920235511 and revise the wording --- c/bobyqa_c.f90 | 4 ++-- c/cobyla_c.f90 | 4 ++-- c/lincoa_c.f90 | 4 ++-- c/newuoa_c.f90 | 4 ++-- c/uobyqa_c.f90 | 4 ++-- fortran/classical/lincoa/lincoa.f90 | 2 +- fortran/cobyla/cobyla.f90 | 4 ++-- fortran/lincoa/lincoa.f90 | 4 ++-- 8 files changed, 15 insertions(+), 15 deletions(-) diff --git a/c/bobyqa_c.f90 b/c/bobyqa_c.f90 index 133b0977e2..0c8dc3e20e 100644 --- a/c/bobyqa_c.f90 +++ b/c/bobyqa_c.f90 @@ -120,7 +120,7 @@ subroutine bobyqa_c(cobj_ptr, data_ptr, n, x, f, xl, xu, nf, rhobeg, rhoend, & nf = int(nf_loc, kind(nf)) info = int(info_loc, kind(info)) -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(npt_loc)) deallocate (npt_loc) if (allocated(maxfun_loc)) deallocate (maxfun_loc) if (allocated(rhoend_loc)) deallocate (rhoend_loc) @@ -226,7 +226,7 @@ subroutine callback_fcn(x_sub, f_sub, nf_sub, tr, cstrv_sub, nlconstr_sub, termi terminate = logical(terminate_loc, kind(terminate)) end if -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(nlconstr_sub_loc)) deallocate (nlconstr_sub_loc) end subroutine callback_fcn diff --git a/c/cobyla_c.f90 b/c/cobyla_c.f90 index 73a8a34e13..0cbff5b07a 100644 --- a/c/cobyla_c.f90 +++ b/c/cobyla_c.f90 @@ -160,7 +160,7 @@ subroutine cobyla_c(m_nlcon, cobjcon_ptr, data_ptr, n, x, f, cstrv, nlconstr, m_ info = int(info_loc, kind(info)) nlconstr = real(nlconstr_loc, kind(nlconstr)) -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(maxfun_loc)) deallocate (maxfun_loc) if (allocated(rhoend_loc)) deallocate (rhoend_loc) if (allocated(rhobeg_loc)) deallocate (rhobeg_loc) @@ -268,7 +268,7 @@ subroutine callback_fcn(x_sub, f_sub, nf_sub, tr, cstrv_sub, nlconstr_sub, termi terminate = logical(terminate_loc, kind(terminate)) end if -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(nlconstr_sub_loc)) deallocate (nlconstr_sub_loc) end subroutine callback_fcn diff --git a/c/lincoa_c.f90 b/c/lincoa_c.f90 index a2e9e17754..4b9639244a 100644 --- a/c/lincoa_c.f90 +++ b/c/lincoa_c.f90 @@ -148,7 +148,7 @@ subroutine lincoa_c(cobj_ptr, data_ptr, n, x, f, cstrv, m_ineq, Aineq, bineq, m_ nf = int(nf_loc, kind(nf)) info = int(info_loc, kind(info)) -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(npt_loc)) deallocate (npt_loc) if (allocated(maxfun_loc)) deallocate (maxfun_loc) if (allocated(rhoend_loc)) deallocate (rhoend_loc) @@ -254,7 +254,7 @@ subroutine callback_fcn(x_sub, f_sub, nf_sub, tr, cstrv_sub, nlconstr_sub, termi terminate = logical(terminate_loc, kind(terminate)) end if -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(nlconstr_sub_loc)) deallocate (nlconstr_sub_loc) end subroutine callback_fcn diff --git a/c/newuoa_c.f90 b/c/newuoa_c.f90 index 1c67055c38..ced7b99c24 100644 --- a/c/newuoa_c.f90 +++ b/c/newuoa_c.f90 @@ -101,7 +101,7 @@ subroutine newuoa_c(cobj_ptr, data_ptr, n, x, f, nf, rhobeg, rhoend, ftarget, ma nf = int(nf_loc, kind(nf)) info = int(info_loc, kind(info)) -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(npt_loc)) deallocate (npt_loc) if (allocated(maxfun_loc)) deallocate (maxfun_loc) if (allocated(rhoend_loc)) deallocate (rhoend_loc) @@ -205,7 +205,7 @@ subroutine callback_fcn(x_sub, f_sub, nf_sub, tr, cstrv_sub, nlconstr_sub, termi terminate = logical(terminate_loc, kind(terminate)) end if -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(nlconstr_sub_loc)) deallocate (nlconstr_sub_loc) end subroutine callback_fcn diff --git a/c/uobyqa_c.f90 b/c/uobyqa_c.f90 index 388d72ccf6..03d1adcdd7 100644 --- a/c/uobyqa_c.f90 +++ b/c/uobyqa_c.f90 @@ -96,7 +96,7 @@ subroutine uobyqa_c(cobj_ptr, data_ptr, n, x, f, nf, rhobeg, rhoend, ftarget, ma nf = int(nf_loc, kind(nf)) info = int(info_loc, kind(info)) -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(maxfun_loc)) deallocate (maxfun_loc) if (allocated(rhoend_loc)) deallocate (rhoend_loc) if (allocated(rhobeg_loc)) deallocate (rhobeg_loc) @@ -199,7 +199,7 @@ subroutine callback_fcn(x_sub, f_sub, nf_sub, tr, cstrv_sub, nlconstr_sub, termi terminate = logical(terminate_loc, kind(terminate)) end if -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. if (allocated(nlconstr_sub_loc)) deallocate (nlconstr_sub_loc) end subroutine callback_fcn diff --git a/fortran/classical/lincoa/lincoa.f90 b/fortran/classical/lincoa/lincoa.f90 index 263f540d8e..0aa6f8ce64 100644 --- a/fortran/classical/lincoa/lincoa.f90 +++ b/fortran/classical/lincoa/lincoa.f90 @@ -392,7 +392,7 @@ subroutine lincoa(calfun, x, f, & & int(size(chist_loc), kind=IK)) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! Deallocate A_LOC, B_LOC, etc. Indeed, automatic allocation will take place at exit. +! Deallocate A_LOC, B_LOC, etc. Indeed, automatic deallocation will take place at exit. deallocate (A_loc) deallocate (b_loc) deallocate (iact) diff --git a/fortran/cobyla/cobyla.f90 b/fortran/cobyla/cobyla.f90 index 1c147ed4c9..e29bfaa8e5 100644 --- a/fortran/cobyla/cobyla.f90 +++ b/fortran/cobyla/cobyla.f90 @@ -42,7 +42,7 @@ module cobyla_mod ! ! Started: July 2021 ! -! Last Modified: Sunday, March 03, 2024 PM05:54:25 +! Last Modified: Sunday, April 07, 2024 PM04:12:44 !--------------------------------------------------------------------------------------------------! implicit none @@ -635,7 +635,7 @@ subroutine cobyla(calcfc, m_nlcon, x, & end if !--------------------------------------------------------------------------------------------------! -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. deallocate (Aineq_loc, Aeq_loc, amat, bineq_loc, beq_loc, bvec) diff --git a/fortran/lincoa/lincoa.f90 b/fortran/lincoa/lincoa.f90 index b3c6dc8689..5ada2684a7 100644 --- a/fortran/lincoa/lincoa.f90 +++ b/fortran/lincoa/lincoa.f90 @@ -36,7 +36,7 @@ module lincoa_mod ! ! Started: February 2022 ! -! Last Modified: Saturday, March 09, 2024 PM01:43:05 +! Last Modified: Sunday, April 07, 2024 PM04:11:56 !--------------------------------------------------------------------------------------------------! implicit none @@ -533,7 +533,7 @@ subroutine lincoa(calfun, x, & end if !--------------------------------------------------------------------------------------------------! -! Deallocate variables not needed any more. Indeed, automatic allocation will take place at exit. +! Deallocate variables not needed any more. Indeed, automatic deallocation will take place at exit. deallocate (Aineq_loc, Aeq_loc, amat, bineq_loc, beq_loc, bvec)