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