Skip to content

Use PROTECTED for hsl_available #16

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
amontoison merged 1 commit into from
Jul 18, 2025
Merged

Use PROTECTED for hsl_available #16

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion hsl_subset/hsl_kb22/hsl_kb22l.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
MODULE hsl_kb22_long_integer
PRIVATE
PUBLIC :: KB22_build_heap, KB22_get_smallest
LOGICAL, PUBLIC :: kb22_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: kb22_available = .FALSE.
CONTAINS
SUBROUTINE KB22_build_heap( )
END SUBROUTINE KB22_build_heap
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma48/hsl_ma48r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ module hsl_ma48_real
ma48_initialize,ma48_analyse,ma48_factorize,ma48_solve, &
ma48_finalize, ma48_get_perm,ma48_special_rows_and_cols, &
ma48_determinant
LOGICAL, PUBLIC :: ma48_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma48_available = .FALSE.

interface ma48_initialize
module procedure ma48_initialize_real
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma54/hsl_ma54r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
#include "hsl_subset.h"

MODULE hsl_ma54_real
LOGICAL, PUBLIC :: ma54_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma54_available = .FALSE.
CONTAINS
SUBROUTINE ma54r( )
END SUBROUTINE ma54r
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma57/hsl_ma57r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,7 +11,7 @@ module hsl_ma57_real

implicit none
private :: ip_, rp_
LOGICAL, PUBLIC :: ma57_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma57_available = .FALSE.

type ma57_factors
private
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma64/hsl_ma64r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
#include "hsl_subset.h"

MODULE hsl_ma64_real
LOGICAL, PUBLIC :: ma64_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma64_available = .FALSE.
CONTAINS
SUBROUTINE ma64r( )
END SUBROUTINE ma64r
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma77/hsl_ma77r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ module hsl_ma77_real
implicit none

private :: ip_, long_, lp_, rp_
LOGICAL, PUBLIC :: ma77_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma77_available = .FALSE.

real (rp_), parameter, private :: one = 1.0_rp_
real (rp_), parameter, private :: zero = 0.0_rp_
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma86/hsl_ma86r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ module hsl_ma86_real
public :: ma86_analyse, ma86_factor, ma86_factor_solve, ma86_solve, &
ma86_finalise
public :: ma86_get_n__
LOGICAL, PUBLIC :: ma86_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma86_available = .FALSE.
private :: ip_, long_, lp_, rp_

! Numerical constants
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma87/hsl_ma87r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ module hsl_ma87_real
public :: ma87_analyse, ma87_factor, ma87_factor_solve, ma87_solve, &
ma87_sparse_fwd_solve, ma87_finalise
public :: ma87_get_n__
LOGICAL, PUBLIC :: ma87_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma87_available = .FALSE.
private :: ip_, long_, lp_, rp_

! Parameters (all private)
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_ma97/hsl_ma97r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ module hsl_ma97_real
ma97_enquire_posdef, ma97_enquire_indef, ma97_alter, &
ma97_lmultiply, ma97_sparse_fwd_solve
public :: ma97_get_n__, ma97_get_nz__
LOGICAL, PUBLIC :: ma97_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: ma97_available = .FALSE.
private :: ip_, long_, lp_, rp_

! Parameters (all private)
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mc34/hsl_mc34r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@ MODULE hsl_mc34_real
implicit none
private
public mc34_expand
LOGICAL, PUBLIC :: mc34_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mc34_available = .FALSE.
interface mc34_expand
module procedure mc34_expand_real
end interface
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mc64/hsl_mc64r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ MODULE hsl_mc64_real

private
public :: mc64_control, mc64_info, mc64_initialize, mc64_matching
LOGICAL, PUBLIC :: mc64_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mc64_available = .FALSE.

TYPE mc64_control
! real(rp_) :: relax = 0.0_rp_ ! Relaxes matching
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mc69/hsl_mc69r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
#include "hsl_subset.h"

MODULE hsl_mc69_real
LOGICAL, PUBLIC :: ma87_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mc69_available = .FALSE.
CONTAINS
SUBROUTINE mc69r( )
END SUBROUTINE mc69r
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mc80/hsl_mc80r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
#include "hsl_subset.h"

MODULE hsl_mc80_real
LOGICAL, PUBLIC :: mc80_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mc80_available = .FALSE.
CONTAINS
SUBROUTINE mc80r( )
END SUBROUTINE mc80r
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mi20/hsl_mi20r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ module hsl_mi20_real

implicit none
private :: ip_, lp_, rp_
LOGICAL, PUBLIC :: mi20_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mi20_available = .FALSE.

type mi20_control
integer(ip_) :: aggressive = 1
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mi28/hsl_mi28r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ module hsl_mi28_real
private
public :: mi28_keep, mi28_control, mi28_info
public :: mi28_factorize, mi28_finalise, mi28_precondition, mi28_solve
LOGICAL, PUBLIC :: mi28_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mi28_available = .FALSE.

real(rp_), parameter :: zero = 0.0_rp_
real(rp_), parameter :: one = 1.0_rp_
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_mi35/hsl_mi35r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ module hsl_mi35_real
public :: mi35_keep, mi35_control, mi35_info
public :: mi35_factorize, mi35_finalise, mi35_precondition, mi35_solve
public :: mi35_check_matrix, mi35_factorizeC, mi35_formC
LOGICAL, PUBLIC :: mi35_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: mi35_available = .FALSE.

real(rp_), parameter :: zero = 0.0_rp_
real(rp_), parameter :: one = 1.0_rp_
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_of01/hsl_of01r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@
MODULE hsl_of01_real
use hsl_kinds, only: ip_, long_, lp_
private :: ip_, long_, lp_
LOGICAL, PUBLIC :: of01_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: of01_available = .FALSE.
integer(ip_), parameter :: maxpath = 400
integer(ip_), parameter :: maxname = 400
type of01_data_private
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/hsl_zb01/hsl_zb01r.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
#include "hsl_subset.h"

MODULE hsl_zb01_real
LOGICAL, PUBLIC :: zb01_available = .FALSE.
LOGICAL, PUBLIC, PROTECTED :: zb01_available = .FALSE.
CONTAINS
SUBROUTINE zb01r( )
END SUBROUTINE zb01r
Expand Down
2 changes: 1 addition & 1 deletion hsl_subset/meson.build
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ project(
'hsl_subset',
'c',
'fortran',
version: '4.0.2',
version: '4.0.4',
default_options: [
'buildtype=release',
'libdir=lib',
Expand Down
2 changes: 1 addition & 1 deletion libhsl/meson.build
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ project(
'libHSL',
'c',
'fortran',
version: '4.0.2',
version: '4.0.4',
default_options: [
'buildtype=release',
'libdir=lib',
Expand Down
Loading