240407.163323.HKT correct the typo "automatic allocation" mentioned in …

…#146 (comment) and revise the wording
libprima · Apr 7, 2024 · 92f8a6e · 92f8a6e
1 parent 207ad27
commit 92f8a6e
Show file tree

Hide file tree

Showing 8 changed files with 15 additions and 15 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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)