root/src/pardiso.h

/* [<][>][^][v][top][bottom][index][help] */

INCLUDED FROM


   1 /*     CALCULIX - A 3-dimensional finite element program                 */
   2 /*              Copyright (C) 1998 Guido Dhondt                          */
   3 /*     This program is free software; you can redistribute it and/or     */
   4 /*     modify it under the terms of the GNU General Public License as    */
   5 /*     published by the Free Software Foundation; either version 2 of    */
   6 /*     the License, or (at your option) any later version.               */
   7 
   8 /*     This program is distributed in the hope that it will be useful,   */
   9 /*     but WITHOUT ANY WARRANTY; without even the implied warranty of    */ 
  10 /*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the      */
  11 /*     GNU General Public License for more details.                      */
  12 
  13 /*     You should have received a copy of the GNU General Public License */
  14 /*     along with this program; if not, write to the Free Software       */
  15 /*     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.         */
  16 
  17 void pardiso_main(double *ad, double *au, double *adb, double *aub, double *sigma,
  18          double *b, ITG *icol, ITG *irow, 
  19          ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,ITG *jq,ITG *nzs3);
  20 
  21 void pardiso_factor(double *ad, double *au, double *adb, double *aub, 
  22                 double *sigma,ITG *icol, ITG *irow, 
  23                 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,
  24                 ITG *jq,ITG *nzs3);
  25 
  26 void pardiso_solve(double *b,ITG *neq,ITG *symmetryflag);
  27 
  28 void pardiso_cleanup(ITG *neq,ITG *symmetryflag);
  29 
  30 void FORTRAN(pardiso,(long long *pt,ITG *maxfct,ITG *mnum,ITG *mtype,ITG *phase,
  31                    ITG *neq,double *aupardiso,ITG *pointers,ITG *irowpardiso,
  32                    ITG *perm,ITG *nrhs,ITG *iparm,ITG *msglvl,double *b,
  33                    double *x,ITG *error));
  34 
  35 char envMKL[32];

/* [<][>][^][v][top][bottom][index][help] */