QR_MUMPS
 All Classes Files Functions Variables Enumerations Enumerator Pages
qrm_sdata_mod.F90
Go to the documentation of this file.
1 !! ##############################################################################################
2 !!
3 !! Copyright 2012 CNRS, INPT
4 !!
5 !! This file is part of qr_mumps.
6 !!
7 !! qr_mumps is free software: you can redistribute it and/or modify
8 !! it under the terms of the GNU Lesser General Public License as
9 !! published by the Free Software Foundation, either version 3 of
10 !! the License, or (at your option) any later version.
11 !!
12 !! qr_mumps 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
15 !! GNU Lesser General Public License for more details.
16 !!
17 !! You can find a copy of the GNU Lesser General Public License
18 !! in the qr_mumps/doc directory.
19 !!
20 !! ##############################################################################################
21 
22 
23 !! ##############################################################################################
34 
35 
40 
41 
42  ! Type: _qrm_sdata_type
43  !
44  ! This type defines a data structure containing all the data related to the solve phase.
45  !
46  ! Fields:
47  ! rhs - a pointer pointing to the location where the rhs is stored
48  ! x - a pointer pointing to the location where the solution must be stored
49  !
51  _qrm_data, pointer :: rhs(:), x(:)
52 
53  end type _qrm_sdata_type
54 
55 
56 contains
57 
58 
59  subroutine _qrm_sdata_destroy(sdata)
60  ! Function: qrm_sdata_destroy
61  ! This subroutine clean sup an sdata data structure.
62  !
63  ! *Input/Output*:
64  ! sdata - the data structure to be cleaned
65  !
66 
67  implicit none
68  type(_qrm_sdata_type) :: sdata
69 
70  nullify(sdata%rhs)
71  nullify(sdata%x)
72 
73  return
74 
75  end subroutine _qrm_sdata_destroy
76 
77 
78 end module _qrm_sdata_mod
This module contains the definition of all the data related to the solution phase.
subroutine _qrm_sdata_destroy(sdata)