SUBROUTINE SORREV ( 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.                            * 
                                                                        * 
 
### sorrev ### 
 
    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 the reversed ordering of mesh points
Source file:sorrev.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            NGRD1,     NGRD6A
INDEX              INTEGER            NGRD6B,    NGRD7
INDEX              INTEGER            NNI1,      NNI2
INDEX              INTEGER            NNI3,      NNI4
INDEX              INTEGER            NNI5
SORWK              INTEGER            IFILL,     ISYM
SORWK              REAL*8             DMU1T(4),  DMU2T(4)
SORWK              REAL*8             OMEGA,     OMEGA1