1!/*****************************************************************************/
2! *
3! *  Elmer, A Finite Element Software for Multiphysical Problems
4! *
5! *  Copyright 1st April 1995 - , CSC - IT Center for Science Ltd., Finland
6! *
7! *  This library is free software; you can redistribute it and/or
8! *  modify it under the terms of the GNU Lesser General Public
9! *  License as published by the Free Software Foundation; either
10! *  version 2.1 of the License, or (at your option) any later version.
11! *
12! *  This library is distributed in the hope that it will be useful,
13! *  but WITHOUT ANY WARRANTY; without even the implied warranty of
14! *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15! *  Lesser General Public License for more details.
16! *
17! *  You should have received a copy of the GNU Lesser General Public
18! *  License along with this library (in file ../LGPL-2.1); if not, write
19! *  to the Free Software Foundation, Inc., 51 Franklin Street,
20! *  Fifth Floor, Boston, MA  02110-1301  USA
21! *
22! *****************************************************************************/
23!
24!/******************************************************************************
25! *
26! *  Authors: Jouni Malinen, Juha Ruokolainen
27! *  Email:   Juha.Ruokolainen@csc.fi
28! *  Web:     http://www.csc.fi/elmer
29! *  Address: CSC - IT Center for Science Ltd.
30! *           Keilaranta 14
31! *           02101 Espoo, Finland
32! *
33! *  Original Date: 2000
34! *
35! *****************************************************************************/
36
37!------------------------------------------------------------------------------
38!>  This module contains global variables (or pointers to them)
39!>  needed by the parallel version of the ELMER iterative solver.
40!------------------------------------------------------------------------------
41!> \ingroup ElmerLib
42!> \{
43
44
45MODULE SParIterGlobals
46
47  USE Types
48
49  IMPLICIT NONE
50
51real(kind=dp):: xxx, yyy
52
53  TYPE HUTICtlT
54     INTEGER :: Method
55     INTEGER :: Precond
56     DOUBLE PRECISION :: Tolerance
57     INTEGER :: MaxIter
58     INTEGER :: DebugLevel
59  END TYPE HUTICtlT
60
61
62  TYPE ErrInfoT
63     INTEGER :: HUTIStatus
64  END TYPE ErrInfoT
65
66  ! Following is in correct place
67
68  TYPE (ParEnv_t), SAVE, TARGET :: ParEnv
69  TYPE (SParIterSolverGlobalD_t), POINTER :: PIGpntr
70  TYPE (SParIterSolverGlobalD_t), POINTER :: GlobalData
71END MODULE SParIterGlobals
72
73!> \}
74