1C-----THIS IS COMMON/INCLUDE FILE DPCODG.INC-----
2C     THIS IS COMMON FOR DIAGRAMMATIC GRAPHICS
3C
4C               ****************************************
5C               ****************************************
6C               **  DEFINE AND EQUIVALENCE CHARACTER  **
7C               **  DIAGRAMMATIC GRAPHICS             **
8C               **  VARIABLES AND ARRAYS              **
9C               ****************************************
10C               ****************************************
11C
12      CHARACTER*4 IDEFON
13      CHARACTER*4 IDECAS
14      CHARACTER*4 IDEJUS
15      CHARACTER*4 IDECRL
16C
17      CHARACTER*4 IFONT
18      CHARACTER*4 ICASE
19      CHARACTER*4 IJUST
20      CHARACTER*4 ICRLF
21C
22      CHARACTER*4 IH1DIA
23C
24      COMMON /IHDIAG/IH1DIA(40)
25C
26      EQUIVALENCE (IH1DIA(1) ,IDEFON)
27      EQUIVALENCE (IH1DIA(2) ,IDECAS)
28      EQUIVALENCE (IH1DIA(3) ,IDEJUS)
29      EQUIVALENCE (IH1DIA(4) ,IDECRL)
30C
31      EQUIVALENCE (IH1DIA(21),IFONT)
32      EQUIVALENCE (IH1DIA(22),ICASE)
33      EQUIVALENCE (IH1DIA(23),IJUST)
34      EQUIVALENCE (IH1DIA(24),ICRLF)
35C
36C               ****************************************************************
37C               ****************************************************************
38C               **  DEFINE AND EQUIVALENCE REAL (SINGLE PRECISION FLOATING POINT
39C               **  DIAGRAMMATIC GRAPHICS
40C               **  VARIABLES AND ARRAYS
41C               ****************************************************************
42C               ****************************************************************
43C
44      DIMENSION AMARG(6)
45C
46      COMMON /RDIAG/R1DIAG(40)
47C
48      EQUIVALENCE (R1DIAG(1),DEFWID)
49      EQUIVALENCE (R1DIAG(2),DEFHEI)
50C
51      EQUIVALENCE (R1DIAG(11),DEFLMA)
52      EQUIVALENCE (R1DIAG(12),DEFCHM)
53      EQUIVALENCE (R1DIAG(13),DEFRMA)
54      EQUIVALENCE (R1DIAG(14),DEFTMA)
55      EQUIVALENCE (R1DIAG(15),DEFCVM)
56      EQUIVALENCE (R1DIAG(16),DEFBMA)
57C
58      EQUIVALENCE (R1DIAG(21),WIDTH)
59      EQUIVALENCE (R1DIAG(22),HEIGHT)
60      EQUIVALENCE (R1DIAG(23),XSTART)
61      EQUIVALENCE (R1DIAG(24),YSTART)
62      EQUIVALENCE (R1DIAG(25),XEND)
63      EQUIVALENCE (R1DIAG(26),YEND)
64C
65      EQUIVALENCE (R1DIAG(31),AMARG(1))
66C
67