GALAHAD_unavailable_option -> HSL_unavailable_option

ralna · Jul 9, 2024 · e1d85b7 · e1d85b7
1 parent 7a0929d
commit e1d85b7
Show file tree

Hide file tree

Showing 12 changed files with 80 additions and 80 deletions.
diff --git 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
@@ -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,15 +205,15 @@ 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
 
    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
@@ -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
@@ -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
@@ -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
@@ -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