FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_ML_helper_33_c.c
Go to the documentation of this file.
1/*****************************************************************************
2 * Copyright (c) 2019 FrontISTR Commons
3 * This software is released under the MIT License, see LICENSE.txt
4 *****************************************************************************/
5
6#ifdef HECMW_WITH_ML
7
9
10int hecmw_ML_getrow_33(ML_Operator *mat_in, int N_requested_rows,
11 int requested_rows[], int allocated_space,
12 int cols[], double values[], int row_lengths[]) {
13 int *id, ierr;
14 id = (int *)ML_Get_MyGetrowData(mat_in);
15 hecmw_ml_getrow_33_(id, &N_requested_rows, requested_rows, &allocated_space,
16 cols, values, row_lengths, &ierr);
17 return ierr;
18}
19
20int hecmw_ML_matvec_33(ML_Operator *mat_in, int in_length, double p[],
21 int out_length, double ap[]) {
22 int *id, ierr;
23 id = (int *)ML_Get_MyGetrowData(mat_in);
24 hecmw_ml_matvec_33_(id, &in_length, p, &out_length, ap, &ierr);
25 return ierr;
26}
27
28int hecmw_ML_comm_33(double x[], void *A_data) {
29 int *id, ierr;
30 id = (int *)A_data;
31 hecmw_ml_comm_33_(id, x, &ierr);
32 return ierr;
33}
34
35int hecmw_ML_smoother_diag_apply_33(ML_Smoother *data, int x_length, double x[],
36 int rhs_length, double rhs[]) {
37 int *id, ierr;
38 id = (int *)ML_Get_MySmootherData(data);
39 hecmw_ml_smoother_diag_apply_33_(id, &x_length, x, &rhs_length, rhs, &ierr);
40 return ierr;
41}
42
43int hecmw_ML_smoother_ssor_apply_33(ML_Smoother *data, int x_length, double x[],
44 int rhs_length, double rhs[]) {
45 int *id, ierr;
46 id = (int *)ML_Get_MySmootherData(data);
47 hecmw_ml_smoother_ssor_apply_33_(id, &x_length, x, &rhs_length, rhs, &ierr);
48 return ierr;
49}
50
51#endif /* HECMW_WITH_ML */
CNFData data