240126.193716.HKT revise comments in algorithm_c.f90

c/bobyqa_c.f90

@@ -72,10 +72,10 @@ subroutine bobyqa_c(cobj_ptr, data_ptr, n, x, f, xl, xu, nf, rhobeg, rhoend, &
 ! The following inputs correspond to optional arguments in the Fortran code.
 ! Since C does not support optional arguments, we use NaN to represent an absent real scalar, 0 to
 ! represent an absent integer scalar (all integer arguments are expected positive), and an
-! unassociated pointer to represent an absent array. In case of NaN, 0, and unassociated pointers,
+! unassociated pointer to represent an absent array. In case of NaN, 0, or unassociated pointers,
 ! the allocatable variables such as RHOBEG_LOC will be left uninitialized and hence unallocated, and
 ! then treated as an absent argument when passed to the Fortran code.
-! See Sec. 9.7.1.3 and 15.5.2.13 of J3/24-007 (Fortran 2023 Interpretation Document).
+! See Sec. 9.7.1.3 (4) and 15.5.2.13 (1) of J3/24-007 (Fortran 2023 Interpretation Document).
 if (c_associated(xl)) then
     call c_f_pointer(xl, xl_loc_interm, shape=[n])
     call safealloc(xl_loc, int(n, IK))

c/cobyla_c.f90

@@ -93,10 +93,10 @@ subroutine cobyla_c(m_nlcon, cobjcon_ptr, data_ptr, n, x, f, cstrv, nlconstr, m_
 ! The following inputs correspond to optional arguments in the Fortran code.
 ! Since C does not support optional arguments, we use NaN to represent an absent real scalar, 0 to
 ! represent an absent integer scalar (all integer arguments are expected positive), and an
-! unassociated pointer to represent an absent array. In case of NaN, 0, and unassociated pointers,
+! unassociated pointer to represent an absent array. In case of NaN, 0, or unassociated pointers,
 ! the allocatable variables such as RHOBEG_LOC will be left uninitialized and hence unallocated, and
 ! then treated as an absent argument when passed to the Fortran code.
-! See Sec. 9.7.1.3 and 15.5.2.13 of J3/24-007 (Fortran 2023 Interpretation Document).
+! See Sec. 9.7.1.3 (4) and 15.5.2.13 (1) of J3/24-007 (Fortran 2023 Interpretation Document).
 Aineq_loc = real(transpose(Aineq), kind(Aineq_loc))
 bineq_loc = real(bineq, kind(bineq_loc))
 Aeq_loc = real(transpose(Aeq), kind(Aeq_loc))

c/lincoa_c.f90

@@ -85,10 +85,10 @@ subroutine lincoa_c(cobj_ptr, data_ptr, n, x, f, cstrv, m_ineq, Aineq, bineq, m_
 ! The following inputs correspond to optional arguments in the Fortran code.
 ! Since C does not support optional arguments, we use NaN to represent an absent real scalar, 0 to
 ! represent an absent integer scalar (all integer arguments are expected positive), and an
-! unassociated pointer to represent an absent array. In case of NaN, 0, and unassociated pointers,
+! unassociated pointer to represent an absent array. In case of NaN, 0, or unassociated pointers,
 ! the allocatable variables such as RHOBEG_LOC will be left uninitialized and hence unallocated, and
 ! then treated as an absent argument when passed to the Fortran code.
-! See Sec. 9.7.1.3 and 15.5.2.13 of J3/24-007 (Fortran 2023 Interpretation Document).
+! See Sec. 9.7.1.3 (4) and 15.5.2.13 (1) of J3/24-007 (Fortran 2023 Interpretation Document).
 Aineq_loc = real(transpose(Aineq), kind(Aineq_loc))
 bineq_loc = real(bineq, kind(bineq_loc))
 Aeq_loc = real(transpose(Aeq), kind(Aeq_loc))

c/newuoa_c.f90

@@ -63,10 +63,10 @@ subroutine newuoa_c(cobj_ptr, data_ptr, n, x, f, nf, rhobeg, rhoend, ftarget, ma
 ! The following inputs correspond to optional arguments in the Fortran code.
 ! Since C does not support optional arguments, we use NaN to represent an absent real scalar, 0 to
 ! represent an absent integer scalar (all integer arguments are expected positive), and an
-! unassociated pointer to represent an absent array. In case of NaN, 0, and unassociated pointers,
+! unassociated pointer to represent an absent array. In case of NaN, 0, or unassociated pointers,
 ! the allocatable variables such as RHOBEG_LOC will be left uninitialized and hence unallocated, and
 ! then treated as an absent argument when passed to the Fortran code.
-! See Sec. 9.7.1.3 and 15.5.2.13 of J3/24-007 (Fortran 2023 Interpretation Document).
+! See Sec. 9.7.1.3 (4) and 15.5.2.13 (1) of J3/24-007 (Fortran 2023 Interpretation Document).
 if (.not. is_nan(rhobeg)) then
     rhobeg_loc = real(rhobeg, kind(rhobeg_loc))
 end if

c/uobyqa_c.f90

@@ -57,10 +57,10 @@ subroutine uobyqa_c(cobj_ptr, data_ptr, n, x, f, nf, rhobeg, rhoend, ftarget, ma
 ! The following inputs correspond to optional arguments in the Fortran code.
 ! Since C does not support optional arguments, we use NaN to represent an absent real scalar, 0 to
 ! represent an absent integer scalar (all integer arguments are expected positive), and an
-! unassociated pointer to represent an absent array. In case of NaN, 0, and unassociated pointers,
+! unassociated pointer to represent an absent array. In case of NaN, 0, or unassociated pointers,
 ! the allocatable variables such as RHOBEG_LOC will be left uninitialized and hence unallocated, and
 ! then treated as an absent argument when passed to the Fortran code.
-! See Sec. 9.7.1.3 and 15.5.2.13 of J3/24-007 (Fortran 2023 Interpretation Document).
+! See Sec. 9.7.1.3 (4) and 15.5.2.13 (1) of J3/24-007 (Fortran 2023 Interpretation Document).
 if (.not. is_nan(rhobeg)) then
     rhobeg_loc = real(rhobeg, kind(rhobeg_loc))
 end if