SUBROUTINE SOR ( FUN, LHS, RHS, B, D, INDX1, INDX2, INDX6A, INDX6B, INDX7 )

Argument Definitions (+ indicates altered content)
INTEGER            INDX1(*),   INDX2(*),   INDX6A(*),  INDX6B(*)
INTEGER            INDX7(*)
REAL*8             B(*),       D(*),      +FUN(*),     LHS(*)
REAL*8             RHS(*)
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### sor ### 
 
    Performs one iteration of the sor process applied to 
    the equation (diagonal part of the differentiation operator, i.e. 
    the coefficient multiplying fun(ni,mi) is included in lhs array) 
 
   { d2(mi) + b(mi)*d1(mi) + d2(ni) + d(ni)*d1(ni) 
                    + lhs(ni,mi) } fun(ni,mi) = rhs(ni,mi) 
 
    warning! this routine uses mesh defined by mesh
Source file:sor.f
Local Variables (+ indicates altered content)
INTEGER           +I,         +IJ,        +IK
REAL*8            +CC,        +DDMI1,     +DDMI2,     +DDNI1
REAL*8            +DDNI2
Referenced Common Block Variables (+ indicates altered content)
DERIV3             REAL*8             DNI1(4),   DNI2(4)
DERIV3             REAL*8             EXEVEN(5)
INDEX              INTEGER            NGRD6A,    NGRD6B
INDEX              INTEGER            NGRD7,     NNI1
INDEX              INTEGER            NNI2,      NNI3
INDEX              INTEGER            NNI4,      NNI5
SORI               INTEGER            ISSTART,   ISSTEP
SORI               INTEGER            ISSTOP
SORWK              INTEGER            ISYM
SORWK              REAL*8             DMU1T(4),  DMU2T(4)
SORWK              REAL*8             OMEGA,     OMEGA1