SUBROUTINE DRCU1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN COMPLEX UPPER CASE (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2001--UPPER CASE A C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -7, -9/ DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 0, 12/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 7, -9/ DATA IOPERA( 5),IX( 5),IY( 5)/'MOVE', 0, 9/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 6, -9/ DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', -5, -3/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 4, -3/ DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', -9, -9/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -3, -9/ DATA IOPERA( 11),IX( 11),IY( 11)/'MOVE', 3, -9/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 9, -9/ C DATA IXMIND( 1)/ -10/ DATA IXMAXD( 1)/ 10/ DATA IXDELD( 1)/ 20/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 12/ C C DEFINE CHARACTER 2002--UPPER CASE B C DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', -6, 12/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -6, -9/ DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', -5, 12/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -5, -9/ DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -9, 12/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 3, 12/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 6, 11/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 7, 10/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 8, 8/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 8, 6/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 7, 4/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 6, 3/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 3, 2/ DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', 3, 12/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 5, 11/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 6, 10/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 7, 8/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 7, 6/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 6, 4/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 5, 3/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 3, 2/ DATA IOPERA( 34),IX( 34),IY( 34)/'MOVE', -5, 2/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 3, 2/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 6, 1/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 7, 0/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 8, -2/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 8, -5/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 7, -7/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 6, -8/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 3, -9/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -9, -9/ DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 3, 2/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 5, 1/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 6, 0/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 7, -2/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 7, -5/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 6, -7/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 5, -8/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 3, -9/ C DATA IXMIND( 2)/ -11/ DATA IXMAXD( 2)/ 11/ DATA IXDELD( 2)/ 22/ DATA ISTARD( 2)/ 13/ DATA NUMCOO( 2)/ 39/ C C DEFINE CHARACTER 2003--UPPER CASE C C DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', 6, 9/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 7, 6/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 7, 12/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 6, 9/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 4, 11/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 1, 12/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -1, 12/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -4, 11/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -6, 9/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -7, 7/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -8, 4/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -8, -1/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -7, -4/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -6, -6/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -4, -8/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -1, -9/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 1, -9/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 4, -8/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 6, -6/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 7, -4/ DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', -1, 12/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -3, 11/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -5, 9/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -6, 7/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -7, 4/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -7, -1/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -6, -4/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -5, -6/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -3, -8/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -1, -9/ C DATA IXMIND( 3)/ -11/ DATA IXMAXD( 3)/ 10/ DATA IXDELD( 3)/ 21/ DATA ISTARD( 3)/ 52/ DATA NUMCOO( 3)/ 30/ C C DEFINE CHARACTER 2004--UPPER CASE D C DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', -6, 12/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -6, -9/ DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -5, 12/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -5, -9/ DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -9, 12/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 1, 12/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 4, 11/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 6, 9/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 7, 7/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 8, 4/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 8, -1/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 7, -4/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 6, -6/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 4, -8/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 1, -9/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -9, -9/ DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', 1, 12/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 3, 11/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 5, 9/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 6, 7/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 7, 4/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 7, -1/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 6, -4/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 5, -6/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 3, -8/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 1, -9/ C DATA IXMIND( 4)/ -11/ DATA IXMAXD( 4)/ 11/ DATA IXDELD( 4)/ 22/ DATA ISTARD( 4)/ 82/ DATA NUMCOO( 4)/ 26/ C C DEFINE CHARACTER 2005--UPPER CASE E C DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', -6, 12/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -6, -9/ DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -5, 12/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -5, -9/ DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE', 1, 6/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 1, -2/ DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE', -9, 12/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 7, 12/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 7, 6/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 6, 12/ DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', -5, 2/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 1, 2/ DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', -9, -9/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 7, -9/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 7, -3/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 6, -9/ C DATA IXMIND( 5)/ -11/ DATA IXMAXD( 5)/ 10/ DATA IXDELD( 5)/ 21/ DATA ISTARD( 5)/ 108/ DATA NUMCOO( 5)/ 16/ C C DEFINE CHARACTER 2006--UPPER CASE F C DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', -6, 12/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -6, -9/ DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', -5, 12/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -5, -9/ DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', 1, 6/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, -2/ DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -9, 12/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 7, 12/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 7, 6/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 6, 12/ DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -5, 2/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 1, 2/ DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', -9, -9/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -2, -9/ C DATA IXMIND( 6)/ -11/ DATA IXMAXD( 6)/ 9/ DATA IXDELD( 6)/ 20/ DATA ISTARD( 6)/ 124/ DATA NUMCOO( 6)/ 14/ C C DEFINE CHARACTER 2007--UPPER CASE G C DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', 6, 9/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 7, 6/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 7, 12/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 6, 9/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 4, 11/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 1, 12/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -1, 12/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -4, 11/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -6, 9/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -7, 7/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -8, 4/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -8, -1/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -7, -4/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -6, -6/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -4, -8/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -1, -9/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 1, -9/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 4, -8/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 6, -6/ DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', -1, 12/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -3, 11/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -5, 9/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -6, 7/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -7, 4/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -7, -1/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -6, -4/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -5, -6/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -3, -8/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -1, -9/ DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 6, -1/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 6, -9/ DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', 7, -1/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 7, -9/ DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 3, -1/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 10, -1/ C DATA IXMIND( 7)/ -11/ DATA IXMAXD( 7)/ 12/ DATA IXDELD( 7)/ 23/ DATA ISTARD( 7)/ 138/ DATA NUMCOO( 7)/ 35/ C C DEFINE CHARACTER 2008--UPPER CASE H C DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', -7, 12/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -7, -9/ DATA IOPERA( 175),IX( 175),IY( 175)/'MOVE', -6, 12/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -6, -9/ DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', 6, 12/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 6, -9/ DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', 7, 12/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 7, -9/ DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE', -10, 12/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -3, 12/ DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', 3, 12/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 10, 12/ DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE', -6, 2/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 6, 2/ DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', -10, -9/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -3, -9/ DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', 3, -9/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 10, -9/ C DATA IXMIND( 8)/ -12/ DATA IXMAXD( 8)/ 12/ DATA IXDELD( 8)/ 24/ DATA ISTARD( 8)/ 173/ DATA NUMCOO( 8)/ 18/ C C DEFINE CHARACTER 2009--UPPER CASE I C DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE', 0, 12/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 0, -9/ DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', 1, 12/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 1, -9/ DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', -3, 12/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 4, 12/ DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', -3, -9/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 4, -9/ C DATA IXMIND( 9)/ -5/ DATA IXMAXD( 9)/ 6/ DATA IXDELD( 9)/ 11/ DATA ISTARD( 9)/ 191/ DATA NUMCOO( 9)/ 8/ C C DEFINE CHARACTER 2010--UPPER CASE J C DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 3, 12/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 3, -5/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 2, -8/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 0, -9/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -2, -9/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -4, -8/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -5, -6/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -5, -4/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -4, -3/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -3, -4/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -4, -5/ DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', 2, 12/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 2, -5/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 1, -8/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 0, -9/ DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE', -1, 12/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, 12/ C DATA IXMIND( 10)/ -7/ DATA IXMAXD( 10)/ 8/ DATA IXDELD( 10)/ 15/ DATA ISTARD( 10)/ 199/ DATA NUMCOO( 10)/ 17/ C C DEFINE CHARACTER 2011--UPPER CASE K C DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', -7, 12/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -7, -9/ DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -6, 12/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -6, -9/ DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', 7, 12/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -6, -1/ DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -1, 3/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 7, -9/ DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', -2, 3/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 6, -9/ DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', -10, 12/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -3, 12/ DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE', 3, 12/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 9, 12/ DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -10, -9/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -3, -9/ DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE', 3, -9/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 9, -9/ C DATA IXMIND( 11)/ -12/ DATA IXMAXD( 11)/ 10/ DATA IXDELD( 11)/ 22/ DATA ISTARD( 11)/ 216/ DATA NUMCOO( 11)/ 18/ C C DEFINE CHARACTER 2012--UPPER CASE L C DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE', -4, 12/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -4, -9/ DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', -3, 12/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -3, -9/ DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -7, 12/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 0, 12/ DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', -7, -9/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 8, -9/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 8, -3/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 7, -9/ C DATA IXMIND( 12)/ -9/ DATA IXMAXD( 12)/ 9/ DATA IXDELD( 12)/ 18/ DATA ISTARD( 12)/ 234/ DATA NUMCOO( 12)/ 10/ C C DEFINE CHARACTER 2013--UPPER CASE M C DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE', -7, 12/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -7, -9/ DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE', -6, 12/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 0, -6/ DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', -7, 12/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 0, -9/ DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', 7, 12/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 0, -9/ DATA IOPERA( 252),IX( 252),IY( 252)/'MOVE', 7, 12/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 7, -9/ DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', 8, 12/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 8, -9/ DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', -10, 12/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -6, 12/ DATA IOPERA( 258),IX( 258),IY( 258)/'MOVE', 7, 12/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 11, 12/ DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE', -10, -9/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -4, -9/ DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', 4, -9/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 11, -9/ C DATA IXMIND( 13)/ -12/ DATA IXMAXD( 13)/ 13/ DATA IXDELD( 13)/ 25/ DATA ISTARD( 13)/ 244/ DATA NUMCOO( 13)/ 20/ C C DEFINE CHARACTER 2014--UPPER CASE N C DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', -6, 12/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -6, -9/ DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', -5, 12/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 7, -7/ DATA IOPERA( 268),IX( 268),IY( 268)/'MOVE', -5, 10/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 7, -9/ DATA IOPERA( 270),IX( 270),IY( 270)/'MOVE', 7, 12/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 7, -9/ DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE', -9, 12/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -5, 12/ DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE', 4, 12/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 10, 12/ DATA IOPERA( 276),IX( 276),IY( 276)/'MOVE', -9, -9/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', -3, -9/ C DATA IXMIND( 14)/ -11/ DATA IXMAXD( 14)/ 12/ DATA IXDELD( 14)/ 23/ DATA ISTARD( 14)/ 264/ DATA NUMCOO( 14)/ 14/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRCU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRCU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRCU2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN COMPLEX UPPER CASE (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2015--UPPER CASE O C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -1, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, 11/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, 9/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -7, 7/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -8, 3/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -8, 0/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -7, -4/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -6, -6/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -4, -8/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -1, -9/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 1, -9/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 4, -8/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 6, -6/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 7, -4/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 8, 0/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 8, 3/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 7, 7/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 6, 9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 4, 11/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 1, 12/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -1, 12/ DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', -1, 12/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -3, 11/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -5, 9/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -6, 7/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -7, 3/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -7, 0/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -6, -4/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -5, -6/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -3, -8/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -1, -9/ DATA IOPERA( 32),IX( 32),IY( 32)/'MOVE', 1, -9/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 3, -8/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 5, -6/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 6, -4/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 7, 0/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 7, 3/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 6, 7/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 5, 9/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 3, 11/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 1, 12/ C DATA IXMIND( 15)/ -11/ DATA IXMAXD( 15)/ 11/ DATA IXDELD( 15)/ 22/ DATA ISTARD( 15)/ 1/ DATA NUMCOO( 15)/ 41/ C C DEFINE CHARACTER 2016--UPPER CASE P C DATA IOPERA( 42),IX( 42),IY( 42)/'MOVE', -6, 12/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -6, -9/ DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', -5, 12/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', -5, -9/ DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', -9, 12/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 3, 12/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 6, 11/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 7, 10/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 8, 8/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 8, 5/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 7, 3/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 6, 2/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 3, 1/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -5, 1/ DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 3, 12/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 5, 11/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 6, 10/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 7, 8/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 7, 5/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 6, 3/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 5, 2/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 3, 1/ DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', -9, -9/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -2, -9/ C DATA IXMIND( 16)/ -11/ DATA IXMAXD( 16)/ 11/ DATA IXDELD( 16)/ 22/ DATA ISTARD( 16)/ 42/ DATA NUMCOO( 16)/ 24/ C C DEFINE CHARACTER 2017--UPPER CASE Q C DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', -1, 12/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -4, 11/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -6, 9/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -7, 7/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -8, 3/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -8, 0/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -7, -4/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -6, -6/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -4, -8/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -1, -9/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 1, -9/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 4, -8/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 6, -6/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 7, -4/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 8, 0/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 8, 3/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 7, 7/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 6, 9/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 4, 11/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 1, 12/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -1, 12/ DATA IOPERA( 87),IX( 87),IY( 87)/'MOVE', -1, 12/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -3, 11/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -5, 9/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -6, 7/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -7, 3/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -7, 0/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -6, -4/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -5, -6/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -3, -8/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -1, -9/ DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', 1, -9/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 3, -8/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 5, -6/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 6, -4/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 7, 0/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 7, 3/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 6, 7/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 5, 9/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 3, 11/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 1, 12/ DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -4, -7/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -4, -6/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -3, -4/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -1, -3/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 0, -3/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 2, -4/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 3, -6/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 4, -13/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 5, -14/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 7, -14/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 8, -12/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 8, -11/ DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', 3, -6/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 4, -10/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 5, -12/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 6, -13/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 7, -13/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 8, -12/ C DATA IXMIND( 17)/ -11/ DATA IXMAXD( 17)/ 11/ DATA IXDELD( 17)/ 22/ DATA ISTARD( 17)/ 66/ DATA NUMCOO( 17)/ 59/ C C DEFINE CHARACTER 2018--UPPER CASE R C DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE', -6, 12/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -6, -9/ DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', -5, 12/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -5, -9/ DATA IOPERA( 129),IX( 129),IY( 129)/'MOVE', -9, 12/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 3, 12/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 6, 11/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 7, 10/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 8, 8/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 8, 6/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 7, 4/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 6, 3/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 3, 2/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -5, 2/ DATA IOPERA( 139),IX( 139),IY( 139)/'MOVE', 3, 12/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 5, 11/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 6, 10/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 7, 8/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 7, 6/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 6, 4/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 5, 3/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 3, 2/ DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE', -9, -9/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -2, -9/ DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', 0, 2/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 2, 1/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 3, 0/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 6, -7/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 7, -8/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 8, -8/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 9, -7/ DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE', 2, 1/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 3, -1/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 5, -8/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 6, -9/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 8, -9/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 9, -7/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 9, -6/ C DATA IXMIND( 18)/ -11/ DATA IXMAXD( 18)/ 11/ DATA IXDELD( 18)/ 22/ DATA ISTARD( 18)/ 125/ DATA NUMCOO( 18)/ 38/ C C DEFINE CHARACTER 2019--UPPER CASE S C DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', 6, 9/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 7, 12/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 7, 6/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 6, 9/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 4, 11/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 1, 12/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -2, 12/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -5, 11/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -7, 9/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -7, 7/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -6, 5/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -5, 4/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -3, 3/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 3, 1/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 5, 0/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 7, -2/ DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', -7, 7/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -5, 5/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -3, 4/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 3, 2/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 5, 1/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 6, 0/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 7, -2/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 7, -6/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 5, -8/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 2, -9/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -1, -9/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -4, -8/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -6, -6/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -7, -3/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -7, -9/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -6, -6/ C DATA IXMIND( 19)/ -10/ DATA IXMAXD( 19)/ 10/ DATA IXDELD( 19)/ 20/ DATA ISTARD( 19)/ 163/ DATA NUMCOO( 19)/ 32/ C C DEFINE CHARACTER 2020--UPPER CASE T C DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', 0, 12/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 0, -9/ DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 1, 12/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 1, -9/ DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', -6, 12/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -7, 6/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -7, 12/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 8, 12/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 8, 6/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 7, 12/ DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', -3, -9/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 4, -9/ C DATA IXMIND( 20)/ -9/ DATA IXMAXD( 20)/ 10/ DATA IXDELD( 20)/ 19/ DATA ISTARD( 20)/ 195/ DATA NUMCOO( 20)/ 12/ C C DEFINE CHARACTER 2021--UPPER CASE U C DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -7, 12/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -7, -3/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -6, -6/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -4, -8/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -1, -9/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 1, -9/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 4, -8/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 6, -6/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 7, -3/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 7, 12/ DATA IOPERA( 217),IX( 217),IY( 217)/'MOVE', -6, 12/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -6, -3/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -5, -6/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -3, -8/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -1, -9/ DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -10, 12/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -3, 12/ DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', 4, 12/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 10, 12/ C DATA IXMIND( 21)/ -12/ DATA IXMAXD( 21)/ 12/ DATA IXDELD( 21)/ 24/ DATA ISTARD( 21)/ 207/ DATA NUMCOO( 21)/ 19/ C C DEFINE CHARACTER 2022--UPPER CASE V C DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', -7, 12/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 0, -9/ DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE', -6, 12/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 0, -6/ DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', 7, 12/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 0, -9/ DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE', -9, 12/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', -3, 12/ DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE', 3, 12/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 9, 12/ C DATA IXMIND( 22)/ -10/ DATA IXMAXD( 22)/ 10/ DATA IXDELD( 22)/ 20/ DATA ISTARD( 22)/ 226/ DATA NUMCOO( 22)/ 10/ C C DEFINE CHARACTER 2023--UPPER CASE W C DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', -8, 12/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -4, -9/ DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -7, 12/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -4, -4/ DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', 0, 12/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -4, -9/ DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', 0, 12/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 4, -9/ DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE', 1, 12/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 4, -4/ DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE', 8, 12/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 4, -9/ DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', -11, 12/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', -4, 12/ DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', 5, 12/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 11, 12/ C DATA IXMIND( 23)/ -12/ DATA IXMAXD( 23)/ 12/ DATA IXDELD( 23)/ 24/ DATA ISTARD( 23)/ 236/ DATA NUMCOO( 23)/ 16/ C C DEFINE CHARACTER 2024--UPPER CASE X C DATA IOPERA( 252),IX( 252),IY( 252)/'MOVE', -7, 12/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 6, -9/ DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', -6, 12/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 7, -9/ DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', 7, 12/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -7, -9/ DATA IOPERA( 258),IX( 258),IY( 258)/'MOVE', -9, 12/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -3, 12/ DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE', 3, 12/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 9, 12/ DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', -9, -9/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -3, -9/ DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', 3, -9/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 9, -9/ C DATA IXMIND( 24)/ -10/ DATA IXMAXD( 24)/ 10/ DATA IXDELD( 24)/ 20/ DATA ISTARD( 24)/ 252/ DATA NUMCOO( 24)/ 14/ C C DEFINE CHARACTER 2025--UPPER CASE Y C DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', -7, 12/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 0, 1/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 0, -9/ DATA IOPERA( 269),IX( 269),IY( 269)/'MOVE', -6, 12/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 1, 1/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 1, -9/ DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE', 8, 12/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 1, 1/ DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE', -9, 12/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -3, 12/ DATA IOPERA( 276),IX( 276),IY( 276)/'MOVE', 4, 12/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 10, 12/ DATA IOPERA( 278),IX( 278),IY( 278)/'MOVE', -3, -9/ DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 4, -9/ C DATA IXMIND( 25)/ -10/ DATA IXMAXD( 25)/ 11/ DATA IXDELD( 25)/ 21/ DATA ISTARD( 25)/ 266/ DATA NUMCOO( 25)/ 14/ C C DEFINE CHARACTER 2026--UPPER CASE Z C DATA IOPERA( 280),IX( 280),IY( 280)/'MOVE', 6, 12/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -7, -9/ DATA IOPERA( 282),IX( 282),IY( 282)/'MOVE', 7, 12/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', -6, -9/ DATA IOPERA( 284),IX( 284),IY( 284)/'MOVE', -6, 12/ DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', -7, 6/ DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -7, 12/ DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 7, 12/ DATA IOPERA( 288),IX( 288),IY( 288)/'MOVE', -7, -9/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', 7, -9/ DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', 7, -3/ DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', 6, -9/ C DATA IXMIND( 26)/ -10/ DATA IXMAXD( 26)/ 10/ DATA IXDELD( 26)/ 20/ DATA ISTARD( 26)/ 280/ DATA NUMCOO( 26)/ 12/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRCU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRCU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX LOWER CASE (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2601--LOWER CASE A C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 5, 5/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 5, -9/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 6, -9/ DATA IOPERA( 4),IX( 4),IY( 4)/'MOVE', 5, 5/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 6, 5/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 6, -9/ DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', 5, 2/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 3, 4/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 1, 5/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -2, 5/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -4, 4/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -6, 2/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -7, -1/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -7, -3/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -6, -6/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -4, -8/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -2, -9/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 1, -9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 3, -8/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 5, -6/ DATA IOPERA( 21),IX( 21),IY( 21)/'MOVE', 5, 2/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 1, 4/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -2, 4/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -4, 3/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -5, 2/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -6, -1/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -6, -3/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -5, -6/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -4, -7/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -2, -8/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 1, -8/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 5, -6/ C DATA IXMIND( 1)/ -10/ DATA IXMAXD( 1)/ 10/ DATA IXDELD( 1)/ 20/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 32/ C C DEFINE CHARACTER 2602--LOWER CASE B C DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', -6, 12/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -6, -9/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -5, -9/ DATA IOPERA( 36),IX( 36),IY( 36)/'MOVE', -6, 12/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -5, 12/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -5, -9/ DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', -5, 2/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -3, 4/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -1, 5/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 2, 5/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 4, 4/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 6, 2/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 7, -1/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 7, -3/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 6, -6/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 4, -8/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 2, -9/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -1, -9/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -3, -8/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -5, -6/ DATA IOPERA( 53),IX( 53),IY( 53)/'MOVE', -5, 2/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -1, 4/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 2, 4/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 4, 3/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 5, 2/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 6, -1/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 6, -3/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 5, -6/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 4, -7/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 2, -8/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -1, -8/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -5, -6/ C DATA IXMIND( 2)/ -10/ DATA IXMAXD( 2)/ 10/ DATA IXDELD( 2)/ 20/ DATA ISTARD( 2)/ 33/ DATA NUMCOO( 2)/ 32/ C C DEFINE CHARACTER 2603--LOWER CASE C C DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', 6, 2/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 4, 4/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 2, 5/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -1, 5/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -3, 4/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -5, 2/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -6, -1/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -6, -3/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -5, -6/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -3, -8/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -1, -9/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 2, -9/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 4, -8/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 6, -6/ DATA IOPERA( 79),IX( 79),IY( 79)/'MOVE', 6, 2/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 5, 1/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 4, 3/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 2, 4/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -1, 4/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -3, 3/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -4, 2/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -5, -1/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -5, -3/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -4, -6/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -3, -7/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -1, -8/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 2, -8/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 4, -7/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 5, -5/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 6, -6/ C DATA IXMIND( 3)/ -9/ DATA IXMAXD( 3)/ 9/ DATA IXDELD( 3)/ 18/ DATA ISTARD( 3)/ 65/ DATA NUMCOO( 3)/ 30/ C C DEFINE CHARACTER 2604--LOWER CASE D C DATA IOPERA( 95),IX( 95),IY( 95)/'MOVE', 5, 12/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 5, -9/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 6, -9/ DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', 5, 12/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 6, 12/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 6, -9/ DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', 5, 2/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 3, 4/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 1, 5/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -2, 5/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -4, 4/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -6, 2/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -7, -1/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -7, -3/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -6, -6/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -4, -8/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -2, -9/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 1, -9/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 3, -8/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 5, -6/ DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', 5, 2/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 1, 4/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -2, 4/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -4, 3/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -5, 2/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -6, -1/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -6, -3/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -5, -6/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -4, -7/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -2, -8/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 1, -8/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 5, -6/ C DATA IXMIND( 4)/ -10/ DATA IXMAXD( 4)/ 10/ DATA IXDELD( 4)/ 20/ DATA ISTARD( 4)/ 95/ DATA NUMCOO( 4)/ 32/ C C DEFINE CHARACTER 2605--LOWER CASE E C DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', -5, -2/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 6, -2/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 6, 1/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 5, 3/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 4, 4/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 2, 5/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -1, 5/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -3, 4/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -5, 2/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -6, -1/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -6, -3/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -5, -6/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -3, -8/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -1, -9/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 2, -9/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 4, -8/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 6, -6/ DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', -5, -1/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 5, -1/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 5, 1/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 4, 3/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, 4/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -1, 4/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -3, 3/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -4, 2/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -5, -1/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -5, -3/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -4, -6/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -3, -7/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -1, -8/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 2, -8/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 4, -7/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 5, -5/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 6, -6/ C DATA IXMIND( 5)/ -9/ DATA IXMAXD( 5)/ 9/ DATA IXDELD( 5)/ 18/ DATA ISTARD( 5)/ 127/ DATA NUMCOO( 5)/ 34/ C C DEFINE CHARACTER 2606--LOWER CASE F C DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', 5, 12/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 3, 12/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 1, 11/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 0, 8/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 0, -9/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 1, -9/ DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 5, 12/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 5, 11/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 3, 11/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 1, 10/ DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 2, 11/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 1, 8/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 1, -9/ DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -3, 5/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 4, 5/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 4, 4/ DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', -3, 5/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -3, 4/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 4, 4/ C DATA IXMIND( 6)/ -6/ DATA IXMAXD( 6)/ 8/ DATA IXDELD( 6)/ 14/ DATA ISTARD( 6)/ 161/ DATA NUMCOO( 6)/ 19/ C C DEFINE CHARACTER 2607--LOWER CASE G C DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', 6, 5/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 5, 5/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 5, -10/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 4, -13/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 3, -14/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 1, -15/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -1, -15/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -3, -14/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -4, -13/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -6, -13/ DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', 6, 5/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 6, -10/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 5, -13/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, -15/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 1, -16/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -2, -16/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -4, -15/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -6, -13/ DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE', 5, 2/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 3, 4/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 1, 5/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -2, 5/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -4, 4/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -6, 2/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -7, -1/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -7, -3/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -6, -6/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -4, -8/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -2, -9/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 1, -9/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 3, -8/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 5, -6/ DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', 5, 2/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 1, 4/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -2, 4/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', -4, 3/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -5, 2/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -6, -1/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -6, -3/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -5, -6/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -4, -7/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -2, -8/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 1, -8/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 5, -6/ C DATA IXMIND( 7)/ -10/ DATA IXMAXD( 7)/ 10/ DATA IXDELD( 7)/ 20/ DATA ISTARD( 7)/ 180/ DATA NUMCOO( 7)/ 44/ C C DEFINE CHARACTER 2608--LOWER CASE H C DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', -6, 12/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -6, -9/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -5, -9/ DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', -6, 12/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -5, 12/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -5, -9/ DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -5, 1/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -2, 4/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 0, 5/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 3, 5/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 5, 4/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 6, 1/ DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 6, -9/ DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE', -5, 1/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -2, 3/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 0, 4/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 2, 4/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 4, 3/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 5, 1/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 5, -9/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 6, -9/ C DATA IXMIND( 8)/ -10/ DATA IXMAXD( 8)/ 10/ DATA IXDELD( 8)/ 20/ DATA ISTARD( 8)/ 224/ DATA NUMCOO( 8)/ 21/ C C DEFINE CHARACTER 2609--LOWER CASE I C DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE', 0, 12/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -1, 11/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -1, 10/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 0, 9/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 1, 9/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 2, 10/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 2, 11/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 1, 12/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 0, 12/ DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', 0, 11/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 0, 10/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 1, 10/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 1, 11/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 0, 11/ DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE', 0, 5/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 0, -9/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 1, -9/ DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', 0, 5/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 1, 5/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 1, -9/ C DATA IXMIND( 9)/ -4/ DATA IXMAXD( 9)/ 5/ DATA IXDELD( 9)/ 9/ DATA ISTARD( 9)/ 245/ DATA NUMCOO( 9)/ 20/ C C DEFINE CHARACTER 2610--LOWER CASE J C DATA IOPERA( 265),IX( 265),IY( 265)/'MOVE', 0, 12/ DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', -1, 11/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -1, 10/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 0, 9/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 1, 9/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 2, 10/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 2, 11/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 1, 12/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 0, 12/ DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE', 0, 11/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 0, 10/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 1, 10/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 1, 11/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 0, 11/ DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE', 0, 5/ DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 0, -16/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', 1, -16/ DATA IOPERA( 282),IX( 282),IY( 282)/'MOVE', 0, 5/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 1, 5/ DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 1, -16/ C DATA IXMIND( 10)/ -4/ DATA IXMAXD( 10)/ 5/ DATA IXDELD( 10)/ 9/ DATA ISTARD( 10)/ 265/ DATA NUMCOO( 10)/ 20/ C C DEFINE CHARACTER 2611--LOWER CASE K C DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE', -6, 12/ DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -6, -9/ DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', -5, -9/ DATA IOPERA( 288),IX( 288),IY( 288)/'MOVE', -6, 12/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', -5, 12/ DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -5, -9/ DATA IOPERA( 291),IX( 291),IY( 291)/'MOVE', 6, 5/ DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', 5, 5/ DATA IOPERA( 293),IX( 293),IY( 293)/'DRAW', -5, -5/ DATA IOPERA( 294),IX( 294),IY( 294)/'MOVE', 6, 5/ DATA IOPERA( 295),IX( 295),IY( 295)/'DRAW', -5, -6/ DATA IOPERA( 296),IX( 296),IY( 296)/'MOVE', -2, -2/ DATA IOPERA( 297),IX( 297),IY( 297)/'DRAW', 4, -9/ DATA IOPERA( 298),IX( 298),IY( 298)/'DRAW', 6, -9/ DATA IOPERA( 299),IX( 299),IY( 299)/'MOVE', -1, -1/ DATA IOPERA( 300),IX( 300),IY( 300)/'DRAW', 6, -9/ C DATA IXMIND( 11)/ -10/ DATA IXMAXD( 11)/ 9/ DATA IXDELD( 11)/ 19/ DATA ISTARD( 11)/ 285/ DATA NUMCOO( 11)/ 16/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDL1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDL1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX LOWER CASE (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2612--LOWER CASE L C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 0, -9/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 1, -9/ DATA IOPERA( 4),IX( 4),IY( 4)/'MOVE', 0, 12/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 1, 12/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 1, -9/ C DATA IXMIND( 12)/ -4/ DATA IXMAXD( 12)/ 5/ DATA IXDELD( 12)/ 9/ DATA ISTARD( 12)/ 1/ DATA NUMCOO( 12)/ 6/ C C DEFINE CHARACTER 2613--LOWER CASE M C DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', -11, 5/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -11, -9/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -10, -9/ DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', -11, 5/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -10, 5/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -10, -9/ DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', -10, 1/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -7, 4/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -5, 5/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -2, 5/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 0, 4/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 1, 1/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 1, -9/ DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', -10, 1/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -7, 3/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -5, 4/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -3, 4/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -1, 3/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 0, 1/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 0, -9/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 1, -9/ DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', 1, 1/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 4, 4/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 6, 5/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 9, 5/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 11, 4/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 12, 1/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 12, -9/ DATA IOPERA( 35),IX( 35),IY( 35)/'MOVE', 1, 1/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 4, 3/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 6, 4/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 8, 4/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 10, 3/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 11, 1/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 11, -9/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 12, -9/ C DATA IXMIND( 13)/ -15/ DATA IXMAXD( 13)/ 16/ DATA IXDELD( 13)/ 31/ DATA ISTARD( 13)/ 7/ DATA NUMCOO( 13)/ 36/ C C DEFINE CHARACTER 2614--LOWER CASE N C DATA IOPERA( 43),IX( 43),IY( 43)/'MOVE', -6, 5/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -6, -9/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', -5, -9/ DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', -6, 5/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -5, 5/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -5, -9/ DATA IOPERA( 49),IX( 49),IY( 49)/'MOVE', -5, 1/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -2, 4/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 0, 5/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 3, 5/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 5, 4/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 6, 1/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 6, -9/ DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', -5, 1/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -2, 3/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 0, 4/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 2, 4/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 4, 3/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 5, 1/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 5, -9/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 6, -9/ C DATA IXMIND( 14)/ -10/ DATA IXMAXD( 14)/ 10/ DATA IXDELD( 14)/ 20/ DATA ISTARD( 14)/ 43/ DATA NUMCOO( 14)/ 21/ C C DEFINE CHARACTER 2615--LOWER CASE O C DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', -1, 5/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -3, 4/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -5, 2/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -6, -1/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -6, -3/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -5, -6/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, -8/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -1, -9/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 2, -9/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 4, -8/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 6, -6/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 7, -3/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 7, -1/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 6, 2/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 4, 4/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 2, 5/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, 5/ DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', -1, 4/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -3, 3/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -4, 2/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -5, -1/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -5, -3/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -4, -6/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -3, -7/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -1, -8/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 2, -8/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 4, -7/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 5, -6/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 6, -3/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 6, -1/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 5, 2/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 4, 3/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 2, 4/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -1, 4/ C DATA IXMIND( 15)/ -9/ DATA IXMAXD( 15)/ 10/ DATA IXDELD( 15)/ 19/ DATA ISTARD( 15)/ 64/ DATA NUMCOO( 15)/ 34/ C C DEFINE CHARACTER 2616--LOWER CASE P C DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', -6, 5/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -6, -16/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -5, -16/ DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', -6, 5/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -5, 5/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -5, -16/ DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', -5, 2/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -3, 4/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -1, 5/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 2, 5/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 4, 4/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 6, 2/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 7, -1/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 7, -3/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 6, -6/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 4, -8/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 2, -9/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -1, -9/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, -8/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -5, -6/ DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', -5, 2/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -1, 4/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 2, 4/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 4, 3/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 5, 2/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 6, -1/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 6, -3/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 5, -6/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 4, -7/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 2, -8/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -1, -8/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -5, -6/ C DATA IXMIND( 16)/ -10/ DATA IXMAXD( 16)/ 10/ DATA IXDELD( 16)/ 20/ DATA ISTARD( 16)/ 98/ DATA NUMCOO( 16)/ 32/ C C DEFINE CHARACTER 2617--LOWER CASE Q C DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', 5, 5/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 5, -16/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 6, -16/ DATA IOPERA( 133),IX( 133),IY( 133)/'MOVE', 5, 5/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 6, 5/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 6, -16/ DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', 5, 2/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 3, 4/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 1, 5/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -2, 5/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -4, 4/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -6, 2/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -7, -1/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -7, -3/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -6, -6/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -4, -8/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -2, -9/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 1, -9/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 3, -8/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 5, -6/ DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', 5, 2/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 1, 4/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -2, 4/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -4, 3/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -5, 2/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -6, -1/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -6, -3/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -5, -6/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -4, -7/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -2, -8/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 1, -8/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 5, -6/ C DATA IXMIND( 17)/ -10/ DATA IXMAXD( 17)/ 10/ DATA IXDELD( 17)/ 20/ DATA ISTARD( 17)/ 130/ DATA NUMCOO( 17)/ 32/ C C DEFINE CHARACTER 2618--LOWER CASE R C DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', -3, 5/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -3, -9/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -2, -9/ DATA IOPERA( 165),IX( 165),IY( 165)/'MOVE', -3, 5/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -2, 5/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -2, -9/ DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', -2, -1/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -1, 2/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 1, 4/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 3, 5/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 6, 5/ DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', -2, -1/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -1, 1/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 1, 3/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 3, 4/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 6, 4/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 6, 5/ C DATA IXMIND( 18)/ -7/ DATA IXMAXD( 18)/ 7/ DATA IXDELD( 18)/ 14/ DATA ISTARD( 18)/ 162/ DATA NUMCOO( 18)/ 17/ C C DEFINE CHARACTER 2619--LOWER CASE S C DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', 6, 2/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 5, 4/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 2, 5/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -1, 5/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, 4/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -5, 2/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -4, 0/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -2, -1/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 3, -3/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 5, -4/ DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', 4, -3/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 5, -5/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 5, -6/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 4, -8/ DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', 5, -7/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 2, -8/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -1, -8/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -4, -7/ DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', -3, -8/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -4, -6/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -5, -6/ DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE', 6, 2/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 5, 2/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 4, 4/ DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 5, 3/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 2, 4/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -1, 4/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -4, 3/ DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -3, 4/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -4, 2/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -3, 0/ DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', -4, 1/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -2, 0/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 3, -2/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 5, -3/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 6, -5/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, -6/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 5, -8/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 2, -9/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -1, -9/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -4, -8/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -5, -6/ C DATA IXMIND( 19)/ -8/ DATA IXMAXD( 19)/ 9/ DATA IXDELD( 19)/ 17/ DATA ISTARD( 19)/ 179/ DATA NUMCOO( 19)/ 42/ C C DEFINE CHARACTER 2620--LOWER CASE T C DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE', 0, 12/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 0, -9/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 1, -9/ DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', 0, 12/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 1, 12/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 1, -9/ DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', -3, 5/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 4, 5/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 4, 4/ DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -3, 5/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -3, 4/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 4, 4/ C DATA IXMIND( 20)/ -5/ DATA IXMAXD( 20)/ 6/ DATA IXDELD( 20)/ 11/ DATA ISTARD( 20)/ 221/ DATA NUMCOO( 20)/ 12/ C C DEFINE CHARACTER 2621--LOWER CASE U C DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -6, 5/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -6, -5/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -5, -8/ DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -3, -9/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 0, -9/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 2, -8/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 5, -5/ DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', -6, 5/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -5, 5/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -5, -5/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -4, -7/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -2, -8/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 0, -8/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 2, -7/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 5, -5/ DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', 5, 5/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 5, -9/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 6, -9/ DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', 5, 5/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 6, 5/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 6, -9/ C DATA IXMIND( 21)/ -10/ DATA IXMAXD( 21)/ 10/ DATA IXDELD( 21)/ 20/ DATA ISTARD( 21)/ 233/ DATA NUMCOO( 21)/ 21/ C C DEFINE CHARACTER 2622--LOWER CASE V C DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', -6, 5/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 0, -9/ DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', -6, 5/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -5, 5/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 0, -7/ DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE', 6, 5/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 5, 5/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 0, -7/ DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', 6, 5/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 0, -9/ C DATA IXMIND( 22)/ -8/ DATA IXMAXD( 22)/ 8/ DATA IXDELD( 22)/ 16/ DATA ISTARD( 22)/ 254/ DATA NUMCOO( 22)/ 10/ C C DEFINE CHARACTER 2623--LOWER CASE W C DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', -9, 5/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -4, -9/ DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', -9, 5/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -8, 5/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -4, -6/ DATA IOPERA( 269),IX( 269),IY( 269)/'MOVE', 0, 5/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -4, -6/ DATA IOPERA( 271),IX( 271),IY( 271)/'MOVE', 0, 2/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', -4, -9/ DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE', 0, 2/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 4, -9/ DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE', 0, 5/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 4, -6/ DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', 9, 5/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 8, 5/ DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 4, -6/ DATA IOPERA( 280),IX( 280),IY( 280)/'MOVE', 9, 5/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', 4, -9/ C DATA IXMIND( 23)/ -12/ DATA IXMAXD( 23)/ 12/ DATA IXDELD( 23)/ 24/ DATA ISTARD( 23)/ 264/ DATA NUMCOO( 23)/ 18/ C C DEFINE CHARACTER 2624--LOWER CASE X C DATA IOPERA( 282),IX( 282),IY( 282)/'MOVE', -6, 5/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 5, -9/ DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 6, -9/ DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE', -6, 5/ DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -5, 5/ DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 6, -9/ DATA IOPERA( 288),IX( 288),IY( 288)/'MOVE', 6, 5/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', 5, 5/ DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -6, -9/ DATA IOPERA( 291),IX( 291),IY( 291)/'MOVE', 6, 5/ DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', -5, -9/ DATA IOPERA( 293),IX( 293),IY( 293)/'DRAW', -6, -9/ C DATA IXMIND( 24)/ -9/ DATA IXMAXD( 24)/ 9/ DATA IXDELD( 24)/ 18/ DATA ISTARD( 24)/ 282/ DATA NUMCOO( 24)/ 12/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDL2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDL2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDL3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX LOWER CASE (PART 3). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2625--LOWER CASE Y C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -6, 5/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 0, -9/ DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', -6, 5/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -5, 5/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 0, -7/ DATA IOPERA( 6),IX( 6),IY( 6)/'MOVE', 6, 5/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 5, 5/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 0, -7/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -4, -16/ DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', 6, 5/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 0, -9/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -3, -16/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -4, -16/ C DATA IXMIND( 25)/ -8/ DATA IXMAXD( 25)/ 8/ DATA IXDELD( 25)/ 16/ DATA ISTARD( 25)/ 1/ DATA NUMCOO( 25)/ 13/ C C DEFINE CHARACTER 2626--LOWER CASE Z C DATA IOPERA( 14),IX( 14),IY( 14)/'MOVE', 4, 4/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -6, -9/ DATA IOPERA( 16),IX( 16),IY( 16)/'MOVE', 6, 5/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -4, -8/ DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', -6, 5/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 6, 5/ DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', -6, 5/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -6, 4/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 4, 4/ DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', -4, -8/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 6, -8/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 6, -9/ DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', -6, -9/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 6, -9/ C DATA IXMIND( 26)/ -9/ DATA IXMAXD( 26)/ 9/ DATA IXDELD( 26)/ 18/ DATA ISTARD( 26)/ 14/ DATA NUMCOO( 26)/ 14/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDL3--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDL3--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDN1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX NUMERIC (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2700--0 C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -1, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, 11/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, 8/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -7, 3/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -7, 0/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -6, -5/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -4, -8/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -1, -9/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 1, -9/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, -8/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 6, -5/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 7, 0/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 7, 3/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 6, 8/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 4, 11/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, 12/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -1, 12/ DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', -3, 11/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -5, 8/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -6, 3/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -6, 0/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -5, -5/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -3, -8/ DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', -4, -7/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, -8/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 1, -8/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 4, -7/ DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', 3, -8/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 5, -5/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 6, 0/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 6, 3/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 5, 8/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 3, 11/ DATA IOPERA( 34),IX( 34),IY( 34)/'MOVE', 4, 10/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 1, 11/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -1, 11/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -4, 10/ C DATA IXMIND( 1)/ -10/ DATA IXMAXD( 1)/ 10/ DATA IXDELD( 1)/ 20/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 37/ C C DEFINE CHARACTER 2701--1 C DATA IOPERA( 38),IX( 38),IY( 38)/'MOVE', -4, 8/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -2, 9/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 1, 12/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 1, -9/ DATA IOPERA( 42),IX( 42),IY( 42)/'MOVE', -4, 8/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -4, 7/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -2, 8/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 0, 10/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 0, -9/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 1, -9/ C DATA IXMIND( 2)/ -10/ DATA IXMAXD( 2)/ 10/ DATA IXDELD( 2)/ 20/ DATA ISTARD( 2)/ 38/ DATA NUMCOO( 2)/ 10/ C C DEFINE CHARACTER 2702--2 C DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', -6, 7/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -6, 8/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -5, 10/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -4, 11/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -2, 12/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 2, 12/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 4, 11/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 5, 10/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 6, 8/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 6, 6/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 5, 4/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 3, 1/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -6, -9/ DATA IOPERA( 61),IX( 61),IY( 61)/'MOVE', -6, 7/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -5, 7/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -5, 8/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -4, 10/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -2, 11/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 2, 11/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 4, 10/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 5, 8/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 5, 6/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 4, 4/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 2, 1/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -7, -9/ DATA IOPERA( 73),IX( 73),IY( 73)/'MOVE', -6, -8/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 7, -8/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 7, -9/ DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', -7, -9/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 7, -9/ C DATA IXMIND( 3)/ -10/ DATA IXMAXD( 3)/ 10/ DATA IXDELD( 3)/ 20/ DATA ISTARD( 3)/ 48/ DATA NUMCOO( 3)/ 30/ C C DEFINE CHARACTER 2703--3 C DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -5, 12/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 6, 12/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, 3/ DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', -5, 12/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -5, 11/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 5, 11/ DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', 5, 12/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -2, 3/ DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -1, 4/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 1, 4/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 4, 3/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 6, 1/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 7, -2/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 7, -3/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 6, -6/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 4, -8/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 1, -9/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -2, -9/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -5, -8/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -6, -7/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -7, -5/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -6, -5/ DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', -2, 3/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 1, 3/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 4, 2/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 6, -1/ DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', 2, 3/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 5, 1/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 6, -2/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 6, -3/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, -6/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 2, -8/ DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', 6, -4/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 4, -7/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 1, -8/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -2, -8/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, -7/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -6, -5/ DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE', -3, -8/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -6, -6/ C DATA IXMIND( 4)/ -10/ DATA IXMAXD( 4)/ 10/ DATA IXDELD( 4)/ 20/ DATA ISTARD( 4)/ 78/ DATA NUMCOO( 4)/ 40/ C C DEFINE CHARACTER 2704--4 C DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', 3, 9/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 3, -9/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 4, -9/ DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', 4, 12/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 4, -9/ DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE', 4, 12/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -7, -4/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 8, -4/ DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', 3, 9/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -6, -4/ DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -6, -3/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 8, -3/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 8, -4/ C DATA IXMIND( 5)/ -10/ DATA IXMAXD( 5)/ 10/ DATA IXDELD( 5)/ 20/ DATA ISTARD( 5)/ 118/ DATA NUMCOO( 5)/ 13/ C C DEFINE CHARACTER 2705--5 C DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', -5, 12/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -6, 3/ DATA IOPERA( 133),IX( 133),IY( 133)/'MOVE', -4, 11/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -5, 4/ DATA IOPERA( 135),IX( 135),IY( 135)/'MOVE', -5, 12/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 5, 12/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 5, 11/ DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', -4, 11/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 5, 11/ DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', -5, 4/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -2, 5/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 1, 5/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 4, 4/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 6, 2/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 7, -1/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 7, -3/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 6, -6/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 4, -8/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 1, -9/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -2, -9/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -5, -8/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -6, -7/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -7, -5/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -6, -5/ DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', -6, 3/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -5, 3/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -3, 4/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 1, 4/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 4, 3/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 6, 0/ DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', 2, 4/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 5, 2/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 6, -1/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 6, -3/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 5, -6/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 2, -8/ DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 6, -4/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 4, -7/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 1, -8/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -2, -8/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -5, -7/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -6, -5/ DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', -3, -8/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -6, -6/ C DATA IXMIND( 6)/ -10/ DATA IXMAXD( 6)/ 10/ DATA IXDELD( 6)/ 20/ DATA ISTARD( 6)/ 131/ DATA NUMCOO( 6)/ 44/ C C DEFINE CHARACTER 2706--6 C DATA IOPERA( 175),IX( 175),IY( 175)/'MOVE', 4, 11/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 5, 9/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 6, 9/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 5, 11/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 2, 12/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 0, 12/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -3, 11/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -5, 8/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -6, 3/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -6, -2/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -5, -6/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -3, -8/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 0, -9/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 1, -9/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 4, -8/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 6, -6/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 7, -3/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 7, -2/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 6, 1/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 4, 3/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 1, 4/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 0, 4/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -3, 3/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -5, 1/ DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 5, 10/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 2, 11/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 0, 11/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -3, 10/ DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -2, 11/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -4, 8/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -5, 3/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -5, -2/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -4, -6/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -1, -8/ DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', -5, -4/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -3, -7/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 0, -8/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 1, -8/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 4, -7/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 6, -4/ DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', 2, -8/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 5, -6/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 6, -3/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 6, -2/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 5, 1/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 2, 3/ DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE', 6, -1/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 4, 2/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 1, 3/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 0, 3/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -3, 2/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -5, -1/ DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', -1, 3/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -4, 1/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -5, -2/ C DATA IXMIND( 7)/ -10/ DATA IXMAXD( 7)/ 10/ DATA IXDELD( 7)/ 20/ DATA ISTARD( 7)/ 175/ DATA NUMCOO( 7)/ 55/ C C DEFINE CHARACTER 2707--7 C DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -7, 12/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 7, 12/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -3, -9/ DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -7, 12/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -7, 11/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 6, 11/ DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', 6, 12/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -4, -9/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -3, -9/ C DATA IXMIND( 8)/ -10/ DATA IXMAXD( 8)/ 10/ DATA IXDELD( 8)/ 20/ DATA ISTARD( 8)/ 230/ DATA NUMCOO( 8)/ 9/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDN1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDN1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDN2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX NUMERIC (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2708--8 C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -2, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -5, 11/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, 9/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -6, 7/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -5, 5/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -4, 4/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -2, 3/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 2, 2/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 4, 1/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 5, 0/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 6, -2/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 6, -5/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 5, -7/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 2, -8/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -2, -8/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -5, -7/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -6, -5/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -6, -2/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -5, 0/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -4, 1/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -2, 2/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 2, 3/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 4, 4/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 5, 5/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 6, 7/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 6, 9/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 5, 11/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 2, 12/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -2, 12/ DATA IOPERA( 30),IX( 30),IY( 30)/'MOVE', -4, 11/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -5, 9/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -5, 7/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -4, 5/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -2, 4/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 2, 3/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 4, 2/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 6, 0/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 7, -2/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 7, -5/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 6, -7/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 5, -8/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 2, -9/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -2, -9/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -5, -8/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', -6, -7/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -7, -5/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -7, -2/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -6, 0/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -4, 2/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -2, 3/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 2, 4/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 4, 5/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 5, 7/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 5, 9/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 4, 11/ DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 5, 10/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 2, 11/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -2, 11/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -5, 10/ DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', -6, -6/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -3, -8/ DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', 3, -8/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 6, -6/ C DATA IXMIND( 9)/ -10/ DATA IXMAXD( 9)/ 10/ DATA IXDELD( 9)/ 20/ DATA ISTARD( 9)/ 1/ DATA NUMCOO( 9)/ 63/ C C DEFINE CHARACTER 2709--9 C DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', 5, 2/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 3, 0/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 0, -1/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -1, -1/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -4, 0/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -6, 2/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -7, 5/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -7, 6/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -6, 9/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -4, 11/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -1, 12/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 0, 12/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 3, 11/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 5, 9/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 6, 5/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 6, 0/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 5, -5/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 3, -8/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -9/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -2, -9/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -5, -8/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -6, -6/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -5, -6/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -4, -8/ DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 5, 5/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 4, 2/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 1, 0/ DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', 5, 4/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 3, 1/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 0, 0/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -1, 0/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -4, 1/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -6, 4/ DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', -2, 0/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -5, 2/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -6, 5/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -6, 6/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -5, 9/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -2, 11/ DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', -6, 7/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -4, 10/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -1, 11/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 0, 11/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 3, 10/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, 7/ DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', 1, 11/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 4, 9/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 5, 5/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 5, 0/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 4, -5/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 2, -8/ DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', 3, -7/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 0, -8/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -2, -8/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -5, -7/ C DATA IXMIND( 10)/ -10/ DATA IXMAXD( 10)/ 10/ DATA IXDELD( 10)/ 20/ DATA ISTARD( 10)/ 64/ DATA NUMCOO( 10)/ 55/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDN2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDN2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDS1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX SYMBOLS (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MARCH 1982. C UPDATED --MARCH 1987. C UPDATED --MAY 1982. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2710--. (PERIOD) C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, -6/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -1, -7/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -1, -8/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 0, -9/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 1, -9/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 2, -8/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 2, -7/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 1, -6/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 0, -6/ DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', 0, -7/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 0, -8/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 1, -8/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 1, -7/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 0, -7/ C DATA IXMIND( 1)/ -5/ DATA IXMAXD( 1)/ 6/ DATA IXDELD( 1)/ 11/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 14/ C C DEFINE CHARACTER 2711--, (COMMA) C DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', 2, -8/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, -9/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 0, -9/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -1, -8/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -1, -7/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 0, -6/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 1, -6/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 2, -7/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 2, -10/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 1, -12/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, -13/ DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', 0, -7/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 0, -8/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 1, -8/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 1, -7/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 0, -7/ DATA IOPERA( 31),IX( 31),IY( 31)/'MOVE', 1, -9/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 2, -10/ DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', 2, -8/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 1, -12/ C DATA IXMIND( 2)/ -5/ DATA IXMAXD( 2)/ 6/ DATA IXDELD( 2)/ 11/ DATA ISTARD( 2)/ 15/ DATA NUMCOO( 2)/ 20/ C C DEFINE CHARACTER 2712--: (COLON) C DATA IOPERA( 35),IX( 35),IY( 35)/'MOVE', 0, 5/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -1, 4/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -1, 3/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 0, 2/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 1, 2/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 2, 3/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 2, 4/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 1, 5/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 0, 5/ DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 0, 4/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 0, 3/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 1, 3/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 1, 4/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 0, 4/ DATA IOPERA( 49),IX( 49),IY( 49)/'MOVE', 0, -6/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -1, -7/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -1, -8/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 0, -9/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 1, -9/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 2, -8/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 2, -7/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 1, -6/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 0, -6/ DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', 0, -7/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, -8/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 1, -8/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 1, -7/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 0, -7/ C DATA IXMIND( 3)/ -5/ DATA IXMAXD( 3)/ 6/ DATA IXDELD( 3)/ 11/ DATA ISTARD( 3)/ 35/ DATA NUMCOO( 3)/ 28/ C C DEFINE CHARACTER 2713--; (SEMICOLON) C DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 0, 5/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -1, 4/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -1, 3/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 0, 2/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 1, 2/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 2, 3/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 2, 4/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 1, 5/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 0, 5/ DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', 0, 4/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 0, 3/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 1, 3/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 1, 4/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 0, 4/ DATA IOPERA( 77),IX( 77),IY( 77)/'MOVE', 2, -8/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 1, -9/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 0, -9/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, -8/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -1, -7/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -6/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 1, -6/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 2, -7/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 2, -10/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 1, -12/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -1, -13/ DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 0, -7/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 0, -8/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 1, -8/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 1, -7/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 0, -7/ DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', 1, -9/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 2, -10/ DATA IOPERA( 95),IX( 95),IY( 95)/'MOVE', 2, -8/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 1, -12/ C DATA IXMIND( 4)/ -5/ DATA IXMAXD( 4)/ 6/ DATA IXDELD( 4)/ 11/ DATA ISTARD( 4)/ 63/ DATA NUMCOO( 4)/ 34/ C C DEFINE CHARACTER 2714--! (EXCLAMATION POINT) C DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', 0, 12/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 0, -2/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 1, -2/ DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 0, 12/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 1, 12/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 1, -2/ DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', 0, -6/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -1, -7/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -1, -8/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 0, -9/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 1, -9/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 2, -8/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 2, -7/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 1, -6/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 0, -6/ DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE', 0, -7/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 0, -8/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 1, -8/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 1, -7/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 0, -7/ C DATA IXMIND( 5)/ -5/ DATA IXMAXD( 5)/ 6/ DATA IXDELD( 5)/ 11/ DATA ISTARD( 5)/ 97/ DATA NUMCOO( 5)/ 20/ C C DEFINE CHARACTER 2715--? (QUESTION MARK) C DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', -6, 7/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -6, 8/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -5, 10/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -4, 11/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -1, 12/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 2, 12/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 5, 11/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 6, 10/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 7, 8/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 7, 6/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 6, 4/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 5, 3/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 3, 2/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 0, 1/ DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', -6, 7/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -5, 7/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -5, 8/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -4, 10/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -1, 11/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 2, 11/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 5, 10/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 6, 8/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 6, 6/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 5, 4/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 3, 3/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 0, 2/ DATA IOPERA( 143),IX( 143),IY( 143)/'MOVE', -5, 9/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -2, 11/ DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE', 3, 11/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 6, 9/ DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE', 6, 5/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, 2/ DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', 0, 2/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 0, -2/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 1, -2/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 1, 2/ DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 0, -6/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -1, -7/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -1, -8/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 0, -9/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 1, -9/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 2, -8/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 2, -7/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 1, -6/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 0, -6/ DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 0, -7/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 0, -8/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 1, -8/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 1, -7/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 0, -7/ C DATA IXMIND( 6)/ -9/ DATA IXMAXD( 6)/ 10/ DATA IXDELD( 6)/ 19/ DATA ISTARD( 6)/ 117/ DATA NUMCOO( 6)/ 50/ C C DEFINE CHARACTER 2718--& (AMPERSAND) C DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 10, 5/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 8, 5/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 6, 4/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 5, 2/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 3, -4/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 2, -6/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 1, -7/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -1, -8/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -5, -8/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -7, -7/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -8, -5/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -8, -3/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -7, -1/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, 0/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -1, 3/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 1, 5/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 2, 7/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 2, 9/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 1, 11/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -1, 12/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -2, 12/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -4, 11/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -5, 9/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -5, 7/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -4, 4/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -2, 1/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, -5/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 6, -8/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 8, -9/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 10, -9/ DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 10, 5/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 10, 4/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 8, 4/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 6, 3/ DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', 7, 4/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 6, 2/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 4, -4/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 3, -6/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 1, -8/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -1, -9/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -5, -9/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -7, -8/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -8, -7/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -9, -5/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -9, -3/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -8, -1/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -6, 1/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -1, 4/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 0, 5/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 1, 7/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 1, 9/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 0, 11/ DATA IOPERA( 219),IX( 219),IY( 219)/'MOVE', 1, 10/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -1, 11/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -2, 11/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -4, 10/ DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', -3, 11/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -4, 9/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -4, 7/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -3, 4/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -1, 1/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 4, -5/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 6, -7/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 8, -8/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 10, -8/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 10, -9/ C DATA IXMIND( 7)/ -12/ DATA IXMAXD( 7)/ 13/ DATA IXDELD( 7)/ 25/ DATA ISTARD( 7)/ 167/ DATA NUMCOO( 7)/ 66/ C C DEFINE CHARACTER 2719--$ (DOLLAR SIGN) C DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', 0, 16/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 0, -13/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 1, -13/ DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', 0, 16/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 1, 16/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 1, -13/ DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', 5, 9/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 7, 9/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 5, 11/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 2, 12/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -1, 12/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -4, 11/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -6, 9/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -6, 7/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -5, 5/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', -4, 4/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 4, 0/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 5, -1/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 6, -3/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 6, -5/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 5, -7/ DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 2, -8/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -1, -8/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -3, -7/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -4, -6/ DATA IOPERA( 258),IX( 258),IY( 258)/'MOVE', 5, 9/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 4, 10/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 2, 11/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -1, 11/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -4, 10/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -5, 9/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -5, 7/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -4, 5/ DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 4, 1/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 6, -1/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 7, -3/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 7, -5/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 6, -7/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 5, -8/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 2, -9/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -1, -9/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -4, -8/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -6, -6/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', -4, -6/ DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', 6, -6/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 3, -8/ C DATA IXMIND( 8)/ -9/ DATA IXMAXD( 8)/ 10/ DATA IXDELD( 8)/ 19/ DATA ISTARD( 8)/ 233/ DATA NUMCOO( 8)/ 46/ C C DEFINE CHARACTER 2720--/ (SLASH) C DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE', 9, 16/ DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -9, -16/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -8, -16/ DATA IOPERA( 282),IX( 282),IY( 282)/'MOVE', 9, 16/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 10, 16/ DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -8, -16/ C DATA IXMIND( 9)/ -11/ DATA IXMAXD( 9)/ 12/ DATA IXDELD( 9)/ 23/ DATA ISTARD( 9)/ 279/ DATA NUMCOO( 9)/ 6/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDS1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDS1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDS2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX SYMBOLS (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MARCH 1982. C UPDATED --MARCH 1987. C UPDATED --MAY 1982. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2721--( (LEFT PARENTHESES) C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 3, 16/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 1, 14/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -1, 11/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -3, 7/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -4, 2/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -4, -2/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -3, -7/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -1, -11/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 1, -14/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 3, -16/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 4, -16/ DATA IOPERA( 12),IX( 12),IY( 12)/'MOVE', 3, 16/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 4, 16/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 2, 14/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 0, 11/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -2, 7/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -3, 2/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -3, -2/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -2, -7/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 0, -11/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 2, -14/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 4, -16/ C DATA IXMIND( 10)/ -7/ DATA IXMAXD( 10)/ 7/ DATA IXDELD( 10)/ 14/ DATA ISTARD( 10)/ 1/ DATA NUMCOO( 10)/ 22/ C C DEFINE CHARACTER 2722--) (RIGHT PARENTHESES) C DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', -4, 16/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -2, 14/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 0, 11/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 2, 7/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 3, 2/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 3, -2/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 2, -7/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 0, -11/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -2, -14/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -4, -16/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -3, -16/ DATA IOPERA( 34),IX( 34),IY( 34)/'MOVE', -4, 16/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -3, 16/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -1, 14/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 1, 11/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 3, 7/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 4, 2/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 4, -2/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 3, -7/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 1, -11/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -1, -14/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -3, -16/ C DATA IXMIND( 11)/ -7/ DATA IXMAXD( 11)/ 7/ DATA IXDELD( 11)/ 14/ DATA ISTARD( 11)/ 23/ DATA NUMCOO( 11)/ 22/ C C DEFINE CHARACTER 2723--* (ASTERISK) C DATA IOPERA( 45),IX( 45),IY( 45)/'MOVE', 0, 12/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -1, 11/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 1, 1/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 0, 0/ DATA IOPERA( 49),IX( 49),IY( 49)/'MOVE', 0, 12/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 0, 0/ DATA IOPERA( 51),IX( 51),IY( 51)/'MOVE', 0, 12/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 1, 11/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -1, 1/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 0, 0/ DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -5, 9/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -4, 9/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 4, 3/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 5, 3/ DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', -5, 9/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 5, 3/ DATA IOPERA( 61),IX( 61),IY( 61)/'MOVE', -5, 9/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -5, 8/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 5, 4/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 5, 3/ DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', 5, 9/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 4, 9/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -4, 3/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -5, 3/ DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', 5, 9/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -5, 3/ DATA IOPERA( 71),IX( 71),IY( 71)/'MOVE', 5, 9/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 5, 8/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -5, 4/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -5, 3/ C DATA IXMIND( 12)/ -8/ DATA IXMAXD( 12)/ 8/ DATA IXDELD( 12)/ 16/ DATA ISTARD( 12)/ 45/ DATA NUMCOO( 12)/ 30/ C C DEFINE CHARACTER 2724--- (HYPHEN OR MINUS SIGN) C DATA IOPERA( 75),IX( 75),IY( 75)/'MOVE', -8, 1/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 9, 1/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 9, 0/ DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -8, 1/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -8, 0/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 9, 0/ C DATA IXMIND( 13)/ -12/ DATA IXMAXD( 13)/ 13/ DATA IXDELD( 13)/ 25/ DATA ISTARD( 13)/ 75/ DATA NUMCOO( 13)/ 6/ C C DEFINE CHARACTER 2725--+ (PLUS SIGN) C DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', 0, 9/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -8/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 1, -8/ DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', 0, 9/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 1, 9/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 1, -8/ DATA IOPERA( 87),IX( 87),IY( 87)/'MOVE', -8, 1/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 9, 1/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 9, 0/ DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', -8, 1/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -8, 0/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 9, 0/ C DATA IXMIND( 14)/ -12/ DATA IXMAXD( 14)/ 13/ DATA IXDELD( 14)/ 25/ DATA ISTARD( 14)/ 81/ DATA NUMCOO( 14)/ 12/ C C DEFINE CHARACTER 2726--= (EQUAL SIGN) C DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', -8, 5/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 9, 5/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 9, 4/ DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', -8, 5/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -8, 4/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 9, 4/ DATA IOPERA( 99),IX( 99),IY( 99)/'MOVE', -8, -3/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 9, -3/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 9, -4/ DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE', -8, -3/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -8, -4/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 9, -4/ C DATA IXMIND( 15)/ -12/ DATA IXMAXD( 15)/ 13/ DATA IXDELD( 15)/ 25/ DATA ISTARD( 15)/ 93/ DATA NUMCOO( 15)/ 12/ C C DEFINE CHARACTER 2727--' (SINGLE QUOTE) C DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', 1, 12/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 0, 11/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 0, 5/ DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', 1, 11/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 0, 5/ DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', 1, 12/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 2, 11/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 0, 5/ C DATA IXMIND( 16)/ -4/ DATA IXMAXD( 16)/ 5/ DATA IXDELD( 16)/ 9/ DATA ISTARD( 16)/ 105/ DATA NUMCOO( 16)/ 8/ C C DEFINE CHARACTER 2728-- (DOUBLE QUOTE) C DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -4, 12/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, 11/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -5, 5/ DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE', -4, 11/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -5, 5/ DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', -4, 12/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -3, 11/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -5, 5/ DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', 5, 12/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 4, 11/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 4, 5/ DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', 5, 11/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 4, 5/ DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', 5, 12/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 6, 11/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 4, 5/ C DATA IXMIND( 17)/ -9/ DATA IXMAXD( 17)/ 9/ DATA IXDELD( 17)/ 18/ DATA ISTARD( 17)/ 113/ DATA NUMCOO( 17)/ 16/ C C DEFINE CHARACTER 2729-- (DEGREES) C DATA IOPERA( 129),IX( 129),IY( 129)/'MOVE', -1, 12/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -3, 11/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -4, 9/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -4, 7/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -3, 5/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -1, 4/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 1, 4/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 3, 5/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 4, 7/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 4, 9/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 3, 11/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 1, 12/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -1, 12/ DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', -1, 12/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -4, 9/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -3, 5/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 1, 4/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 4, 7/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 3, 11/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -1, 12/ DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', 1, 12/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -3, 11/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -4, 7/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -1, 4/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 3, 5/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 4, 9/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 1, 12/ C DATA IXMIND( 18)/ -7/ DATA IXMAXD( 18)/ 7/ DATA IXDELD( 18)/ 14/ DATA ISTARD( 18)/ 129/ DATA NUMCOO( 18)/ 27/ C C DEFINE CHARACTER 2747-- (NO SPACE BLANK) C DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE', 0, -32/ DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', 0, -32/ C DATA IXMIND( 19)/ 0/ DATA IXMAXD( 19)/ 0/ DATA IXDELD( 19)/ 0/ DATA ISTARD( 19)/ 156/ DATA NUMCOO( 19)/ 2/ C C DEFINE CHARACTER 2748-- (HALF SPACE BLANK) C DATA IOPERA( 158),IX( 158),IY( 158)/'MOVE', -4, -32/ DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 4, -32/ C DATA IXMIND( 20)/ -5/ DATA IXMAXD( 20)/ 5/ DATA IXDELD( 20)/ 10/ DATA ISTARD( 20)/ 158/ DATA NUMCOO( 20)/ 2/ C C DEFINE CHARACTER 2749-- (FULL SPACE BLANK) C DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE', -8, -32/ DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', 8, -32/ C DATA IXMIND( 21)/ -10/ DATA IXMAXD( 21)/ 10/ DATA IXDELD( 21)/ 20/ DATA ISTARD( 21)/ 160/ DATA NUMCOO( 21)/ 2/ C C DEFINE CHARACTER 2716-- (LEFT APOSTRAPHE) C DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 2, 12/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 0, 11/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -1, 9/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -1, 6/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 0, 5/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 1, 5/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 2, 6/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 2, 7/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 1, 8/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 0, 8/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -1, 7/ DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', 0, 7/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 0, 6/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 1, 6/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 1, 7/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 0, 7/ DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', 0, 11/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -1, 7/ DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', -1, 9/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 0, 8/ C DATA IXMIND( 22)/ -5/ DATA IXMAXD( 22)/ 6/ DATA IXDELD( 22)/ 11/ DATA ISTARD( 22)/ 162/ DATA NUMCOO( 22)/ 20/ C C DEFINE CHARACTER 2717-- (RIGHT APOSTRAPHE) C DATA IOPERA( 182),IX( 182),IY( 182)/'MOVE', 2, 10/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 1, 9/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 0, 9/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -1, 10/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -1, 11/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 0, 12/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 1, 12/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 2, 11/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 2, 8/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 1, 6/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -1, 5/ DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', 0, 11/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 0, 10/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 1, 10/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 1, 11/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', 0, 11/ DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE', 1, 9/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 2, 8/ DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE', 2, 10/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 1, 6/ C DATA IXMIND( 23)/ -5/ DATA IXMAXD( 23)/ 6/ DATA IXDELD( 23)/ 11/ DATA ISTARD( 23)/ 182/ DATA NUMCOO( 23)/ 20/ C C DEFINE CHARACTER XXX--| (KEYBOARD VERTICAL BAR) C DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE', 0, 12/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 0, -9/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 1, -9/ DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', 0, 12/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 1, 12/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 1, -9/ C DATA IXMIND( 24)/ -4/ DATA IXMAXD( 24)/ 5/ DATA IXDELD( 24)/ 9/ DATA ISTARD( 24)/ 202/ DATA NUMCOO( 24)/ 6/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDS2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDS2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDU1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX UPPER CASE (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2501--UPPER CASE A C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -8, -9/ DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 0, 9/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -7, -9/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -8, -9/ DATA IOPERA( 6),IX( 6),IY( 6)/'MOVE', 0, 9/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 7, -9/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 8, -9/ DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', 0, 12/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 8, -9/ DATA IOPERA( 11),IX( 11),IY( 11)/'MOVE', -5, -3/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 5, -3/ DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', -6, -4/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 6, -4/ C DATA IXMIND( 1)/ -10/ DATA IXMAXD( 1)/ 10/ DATA IXDELD( 1)/ 20/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 14/ C C DEFINE CHARACTER 2502--UPPER CASE B C DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', -6, 12/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -6, -9/ DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -5, 11/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -5, -8/ DATA IOPERA( 19),IX( 19),IY( 19)/'MOVE', -6, 12/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 2, 12/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 5, 11/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 6, 10/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 7, 8/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 7, 5/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 6, 3/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 5, 2/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 2, 1/ DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', -5, 11/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 2, 11/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 5, 10/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 6, 8/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 6, 5/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 5, 3/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 2, 2/ DATA IOPERA( 35),IX( 35),IY( 35)/'MOVE', -5, 2/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 2, 2/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 5, 1/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 6, 0/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 7, -2/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 7, -5/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 6, -7/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 5, -8/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 2, -9/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -6, -9/ DATA IOPERA( 45),IX( 45),IY( 45)/'MOVE', -5, 1/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 2, 1/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 5, 0/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 6, -2/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 6, -5/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 5, -7/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 2, -8/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -5, -8/ C DATA IXMIND( 2)/ -10/ DATA IXMAXD( 2)/ 10/ DATA IXDELD( 2)/ 20/ DATA ISTARD( 2)/ 15/ DATA NUMCOO( 2)/ 38/ C C DEFINE CHARACTER 2503--UPPER CASE C C DATA IOPERA( 53),IX( 53),IY( 53)/'MOVE', 8, 7/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 7, 9/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 5, 11/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 3, 12/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -1, 12/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -3, 11/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -5, 9/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -6, 7/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -7, 4/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -7, -1/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -6, -4/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -5, -6/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -3, -8/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -1, -9/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 3, -9/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 5, -8/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 7, -6/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 8, -4/ DATA IOPERA( 71),IX( 71),IY( 71)/'MOVE', 8, 7/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 7, 7/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 6, 9/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 5, 10/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 3, 11/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -1, 11/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -3, 10/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -5, 7/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -6, 4/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -6, -1/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -5, -4/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -3, -7/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -1, -8/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 3, -8/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 5, -7/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 6, -6/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 7, -4/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 8, -4/ C DATA IXMIND( 3)/ -10/ DATA IXMAXD( 3)/ 11/ DATA IXDELD( 3)/ 21/ DATA ISTARD( 3)/ 53/ DATA NUMCOO( 3)/ 36/ C C DEFINE CHARACTER 2504--UPPER CASE D C DATA IOPERA( 89),IX( 89),IY( 89)/'MOVE', -6, 12/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -6, -9/ DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', -5, 11/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -5, -8/ DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', -6, 12/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 1, 12/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 4, 11/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 6, 9/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 7, 7/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 8, 4/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 8, -1/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 7, -4/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 6, -6/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 4, -8/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 1, -9/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -6, -9/ DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', -5, 11/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 1, 11/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 4, 10/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, 9/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 6, 7/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 7, 4/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 7, -1/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 6, -4/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 5, -6/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 4, -7/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 1, -8/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -5, -8/ C DATA IXMIND( 4)/ -10/ DATA IXMAXD( 4)/ 11/ DATA IXDELD( 4)/ 21/ DATA ISTARD( 4)/ 89/ DATA NUMCOO( 4)/ 28/ C C DEFINE CHARACTER 2505--UPPER CASE E C DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', -5, 12/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -5, -9/ DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', -4, 11/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -4, -8/ DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', -5, 12/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 7, 12/ DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE', -4, 11/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 7, 11/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 7, 12/ DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', -4, 2/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 2, 2/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 2, 1/ DATA IOPERA( 129),IX( 129),IY( 129)/'MOVE', -4, 1/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 2, 1/ DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', -4, -8/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 7, -8/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 7, -9/ DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -5, -9/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 7, -9/ C DATA IXMIND( 5)/ -9/ DATA IXMAXD( 5)/ 10/ DATA IXDELD( 5)/ 19/ DATA ISTARD( 5)/ 117/ DATA NUMCOO( 5)/ 19/ C C DEFINE CHARACTER 2506--UPPER CASE F C DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', -5, 12/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -5, -9/ DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', -4, 11/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -4, -9/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -5, -9/ DATA IOPERA( 141),IX( 141),IY( 141)/'MOVE', -5, 12/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 7, 12/ DATA IOPERA( 143),IX( 143),IY( 143)/'MOVE', -4, 11/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 7, 11/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 7, 12/ DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', -4, 2/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 2, 2/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, 1/ DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', -4, 1/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 2, 1/ C DATA IXMIND( 6)/ -9/ DATA IXMAXD( 6)/ 9/ DATA IXDELD( 6)/ 18/ DATA ISTARD( 6)/ 136/ DATA NUMCOO( 6)/ 15/ C C DEFINE CHARACTER 2507--UPPER CASE G C DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE', 8, 7/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 7, 9/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 5, 11/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 3, 12/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -1, 12/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -3, 11/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -5, 9/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -6, 7/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -7, 4/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -7, -1/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -6, -4/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -5, -6/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -3, -8/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -1, -9/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 3, -9/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 5, -8/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 7, -6/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 8, -4/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 8, 0/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 3, 0/ DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 8, 7/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 7, 7/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 6, 9/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 5, 10/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 3, 11/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -1, 11/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -3, 10/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -4, 9/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -5, 7/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, 4/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -6, -1/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -5, -4/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, -6/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -3, -7/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -1, -8/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 3, -8/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 5, -7/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 6, -6/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 7, -4/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 7, -1/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 3, -1/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 3, 0/ C DATA IXMIND( 7)/ -10/ DATA IXMAXD( 7)/ 11/ DATA IXDELD( 7)/ 21/ DATA ISTARD( 7)/ 151/ DATA NUMCOO( 7)/ 42/ C C DEFINE CHARACTER 2508--UPPER CASE H C DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', -7, 12/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -7, -9/ DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', -7, 12/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -6, 12/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -6, -9/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -7, -9/ DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 7, 12/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 6, 12/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 6, -9/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 7, -9/ DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 7, 12/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 7, -9/ DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', -6, 2/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 6, 2/ DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -6, 1/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 6, 1/ C DATA IXMIND( 8)/ -11/ DATA IXMAXD( 8)/ 11/ DATA IXDELD( 8)/ 22/ DATA ISTARD( 8)/ 193/ DATA NUMCOO( 8)/ 16/ C C DEFINE CHARACTER 2509--UPPER CASE I C DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 0, 12/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 0, -9/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 1, -9/ DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', 0, 12/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 1, 12/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 1, -9/ C DATA IXMIND( 9)/ -4/ DATA IXMAXD( 9)/ 5/ DATA IXDELD( 9)/ 9/ DATA ISTARD( 9)/ 209/ DATA NUMCOO( 9)/ 6/ C C DEFINE CHARACTER 2510--UPPER CASE J C DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', 4, 12/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 4, -4/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 3, -7/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 1, -8/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -1, -8/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -3, -7/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -4, -4/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -5, -4/ DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', 4, 12/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 5, 12/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 5, -4/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 4, -7/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 3, -8/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 1, -9/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -1, -9/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', -3, -8/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -4, -7/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -5, -4/ C DATA IXMIND( 10)/ -8/ DATA IXMAXD( 10)/ 9/ DATA IXDELD( 10)/ 17/ DATA ISTARD( 10)/ 215/ DATA NUMCOO( 10)/ 18/ C C DEFINE CHARACTER 2511--UPPER CASE K C DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -6, 12/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -6, -9/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -5, -9/ DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', -6, 12/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -5, 12/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -5, -9/ DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', 8, 12/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 7, 12/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -5, 0/ DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', 8, 12/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -5, -1/ DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE', -2, 3/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 7, -9/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 8, -9/ DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', -1, 3/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 8, -9/ C DATA IXMIND( 11)/ -10/ DATA IXMAXD( 11)/ 11/ DATA IXDELD( 11)/ 21/ DATA ISTARD( 11)/ 233/ DATA NUMCOO( 11)/ 16/ C C DEFINE CHARACTER 2512--UPPER CASE L C DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE', -5, 12/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', -5, -9/ DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', -5, 12/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -4, 12/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -4, -8/ DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', -4, -8/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 7, -8/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 7, -9/ DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE', -5, -9/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 7, -9/ C DATA IXMIND( 12)/ -9/ DATA IXMAXD( 12)/ 8/ DATA IXDELD( 12)/ 17/ DATA ISTARD( 12)/ 249/ DATA NUMCOO( 12)/ 10/ C C DEFINE CHARACTER 2513--UPPER CASE M C DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE', -8, 12/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -8, -9/ DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE', -7, 7/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -7, -9/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -8, -9/ DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', -7, 7/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 0, -9/ DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', -8, 12/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 0, -6/ DATA IOPERA( 268),IX( 268),IY( 268)/'MOVE', 8, 12/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 0, -6/ DATA IOPERA( 270),IX( 270),IY( 270)/'MOVE', 7, 7/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 0, -9/ DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE', 7, 7/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 7, -9/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 8, -9/ DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE', 8, 12/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 8, -9/ C DATA IXMIND( 13)/ -12/ DATA IXMAXD( 13)/ 12/ DATA IXDELD( 13)/ 24/ DATA ISTARD( 13)/ 259/ DATA NUMCOO( 13)/ 18/ C C DEFINE CHARACTER 2514--UPPER CASE N C DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', -7, 12/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', -7, -9/ DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE', -6, 9/ DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -6, -9/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -7, -9/ DATA IOPERA( 282),IX( 282),IY( 282)/'MOVE', -6, 9/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 7, -9/ DATA IOPERA( 284),IX( 284),IY( 284)/'MOVE', -7, 12/ DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', 6, -6/ DATA IOPERA( 286),IX( 286),IY( 286)/'MOVE', 6, 12/ DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 6, -6/ DATA IOPERA( 288),IX( 288),IY( 288)/'MOVE', 6, 12/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', 7, 12/ DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', 7, -9/ C DATA IXMIND( 14)/ -11/ DATA IXMAXD( 14)/ 11/ DATA IXDELD( 14)/ 22/ DATA ISTARD( 14)/ 277/ DATA NUMCOO( 14)/ 14/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRDU2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN DUPLEX UPPER CASE (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 2515--UPPER CASE O C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -2, 12/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, 11/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, 9/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -7, 7/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -8, 4/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -8, -1/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -7, -4/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -6, -6/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -4, -8/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -2, -9/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 2, -9/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 4, -8/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 6, -6/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 7, -4/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 8, -1/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 8, 4/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 7, 7/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 6, 9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 4, 11/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 2, 12/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -2, 12/ DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', -1, 11/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -4, 10/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -6, 7/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -7, 4/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -7, -1/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -6, -4/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -4, -7/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -1, -8/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 1, -8/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 4, -7/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 6, -4/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 7, -1/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 7, 4/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 6, 7/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 4, 10/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 1, 11/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -1, 11/ C DATA IXMIND( 15)/ -11/ DATA IXMAXD( 15)/ 11/ DATA IXDELD( 15)/ 22/ DATA ISTARD( 15)/ 1/ DATA NUMCOO( 15)/ 38/ C C DEFINE CHARACTER 2516--UPPER CASE P C DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', -6, 12/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -6, -9/ DATA IOPERA( 41),IX( 41),IY( 41)/'MOVE', -5, 11/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -5, -9/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -6, -9/ DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', -6, 12/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 3, 12/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 5, 11/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 6, 10/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 7, 8/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 7, 5/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 6, 3/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 5, 2/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 3, 1/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -5, 1/ DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', -5, 11/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 3, 11/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 5, 10/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 6, 8/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 6, 5/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 5, 3/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 3, 2/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -5, 2/ C DATA IXMIND( 16)/ -10/ DATA IXMAXD( 16)/ 10/ DATA IXDELD( 16)/ 20/ DATA ISTARD( 16)/ 39/ DATA NUMCOO( 16)/ 23/ C C DEFINE CHARACTER 2517--UPPER CASE Q C DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', -2, 12/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -4, 11/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -6, 9/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -7, 7/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -8, 4/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -8, -1/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -7, -4/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -6, -6/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -4, -8/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -2, -9/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 2, -9/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 4, -8/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 6, -6/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 7, -4/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 8, -1/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 8, 4/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 7, 7/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 6, 9/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 4, 11/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 2, 12/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -2, 12/ DATA IOPERA( 83),IX( 83),IY( 83)/'MOVE', -1, 11/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -4, 10/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -6, 7/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -7, 4/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -7, -1/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -6, -4/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -4, -7/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -1, -8/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 1, -8/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 4, -7/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 6, -4/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 7, -1/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 7, 4/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 6, 7/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 4, 10/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 1, 11/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -1, 11/ DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 1, -6/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 6, -11/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 7, -11/ DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', 1, -6/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 2, -6/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 7, -11/ C DATA IXMIND( 17)/ -11/ DATA IXMAXD( 17)/ 11/ DATA IXDELD( 17)/ 22/ DATA ISTARD( 17)/ 62/ DATA NUMCOO( 17)/ 44/ C C DEFINE CHARACTER 2518--UPPER CASE R C DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', -6, 12/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -6, -9/ DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', -5, 11/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -5, -9/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -6, -9/ DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', -6, 12/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 2, 12/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 5, 11/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 6, 10/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 7, 8/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 7, 5/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 6, 3/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 5, 2/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 2, 1/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -5, 1/ DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', -5, 11/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 2, 11/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 5, 10/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 6, 8/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 6, 5/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 5, 3/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 2, 2/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -5, 2/ DATA IOPERA( 129),IX( 129),IY( 129)/'MOVE', 0, 1/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 6, -9/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 7, -9/ DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', 1, 1/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 7, -9/ C DATA IXMIND( 18)/ -10/ DATA IXMAXD( 18)/ 10/ DATA IXDELD( 18)/ 20/ DATA ISTARD( 18)/ 106/ DATA NUMCOO( 18)/ 28/ C C DEFINE CHARACTER 2519--UPPER CASE S C DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', 7, 9/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 5, 11/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 2, 12/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -2, 12/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -5, 11/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -7, 9/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -7, 7/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -6, 5/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -5, 4/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -3, 3/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 2, 1/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 4, 0/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 5, -1/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 6, -3/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 6, -6/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 5, -7/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 2, -8/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -2, -8/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -4, -7/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -5, -6/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -7, -6/ DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', 7, 9/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 5, 9/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 4, 10/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 2, 11/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -2, 11/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -5, 10/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -6, 9/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -6, 7/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -5, 5/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -3, 4/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 2, 2/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 4, 1/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 6, -1/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 7, -3/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 7, -6/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 5, -8/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 2, -9/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -2, -9/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -5, -8/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -7, -6/ C DATA IXMIND( 19)/ -10/ DATA IXMAXD( 19)/ 10/ DATA IXDELD( 19)/ 20/ DATA ISTARD( 19)/ 134/ DATA NUMCOO( 19)/ 41/ C C DEFINE CHARACTER 2520--UPPER CASE T C DATA IOPERA( 175),IX( 175),IY( 175)/'MOVE', 0, 11/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 0, -9/ DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', 1, 11/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 1, -9/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 0, -9/ DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', -6, 12/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 7, 12/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 7, 11/ DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', -6, 12/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -6, 11/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 7, 11/ C DATA IXMIND( 20)/ -8/ DATA IXMAXD( 20)/ 9/ DATA IXDELD( 20)/ 17/ DATA ISTARD( 20)/ 175/ DATA NUMCOO( 20)/ 11/ C C DEFINE CHARACTER 2521--UPPER CASE U C DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE', -7, 12/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -7, -3/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -6, -6/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -4, -8/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -1, -9/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 1, -9/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 4, -8/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 6, -6/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 7, -3/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 7, 12/ DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE', -7, 12/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -6, 12/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -6, -3/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -5, -6/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -4, -7/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -1, -8/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 1, -8/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 4, -7/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 5, -6/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 6, -3/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 6, 12/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 7, 12/ C DATA IXMIND( 21)/ -11/ DATA IXMAXD( 21)/ 11/ DATA IXDELD( 21)/ 22/ DATA ISTARD( 21)/ 186/ DATA NUMCOO( 21)/ 22/ C C DEFINE CHARACTER 2522--UPPER CASE V C DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE', -8, 12/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 0, -9/ DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', -8, 12/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -7, 12/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 0, -6/ DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', 8, 12/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 7, 12/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 0, -6/ DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', 8, 12/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 0, -9/ C DATA IXMIND( 22)/ -10/ DATA IXMAXD( 22)/ 10/ DATA IXDELD( 22)/ 20/ DATA ISTARD( 22)/ 208/ DATA NUMCOO( 22)/ 10/ C C DEFINE CHARACTER 2523--UPPER CASE W C DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -11, 12/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -5, -9/ DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', -11, 12/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -10, 12/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -5, -6/ DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', 0, 12/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -5, -6/ DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE', 0, 9/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -5, -9/ DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', 0, 9/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 5, -9/ DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE', 0, 12/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 5, -6/ DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE', 11, 12/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 10, 12/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 5, -6/ DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE', 11, 12/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 5, -9/ C DATA IXMIND( 23)/ -13/ DATA IXMAXD( 23)/ 13/ DATA IXDELD( 23)/ 26/ DATA ISTARD( 23)/ 218/ DATA NUMCOO( 23)/ 18/ C C DEFINE CHARACTER 2524--UPPER CASE X C DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', -7, 12/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 6, -9/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 7, -9/ DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', -7, 12/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', -6, 12/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 7, -9/ DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', 7, 12/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 6, 12/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -7, -9/ DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE', 7, 12/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -6, -9/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -7, -9/ C DATA IXMIND( 24)/ -10/ DATA IXMAXD( 24)/ 10/ DATA IXDELD( 24)/ 20/ DATA ISTARD( 24)/ 236/ DATA NUMCOO( 24)/ 12/ C C DEFINE CHARACTER 2525--UPPER CASE Y C DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', -7, 12/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 0, 2/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 0, -9/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 1, -9/ DATA IOPERA( 252),IX( 252),IY( 252)/'MOVE', -7, 12/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -6, 12/ DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 1, 2/ DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE', 8, 12/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 7, 12/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 0, 2/ DATA IOPERA( 258),IX( 258),IY( 258)/'MOVE', 8, 12/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 1, 2/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 1, -9/ C DATA IXMIND( 25)/ -9/ DATA IXMAXD( 25)/ 10/ DATA IXDELD( 25)/ 19/ DATA ISTARD( 25)/ 248/ DATA NUMCOO( 25)/ 13/ C C DEFINE CHARACTER 2526--UPPER CASE Z C DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE', 6, 12/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -7, -9/ DATA IOPERA( 263),IX( 263),IY( 263)/'MOVE', 7, 12/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -6, -9/ DATA IOPERA( 265),IX( 265),IY( 265)/'MOVE', -7, 12/ DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 7, 12/ DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE', -7, 12/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -7, 11/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 6, 11/ DATA IOPERA( 270),IX( 270),IY( 270)/'MOVE', -6, -8/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 7, -8/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 7, -9/ DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE', -7, -9/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 7, -9/ C DATA IXMIND( 26)/ -10/ DATA IXMAXD( 26)/ 10/ DATA IXDELD( 26)/ 20/ DATA ISTARD( 26)/ 261/ DATA NUMCOO( 26)/ 14/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRDU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRDU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) C C APPLIES A PLANE ROTATION. C JACK DONGARRA, LINPACK, 3/11/78. C DOUBLE PRECISION DX(1),DY(1),DTEMP,C,S INTEGER I,INCX,INCY,IX,IY,N C IF(N.LE.0)RETURN IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 C C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS NOT EQUAL C TO 1 C IX = 1 IY = 1 IF(INCX.LT.0)IX = (-N+1)*INCX + 1 IF(INCY.LT.0)IY = (-N+1)*INCY + 1 DO 10 I = 1,N DTEMP = C*DX(IX) + S*DY(IY) DY(IY) = C*DY(IY) - S*DX(IX) DX(IX) = DTEMP IX = IX + INCX IY = IY + INCY 10 CONTINUE RETURN C C CODE FOR BOTH INCREMENTS EQUAL TO 1 C 20 DO 30 I = 1,N DTEMP = C*DX(I) + S*DY(I) DY(I) = C*DY(I) - S*DX(I) DX(I) = DTEMP 30 CONTINUE RETURN END SUBROUTINE DROTG(DA,DB,C,S) C C CONSTRUCT GIVENS PLANE ROTATION. C JACK DONGARRA, LINPACK, 3/11/78. C MODIFIED 9/27/86. C DOUBLE PRECISION DA,DB,C,S,ROE,SCALE,R,Z C ROE = DB IF( DABS(DA) .GT. DABS(DB) ) ROE = DA SCALE = DABS(DA) + DABS(DB) IF( SCALE .NE. 0.0D0 ) GO TO 10 C = 1.0D0 S = 0.0D0 R = 0.0D0 GO TO 20 10 R = SCALE*DSQRT((DA/SCALE)**2 + (DB/SCALE)**2) R = DSIGN(1.0D0,ROE)*R C = DA/R S = DB/R 20 Z = S IF( DABS(C) .GT. 0.0D0 .AND. DABS(C) .LE. S ) Z = 1.0D0/C DA = R DB = Z RETURN END SUBROUTINE DRSSL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN SIMPLEX SCRIPT LOWER CASE (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 651--UPPER CASE A C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 3, -3/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 2, -1/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 0, 0/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -2, 0/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -4, -1/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -5, -2/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -6, -4/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -6, -6/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -5, -8/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -3, -9/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -1, -9/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 1, -8/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 2, -6/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 4, 0/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 3, -5/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 3, -8/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 4, -9/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 5, -9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 7, -8/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 8, -7/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 10, -4/ C DATA IXMIND( 1)/ -6/ DATA IXMAXD( 1)/ 10/ DATA IXDELD( 1)/ 16/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 21/ C C DEFINE CHARACTER 652--UPPER CASE B C DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', -5, -4/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -3, -1/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 0, 4/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 1, 6/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 2, 9/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 2, 11/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 1, 12/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -1, 11/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -2, 9/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -3, 5/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -4, -2/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -4, -8/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -3, -9/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -2, -9/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 0, -8/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 2, -6/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 3, -3/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 3, 0/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 4, -4/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 5, -5/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 7, -5/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 9, -4/ C DATA IXMIND( 2)/ -5/ DATA IXMAXD( 2)/ 9/ DATA IXDELD( 2)/ 14/ DATA ISTARD( 2)/ 22/ DATA NUMCOO( 2)/ 22/ C C DEFINE CHARACTER 653--UPPER CASE C C DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 2, -2/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 2, -1/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 1, 0/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -1, 0/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -3, -1/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -4, -2/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -5, -4/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -5, -6/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -4, -8/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -2, -9/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 1, -9/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 4, -7/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 6, -4/ C DATA IXMIND( 3)/ -5/ DATA IXMAXD( 3)/ 6/ DATA IXDELD( 3)/ 11/ DATA ISTARD( 3)/ 44/ DATA NUMCOO( 3)/ 13/ C C DEFINE CHARACTER 654--UPPER CASE D C DATA IOPERA( 57),IX( 57),IY( 57)/'MOVE', 3, -3/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 2, -1/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, 0/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -2, 0/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -4, -1/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -5, -2/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -6, -4/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -6, -6/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -5, -8/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -3, -9/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -1, -9/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 1, -8/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 2, -6/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 8, 12/ DATA IOPERA( 71),IX( 71),IY( 71)/'MOVE', 4, 0/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 3, -5/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 3, -8/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 4, -9/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 5, -9/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 7, -8/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 8, -7/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 10, -4/ C DATA IXMIND( 4)/ -6/ DATA IXMAXD( 4)/ 10/ DATA IXDELD( 4)/ 16/ DATA ISTARD( 4)/ 57/ DATA NUMCOO( 4)/ 22/ C C DEFINE CHARACTER 655--UPPER CASE E C DATA IOPERA( 79),IX( 79),IY( 79)/'MOVE', -3, -7/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, -6/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 0, -5/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 1, -3/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 1, -1/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 0, 0/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -1, 0/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -3, -1/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -4, -3/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -4, -6/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -3, -8/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -1, -9/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 1, -9/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 3, -8/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 4, -7/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 6, -4/ C DATA IXMIND( 5)/ -4/ DATA IXMAXD( 5)/ 6/ DATA IXDELD( 5)/ 10/ DATA ISTARD( 5)/ 79/ DATA NUMCOO( 5)/ 16/ C C DEFINE CHARACTER 656--UPPER CASE F C DATA IOPERA( 95),IX( 95),IY( 95)/'MOVE', -3, -4/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 1, 1/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 3, 4/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 4, 6/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 5, 9/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 5, 11/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 4, 12/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 2, 11/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 1, 9/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -1, 1/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -4, -8/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -7, -15/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -8, -18/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -8, -20/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -7, -21/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -5, -20/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -4, -17/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -3, -8/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -2, -9/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 0, -9/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 2, -8/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 3, -7/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 5, -4/ C DATA IXMIND( 6)/ -3/ DATA IXMAXD( 6)/ 5/ DATA IXDELD( 6)/ 8/ DATA ISTARD( 6)/ 95/ DATA NUMCOO( 6)/ 23/ C C DEFINE CHARACTER 657--UPPER CASE G C DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', 3, -3/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 2, -1/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 0, 0/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -2, 0/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -4, -1/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -5, -2/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -6, -4/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -6, -6/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -5, -8/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -3, -9/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -1, -9/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, -8/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 2, -7/ DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', 4, 0/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 2, -7/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -2, -18/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -3, -20/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -5, -21/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -6, -20/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -6, -18/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -5, -15/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -2, -12/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 1, -10/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 3, -9/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 6, -7/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 9, -4/ C DATA IXMIND( 7)/ -6/ DATA IXMAXD( 7)/ 9/ DATA IXDELD( 7)/ 15/ DATA ISTARD( 7)/ 118/ DATA NUMCOO( 7)/ 26/ C C DEFINE CHARACTER 658--UPPER CASE H C DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', -5, -4/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -3, -1/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 0, 4/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 1, 6/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, 9/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 2, 11/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 1, 12/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -1, 11/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -2, 9/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -3, 5/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -4, -1/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -5, -9/ DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE', -5, -9/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -4, -6/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -3, -4/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -1, -1/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 1, 0/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 3, 0/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 4, -1/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 4, -3/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 3, -6/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 3, -8/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 4, -9/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 5, -9/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 7, -8/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 8, -7/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 10, -4/ C DATA IXMIND( 8)/ -5/ DATA IXMAXD( 8)/ 10/ DATA IXDELD( 8)/ 15/ DATA ISTARD( 8)/ 144/ DATA NUMCOO( 8)/ 27/ C C DEFINE CHARACTER 659--UPPER CASE I C DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 1, 5/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 1, 4/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 2, 4/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 2, 5/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 1, 5/ DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE', -2, -4/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 0, 0/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -2, -6/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -2, -8/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -1, -9/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 0, -9/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 2, -8/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 3, -7/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 5, -4/ C DATA IXMIND( 9)/ -2/ DATA IXMAXD( 9)/ 5/ DATA IXDELD( 9)/ 7/ DATA ISTARD( 9)/ 171/ DATA NUMCOO( 9)/ 14/ C C DEFINE CHARACTER 660--UPPER CASE J C DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE', 1, 5/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 1, 4/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 2, 4/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 2, 5/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 1, 5/ DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', -2, -4/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 0, 0/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -6, -18/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -7, -20/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -9, -21/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -10, -20/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -10, -18/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -9, -15/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -6, -12/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -3, -10/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -1, -9/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 2, -7/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 5, -4/ C DATA IXMIND( 10)/ -2/ DATA IXMAXD( 10)/ 5/ DATA IXDELD( 10)/ 7/ DATA ISTARD( 10)/ 185/ DATA NUMCOO( 10)/ 18/ C C DEFINE CHARACTER 661--UPPER CASE K C DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -5, -4/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -3, -1/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 0, 4/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 1, 6/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 2, 9/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 2, 11/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 1, 12/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -1, 11/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -2, 9/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -3, 5/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -4, -1/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -5, -9/ DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', -5, -9/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -4, -6/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -3, -4/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -1, -1/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 1, 0/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 3, 0/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 4, -1/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 4, -3/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 2, -4/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -1, -4/ DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE', -1, -4/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 1, -5/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 2, -8/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 3, -9/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 4, -9/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 6, -8/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 7, -7/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 9, -4/ C DATA IXMIND( 11)/ -5/ DATA IXMAXD( 11)/ 9/ DATA IXDELD( 11)/ 14/ DATA ISTARD( 11)/ 203/ DATA NUMCOO( 11)/ 30/ C C DEFINE CHARACTER 662--UPPER CASE L C DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -3, -4/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -1, -1/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 2, 4/ DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 3, 6/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 4, 9/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 4, 11/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 3, 12/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 1, 11/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 0, 9/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -1, 5/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -2, -2/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -2, -8/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -1, -9/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 0, -9/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 2, -8/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 3, -7/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 5, -4/ C DATA IXMIND( 12)/ -3/ DATA IXMAXD( 12)/ 5/ DATA IXDELD( 12)/ 8/ DATA ISTARD( 12)/ 233/ DATA NUMCOO( 12)/ 17/ C C DEFINE CHARACTER 663--UPPER CASE M C DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', -13, -4/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', -11, -1/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -9, 0/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -8, -1/ DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -8, -2/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -9, -6/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -10, -9/ DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE', -9, -6/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -8, -4/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -6, -1/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -4, 0/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -2, 0/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -1, -1/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -1, -2/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -2, -6/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -3, -9/ DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', -2, -6/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -1, -4/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 1, -1/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 3, 0/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 5, 0/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 6, -1/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 6, -3/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 5, -6/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 5, -8/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 6, -9/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 7, -9/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 9, -8/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 10, -7/ DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 12, -4/ C DATA IXMIND( 13)/ -13/ DATA IXMAXD( 13)/ 12/ DATA IXDELD( 13)/ 25/ DATA ISTARD( 13)/ 250/ DATA NUMCOO( 13)/ 30/ C C DEFINE CHARACTER 664--UPPER CASE N C DATA IOPERA( 280),IX( 280),IY( 280)/'MOVE', -8, -4/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -6, -1/ DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -4, 0/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', -3, -1/ DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -3, -2/ DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', -4, -6/ DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -5, -9/ DATA IOPERA( 287),IX( 287),IY( 287)/'MOVE', -4, -6/ DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', -3, -4/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', -1, -1/ DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', 1, 0/ DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', 3, 0/ DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', 4, -1/ DATA IOPERA( 293),IX( 293),IY( 293)/'DRAW', 4, -3/ DATA IOPERA( 294),IX( 294),IY( 294)/'DRAW', 3, -6/ DATA IOPERA( 295),IX( 295),IY( 295)/'DRAW', 3, -8/ DATA IOPERA( 296),IX( 296),IY( 296)/'DRAW', 4, -9/ DATA IOPERA( 297),IX( 297),IY( 297)/'DRAW', 5, -9/ DATA IOPERA( 298),IX( 298),IY( 298)/'DRAW', 7, -8/ DATA IOPERA( 299),IX( 299),IY( 299)/'DRAW', 8, -7/ DATA IOPERA( 300),IX( 300),IY( 300)/'DRAW', 10, -4/ C DATA IXMIND( 14)/ -8/ DATA IXMAXD( 14)/ 10/ DATA IXDELD( 14)/ 18/ DATA ISTARD( 14)/ 280/ DATA NUMCOO( 14)/ 21/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRSSL1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRSSL1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRSSL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN SIMPLEX SCRIPT LOWER CASE (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 665--UPPER CASE O C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, 0/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -2, 0/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -4, -1/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -5, -2/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -6, -4/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -6, -6/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -5, -8/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -3, -9/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -1, -9/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 1, -8/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 2, -7/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 3, -5/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 3, -3/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 2, -1/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 0, 0/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -1, -1/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -1, -3/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 0, -5/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 2, -6/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 5, -6/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 7, -5/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 8, -4/ C DATA IXMIND( 15)/ -6/ DATA IXMAXD( 15)/ 8/ DATA IXDELD( 15)/ 14/ DATA ISTARD( 15)/ 1/ DATA NUMCOO( 15)/ 22/ C C DEFINE CHARACTER 666--UPPER CASE P C DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', -7, -4/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -5, -1/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -4, 1/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -5, -3/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -11, -21/ DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', -5, -3/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -4, -1/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -2, 0/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 0, 0/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 2, -1/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 3, -3/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 3, -5/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 2, -7/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 1, -8/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -1, -9/ DATA IOPERA( 38),IX( 38),IY( 38)/'MOVE', -5, -8/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -3, -9/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 0, -9/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 3, -8/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 5, -7/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 8, -4/ C DATA IXMIND( 16)/ -7/ DATA IXMAXD( 16)/ 8/ DATA IXDELD( 16)/ 15/ DATA ISTARD( 16)/ 23/ DATA NUMCOO( 16)/ 21/ C C DEFINE CHARACTER 667--UPPER CASE Q C DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 3, -3/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 2, -1/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 0, 0/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -2, 0/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -4, -1/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -5, -2/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -6, -4/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -6, -6/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -5, -8/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -3, -9/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -1, -9/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 1, -8/ DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 4, 0/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 3, -3/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 1, -8/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -2, -15/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -3, -18/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -3, -20/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -2, -21/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 0, -20/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 1, -17/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 1, -10/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 3, -9/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 6, -7/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 9, -4/ C DATA IXMIND( 17)/ -6/ DATA IXMAXD( 17)/ 9/ DATA IXDELD( 17)/ 15/ DATA ISTARD( 17)/ 44/ DATA NUMCOO( 17)/ 25/ C C DEFINE CHARACTER 668--UPPER CASE R C DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', -5, -4/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, -1/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -2, 1/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -2, -1/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 1, -1/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 2, -2/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 2, -4/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 1, -7/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 1, -8/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 2, -9/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 3, -9/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 5, -8/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 6, -7/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 8, -4/ C DATA IXMIND( 18)/ -5/ DATA IXMAXD( 18)/ 8/ DATA IXDELD( 18)/ 13/ DATA ISTARD( 18)/ 69/ DATA NUMCOO( 18)/ 14/ C C DEFINE CHARACTER 669--UPPER CASE S C DATA IOPERA( 83),IX( 83),IY( 83)/'MOVE', -4, -4/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -2, -1/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -1, 1/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -1, -1/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 1, -4/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 2, -6/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 2, -8/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 0, -9/ DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', -4, -8/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -2, -9/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 2, -9/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 4, -8/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 5, -7/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 7, -4/ C DATA IXMIND( 19)/ -4/ DATA IXMAXD( 19)/ 7/ DATA IXDELD( 19)/ 11/ DATA ISTARD( 19)/ 83/ DATA NUMCOO( 19)/ 14/ C C DEFINE CHARACTER 670--UPPER CASE T C DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', -3, -4/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -1, -1/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 1, 3/ DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 4, 12/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -2, -6/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -2, -8/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -1, -9/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 1, -9/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 3, -8/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 4, -7/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 6, -4/ DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', -2, 4/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 5, 4/ C DATA IXMIND( 20)/ -3/ DATA IXMAXD( 20)/ 6/ DATA IXDELD( 20)/ 9/ DATA ISTARD( 20)/ 97/ DATA NUMCOO( 20)/ 13/ C C DEFINE CHARACTER 671--UPPER CASE U C DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -6, -4/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -4, 0/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -6, -6/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -6, -8/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, -9/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -3, -9/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -1, -8/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 1, -6/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 3, -3/ DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', 4, 0/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 2, -6/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 2, -8/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 3, -9/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 4, -9/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 6, -8/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 7, -7/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 9, -4/ C DATA IXMIND( 21)/ -6/ DATA IXMAXD( 21)/ 9/ DATA IXDELD( 21)/ 15/ DATA ISTARD( 21)/ 110/ DATA NUMCOO( 21)/ 17/ C C DEFINE CHARACTER 672--UPPER CASE V C DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', -6, -4/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -4, 0/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -5, -5/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -5, -8/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -4, -9/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -3, -9/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 0, -8/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 2, -6/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 3, -3/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 3, 0/ DATA IOPERA( 137),IX( 137),IY( 137)/'MOVE', 3, 0/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 4, -4/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 5, -5/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 7, -5/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 9, -4/ C DATA IXMIND( 22)/ -6/ DATA IXMAXD( 22)/ 9/ DATA IXDELD( 22)/ 15/ DATA ISTARD( 22)/ 127/ DATA NUMCOO( 22)/ 15/ C C DEFINE CHARACTER 673--UPPER CASE W C DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', -6, 0/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -8, -2/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -9, -5/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -9, -7/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -8, -9/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -6, -9/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -4, -8/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -2, -6/ DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', 0, 0/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -2, -6/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -2, -8/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -1, -9/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 1, -9/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 3, -8/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 5, -6/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 6, -3/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 6, 0/ DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 6, 0/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 7, -4/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 8, -5/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 10, -5/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 12, -4/ C DATA IXMIND( 23)/ -9/ DATA IXMAXD( 23)/ 12/ DATA IXDELD( 23)/ 21/ DATA ISTARD( 23)/ 142/ DATA NUMCOO( 23)/ 22/ C C DEFINE CHARACTER 674--UPPER CASE X C DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', -8, -4/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -6, -1/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -4, 0/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -2, 0/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -1, -1/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -1, -8/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 0, -9/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 3, -9/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 6, -7/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 8, -4/ DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', 5, -1/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 4, 0/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 2, 0/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 1, -1/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -3, -8/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -4, -9/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, -9/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -7, -8/ C DATA IXMIND( 24)/ -8/ DATA IXMAXD( 24)/ 8/ DATA IXDELD( 24)/ 16/ DATA ISTARD( 24)/ 164/ DATA NUMCOO( 24)/ 18/ C C DEFINE CHARACTER 675--UPPER CASE Y C DATA IOPERA( 182),IX( 182),IY( 182)/'MOVE', -6, -4/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, 0/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -6, -6/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -6, -8/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -5, -9/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -3, -9/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -1, -8/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 1, -6/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 3, -3/ DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE', 4, 0/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -2, -18/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -3, -20/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -5, -21/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -6, -20/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -6, -18/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -5, -15/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -2, -12/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 1, -10/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 3, -9/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 6, -7/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 9, -4/ C DATA IXMIND( 25)/ -6/ DATA IXMAXD( 25)/ 9/ DATA IXDELD( 25)/ 15/ DATA ISTARD( 25)/ 182/ DATA NUMCOO( 25)/ 21/ C C DEFINE CHARACTER 676--UPPER CASE Z C DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -6, -4/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -4, -1/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -2, 0/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 0, 0/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 2, -2/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 2, -4/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 1, -6/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -1, -8/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -4, -9/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -2, -10/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -1, -12/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -1, -15/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', -2, -18/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -3, -20/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -5, -21/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -6, -20/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -6, -18/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -5, -15/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -2, -12/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 1, -10/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 5, -7/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 8, -4/ C DATA IXMIND( 26)/ -6/ DATA IXMAXD( 26)/ 8/ DATA IXDELD( 26)/ 14/ DATA ISTARD( 26)/ 203/ DATA NUMCOO( 26)/ 22/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRSSL2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRSSL2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRSSU1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN SIMPLEX SCRIPT UPPER CASE (PART 1). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 551--UPPER CASE A C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -11, -9/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -8/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, -5/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -3, -1/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 1, 6/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 4, 12/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 4, -9/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 3, -6/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 1, -3/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -1, -1/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -4, 1/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -6, 1/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -7, 0/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -7, -2/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -6, -4/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -4, -6/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -1, -8/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 2, -9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 7, -9/ C DATA IXMIND( 1)/ -11/ DATA IXMAXD( 1)/ 9/ DATA IXDELD( 1)/ 20/ DATA ISTARD( 1)/ 1/ DATA NUMCOO( 1)/ 19/ C C DEFINE CHARACTER 552--UPPER CASE B C DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', 1, 10/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 2, 9/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 2, 6/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 1, 2/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 0, -1/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, -3/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -3, -6/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -5, -8/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -7, -9/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -8, -9/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -9, -8/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -9, -5/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -8, 0/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -7, 3/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -6, 5/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -4, 8/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -2, 10/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 0, 11/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 3, 12/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 6, 12/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 8, 11/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 9, 9/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 9, 7/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 8, 5/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 7, 4/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 5, 3/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 2, 2/ DATA IOPERA( 47),IX( 47),IY( 47)/'MOVE', 1, 2/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 2, 2/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 5, 1/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 6, 0/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 7, -2/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 7, -5/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 6, -7/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 5, -8/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 3, -9/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 0, -9/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -2, -8/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -3, -6/ C DATA IXMIND( 2)/ -12/ DATA IXMAXD( 2)/ 11/ DATA IXDELD( 2)/ 23/ DATA ISTARD( 2)/ 20/ DATA NUMCOO( 2)/ 39/ C C DEFINE CHARACTER 553--UPPER CASE C C DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', 2, 6/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 2, 5/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 3, 4/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 5, 4/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 7, 5/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 8, 7/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 8, 9/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 7, 11/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 5, 12/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 2, 12/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -1, 11/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, 9/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -5, 6/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -6, 4/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -7, 0/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -7, -4/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -6, -7/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -5, -8/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -3, -9/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -1, -9/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 2, -8/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 4, -6/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 5, -4/ C DATA IXMIND( 3)/ -10/ DATA IXMAXD( 3)/ 10/ DATA IXDELD( 3)/ 20/ DATA ISTARD( 3)/ 59/ DATA NUMCOO( 3)/ 23/ C C DEFINE CHARACTER 554--UPPER CASE D C DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', 2, 12/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 0, 11/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -1, 9/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -2, 5/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -3, -1/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -4, -4/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -5, -6/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -7, -8/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -9, -9/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -11, -9/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -12, -8/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -12, -6/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -11, -5/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -9, -5/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -7, -6/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -5, -8/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -2, -9/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 1, -9/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 4, -8/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 6, -6/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 8, -2/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 9, 3/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 9, 7/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 8, 10/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 7, 11/ DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 5, 12/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 2, 12/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 0, 10/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 0, 8/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 1, 5/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 3, 2/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 5, 0/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 8, -2/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 10, -3/ C DATA IXMIND( 4)/ -11/ DATA IXMAXD( 4)/ 12/ DATA IXDELD( 4)/ 23/ DATA ISTARD( 4)/ 82/ DATA NUMCOO( 4)/ 34/ C C DEFINE CHARACTER 555--UPPER CASE E C DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE', 4, 8/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 4, 7/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 5, 6/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 7, 6/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 8, 7/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 8, 9/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 7, 11/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 4, 12/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 0, 12/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -3, 11/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -4, 9/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -4, 6/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -3, 4/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -2, 3/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 1, 2/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -2, 2/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -5, 1/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -6, 0/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -7, -2/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -7, -5/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -6, -7/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -5, -8/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -2, -9/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 1, -9/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 4, -8/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 6, -6/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 7, -4/ C DATA IXMIND( 5)/ -10/ DATA IXMAXD( 5)/ 10/ DATA IXDELD( 5)/ 20/ DATA ISTARD( 5)/ 116/ DATA NUMCOO( 5)/ 27/ C C DEFINE CHARACTER 556--UPPER CASE F C DATA IOPERA( 143),IX( 143),IY( 143)/'MOVE', 0, 6/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -2, 6/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -4, 7/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -5, 9/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -4, 11/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -1, 12/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 2, 12/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 6, 11/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 9, 11/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 11, 12/ DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 6, 11/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 4, 4/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 2, -2/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 0, -6/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -2, -8/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -4, -9/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -6, -9/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -8, -8/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -9, -6/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -9, -4/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -8, -3/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -6, -3/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -4, -4/ DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', -1, 2/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 8, 2/ C DATA IXMIND( 6)/ -10/ DATA IXMAXD( 6)/ 10/ DATA IXDELD( 6)/ 20/ DATA ISTARD( 6)/ 143/ DATA NUMCOO( 6)/ 25/ C C DEFINE CHARACTER 557--UPPER CASE G C DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', -11, -9/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -9, -8/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -5, -4/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -2, 1/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -1, 4/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 0, 8/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 0, 11/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -1, 12/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -2, 12/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -3, 11/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -4, 9/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -4, 6/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -3, 4/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -1, 3/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 3, 3/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 6, 4/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 7, 5/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 8, 7/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 8, 1/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 7, -4/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 6, -6/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 4, -8/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 1, -9/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -3, -9/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -6, -8/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -8, -6/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -9, -4/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -9, -2/ C DATA IXMIND( 7)/ -11/ DATA IXMAXD( 7)/ 12/ DATA IXDELD( 7)/ 23/ DATA ISTARD( 7)/ 168/ DATA NUMCOO( 7)/ 28/ C C DEFINE CHARACTER 558--UPPER CASE H C DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE', -5, 5/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -7, 6/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -8, 8/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -8, 9/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -7, 11/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -5, 12/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -4, 12/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -2, 11/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -1, 9/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -1, 7/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -2, 3/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -4, -3/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -6, -7/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -8, -9/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -10, -9/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -11, -8/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -11, -6/ DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', -5, 0/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 4, 3/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, 4/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 9, 6/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 11, 8/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 12, 10/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 12, 11/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 11, 12/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 10, 12/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 8, 10/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 6, 6/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 4, 0/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 3, -5/ DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 3, -8/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 4, -9/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 5, -9/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 7, -8/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 8, -7/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 10, -4/ C DATA IXMIND( 8)/ -12/ DATA IXMAXD( 8)/ 12/ DATA IXDELD( 8)/ 24/ DATA ISTARD( 8)/ 196/ DATA NUMCOO( 8)/ 36/ C C DEFINE CHARACTER 559--UPPER CASE I C DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE', 5, -4/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 3, -2/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 1, 1/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 0, 3/ DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -1, 6/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -1, 9/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 0, 11/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 1, 12/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 3, 12/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 4, 11/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 5, 9/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 5, 6/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 4, 1/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 2, -4/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 1, -6/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -1, -8/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', -3, -9/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', -5, -9/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', -7, -8/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', -8, -6/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -8, -4/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -7, -3/ DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -5, -3/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -3, -4/ C DATA IXMIND( 9)/ -9/ DATA IXMAXD( 9)/ 8/ DATA IXDELD( 9)/ 17/ DATA ISTARD( 9)/ 232/ DATA NUMCOO( 9)/ 24/ C C DEFINE CHARACTER 560--UPPER CASE J C DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', 2, -12/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 0, -9/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -2, -4/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -3, 2/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -3, 8/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -2, 11/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 0, 12/ DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 2, 12/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 3, 11/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 4, 8/ DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 4, 5/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 3, 0/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 0, -9/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -2, -15/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -3, -18/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -4, -20/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', -6, -21/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -7, -20/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -7, -18/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -6, -15/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', -4, -12/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', -2, -10/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 1, -8/ DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 5, -6/ C DATA IXMIND( 10)/ -8/ DATA IXMAXD( 10)/ 7/ DATA IXDELD( 10)/ 15/ DATA ISTARD( 10)/ 256/ DATA NUMCOO( 10)/ 24/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRSSU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRSSU1--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRSSU2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN SIMPLEX SCRIPT UPPER CASE (PART 2). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 561--UPPER CASE K C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -5, 5/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -7, 6/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -8, 8/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -8, 9/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -7, 11/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -5, 12/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -4, 12/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -2, 11/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -1, 9/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -1, 7/ DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -2, 3/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -4, -3/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -6, -7/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -8, -9/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -10, -9/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -11, -8/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -11, -6/ DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', 12, 9/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 12, 11/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 11, 12/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 10, 12/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 8, 11/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 6, 9/ DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 4, 6/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 2, 4/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 0, 3/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -2, 3/ DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', 0, 3/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 1, 1/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 1, -6/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 2, -8/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 3, -9/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 4, -9/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 6, -8/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 7, -7/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 9, -4/ C DATA IXMIND( 11)/ -12/ DATA IXMAXD( 11)/ 12/ DATA IXDELD( 11)/ 24/ DATA ISTARD( 11)/ 1/ DATA NUMCOO( 11)/ 36/ C C DEFINE CHARACTER 562--UPPER CASE L C DATA IOPERA( 37),IX( 37),IY( 37)/'MOVE', -5, 0/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -3, 0/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 1, 1/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 4, 3/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 6, 5/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 7, 7/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 7, 10/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 6, 12/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 4, 12/ DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 3, 11/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 2, 9/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 1, 4/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 0, -1/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -1, -4/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -2, -6/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -4, -8/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -6, -9/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -8, -9/ DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -9, -8/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -9, -6/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -8, -5/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -6, -5/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -4, -6/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -1, -8/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 2, -9/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 4, -9/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 7, -8/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 9, -6/ C DATA IXMIND( 12)/ -9/ DATA IXMAXD( 12)/ 10/ DATA IXDELD( 12)/ 19/ DATA ISTARD( 12)/ 37/ DATA NUMCOO( 12)/ 28/ C C DEFINE CHARACTER 563--UPPER CASE M C DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', -13, 5/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -15, 6/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -16, 8/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -16, 9/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -15, 11/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -13, 12/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -12, 12/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -10, 11/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -9, 9/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -9, 7/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -10, 2/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -11, -2/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -13, -9/ DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -11, -2/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -8, 6/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -6, 10/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -5, 11/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -3, 12/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -2, 12/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 0, 11/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 1, 9/ DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 1, 7/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 0, 2/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -1, -2/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -3, -9/ DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', -1, -2/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 2, 6/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 4, 10/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 5, 11/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 7, 12/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 8, 12/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 10, 11/ DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 11, 9/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 11, 7/ DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 10, 2/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 8, -5/ DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 8, -8/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 9, -9/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 10, -9/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 12, -8/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 13, -7/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 15, -4/ C DATA IXMIND( 13)/ -18/ DATA IXMAXD( 13)/ 15/ DATA IXDELD( 13)/ 33/ DATA ISTARD( 13)/ 65/ DATA NUMCOO( 13)/ 42/ C C DEFINE CHARACTER 564--UPPER CASE N C DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -8, 5/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -10, 6/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -11, 8/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -11, 9/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -10, 11/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -8, 12/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -7, 12/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, 11/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -4, 9/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -4, 7/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -5, 2/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -6, -2/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -8, -9/ DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', -6, -2/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -3, 6/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -1, 10/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 0, 11/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 2, 12/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 4, 12/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 6, 11/ DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 7, 9/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 7, 7/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 6, 2/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 4, -5/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 4, -8/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 5, -9/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 6, -9/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 8, -8/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 9, -7/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 11, -4/ C DATA IXMIND( 14)/ -13/ DATA IXMAXD( 14)/ 11/ DATA IXDELD( 14)/ 24/ DATA ISTARD( 14)/ 107/ DATA NUMCOO( 14)/ 30/ C C DEFINE CHARACTER 565--UPPER CASE O C DATA IOPERA( 137),IX( 137),IY( 137)/'MOVE', 2, 12/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -1, 11/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -3, 9/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -5, 6/ DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -6, 4/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -7, 0/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -7, -4/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -6, -7/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -5, -8/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -3, -9/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -1, -9/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, -8/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 4, -6/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 6, -3/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 7, -1/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 8, 3/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 8, 7/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 7, 10/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 6, 11/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 4, 12/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 2, 12/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 0, 10/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 0, 7/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 1, 4/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 3, 1/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 5, -1/ DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 8, -3/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 10, -4/ C DATA IXMIND( 15)/ -10/ DATA IXMAXD( 15)/ 11/ DATA IXDELD( 15)/ 21/ DATA ISTARD( 15)/ 137/ DATA NUMCOO( 15)/ 28/ C C DEFINE CHARACTER 566--UPPER CASE P C DATA IOPERA( 165),IX( 165),IY( 165)/'MOVE', 1, 10/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 2, 9/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 2, 6/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 1, 2/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 0, -1/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -1, -3/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -3, -6/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -5, -8/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -7, -9/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -8, -9/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -9, -8/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -9, -5/ DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -8, 0/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -7, 3/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -6, 5/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -4, 8/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -2, 10/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 0, 11/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 3, 12/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 8, 12/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 10, 11/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 11, 10/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 12, 8/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 12, 5/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 11, 3/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 10, 2/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 8, 1/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 5, 1/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, 2/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 2, 3/ C DATA IXMIND( 16)/ -12/ DATA IXMAXD( 16)/ 13/ DATA IXDELD( 16)/ 25/ DATA ISTARD( 16)/ 165/ DATA NUMCOO( 16)/ 30/ C C DEFINE CHARACTER 567--UPPER CASE Q C DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', 3, 6/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 2, 4/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', 1, 3/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -1, 2/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -3, 2/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -4, 4/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -4, 6/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -3, 9/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -1, 11/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 2, 12/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 5, 12/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 7, 11/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 8, 9/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 8, 5/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 7, 2/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 5, -1/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 1, -5/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -2, -7/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -4, -8/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -7, -9/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', -9, -9/ DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -10, -8/ DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -10, -6/ DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -9, -5/ DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -7, -5/ DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -5, -6/ DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -2, -8/ DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 1, -9/ DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 4, -9/ DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 7, -8/ DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 9, -6/ C DATA IXMIND( 17)/ -10/ DATA IXMAXD( 17)/ 12/ DATA IXDELD( 17)/ 22/ DATA ISTARD( 17)/ 195/ DATA NUMCOO( 17)/ 31/ C C DEFINE CHARACTER 568--UPPER CASE R C DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 1, 10/ DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 2, 9/ DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 2, 6/ DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 1, 2/ DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 0, -1/ DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -1, -3/ DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -3, -6/ DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', -5, -8/ DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -7, -9/ DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -8, -9/ DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -9, -8/ DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -9, -5/ DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -8, 0/ DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -7, 3/ DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', -6, 5/ DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -4, 8/ DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -2, 10/ DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 0, 11/ DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 3, 12/ DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 7, 12/ DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 9, 11/ DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 10, 10/ DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 11, 8/ DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 11, 5/ DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 10, 3/ DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 9, 2/ DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 7, 1/ DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 4, 1/ DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 1, 2/ DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', 2, 1/ DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 3, -1/ DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 3, -6/ DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 4, -8/ DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 6, -9/ DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 8, -8/ DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 9, -7/ DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 11, -4/ C DATA IXMIND( 18)/ -12/ DATA IXMAXD( 18)/ 13/ DATA IXDELD( 18)/ 25/ DATA ISTARD( 18)/ 226/ DATA NUMCOO( 18)/ 37/ C C DEFINE CHARACTER 569--UPPER CASE S C DATA IOPERA( 263),IX( 263),IY( 263)/'MOVE', -10, -9/ DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -8, -8/ DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -6, -6/ DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', -3, -2/ DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -1, 1/ DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 1, 5/ DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 2, 8/ DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 2, 11/ DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 1, 12/ DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 0, 12/ DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -1, 11/ DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -2, 9/ DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -2, 7/ DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', -1, 5/ DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 1, 3/ DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 4, 1/ DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 6, -1/ DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 7, -3/ DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', 7, -5/ DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', 6, -7/ DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 5, -8/ DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 2, -9/ DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', -2, -9/ DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -5, -8/ DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', -7, -6/ DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', -8, -4/ DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', -8, -2/ C DATA IXMIND( 19)/ -10/ DATA IXMAXD( 19)/ 10/ DATA IXDELD( 19)/ 20/ DATA ISTARD( 19)/ 263/ DATA NUMCOO( 19)/ 27/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRSSU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRSSU2--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END SUBROUTINE DRSSU3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1IBUGD2,IFOUND,IERROR) C C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES C FOR ROMAN SIMPLEX SCRIPT UPPER CASE (PART 3). C WRITTEN BY--JAMES J. FILLIBEN C STATISTICAL ENGINEERING DIVISION C CENTER FOR APPLIED MATHEMATICS C NATIONAL BUREAU OF STANDARDS C WASHINGTON, D. C. 20234 C PHONE--301-921-3651 C NOTE--DATAPLOT IS A REGISTERED TRADEMARK C OF THE NATIONAL BUREAU OF STANDARDS. C THIS SUBROUTINE MAY NOT BE COPIED, EXTRACTED, C MODIFIED, OR OTHERWISE USED IN A CONTEXT C OUTSIDE OF THE DATAPLOT LANGUAGE/SYSTEM. C LANGUAGE--ANSI FORTRAN (1977) C VERSION NUMBER--87/4 C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. C UPDATED --MAY 1982. C UPDATED --MARCH 1987. C C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- C CHARACTER*4 IOP CHARACTER*4 IBUGD2 CHARACTER*4 IFOUND CHARACTER*4 IERROR C CHARACTER*4 IOPERA C C--------------------------------------------------------------------- C DIMENSION IOP(*) DIMENSION X(*) DIMENSION Y(*) C DIMENSION IOPERA(300) DIMENSION IX(300) DIMENSION IY(300) C DIMENSION IXMIND(30) DIMENSION IXMAXD(30) DIMENSION IXDELD(30) DIMENSION ISTARD(30) DIMENSION NUMCOO(30) C C--------------------------------------------------------------------- C CHARACTER*4 IFEEDB CHARACTER*4 IPRINT CHARACTER*240 ICOUT C COMMON /MACH/IRD,IPR,CPUMIN,CPUMAX,NUMBPC,NUMCPW,NUMBPW COMMON /PRINT/IFEEDB,IPRINT COMMON /TEXTOU/ICOUT,NCOUT,ILOUT C C-----DATA STATEMENTS------------------------------------------------- C C DEFINE CHARACTER 570--UPPER CASE T C DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, 6/ DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -2, 6/ DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -4, 7/ DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -5, 9/ DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -4, 11/ DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -1, 12/ DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 2, 12/ DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 6, 11/ DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 9, 11/ DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 11, 12/ DATA IOPERA( 11),IX( 11),IY( 11)/'MOVE', 6, 11/ DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 4, 4/ DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 2, -2/ DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 0, -6/ DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -2, -8/ DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -4, -9/ DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -6, -9/ DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -8, -8/ DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -9, -6/ DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -9, -4/ DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -8, -3/ DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -6, -3/ DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -4, -4/ C DATA IXMIND( 20)/ -10/ DATA IXMAXD( 20)/ 9/ DATA IXDELD( 20)/ 19/ DATA ISTARD( 20)/ 1/ DATA NUMCOO( 20)/ 23/ C C DEFINE CHARACTER 571--UPPER CASE U C DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', -8, 5/ DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -10, 6/ DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -11, 8/ DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -11, 9/ DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -10, 11/ DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -8, 12/ DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -7, 12/ DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -5, 11/ DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -4, 9/ DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -4, 7/ DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -5, 3/ DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -6, 0/ DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -7, -4/ DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -7, -6/ DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -6, -8/ DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -4, -9/ DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -2, -9/ DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 0, -8/ DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 1, -7/ DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 3, -3/ DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 6, 5/ DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 8, 12/ DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', 6, 5/ DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 5, 1/ DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 4, -5/ DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 4, -8/ DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 5, -9/ DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 6, -9/ DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 8, -8/ DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 9, -7/ DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 11, -4/ C DATA IXMIND( 21)/ -13/ DATA IXMAXD( 21)/ 11/ DATA IXDELD( 21)/ 24/ DATA ISTARD( 21)/ 24/ DATA NUMCOO( 21)/ 31/ C C DEFINE CHARACTER 572--UPPER CASE V C DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -7, 5/ DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -9, 6/ DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -10, 8/ DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -10, 9/ DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -9, 11/ DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -7, 12/ DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -6, 12/ DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -4, 11/ DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -3, 9/ DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -3, 7/ DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -4, 3/ DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -5, 0/ DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -6, -4/ DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -6, -7/ DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -5, -9/ DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, -9/ DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -1, -8/ DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 2, -5/ DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 4, -2/ DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 6, 2/ DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 7, 5/ DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 8, 9/ DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 8, 11/ DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 7, 12/ DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 6, 12/ DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 5, 11/ DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 4, 9/ DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 4, 7/ DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 5, 4/ DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 7, 2/ DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 9, 1/ C DATA IXMIND( 22)/ -12/ DATA IXMAXD( 22)/ 11/ DATA IXDELD( 22)/ 23/ DATA ISTARD( 22)/ 55/ DATA NUMCOO( 22)/ 31/ C C DEFINE CHARACTER 573--UPPER CASE W C DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -10, 5/ DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -12, 6/ DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -13, 8/ DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -13, 9/ DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -12, 11/ DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -10, 12/ DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -9, 12/ DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -7, 11/ DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -6, 9/ DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -6, 6/ DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -7, -9/ DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', 3, 12/ DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -7, -9/ DATA IOPERA( 99),IX( 99),IY( 99)/'MOVE', 3, 12/ DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 1, -9/ DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', 15, 12/ DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 13, 11/ DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 10, 8/ DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 7, 4/ DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 4, -2/ DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 1, -9/ C DATA IXMIND( 23)/ -15/ DATA IXMAXD( 23)/ 13/ DATA IXDELD( 23)/ 28/ DATA ISTARD( 23)/ 86/ DATA NUMCOO( 23)/ 21/ C C DEFINE CHARACTER 574--UPPER CASE X C DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -4, 6/ DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -6, 6/ DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -7, 7/ DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -7, 9/ DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -6, 11/ DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -4, 12/ DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -2, 12/ DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 0, 11/ DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 1, 9/ DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 1, 6/ DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -1, -3/ DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -1, -6/ DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 0, -8/ DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 2, -9/ DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 4, -9/ DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 6, -8/ DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 7, -6/ DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 7, -4/ DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 6, -3/ DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 4, -3/ DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', 11, 9/ DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 11, 11/ DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 10, 12/ DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 8, 12/ DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 6, 11/ DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 4, 9/ DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 2, 6/ DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -2, -3/ DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -4, -6/ DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -6, -8/ DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -8, -9/ DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -10, -9/ DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -11, -8/ DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -11, -6/ C DATA IXMIND( 24)/ -12/ DATA IXMAXD( 24)/ 12/ DATA IXDELD( 24)/ 24/ DATA ISTARD( 24)/ 107/ DATA NUMCOO( 24)/ 34/ C C DEFINE CHARACTER 575--UPPER CASE Y C DATA IOPERA( 141),IX( 141),IY( 141)/'MOVE', -7, 5/ DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -9, 6/ DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -10, 8/ DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -10, 9/ DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -9, 11/ DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -7, 12/ DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -6, 12/ DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -4, 11/ DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -3, 9/ DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -3, 7/ DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -4, 3/ DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -5, 0/ DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -6, -4/ DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -6, -6/ DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -5, -8/ DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -4, -9/ DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -2, -9/ DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 0, -8/ DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 2, -6/ DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 4, -3/ DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 5, -1/ DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 7, 5/ DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', 9, 12/ DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 7, 5/ DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 4, -5/ DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 2, -11/ DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 0, -16/ DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -2, -20/ DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -4, -21/ DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -5, -20/ DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -5, -18/ DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -4, -15/ DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -2, -12/ DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 1, -9/ DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 4, -7/ DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 9, -4/ C DATA IXMIND( 25)/ -12/ DATA IXMAXD( 25)/ 11/ DATA IXDELD( 25)/ 23/ DATA ISTARD( 25)/ 141/ DATA NUMCOO( 25)/ 36/ C C DEFINE CHARACTER 576--UPPER CASE Z C DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', 3, 6/ DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 2, 4/ DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 1, 3/ DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -1, 2/ DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -3, 2/ DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -4, 4/ DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, 6/ DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -3, 9/ DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -1, 11/ DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 2, 12/ DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 5, 12/ DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 7, 11/ DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 8, 9/ DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 8, 5/ DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 7, 2/ DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 5, -2/ DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 2, -5/ DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -2, -8/ DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -4, -9/ DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -7, -9/ DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -8, -8/ DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -8, -6/ DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -7, -5/ DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -4, -5/ DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -2, -6/ DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -1, -7/ DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 0, -9/ DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 0, -12/ DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -1, -15/ DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -2, -17/ DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -4, -20/ DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -6, -21/ DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -7, -20/ DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -7, -18/ DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -6, -15/ DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -4, -12/ DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -1, -9/ DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 2, -7/ DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 8, -4/ C DATA IXMIND( 26)/ -10/ DATA IXMAXD( 26)/ 11/ DATA IXDELD( 26)/ 21/ DATA ISTARD( 26)/ 177/ DATA NUMCOO( 26)/ 39/ C C-----START POINT----------------------------------------------------- C IFOUND='YES' IERROR='NO' C NUMCO=1 ISTART=1 ISTOP=1 NC=1 C C ****************************************** C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** C ** HERSHEY CHARACTER SET CASE ** C ****************************************** C C IF(IBUGD2.EQ.'OFF')GOTO90 WRITE(ICOUT,999) 999 FORMAT(1X) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,51) 51 FORMAT('***** AT THE BEGINNING OF DRSSU3--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,52)ICHARN 52 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') 90 CONTINUE C C ************************************** C ** STEP 2-- ** C ** EXTRACT THE COORDINATES ** C ** FOR THIS PARTICULAR CHARACTER. ** C ************************************** C 1000 CONTINUE ISTART=ISTARD(ICHARN) NC=NUMCOO(ICHARN) ISTOP=ISTART+NC-1 J=0 DO1100I=ISTART,ISTOP J=J+1 IOP(J)=IOPERA(I) X(J)=IX(I) Y(J)=IY(I) 1100 CONTINUE NUMCO=J IXMINS=IXMIND(ICHARN) IXMAXS=IXMAXD(ICHARN) IXDELS=IXDELD(ICHARN) C GOTO9000 C C ***************** C ** STEP 90-- ** C ** EXIT ** C ***************** C 9000 CONTINUE IF(IBUGD2.EQ.'OFF')GOTO9090 WRITE(ICOUT,999) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9011) 9011 FORMAT('***** AT THE END OF DRSSU3--') CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9013)ICHARN 9013 FORMAT('ICHARN = ',I8) CALL DPWRST('XXX','BUG ') WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) CALL DPWRST('XXX','BUG ') IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 DO9015I=1,NUMCO WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) CALL DPWRST('XXX','BUG ') 9015 CONTINUE 9019 CONTINUE WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) CALL DPWRST('XXX','BUG ') 9090 CONTINUE C RETURN END