Argument Definitions (+ indicates altered content) INTEGER IG, IMCASE, +INDX1(*), +INDX2(*) INTEGER +INDX6A(*), +INDX6B(*), +INDX7(*)
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. * * ### mesh ### Initializes index arrays determining the ordering of mesh points during sor process type of ordering (itype==iorder): itype=1 -- natural column-wise itype=2 -- middle itype=3 -- natural row-wise itype=4 -- reverse row-wise
Source file: mesh.f
I/O Operations: Unit ID Unit No Access Form Operation * SEQ FMTD W Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called SUBROUTINE PMTXI
Local Variables (+ indicates altered content) INTEGER +I, +I0, +I2, +IEND1 INTEGER +IEND2, +II, +ITYPE, +J INTEGER +J2, +JJ, +NMU8, +NMUT INTEGER +NMUX, +NNI8, +NNIX
Referenced Common Block Variables (+ indicates altered content) CONSINT INTEGER IONE DEBUG INTEGER INCRMU, INCRNI DEBUG INTEGER IPRINT(1000) GRIDI INTEGER MXNMU, NMU(10) GRIDI INTEGER NNI INDEX INTEGER +INGR1(4,10) INDEX INTEGER +INGR2(4,10) INDEX INTEGER +NGRD1, +NGRD2 INDEX INTEGER +NGRD6A, +NGRD6B INDEX INTEGER +NGRD7, +NNI1 INDEX INTEGER +NNI2, +NNI3 INDEX INTEGER +NNI4, +NNI5 SORI INTEGER IORDER(10)