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