SUBROUTINE INITMESH ( CW_SOR )

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)