C
C     INCLUDE 'modsrf.inc'
C     Declaration of the common blocks used through MODSRF program:
C
C Date: 1999, April 7
C
C     ------------------------------------------------------------------
      INCLUDE 'ram.inc'
C     ram.inc
      INTEGER IRAM(MRAM)
      EQUIVALENCE (IRAM,RAM)
C
C     Parameters defining the grid:
      INTEGER N1,N2,N3
      REAL O1,O2,O3,D1,D2,D3
C     Auxiliary parameters of the grid:
      INTEGER N11,N21,N1N2,N11N2,N1N21,N11N21
C     Parameters for managing arrays RAM and IRAM:
      INTEGER NGPS,NLEG,NLEG1,NLEG2,NLEG3,NLEG12,NFAC,NFAC1,NFAC2,NFAC3,
     *        NFAC12,NCUB,OLEG,OFAC,OPOI,NPOI,NPOIL,NPOIE,NPOILP,NPOIEP,
     *        NQPOI,OCON,NCON,NPOL
      PARAMETER(NQPOI=8)
C     Auxiliary quantities used when calling RKGS:
      INTEGER ISRFO,IFACE,ISBO1,ICBO1,ISBO2,ICBO2,
     *      ISRFN1,ISRFN2,ISBN1,ICBN1,ISBN2,ICBN2
      REAL X0,YOLD(3),DYOLD(3)
C
      COMMON/MSC/N1,N2,N3,O1,O2,O3,D1,D2,D3,N11,N21,N1N2,N11N2,N1N21,
     * N11N21,NGPS,NLEG,NLEG1,NLEG2,NLEG3,NLEG12,NFAC,NFAC1,NFAC2,NFAC3,
     * NFAC12,NCUB,OLEG,OFAC,OPOI,NPOI,NPOIL,NPOIE,NPOILP,NPOIEP,OCON,
     * NCON,NPOL,ISRFO,IFACE,ISBO1,ICBO1,ISBO2,ICBO2,X0,YOLD,DYOLD,
     * ISRFN1,ISRFN2,ISBN1,ICBN1,ISBN2,ICBN2
      SAVE  /MSC/
C     ------------------------------------------------------------------
C
C Coded by Petr Bulant
C=======================================================================
C