1
/*BHEADER**********************************************************************
2
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
3
* Produced at the Lawrence Livermore National Laboratory.
4
* This file is part of HYPRE. See file COPYRIGHT for details.
6
* HYPRE is free software; you can redistribute it and/or modify it under the
7
* terms of the GNU Lesser General Public License (as published by the Free
8
* Software Foundation) version 2.1 dated February 1999.
11
***********************************************************************EHEADER*/
1
13
/*--------------------------------------------------------------------------
2
14
* Test driver for unstructured matrix interface (IJ_matrix interface).
3
15
* This is the version which uses the Babel interface.
7
19
* that matrix row-by-row into the IJMatrix interface. AJC 7/99.
8
20
*--------------------------------------------------------------------------*/
9
21
/* As of October 2005, the solvers implemented are AMG, ParaSails, PCG, GMRES, diagonal
10
scaling, and combinations thereof. The babel (bHYPRE) interface is used exclusively.
12
23
#include <stdlib.h>
646
657
"driver.out.log", &_ex );
647
658
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "MaxIter", 1, &_ex );
648
659
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "CycleType", clp->cycle_type, &_ex );
649
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0NumSweeps",
650
(clp->num_grid_sweeps)[0], &_ex );
651
660
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1NumSweeps",
652
661
(clp->num_grid_sweeps)[1], &_ex );
653
662
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2NumSweeps",
654
663
(clp->num_grid_sweeps)[2], &_ex );
655
664
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle3NumSweeps",
656
665
(clp->num_grid_sweeps)[3], &_ex );
657
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0RelaxType",
658
(clp->grid_relax_type)[0], &_ex );
659
666
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1RelaxType",
660
667
(clp->grid_relax_type)[1], &_ex );
661
668
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2RelaxType",
1067
1074
"driver.out.log", &_ex );
1068
1075
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "MaxIter", 1, &_ex );
1069
1076
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "CycleType", clp->cycle_type, &_ex );
1070
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0NumSweeps",
1071
(clp->num_grid_sweeps)[0], &_ex );
1072
1077
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1NumSweeps",
1073
1078
(clp->num_grid_sweeps)[1], &_ex );
1074
1079
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2NumSweeps",
1075
1080
(clp->num_grid_sweeps)[2], &_ex );
1076
1081
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle3NumSweeps",
1077
1082
(clp->num_grid_sweeps)[3], &_ex );
1078
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0RelaxType",
1079
(clp->grid_relax_type)[0], &_ex );
1080
1083
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1RelaxType",
1081
1084
(clp->grid_relax_type)[1], &_ex );
1082
1085
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2RelaxType",
3515
3518
bHYPRE_BoomerAMG_SetDoubleParameter( bH_AMG, "TruncFactor",
3516
3519
clp->trunc_factor, &_ex );
3517
3520
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "CycleType", clp->cycle_type, &_ex );
3518
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0NumSweeps",
3519
(clp->num_grid_sweeps)[0], &_ex );
3520
3521
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1NumSweeps",
3521
3522
(clp->num_grid_sweeps)[1], &_ex );
3522
3523
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2NumSweeps",
3523
3524
(clp->num_grid_sweeps)[2], &_ex );
3524
3525
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle3NumSweeps",
3525
3526
(clp->num_grid_sweeps)[3], &_ex );
3526
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0RelaxType",
3527
(clp->grid_relax_type)[0], &_ex );
3528
3527
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1RelaxType",
3529
3528
(clp->grid_relax_type)[1], &_ex );
3530
3529
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2RelaxType",
3630
3629
"driver.out.log", &_ex );
3631
3630
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "MaxIter", 1, &_ex );
3632
3631
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "CycleType", clp->cycle_type, &_ex );
3633
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0NumSweeps",
3634
(clp->num_grid_sweeps)[0], &_ex );
3635
3632
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1NumSweeps",
3636
3633
(clp->num_grid_sweeps)[1], &_ex );
3637
3634
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2NumSweeps",
3638
3635
(clp->num_grid_sweeps)[2], &_ex );
3639
3636
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle3NumSweeps",
3640
3637
(clp->num_grid_sweeps)[3], &_ex );
3641
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle0RelaxType",
3642
(clp->grid_relax_type)[0], &_ex );
3643
3638
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle1RelaxType",
3644
3639
(clp->grid_relax_type)[1], &_ex );
3645
3640
bHYPRE_BoomerAMG_SetIntParameter( bH_AMG, "Cycle2RelaxType",