hsl_ma97d.h

Go to the documentation of this file.

/* COPYRIGHT (c) 2012 The Science and Technology Facilities Council (STFC)
 * All Rights Reserved.
 * This code is published under the Eclipse Public License.
 *
 * Authors:  Jonathan Hogg    STFC     2012-12-21
 */
 
#ifndef HSL_MA97D_H
#define HSL_MA97D_H
 
#ifndef ma97_default_control
#define ma97_control ma97_control_d
#define ma97_info ma97_info_d
#define ma97_default_control ma97_default_control_d
#define ma97_analyse ma97_analyse_d
#define ma97_analyse_coord ma97_analyse_coord_d
#define ma97_factor ma97_factor_d
#define ma97_factor_solve ma97_factor_solve_d
#define ma97_solve ma97_solve_d
#define ma97_free_akeep ma97_free_akeep_d
#define ma97_free_fkeep ma97_free_fkeep_d
#define ma97_finalise ma97_finalise_d
#define ma97_enquire_posdef ma97_enquire_posdef_d
#define ma97_enquire_indef ma97_enquire_indef_d
#define ma97_alter ma97_alter_d
#define ma97_solve_fredholm ma97_solve_fredholm_d
#define ma97_lmultiply ma97_lmultiply_d
#define ma97_sparse_fwd_solve ma97_sparse_fwd_solve_d
#endif
 
typedef double ma97pkgtype_d_;
typedef double ma97realtype_d_;
 
struct ma97_control_d
{
   int             f_arrays;   
   int             action;     
   int             nemin;      
   ma97realtype_d_ multiplier; 
   int             ordering;
   int             print_level;      
   int             scaling;          
   ma97realtype_d_ small;            
   ma97realtype_d_ u;                
   int             unit_diagnostics; 
   int             unit_error;       
   int             unit_warning;     
   long            factor_min;       
   int             solve_blas3;      
   long            solve_min;        
   int             solve_mf;         
   ma97realtype_d_ consist_tol;      
   /* Reserve space for future interface changes */
   int             ispare[5];
   ma97realtype_d_ rspare[10];
};
 
struct ma97_info
{
   int flag;                
   int flag68;
   int flag77;
   int matrix_dup;          
   int matrix_rank;         
   int matrix_outrange;     
   int matrix_missing_diag; 
   int maxdepth;            
   int maxfront;            
   int num_delay;           
   long num_factor;         
   long num_flops;          
   int num_neg;             
   int num_sup;             
   int num_two;             
   int ordering;            
   int stat;                
   /* Reserve space for future interface changes */
   int ispare[5];
   ma97realtype_d_ rspare[10];
};
 
void ma97_default_control_d(
   struct ma97_control_d* control
);
 
void ma97_analyse_d(
   int                          check,
   int                          n,
   const int                    ptr[],
   const int                    row[],
   ma97pkgtype_d_               val[],
   void**                       akeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info,
   int                          order[]
);
 
void ma97_analyse_coord_d(
   int                          n,
   int                          ne,
   const int                    row[],
   const int                    col[],
   ma97pkgtype_d_               val[],
   void**                       akeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info,
   int                          order[]
);
 
void ma97_factor_d(
   int                          matrix_type,
   const int                    ptr[],
   const int                    row[],
   const ma97pkgtype_d_         val[],
   void**                       akeep,
   void**                       fkeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info,
   ma97realtype_d_              scale[]
);
 
void ma97_factor_solve_d(
   int                          matrix_type,
   const int                    ptr[],
   const int                    row[],
   const ma97pkgtype_d_         val[],
   int                          nrhs,
   ma97pkgtype_d_               x[],
   int                          ldx,
   void**                       akeep,
   void**                       fkeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info,
   ma97realtype_d_              scale[]
);
 
void ma97_solve_d(
   int                          job,
   int                          nrhs,
   ma97pkgtype_d_               x[],
   int                          ldx,
   void**                       akeep,
   void**                       fkeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info
);
 
void ma97_free_akeep_d(
   void** akeep
);
 
void ma97_free_fkeep_d(
   void** fkeep
);
 
void ma97_finalise_d(
   void** akeep,
   void** fkeep
);
 
void ma97_enquire_posdef_d(
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info,
   ma97realtype_d_            d[]
);
 
void ma97_enquire_indef_d(
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info,
   int*                       piv_order,
   ma97pkgtype_d_*            d
);
 
void ma97_alter_d(
   const ma97pkgtype_d_       d[],
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info
);
 
void ma97_solve_fredholm_d(
   int                        nrhs,
   int                        flag_out[],
   ma97pkgtype_d_             x[],
   int                        ldx,
   void**                     akeep,
   void**                     fkeep,
   const struct ma97_control* control,
   struct ma97_info*          info
);
 
void ma97_lmultiply_d(
   int                          trans,
   int                          k,
   const ma97pkgtype_d_         x[],
   int                          ldx,
   ma97pkgtype_d_               y[],
   int                          ldy,
   void**                       akeep,
   void**                       fkeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info
);
 
void ma97_sparse_fwd_solve_d(
   int                          nbi,
   const int                    bindex[],
   const ma97pkgtype_d_         b[],
   const int                    order[],
   int*                         nxi,
   int                          xindex[],
   ma97pkgtype_d_               x[],
   void**                       akeep,
   void**                       fkeep,
   const struct ma97_control_d* control,
   struct ma97_info_d*          info
);
 
#endif