C
C INCLUDE 'grdiso.inc'
C Declaration of the common blocks used through GRDISO program:
C
C Date: 2001, April 5
C
C ------------------------------------------------------------------
INCLUDE 'ram.inc'
C ram.inc
C
C Parameters defining the grid:
INTEGER N1,N2,N3
REAL O1,O2,O3,DD(3)
INTEGER N1N,N2N,N3N,NO1,NO2,NO3,ND1,ND2,ND3
C Auxiliary parameters of the grid:
INTEGER N1N2,DIP(3),NN11,NN1N2,NN11N2,NN1N21
INTEGER NLEG,NLEG1,NLEG12
C
COMMON/GIC/N1,N2,N3,O1,O2,O3,DD,N1N2,DIP,
* N1N,N2N,N3N,NO1,NO2,NO3,ND1,ND2,ND3,
* NN11,NN1N2,NN11N2,NN1N21,
* NLEG,NLEG1,NLEG12
SAVE /GIC/
C ------------------------------------------------------------------
C
C Coded by Petr Bulant
C=======================================================================
C