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