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