[GALAHAD.jl] Update hsl.jl with the new C headers

ralna · Jun 5, 2024 · c71b835 · c71b835
1 parent 603b07e
commit c71b835
Showing 1 changed file with 39 additions and 37 deletions.
diff --git a/GALAHAD.jl/src/wrappers/hsl.jl b/GALAHAD.jl/src/wrappers/hsl.jl
@@ -1,3 +1,4 @@
+
 export ma48_control
 
 struct ma48_control{T}
@@ -29,20 +30,20 @@ struct ma48_ainfo{T}
   ops::T
   flag::Cint
   more::Cint
-  lena_analyse::Clong
-  lenj_analyse::Clong
-  lena_factorize::Clong
-  leni_factorize::Clong
+  lena_analyse::Int64
+  lenj_analyse::Int64
+  lena_factorize::Int64
+  leni_factorize::Int64
   ncmpa::Cint
   rank::Cint
-  drop::Clong
+  drop::Int64
   struc_rank::Cint
-  oor::Clong
-  dup::Clong
+  oor::Int64
+  dup::Int64
   stat::Cint
   lblock::Cint
   sblock::Cint
-  tblock::Clong
+  tblock::Int64
 end
 
 export ma48_finfo
@@ -51,10 +52,10 @@ struct ma48_finfo{T}
   ops::T
   flag::Cint
   more::Cint
-  size_factor::Clong
-  lena_factorize::Clong
-  leni_factorize::Clong
-  drop::Clong
+  size_factor::Int64
+  lena_factorize::Int64
+  leni_factorize::Int64
+  drop::Int64
   rank::Cint
   stat::Cint
 end
@@ -182,9 +183,9 @@ struct ma77_control{T}
   bits::Cint
   buffer_lpage::NTuple{2,Cint}
   buffer_npage::NTuple{2,Cint}
-  file_size::Clong
-  maxstore::Clong
-  storage::NTuple{3,Clong}
+  file_size::Int64
+  maxstore::Int64
+  storage::NTuple{3,Int64}
   nemin::Cint
   maxit::Cint
   infnorm::Cint
@@ -196,12 +197,12 @@ struct ma77_control{T}
   nbi::Cint
   small::T
   static_::T
-  storage_indef::Clong
+  storage_indef::Int64
   u::T
   umin::T
   consist_tol::T
   ispare::NTuple{5,Cint}
-  lspare::NTuple{5,Clong}
+  lspare::NTuple{5,Int64}
   rspare::NTuple{5,T}
 end
 
@@ -217,10 +218,10 @@ struct ma77_info{T}
   matrix_outrange::Cint
   maxdepth::Cint
   maxfront::Cint
-  minstore::Clong
+  minstore::Int64
   ndelay::Cint
-  nfactor::Clong
-  nflops::Clong
+  nfactor::Int64
+  nflops::Int64
   niter::Cint
   nsup::Cint
   num_neg::Cint
@@ -229,18 +230,18 @@ struct ma77_info{T}
   ntwo::Cint
   stat::Cint
   index::NTuple{4,Cint}
-  nio_read::NTuple{2,Clong}
-  nio_write::NTuple{2,Clong}
-  nwd_read::NTuple{2,Clong}
-  nwd_write::NTuple{2,Clong}
+  nio_read::NTuple{2,Int64}
+  nio_write::NTuple{2,Int64}
+  nwd_read::NTuple{2,Int64}
+  nwd_write::NTuple{2,Int64}
   num_file::NTuple{4,Cint}
-  storage::NTuple{4,Clong}
+  storage::NTuple{4,Int64}
   tree_nodes::Cint
   unit_restart::Cint
   unused::Cint
   usmall::T
   ispare::NTuple{5,Cint}
-  lspare::NTuple{5,Clong}
+  lspare::NTuple{5,Int64}
   rspare::NTuple{5,T}
 end
 
@@ -273,8 +274,8 @@ struct ma86_info{T}
   matrix_rank::Cint
   maxdepth::Cint
   num_delay::Cint
-  num_factor::Clong
-  num_flops::Clong
+  num_factor::Int64
+  num_flops::Int64
   num_neg::Cint
   num_nodes::Cint
   num_nothresh::Cint
@@ -307,8 +308,8 @@ struct ma87_info{T}
   detlog::T
   flag::Cint
   maxdepth::Cint
-  num_factor::Clong
-  num_flops::Clong
+  num_factor::Int64
+  num_flops::Int64
   num_nodes::Cint
   pool_size::Cint
   stat::Cint
@@ -331,9 +332,9 @@ struct ma97_control{T}
   unit_diagnostics::Cint
   unit_error::Cint
   unit_warning::Cint
-  factor_min::Clong
+  factor_min::Int64
   solve_blas3::Cint
-  solve_min::Clong
+  solve_min::Int64
   solve_mf::Cint
   consist_tol::T
   ispare::NTuple{5,Cint}
@@ -353,14 +354,15 @@ struct ma97_info{T}
   maxdepth::Cint
   maxfront::Cint
   num_delay::Cint
-  num_factor::Clong
-  num_flops::Clong
+  num_factor::Int64
+  num_flops::Int64
   num_neg::Cint
   num_sup::Cint
   num_two::Cint
   ordering::Cint
   stat::Cint
-  ispare::NTuple{5,Cint}
+  maxsupernode::Cint
+  ispare::NTuple{4,Cint}
   rspare::NTuple{10,T}
 end
 
@@ -409,7 +411,7 @@ struct mc68_info
   duplicate::Cint
   n_compressions::Cint
   n_zero_eigs::Cint
-  l_workspace::Clong
+  l_workspace::Int64
   zb01_info::Cint
   n_dense_rows::Cint
 end
@@ -504,7 +506,7 @@ struct mi28_info{T}
   oor::Cint
   profile_before::T
   profile_after::T
-  size_r::Clong
+  size_r::Int64
   stat::Cint
   alpha::T
 end