Changeset 7efae20 for src/solvers/pcg.F90

Timestamp:

03/08/07 16:31:30 (6 years ago)

Author:

chris <chris@…>

Branches:

master, external, fix-prolong, refactor, refactor-ext, refactor-subsolvers

Children:

38656c4

Parents:

ee8cedc

git-author:

chris <chris@…> (03/08/07 16:31:30)

git-committer:

chris <chris@…> (03/08/07 16:31:30)

Message:

• more doxygen comments

git-svn-id:  svn://dougdevel.org/doug/trunk@212 146eac83-2b0f-0410-9363-9ebcc3d868b9

File:

• src/solvers/pcg.F90 (modified) (3 diffs)

src/solvers/pcg.F90

@@ -244 +244 @@
 
   !-------------------------------
-  ! Make preconditioner
+  !> Make preconditioner
   !-------------------------------
   subroutine preconditioner(sol,A,rhs,M, &
@@ -253 +253 @@
     use Vect_mod
     implicit none
-    real(kind=rk),dimension(:),pointer :: sol
-    type(SpMtx)                        :: A
-    real(kind=rk),dimension(:),pointer :: rhs
-    type(Mesh),intent(in)              :: M ! Mesh
-    real(kind=rk),dimension(:),pointer :: res ! -- residual vector, allocated
-                                              ! here for multiplicative Schwarz
-    type(SpMtx),optional               :: A_interf_  ! matr@interf.
-    type(SpMtx),optional               :: CoarseMtx_ ! Coarse matrix
-    type(SpMtx),optional               :: Restrict ! Restriction matrix
+    real(kind=rk),dimension(:),pointer :: sol !< solution
+    type(SpMtx)                        :: A   !< sparse system matrix
+    real(kind=rk),dimension(:),pointer :: rhs !< right hand side
+    type(Mesh),intent(in)              :: M   !< Mesh
+    real(kind=rk),dimension(:),pointer :: res !< residual vector, allocated
+                                              !! here for multiplicative Schwarz
+    type(SpMtx),optional               :: A_interf_  !< matr@interf.
+    type(SpMtx),optional               :: CoarseMtx_ !< Coarse matrix
+    type(SpMtx),optional               :: Restrict   !< Restriction matrix
     logical,intent(inout),optional :: refactor_
     logical,optional                   :: bugtrack_
@@ -651 +651 @@
     
     type(SpMtx),intent(in out)          :: A !< System matrix (sparse)
-    float(kind=rk),dimension(:),pointer :: b !< RHS
+    float(kind=rk),dimension(:),pointer :: b !< right hand side
     float(kind=rk),dimension(:),pointer :: x !< Solution
     type(Mesh),intent(in)               :: Msh !< Mesh - aux data for Ax operation