diff --git a/hsl_subset/galahad/symbols.f90 b/hsl_subset/galahad/symbols.f90 index ffae8ca..5dd7867 100644 --- a/hsl_subset/galahad/symbols.f90 +++ b/hsl_subset/galahad/symbols.f90 @@ -36,7 +36,7 @@ MODULE HSL_SYMBOLS IMPLICIT NONE INTEGER ( KIND = ip_ ), PUBLIC, PARAMETER :: & - GALAHAD_unavailable_option = - 29 + HSL_unavailable_option = - 29 END MODULE HSL_SYMBOLS diff --git a/hsl_subset/hsl_ma48/hsl_ma48r.f90 b/hsl_subset/hsl_ma48/hsl_ma48r.f90 index 1c3e7ed..454d5d5 100644 --- a/hsl_subset/hsl_ma48/hsl_ma48r.f90 +++ b/hsl_subset/hsl_ma48/hsl_ma48r.f90 @@ -7,7 +7,7 @@ module hsl_ma48_real use hsl_kinds_real, only: ip_, long_, lp_, rp_ use hsl_zd11_real - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private @@ -92,7 +92,7 @@ module hsl_ma48_real type ma48_ainfo real(rp_) :: ops = 0.0 ! Number of operations in elimination - integer(ip_) :: flag = GALAHAD_unavailable_option ! Flags success/failure + integer(ip_) :: flag = HSL_unavailable_option ! Flags success/failure integer(ip_) :: more = 0 ! More information on failure integer(long_) :: lena_analyse = 0! Size for analysis (main arrays) integer(long_) :: lenj_analyse = 0! Size for analysis (integer aux array) @@ -113,7 +113,7 @@ module hsl_ma48_real type ma48_finfo real(rp_) :: ops = 0.0 ! Number of operations in elimination - integer(ip_) :: flag = GALAHAD_unavailable_option ! Flags success/failure + integer(ip_) :: flag = HSL_unavailable_option ! Flags success/failure integer(ip_) :: more = 0 ! More information on failure integer(long_) :: size_factor = 0! Number of words to hold factors !! For the moment leni_factorize = lena_factorize because of BTF structure @@ -125,7 +125,7 @@ module hsl_ma48_real end type ma48_finfo type ma48_sinfo - integer(ip_) :: flag = GALAHAD_unavailable_option ! Flags success/failure + integer(ip_) :: flag = HSL_unavailable_option ! Flags success/failure integer(ip_) :: more = 0 ! More information on failure integer(ip_) :: stat = 0 ! STAT value after allocate failure end type ma48_sinfo @@ -160,7 +160,7 @@ subroutine ma48_analyse_real(matrix,factors,control,ainfo,finfo, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - ainfo%flag = GALAHAD_unavailable_option + ainfo%flag = HSL_unavailable_option end subroutine ma48_analyse_real @@ -180,7 +180,7 @@ subroutine ma48_factorize_real(matrix,factors,control,finfo,fast,partial) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - finfo%flag = GALAHAD_unavailable_option + finfo%flag = HSL_unavailable_option end subroutine ma48_factorize_real @@ -205,7 +205,7 @@ subroutine ma48_solve_real(matrix,factors,rhs,x,control,sinfo,trans, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option end subroutine ma48_solve_real @@ -213,7 +213,7 @@ subroutine ma48_finalize_real(factors,control,info) type(ma48_factors), intent(inout) :: factors type(ma48_control), intent(in) :: control integer(ip_) :: info - info = GALAHAD_unavailable_option + info = HSL_unavailable_option end subroutine ma48_finalize_real subroutine ma48_special_rows_and_cols_real(factors,rank,rows,cols, & diff --git a/hsl_subset/hsl_ma57/hsl_ma57r.f90 b/hsl_subset/hsl_ma57/hsl_ma57r.f90 index 872037b..531b7a4 100644 --- a/hsl_subset/hsl_ma57/hsl_ma57r.f90 +++ b/hsl_subset/hsl_ma57/hsl_ma57r.f90 @@ -7,7 +7,7 @@ module hsl_ma57_real use hsl_zd11_real use hsl_kinds_real, only: ip_, rp_ - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private :: ip_, rp_ @@ -186,7 +186,7 @@ subroutine ma57_analyse(matrix,factors,control,ainfo,perm) & ' subroutine MA57_analyse with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - ainfo%flag = GALAHAD_unavailable_option + ainfo%flag = HSL_unavailable_option ainfo%opsa = -1.0_rp_ ainfo%opse = -1.0_rp_ ainfo%more = 0 @@ -218,7 +218,7 @@ subroutine ma57_factorize(matrix,factors,control,finfo) & ' subroutine MA57_factorze with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - finfo%flag = GALAHAD_unavailable_option + finfo%flag = HSL_unavailable_option finfo%opsa = -1.0_rp_ finfo%opse = -1.0_rp_ finfo%opsb = -1.0_rp_ @@ -264,7 +264,7 @@ subroutine ma57_solve2(matrix,factors,x,control,sinfo,rhs,iter,cond) & ' subroutine MA57_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option sinfo%stat = 0 sinfo%cond = -1.0_rp_ sinfo%cond2 = -1.0_rp_ @@ -290,7 +290,7 @@ subroutine ma57_solve1(matrix,factors,x,control,sinfo,rhs,iter,cond) & ' subroutine MA57_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option sinfo%stat = 0 sinfo%cond = -1.0_rp_ sinfo%cond2 = -1.0_rp_ @@ -314,14 +314,14 @@ subroutine ma57_fredholm_alternative(factors,control,x,fredx,sinfo) & ' subroutine MA57_fredholm_alternative with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option end subroutine ma57_fredholm_alternative subroutine ma57_finalize(factors,control,info) type(ma57_factors), intent(inout) :: factors type(ma57_control), intent(in) :: control integer(ip_), intent(out) :: info - info = GALAHAD_unavailable_option + info = HSL_unavailable_option end subroutine ma57_finalize subroutine ma57_enquire(factors,perm,pivots,d,perturbation,scaling) @@ -336,7 +336,7 @@ subroutine ma57_alter_d(factors,d,info) type(ma57_factors), intent(inout) :: factors real(rp_), intent(in) :: d(2,factors%n) integer(ip_), intent(out) :: info - info = GALAHAD_unavailable_option + info = HSL_unavailable_option end subroutine ma57_alter_d subroutine ma57_part_solve2(factors,control,part,x,info) @@ -353,7 +353,7 @@ subroutine ma57_part_solve2(factors,control,part,x,info) & ' subroutine MA57_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info = GALAHAD_unavailable_option + info = HSL_unavailable_option end subroutine ma57_part_solve2 subroutine ma57_part_solve1(factors,control,part,x,info) @@ -370,7 +370,7 @@ subroutine ma57_part_solve1(factors,control,part,x,info) & ' subroutine MA57_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info = GALAHAD_unavailable_option + info = HSL_unavailable_option end subroutine ma57_part_solve1 subroutine ma57_sparse_lsolve(factors,control,nzrhs,irhs,nzsoln,isoln, & @@ -390,7 +390,7 @@ subroutine ma57_sparse_lsolve(factors,control,nzrhs,irhs,nzsoln,isoln, & & ' subroutine MA57_sparse_lsolve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option end subroutine ma57_sparse_lsolve subroutine ma57_lmultiply(factors,control,trans,x,y,sinfo) @@ -408,7 +408,7 @@ subroutine ma57_lmultiply(factors,control,trans,x,y,sinfo) & ' subroutine MA57_lmultiply with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option end subroutine ma57_lmultiply subroutine ma57_get_factors(factors,control,nzl,iptrl,lrows,lvals, & @@ -430,7 +430,7 @@ subroutine ma57_get_factors(factors,control,nzl,iptrl,lrows,lvals, & & ' subroutine MA57_get_factors with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - sinfo%flag = GALAHAD_unavailable_option + sinfo%flag = HSL_unavailable_option end subroutine ma57_get_factors pure integer(ip_) function ma57_get_n__(factors) diff --git a/hsl_subset/hsl_ma77/hsl_ma77r.f90 b/hsl_subset/hsl_ma77/hsl_ma77r.f90 index 64d27be..81ea1da 100644 --- a/hsl_subset/hsl_ma77/hsl_ma77r.f90 +++ b/hsl_subset/hsl_ma77/hsl_ma77r.f90 @@ -9,7 +9,7 @@ module hsl_ma77_real use hsl_kinds_real, only: ip_, long_, lp_, rp_ use hsl_of01_real, of01_rdata => of01_data use hsl_of01_integer, of01_idata => of01_data - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none @@ -400,7 +400,7 @@ subroutine MA77_read_integer(ifile,keep_array,loc,length,read_array, & integer(ip_) :: flag type (of01_idata), intent(inout) :: data integer(ip_), intent(in) :: lp - flag = GALAHAD_unavailable_option + flag = HSL_unavailable_option end subroutine MA77_read_integer !************************************************************************ @@ -416,7 +416,7 @@ subroutine MA77_read_real(rfile,keep_array,loc,length,read_array, & type (of01_rdata), intent(inout) :: data integer(ip_), intent(in) :: lp integer(ip_), optional, intent (in) :: map(length) - flag = GALAHAD_unavailable_option + flag = HSL_unavailable_option end subroutine MA77_read_real subroutine MA77_read_discard_real(rfile,keep_array,loc,length,read_array, & @@ -430,7 +430,7 @@ subroutine MA77_read_discard_real(rfile,keep_array,loc,length,read_array, & type (of01_rdata), intent(inout) :: data integer(ip_), intent(in) :: lp integer(ip_), optional, intent (in) :: map(length) - flag = GALAHAD_unavailable_option + flag = HSL_unavailable_option end subroutine MA77_read_discard_real subroutine MA77_write_real(rfile,size_array,keep_array,loc,length, & @@ -447,7 +447,7 @@ subroutine MA77_write_real(rfile,size_array,keep_array,loc,length, & integer(long_), intent(in) :: maxstore integer(long_), intent(inout) :: used integer(long_), optional, intent(in) :: inactive - flag = GALAHAD_unavailable_option + flag = HSL_unavailable_option end subroutine MA77_write_real subroutine MA77_write_integer(ifile,size_array,keep_array,loc,length, & @@ -463,7 +463,7 @@ subroutine MA77_write_integer(ifile,size_array,keep_array,loc,length, & integer(ip_), intent(in) :: lp integer(long_), intent(in) :: maxstore integer(long_), intent(inout) :: used - flag = GALAHAD_unavailable_option + flag = HSL_unavailable_option end subroutine MA77_write_integer subroutine MA77_finalise_real(keep,control,info,restart_file) @@ -496,7 +496,7 @@ subroutine MA77_unavailable( info, control, name ) & ' subroutine ', A, ' HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) name - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%detlog = 0.0 info%detsign = 1 info%iostat = 0 diff --git a/hsl_subset/hsl_ma86/hsl_ma86r.f90 b/hsl_subset/hsl_ma86/hsl_ma86r.f90 index 775f293..bc6937b 100644 --- a/hsl_subset/hsl_ma86/hsl_ma86r.f90 +++ b/hsl_subset/hsl_ma86/hsl_ma86r.f90 @@ -10,7 +10,7 @@ module hsl_ma86_real use hsl_mc78_integer use hsl_mc34_real use hsl_zd11_real - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private :: ip_, long_, lp_, rp_ @@ -363,7 +363,7 @@ subroutine MA86_analyse_real(n, ptr, row, order, keep, control, info) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 @@ -391,7 +391,7 @@ subroutine MA86_factor_real(n, ptr, row, val, order, keep, control, info) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 @@ -426,7 +426,7 @@ subroutine MA86_factor_solve_one_real(n, ptr, row, val, order, keep, control,& & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 @@ -463,7 +463,7 @@ subroutine MA86_factor_solve_mult_real(n, ptr, row, val, order, keep, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 @@ -497,7 +497,7 @@ subroutine MA86_solve_one_real(x,order,keep,control,info,job) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 @@ -534,7 +534,7 @@ subroutine MA86_solve_mult_real(nrhs,lx,x,order,keep, control,info,job) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long_ info%num_flops = 0_long_ info%num_nodes = 0 diff --git a/hsl_subset/hsl_ma87/hsl_ma87r.f90 b/hsl_subset/hsl_ma87/hsl_ma87r.f90 index 306b3c6..66fe46f 100644 --- a/hsl_subset/hsl_ma87/hsl_ma87r.f90 +++ b/hsl_subset/hsl_ma87/hsl_ma87r.f90 @@ -9,7 +9,7 @@ module hsl_ma87_real use hsl_mc78_integer use hsl_mc34_real use hsl_zd11_real - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private :: ip_, long_, lp_, rp_ @@ -328,7 +328,7 @@ subroutine MA87_analyse_real(n, ptr, row, order, keep, control, info) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -356,7 +356,7 @@ subroutine MA87_factor_real(n, ptr, row, val, order, keep, control, info) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -391,7 +391,7 @@ subroutine MA87_factor_solve_one_real(n, ptr, row, val, order, keep, control,& & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -428,7 +428,7 @@ subroutine MA87_factor_solve_mult_real(n, ptr, row, val, order, keep, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -462,7 +462,7 @@ subroutine MA87_solve_one_real(x,order,keep,control,info,job) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -499,7 +499,7 @@ subroutine MA87_solve_mult_real(nrhs,lx,x,order,keep, control,info,job) & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 @@ -536,7 +536,7 @@ subroutine MA87_sparse_fwd_solve_real(nbi,bindex,b,order,invp, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%num_factor = 0_long info%num_flops = 0_long info%num_nodes = 0 diff --git a/hsl_subset/hsl_ma97/hsl_ma97r.f90 b/hsl_subset/hsl_ma97/hsl_ma97r.f90 index a7bb3ab..86d0cc0 100644 --- a/hsl_subset/hsl_ma97/hsl_ma97r.f90 +++ b/hsl_subset/hsl_ma97/hsl_ma97r.f90 @@ -7,7 +7,7 @@ module hsl_ma97_real use hsl_kinds_real, only: ip_, long_, lp_, rp_ - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none public :: ma97_get_n__, ma97_get_nz__ @@ -153,7 +153,7 @@ subroutine MA97_analyse_real(check, n, ptr, row, akeep, & & ' dummy subroutine MA97_analyse with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_analyse_real @@ -177,7 +177,7 @@ subroutine analyse_real(check, n, ptr, row, akeep, & & ' dummy subroutine MA97_analyse with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine analyse_real @@ -199,7 +199,7 @@ subroutine MA97_analyse_coord_real( n, ne, row, col, akeep, & & ' dummy subroutine MA97_analyse_coord with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_analyse_coord_real @@ -224,7 +224,7 @@ subroutine MA97_factor_real(matrix_type,val,akeep,fkeep,control,info, & & ' dummy subroutine MA97_factorize with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_factor_real @@ -251,7 +251,7 @@ subroutine MA97_factor_solve_real(matrix_type,val,nrhs,x,lx,akeep,fkeep, & & ' dummy subroutine MA97_factor_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_factor_solve_real @@ -277,7 +277,7 @@ subroutine MA97_factor_solve_one_real(matrix_type,val,x1,akeep,fkeep, & & ' dummy subroutine MA97_factor_solve_one with its HSL namesake', /,& & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_factor_solve_one_real @@ -300,7 +300,7 @@ subroutine MA97_solve_real(nrhs,x,lx,akeep,fkeep,control,info,scale,job) & ' dummy subroutine MA97_solve with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_solve_real @@ -333,7 +333,7 @@ subroutine MA97_solve_one_real(x,akeep,fkeep,control,info,scale,job) & ' dummy subroutine MA97_solve_one with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_solve_one_real @@ -357,7 +357,7 @@ subroutine MA97_solve_fredholm_real( nrhs, flag_out, x, ldx, & & ' dummy subroutine MA97_solve_fredhom with its HSL namesake', & & /, ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_solve_fredholm_real subroutine ma97_lmultiply_one_real(trans, x1, y1, akeep, fkeep, & @@ -379,7 +379,7 @@ subroutine ma97_lmultiply_one_real(trans, x1, y1, akeep, fkeep, & & ' dummy subroutine MA97_lmultiply_mult with its HSL namesake', & & /, ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine ma97_lmultiply_one_real subroutine ma97_lmultiply_mult_real(trans, k, x, ldx, y, ldy, & @@ -404,7 +404,7 @@ subroutine ma97_lmultiply_mult_real(trans, k, x, ldx, y, ldy, & & ' dummy subroutine MA97_lmultiply_one with its HSL namesake', & & /, ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine ma97_lmultiply_mult_real subroutine MA97_enquire_posdef_real(akeep,fkeep,control,info,d) @@ -423,7 +423,7 @@ subroutine MA97_enquire_posdef_real(akeep,fkeep,control,info,d) & ' dummy subroutine MA97_enquire_posdef with its HSL namesake', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_enquire_posdef_real @@ -444,7 +444,7 @@ subroutine MA97_enquire_indef_real(akeep,fkeep,control,info,piv_order,d) & ' dummy subroutine MA97_enquire_indef with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_enquire_indef_real @@ -464,7 +464,7 @@ subroutine MA97_alter_real(d,akeep,fkeep,control,info) & ' dummy subroutine MA97_alter with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine MA97_alter_real @@ -496,7 +496,7 @@ subroutine ma97_sparse_fwd_solve_real(nbi, bindex, b, order, lflag, & & ' dummy subroutine MA97_sparse_fwd_solve with its HSL namesake ',/,& & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine ma97_sparse_fwd_solve_real diff --git a/hsl_subset/hsl_mc64/hsl_mc64r.f90 b/hsl_subset/hsl_mc64/hsl_mc64r.f90 index 472185c..b965e17 100644 --- a/hsl_subset/hsl_mc64/hsl_mc64r.f90 +++ b/hsl_subset/hsl_mc64/hsl_mc64r.f90 @@ -8,7 +8,7 @@ MODULE hsl_mc64_real use hsl_kinds_real, only: ip_, rp_ use hsl_zd11_real - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option IMPLICIT NONE @@ -66,7 +66,7 @@ SUBROUTINE mc64_matching_zd11_real(job,matrix,control,info,perm,scale) & ' subroutine MC64_matching with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option END SUBROUTINE mc64_matching_zd11_real SUBROUTINE mc64_matching_hslstd_real(job,matrix_type,m,n,ptr,row, & diff --git a/hsl_subset/hsl_mc68/hsl_mc68i.f90 b/hsl_subset/hsl_mc68/hsl_mc68i.f90 index 453b4d9..b1fddfc 100644 --- a/hsl_subset/hsl_mc68/hsl_mc68i.f90 +++ b/hsl_subset/hsl_mc68/hsl_mc68i.f90 @@ -8,7 +8,7 @@ MODULE hsl_mc68_integer use hsl_kinds, only: ip_, long_ use hsl_zb01_integer - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option IMPLICIT NONE PRIVATE @@ -62,7 +62,7 @@ SUBROUTINE mc68_order_integer( ord, n, ptr, row, perm, control, info, & & ' subroutine MC68_order HSL namesake and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option info%stat = 0 END SUBROUTINE mc68_order_integer diff --git a/hsl_subset/hsl_mi20/hsl_mi20r.f90 b/hsl_subset/hsl_mi20/hsl_mi20r.f90 index 8e5df1c..60316a7 100644 --- a/hsl_subset/hsl_mi20/hsl_mi20r.f90 +++ b/hsl_subset/hsl_mi20/hsl_mi20r.f90 @@ -7,7 +7,7 @@ module hsl_mi20_real use hsl_kinds_real, only: ip_, lp_, rp_ - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option use hsl_zd11_real use hsl_mc65_real use hsl_ma48_real @@ -99,7 +99,7 @@ subroutine mi20_setup(matrix, coarse_data, keep, control, info) type(mi20_keep), intent(inout) :: keep type(mi20_control), intent(in) :: control type(mi20_info), intent(out) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option return end subroutine mi20_setup @@ -109,7 +109,7 @@ subroutine mi20_finalize(coarse_data, keep, control, info, ma48_cntrl) type(mi20_control), intent(in) ::control type(mi20_info), intent(inout) :: info type(ma48_control), optional, intent(inout) :: ma48_cntrl - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option return end subroutine mi20_finalize diff --git a/hsl_subset/hsl_mi28/hsl_mi28r.f90 b/hsl_subset/hsl_mi28/hsl_mi28r.f90 index 975e53f..80d2277 100644 --- a/hsl_subset/hsl_mi28/hsl_mi28r.f90 +++ b/hsl_subset/hsl_mi28/hsl_mi28r.f90 @@ -6,7 +6,7 @@ module hsl_mi28_real use hsl_kinds_real, only: ip_, long_, lp_, rp_ - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private @@ -105,7 +105,7 @@ subroutine mi28_factorize_real(n, ptr, row, val, lsize, rsize, keep, & & ' subroutine MI28_factorize with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi28_factorize_real subroutine mi28_precondition_real(n, keep, z, y, info) @@ -114,7 +114,7 @@ subroutine mi28_precondition_real(n, keep, z, y, info) real(rp_), intent(in) :: z(n) real(rp_), intent(out) :: y(n) type(mi28_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi28_precondition_real subroutine mi28_solve_real(trans, n, keep, z, y, info) @@ -124,14 +124,14 @@ subroutine mi28_solve_real(trans, n, keep, z, y, info) real(rp_), intent(in) :: z(n) real(rp_), intent(out) :: y(n) type(mi28_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi28_solve_real subroutine mi28_finalise_real(keep, info) type(mi28_keep), intent(inout) :: keep type(mi28_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi28_finalise_real end module hsl_mi28_real diff --git a/hsl_subset/hsl_mi35/hsl_mi35r.f90 b/hsl_subset/hsl_mi35/hsl_mi35r.f90 index bafbea5..88c8dc4 100644 --- a/hsl_subset/hsl_mi35/hsl_mi35r.f90 +++ b/hsl_subset/hsl_mi35/hsl_mi35r.f90 @@ -6,7 +6,7 @@ module hsl_mi35_real use hsl_kinds_real, only: ip_, long_, lp_, rp_ - USE HSL_SYMBOLS, ONLY: GALAHAD_unavailable_option + USE HSL_SYMBOLS, ONLY: HSL_unavailable_option implicit none private @@ -95,7 +95,7 @@ subroutine mi35_check_matrix( m, n, ptr, row, val, control, info, weight, b) & ' subroutine MI35_check_matrix with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_check_matrix !**************************************************************************** @@ -123,7 +123,7 @@ subroutine mi35_factorize( m, n, ptr, row, val, lsize, rsize, keep, & & ' subroutine MI35_factorize with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_factorize !**************************************************************************** @@ -149,7 +149,7 @@ subroutine mi35_formC(m,n,ptrA,rowA,valA,ptrC,rowC,valC, & & ' subroutine MI35_formC with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_formC !**************************************************************************** @@ -175,7 +175,7 @@ subroutine mi35_factorizeC( n, ptr, row, val, lsize, rsize, keep, & & ' subroutine MI35_factorizeC with its HSL namesake ', /, & & ' and dependencies. See ', /, & & ' $GALAHAD/src/makedefs/packages for details.' )" ) - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_factorizeC !**************************************************************************** @@ -186,7 +186,7 @@ subroutine mi35_precondition( n, keep, z, y, info ) real(rp_), intent(in) :: z(n) real(rp_), intent(out) :: y(n) type(mi35_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_precondition !**************************************************************************** @@ -198,7 +198,7 @@ subroutine mi35_solve( trans, n, keep, z, y, info ) real(rp_), intent(in) :: z(n) real(rp_), intent(out) :: y(n) type(mi35_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_solve !**************************************************************************** @@ -206,7 +206,7 @@ end subroutine mi35_solve subroutine mi35_finalise( keep, info ) type(mi35_keep), intent(inout) :: keep type(mi35_info), intent(inout) :: info - info%flag = GALAHAD_unavailable_option + info%flag = HSL_unavailable_option end subroutine mi35_finalise end module hsl_mi35_real