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