Argument Definitions (+ indicates altered content) INTEGER CW_SOR(*)
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. * * ### initMesh #### Establishes meshes for each subgrid and determines coefficients of the interpolation polynomials needed in fill arrays. Warning! At present at most 3 grids are allowed. See mesh for further detailes. In version 2.0 only single grid is allowed!
Source file: initMesh.f
External Functions and Subroutines Called SUBROUTINE INTERPOLQ, MESH
Local Variables (+ indicates altered content) INTEGER +IB1, +IB2, +IB3, +IB4 INTEGER +IB5, +IBEG1, +IBEG2, +IBEG3 INTEGER +IBEG4, +IBEG5, +IG, +IGS INTEGER +IMCASE, +IMUT, +INIT, +IS34 INTEGER +IS5, +MXNMU16, +MXSMU, +NGRID16
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER +I6B(5) GRIDI INTEGER MXNMU, NGRIDS GRIDI INTEGER NGSIZE(10) GRIDI INTEGER NMU(10), NNI INDEX INTEGER +IADEX1(20) INDEX INTEGER +IADEX2(20) INDEX INTEGER +IADEX3(20) INDEX INTEGER +IADEXT(20) INDEX INTEGER +IADNOR(20)