1 SUBROUTINE DRTIL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 2 1 IBUGD2,IFOUND,IERROR) 3C 4C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 5C FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 1). 6C WRITTEN BY--JAMES J. FILLIBEN 7C STATISTICAL ENGINEERING DIVISION 8C CENTER FOR APPLIED MATHEMATICS 9C NATIONAL BUREAU OF STANDARDS 10C WASHINGTON, D. C. 20234 11C PHONE--301-921-3651 12C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 13C OF THE NATIONAL BUREAU OF STANDARDS. 14C LANGUAGE--ANSI FORTRAN (1977) 15C VERSION NUMBER--87/4 16C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 17C UPDATED --MAY 1982. 18C UPDATED --MARCH 1987. 19C 20C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 21C 22 CHARACTER*4 IOP 23 CHARACTER*4 IBUGD2 24 CHARACTER*4 IFOUND 25 CHARACTER*4 IERROR 26C 27 CHARACTER*4 IOPERA 28C 29C--------------------------------------------------------------------- 30C 31 DIMENSION IOP(*) 32 DIMENSION X(*) 33 DIMENSION Y(*) 34C 35 DIMENSION IOPERA(300) 36 DIMENSION IX(300) 37 DIMENSION IY(300) 38C 39 DIMENSION IXMIND(30) 40 DIMENSION IXMAXD(30) 41 DIMENSION IXDELD(30) 42 DIMENSION ISTARD(30) 43 DIMENSION NUMCOO(30) 44C 45C-----COMMON---------------------------------------------------------- 46C 47 INCLUDE 'DPCOP2.INC' 48C 49C-----DATA STATEMENTS------------------------------------------------- 50C 51C DEFINE CHARACTER 3151--LOWER CASE A 52C 53 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 5, 5/ 54 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 3, -2/ 55 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 3, -6/ 56 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 4, -8/ 57 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 5, -9/ 58 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 7, -9/ 59 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 9, -7/ 60 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 10, -5/ 61 DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', 6, 5/ 62 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, -2/ 63 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 4, -8/ 64 DATA IOPERA( 12),IX( 12),IY( 12)/'MOVE', 5, 5/ 65 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 7, 5/ 66 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 5, -2/ 67 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 4, -6/ 68 DATA IOPERA( 16),IX( 16),IY( 16)/'MOVE', 3, -2/ 69 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 3, 1/ 70 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 2, 4/ 71 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 0, 5/ 72 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -2, 5/ 73 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -5, 4/ 74 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -7, 1/ 75 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -8, -2/ 76 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -8, -4/ 77 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -7, -7/ 78 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -6, -8/ 79 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -4, -9/ 80 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -2, -9/ 81 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 0, -8/ 82 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 1, -7/ 83 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 2, -5/ 84 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 3, -2/ 85 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', -4, 4/ 86 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -6, 1/ 87 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -7, -2/ 88 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -7, -5/ 89 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -6, -7/ 90 DATA IOPERA( 38),IX( 38),IY( 38)/'MOVE', -2, 5/ 91 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -4, 3/ 92 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -5, 1/ 93 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -6, -2/ 94 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -6, -5/ 95 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -5, -8/ 96 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -4, -9/ 97C 98 DATA IXMIND( 1)/ -11/ 99 DATA IXMAXD( 1)/ 11/ 100 DATA IXDELD( 1)/ 22/ 101 DATA ISTARD( 1)/ 1/ 102 DATA NUMCOO( 1)/ 44/ 103C 104C DEFINE CHARACTER 3152--LOWER CASE B 105C 106 DATA IOPERA( 45),IX( 45),IY( 45)/'MOVE', -2, 12/ 107 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -4, 5/ 108 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -5, -1/ 109 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -5, -5/ 110 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -4, -7/ 111 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -3, -8/ 112 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -1, -9/ 113 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 1, -9/ 114 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 4, -8/ 115 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 6, -5/ 116 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 7, -2/ 117 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 7, 0/ 118 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 6, 3/ 119 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 5, 4/ 120 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 3, 5/ 121 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 1, 5/ 122 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -1, 4/ 123 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -2, 3/ 124 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -3, 1/ 125 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -4, -2/ 126 DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', -1, 12/ 127 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -3, 5/ 128 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -4, 1/ 129 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -4, -5/ 130 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -3, -8/ 131 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', 4, -7/ 132 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 5, -5/ 133 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 6, -2/ 134 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 6, 1/ 135 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 5, 3/ 136 DATA IOPERA( 75),IX( 75),IY( 75)/'MOVE', -5, 12/ 137 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 0, 12/ 138 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -2, 5/ 139 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -4, -2/ 140 DATA IOPERA( 79),IX( 79),IY( 79)/'MOVE', 1, -9/ 141 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 3, -7/ 142 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 4, -5/ 143 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 5, -2/ 144 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 5, 1/ 145 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 4, 4/ 146 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 3, 5/ 147 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -4, 12/ 148 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -1, 11/ 149 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', -3, 12/ 150 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -2, 10/ 151C 152 DATA IXMIND( 2)/ -9/ 153 DATA IXMAXD( 2)/ 10/ 154 DATA IXDELD( 2)/ 19/ 155 DATA ISTARD( 2)/ 45/ 156 DATA NUMCOO( 2)/ 45/ 157C 158C DEFINE CHARACTER 3153--LOWER CASE C 159C 160 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', 5, 1/ 161 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 5, 2/ 162 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 4, 2/ 163 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 4, 0/ 164 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 6, 0/ 165 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 6, 2/ 166 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 5, 4/ 167 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 3, 5/ 168 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 0, 5/ 169 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -3, 4/ 170 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -5, 1/ 171 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -6, -2/ 172 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -6, -4/ 173 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -5, -7/ 174 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -4, -8/ 175 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -2, -9/ 176 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 0, -9/ 177 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 3, -8/ 178 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, -5/ 179 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -3, 3/ 180 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -4, 1/ 181 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -5, -2/ 182 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -5, -5/ 183 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -4, -7/ 184 DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE', 0, 5/ 185 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -2, 3/ 186 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, 1/ 187 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -4, -2/ 188 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -4, -5/ 189 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -3, -8/ 190 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -2, -9/ 191C 192 DATA IXMIND( 3)/ -9/ 193 DATA IXMAXD( 3)/ 9/ 194 DATA IXDELD( 3)/ 18/ 195 DATA ISTARD( 3)/ 90/ 196 DATA NUMCOO( 3)/ 31/ 197C 198C DEFINE CHARACTER 3154--LOWER CASE D 199C 200 DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', 7, 12/ 201 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 4, 1/ 202 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 3, -3/ 203 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 3, -6/ 204 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 4, -8/ 205 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 5, -9/ 206 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 7, -9/ 207 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 9, -7/ 208 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 10, -5/ 209 DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', 8, 12/ 210 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 5, 1/ 211 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 4, -3/ 212 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 4, -8/ 213 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', 4, 12/ 214 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 9, 12/ 215 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 5, -2/ 216 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 4, -6/ 217 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', 3, -2/ 218 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 3, 1/ 219 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 2, 4/ 220 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 0, 5/ 221 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -2, 5/ 222 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -5, 4/ 223 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -7, 1/ 224 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -8, -2/ 225 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -8, -4/ 226 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -7, -7/ 227 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -6, -8/ 228 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -4, -9/ 229 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -2, -9/ 230 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 0, -8/ 231 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 1, -7/ 232 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 2, -5/ 233 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 3, -2/ 234 DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', -5, 3/ 235 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -6, 1/ 236 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -7, -2/ 237 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -7, -5/ 238 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -6, -7/ 239 DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE', -2, 5/ 240 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -4, 3/ 241 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -5, 1/ 242 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -6, -2/ 243 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -6, -5/ 244 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -5, -8/ 245 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -4, -9/ 246 DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 5, 12/ 247 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 8, 11/ 248 DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', 6, 12/ 249 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 7, 10/ 250C 251 DATA IXMIND( 4)/ -11/ 252 DATA IXMAXD( 4)/ 11/ 253 DATA IXDELD( 4)/ 22/ 254 DATA ISTARD( 4)/ 121/ 255 DATA NUMCOO( 4)/ 50/ 256C 257C DEFINE CHARACTER 3155--LOWER CASE E 258C 259 DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', -5, -4/ 260 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -1, -3/ 261 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 2, -2/ 262 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 5, 0/ 263 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 6, 2/ 264 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 5, 4/ 265 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 3, 5/ 266 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 0, 5/ 267 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -3, 4/ 268 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -5, 1/ 269 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -6, -2/ 270 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -6, -4/ 271 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -5, -7/ 272 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -4, -8/ 273 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -2, -9/ 274 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 0, -9/ 275 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 3, -8/ 276 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 5, -6/ 277 DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', -3, 3/ 278 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -4, 1/ 279 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -5, -2/ 280 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -5, -5/ 281 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -4, -7/ 282 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', 0, 5/ 283 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -2, 3/ 284 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -3, 1/ 285 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -4, -2/ 286 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -4, -5/ 287 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -3, -8/ 288 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -2, -9/ 289C 290 DATA IXMIND( 5)/ -9/ 291 DATA IXMAXD( 5)/ 9/ 292 DATA IXDELD( 5)/ 18/ 293 DATA ISTARD( 5)/ 171/ 294 DATA NUMCOO( 5)/ 30/ 295C 296C DEFINE CHARACTER 3156--LOWER CASE F 297C 298 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', 8, 10/ 299 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 8, 11/ 300 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 7, 11/ 301 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 7, 9/ 302 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 9, 9/ 303 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 9, 11/ 304 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 8, 12/ 305 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 6, 12/ 306 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 4, 11/ 307 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 2, 9/ 308 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 1, 7/ 309 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 0, 4/ 310 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -1, 0/ 311 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -3, -9/ 312 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', -4, -12/ 313 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -5, -14/ 314 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -7, -16/ 315 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', 2, 8/ 316 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 1, 5/ 317 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 0, 0/ 318 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -2, -9/ 319 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -3, -12/ 320 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', 6, 12/ 321 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 4, 10/ 322 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 3, 8/ 323 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 2, 5/ 324 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 1, 0/ 325 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -1, -8/ 326 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -2, -11/ 327 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', -3, -13/ 328 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -5, -15/ 329 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -7, -16/ 330 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', -9, -16/ 331 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -10, -15/ 332 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -10, -13/ 333 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -8, -13/ 334 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -8, -15/ 335 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -9, -15/ 336 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -9, -14/ 337 DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', -4, 5/ 338 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 7, 5/ 339C 340 DATA IXMIND( 6)/ -8/ 341 DATA IXMAXD( 6)/ 8/ 342 DATA IXDELD( 6)/ 16/ 343 DATA ISTARD( 6)/ 201/ 344 DATA NUMCOO( 6)/ 41/ 345C 346C DEFINE CHARACTER 3157--LOWER CASE G 347C 348 DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', 6, 5/ 349 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 2, -9/ 350 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 1, -12/ 351 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -1, -15/ 352 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -3, -16/ 353 DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', 7, 5/ 354 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 3, -9/ 355 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 1, -13/ 356 DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', 6, 5/ 357 DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 8, 5/ 358 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 4, -9/ 359 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 2, -13/ 360 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 0, -15/ 361 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -3, -16/ 362 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -6, -16/ 363 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -8, -15/ 364 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -9, -14/ 365 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -9, -12/ 366 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -7, -12/ 367 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -7, -14/ 368 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -8, -14/ 369 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -8, -13/ 370 DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', 4, -2/ 371 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 4, 1/ 372 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 3, 4/ 373 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 1, 5/ 374 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -1, 5/ 375 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -4, 4/ 376 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -6, 1/ 377 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -7, -2/ 378 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', -7, -4/ 379 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -6, -7/ 380 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -5, -8/ 381 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -3, -9/ 382 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', -1, -9/ 383 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 1, -8/ 384 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 2, -7/ 385 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 3, -5/ 386 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 4, -2/ 387 DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE', -4, 3/ 388 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -5, 1/ 389 DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', -6, -2/ 390 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -6, -5/ 391 DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', -5, -7/ 392 DATA IOPERA( 286),IX( 286),IY( 286)/'MOVE', -1, 5/ 393 DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', -3, 3/ 394 DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', -4, 1/ 395 DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', -5, -2/ 396 DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -5, -5/ 397 DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', -4, -8/ 398 DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', -3, -9/ 399C 400 DATA IXMIND( 7)/ -10/ 401 DATA IXMAXD( 7)/ 11/ 402 DATA IXDELD( 7)/ 21/ 403 DATA ISTARD( 7)/ 242/ 404 DATA NUMCOO( 7)/ 51/ 405C 406C-----START POINT----------------------------------------------------- 407C 408 IFOUND='YES' 409 IERROR='NO' 410C 411 NUMCO=1 412 ISTART=1 413 ISTOP=1 414 NC=1 415C 416C ****************************************** 417C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 418C ** HERSHEY CHARACTER SET CASE ** 419C ****************************************** 420C 421C 422 IF(IBUGD2.EQ.'OFF')GOTO90 423 WRITE(ICOUT,999) 424 999 FORMAT(1X) 425 CALL DPWRST('XXX','BUG ') 426 WRITE(ICOUT,51) 427 51 FORMAT('***** AT THE BEGINNING OF DRTIL1--') 428 CALL DPWRST('XXX','BUG ') 429 WRITE(ICOUT,52)ICHARN 430 52 FORMAT('ICHARN = ',I8) 431 CALL DPWRST('XXX','BUG ') 432 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 433 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 434 CALL DPWRST('XXX','BUG ') 435 90 CONTINUE 436C 437C ************************************** 438C ** STEP 2-- ** 439C ** EXTRACT THE COORDINATES ** 440C ** FOR THIS PARTICULAR CHARACTER. ** 441C ************************************** 442C 443 ISTART=ISTARD(ICHARN) 444 NC=NUMCOO(ICHARN) 445 ISTOP=ISTART+NC-1 446 J=0 447 DO1100I=ISTART,ISTOP 448 J=J+1 449 IOP(J)=IOPERA(I) 450 X(J)=IX(I) 451 Y(J)=IY(I) 452 1100 CONTINUE 453 NUMCO=J 454 IXMINS=IXMIND(ICHARN) 455 IXMAXS=IXMAXD(ICHARN) 456 IXDELS=IXDELD(ICHARN) 457C 458 GOTO9000 459C 460C ***************** 461C ** STEP 90-- ** 462C ** EXIT ** 463C ***************** 464C 465 9000 CONTINUE 466 IF(IBUGD2.EQ.'OFF')GOTO9090 467 WRITE(ICOUT,999) 468 CALL DPWRST('XXX','BUG ') 469 WRITE(ICOUT,9011) 470 9011 FORMAT('***** AT THE END OF DRTIL1--') 471 CALL DPWRST('XXX','BUG ') 472 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 473 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 474 CALL DPWRST('XXX','BUG ') 475 WRITE(ICOUT,9013)ICHARN 476 9013 FORMAT('ICHARN = ',I8) 477 CALL DPWRST('XXX','BUG ') 478 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 479 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 480 CALL DPWRST('XXX','BUG ') 481 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 482 DO9015I=1,NUMCO 483 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 484 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 485 CALL DPWRST('XXX','BUG ') 486 9015 CONTINUE 487 9019 CONTINUE 488 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 489 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 490 CALL DPWRST('XXX','BUG ') 491 9090 CONTINUE 492C 493 RETURN 494 END 495 SUBROUTINE DRTIL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 496 1IBUGD2,IFOUND,IERROR) 497C 498C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 499C FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 2). 500C WRITTEN BY--JAMES J. FILLIBEN 501C STATISTICAL ENGINEERING DIVISION 502C CENTER FOR APPLIED MATHEMATICS 503C NATIONAL BUREAU OF STANDARDS 504C WASHINGTON, D. C. 20234 505C PHONE--301-921-3651 506C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 507C OF THE NATIONAL BUREAU OF STANDARDS. 508C LANGUAGE--ANSI FORTRAN (1977) 509C VERSION NUMBER--87/4 510C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 511C UPDATED --MAY 1982. 512C UPDATED --MARCH 1987. 513C 514C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 515C 516 CHARACTER*4 IOP 517 CHARACTER*4 IBUGD2 518 CHARACTER*4 IFOUND 519 CHARACTER*4 IERROR 520C 521 CHARACTER*4 IOPERA 522C 523C--------------------------------------------------------------------- 524C 525 DIMENSION IOP(*) 526 DIMENSION X(*) 527 DIMENSION Y(*) 528C 529 DIMENSION IOPERA(300) 530 DIMENSION IX(300) 531 DIMENSION IY(300) 532C 533 DIMENSION IXMIND(30) 534 DIMENSION IXMAXD(30) 535 DIMENSION IXDELD(30) 536 DIMENSION ISTARD(30) 537 DIMENSION NUMCOO(30) 538C 539C--------------------------------------------------------------------- 540C 541 INCLUDE 'DPCOP2.INC' 542C 543C-----DATA STATEMENTS------------------------------------------------- 544C 545C DEFINE CHARACTER 3158--LOWER CASE H 546C 547 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -3, 12/ 548 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -9/ 549 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -7, -9/ 550 DATA IOPERA( 4),IX( 4),IY( 4)/'MOVE', -2, 12/ 551 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -8, -9/ 552 DATA IOPERA( 6),IX( 6),IY( 6)/'MOVE', -6, 12/ 553 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -1, 12/ 554 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -7, -9/ 555 DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', -5, -2/ 556 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -3, 2/ 557 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -1, 4/ 558 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 1, 5/ 559 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 3, 5/ 560 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 5, 4/ 561 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 6, 2/ 562 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 6, -1/ 563 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 4, -6/ 564 DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', 5, 4/ 565 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 5, 0/ 566 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 4, -4/ 567 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 4, -8/ 568 DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', 5, 2/ 569 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 3, -3/ 570 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 3, -6/ 571 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 4, -8/ 572 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 5, -9/ 573 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 7, -9/ 574 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 9, -7/ 575 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 10, -5/ 576 DATA IOPERA( 30),IX( 30),IY( 30)/'MOVE', -5, 12/ 577 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -2, 11/ 578 DATA IOPERA( 32),IX( 32),IY( 32)/'MOVE', -4, 12/ 579 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -3, 10/ 580C 581 DATA IXMIND( 8)/ -11/ 582 DATA IXMAXD( 8)/ 11/ 583 DATA IXDELD( 8)/ 22/ 584 DATA ISTARD( 8)/ 1/ 585 DATA NUMCOO( 8)/ 33/ 586C 587C DEFINE CHARACTER 3159--LOWER CASE I 588C 589 DATA IOPERA( 34),IX( 34),IY( 34)/'MOVE', 1, 12/ 590 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 1, 10/ 591 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 3, 10/ 592 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 3, 12/ 593 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 1, 12/ 594 DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', 2, 12/ 595 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 2, 10/ 596 DATA IOPERA( 41),IX( 41),IY( 41)/'MOVE', 1, 11/ 597 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 3, 11/ 598 DATA IOPERA( 43),IX( 43),IY( 43)/'MOVE', -6, 1/ 599 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -5, 3/ 600 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', -3, 5/ 601 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -1, 5/ 602 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 0, 4/ 603 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 1, 2/ 604 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 1, -1/ 605 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -1, -6/ 606 DATA IOPERA( 51),IX( 51),IY( 51)/'MOVE', 0, 4/ 607 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 0, 0/ 608 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -1, -4/ 609 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -1, -8/ 610 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', 0, 2/ 611 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -2, -3/ 612 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -2, -6/ 613 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -1, -8/ 614 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, -9/ 615 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 2, -9/ 616 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 4, -7/ 617 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 5, -5/ 618C 619 DATA IXMIND( 9)/ -7/ 620 DATA IXMAXD( 9)/ 6/ 621 DATA IXDELD( 9)/ 13/ 622 DATA ISTARD( 9)/ 34/ 623 DATA NUMCOO( 9)/ 29/ 624C 625C DEFINE CHARACTER 3160--LOWER CASE J 626C 627 DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 3, 12/ 628 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 3, 10/ 629 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 5, 10/ 630 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 5, 12/ 631 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 3, 12/ 632 DATA IOPERA( 68),IX( 68),IY( 68)/'MOVE', 4, 12/ 633 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 4, 10/ 634 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', 3, 11/ 635 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 5, 11/ 636 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', -5, 1/ 637 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -4, 3/ 638 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -2, 5/ 639 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 0, 5/ 640 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 1, 4/ 641 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 2, 2/ 642 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 2, -1/ 643 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 0, -8/ 644 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, -11/ 645 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -2, -13/ 646 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -4, -15/ 647 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -6, -16/ 648 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -8, -16/ 649 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -9, -15/ 650 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -9, -13/ 651 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -7, -13/ 652 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -7, -15/ 653 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -8, -15/ 654 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -8, -14/ 655 DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', 1, 4/ 656 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 1, -1/ 657 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -1, -8/ 658 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -2, -11/ 659 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -3, -13/ 660 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 1, 2/ 661 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 0, -2/ 662 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -2, -9/ 663 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -3, -12/ 664 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -4, -14/ 665 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -6, -16/ 666C 667 DATA IXMIND( 10)/ -7/ 668 DATA IXMAXD( 10)/ 6/ 669 DATA IXDELD( 10)/ 13/ 670 DATA ISTARD( 10)/ 63/ 671 DATA NUMCOO( 10)/ 39/ 672C 673C DEFINE CHARACTER 3161--LOWER CASE K 674C 675 DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE', -3, 12/ 676 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -9, -9/ 677 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -7, -9/ 678 DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', -2, 12/ 679 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -8, -9/ 680 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -6, 12/ 681 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -1, 12/ 682 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -7, -9/ 683 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', 7, 3/ 684 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 7, 4/ 685 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 6, 4/ 686 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 6, 2/ 687 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 8, 2/ 688 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 8, 4/ 689 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 7, 5/ 690 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 5, 5/ 691 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 3, 4/ 692 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -1, 0/ 693 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -3, -1/ 694 DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', -5, -1/ 695 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -3, -1/ 696 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -1, -2/ 697 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 0, -3/ 698 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 2, -7/ 699 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 3, -8/ 700 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 5, -8/ 701 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -1, -3/ 702 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, -7/ 703 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 2, -8/ 704 DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', -3, -1/ 705 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -2, -2/ 706 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 0, -8/ 707 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 1, -9/ 708 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 3, -9/ 709 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 5, -8/ 710 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 7, -5/ 711 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', -5, 12/ 712 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -2, 11/ 713 DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', -4, 12/ 714 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -3, 10/ 715C 716 DATA IXMIND( 11)/ -11/ 717 DATA IXMAXD( 11)/ 11/ 718 DATA IXDELD( 11)/ 22/ 719 DATA ISTARD( 11)/ 102/ 720 DATA NUMCOO( 11)/ 40/ 721C 722C DEFINE CHARACTER 3162--LOWER CASE L 723C 724 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', 2, 12/ 725 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -1, 1/ 726 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -2, -3/ 727 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -2, -6/ 728 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -1, -8/ 729 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 0, -9/ 730 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, -9/ 731 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 4, -7/ 732 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 5, -5/ 733 DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE', 3, 12/ 734 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 0, 1/ 735 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -1, -3/ 736 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -1, -8/ 737 DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', -1, 12/ 738 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 4, 12/ 739 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 0, -2/ 740 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -1, -6/ 741 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 0, 12/ 742 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 3, 11/ 743 DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', 1, 12/ 744 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 2, 10/ 745C 746 DATA IXMIND( 12)/ -6/ 747 DATA IXMAXD( 12)/ 6/ 748 DATA IXDELD( 12)/ 12/ 749 DATA ISTARD( 12)/ 142/ 750 DATA NUMCOO( 12)/ 21/ 751C 752C DEFINE CHARACTER 3163--LOWER CASE M 753C 754 DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', -17, 1/ 755 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -16, 3/ 756 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -14, 5/ 757 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -12, 5/ 758 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -11, 4/ 759 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -10, 2/ 760 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -10, -1/ 761 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -12, -9/ 762 DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', -11, 4/ 763 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -11, -1/ 764 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -13, -9/ 765 DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -11, 2/ 766 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -12, -2/ 767 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -14, -9/ 768 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -12, -9/ 769 DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', -10, -1/ 770 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -8, 2/ 771 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, 4/ 772 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -4, 5/ 773 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -2, 5/ 774 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 0, 4/ 775 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 1, 2/ 776 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 1, -1/ 777 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -1, -9/ 778 DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', 0, 4/ 779 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 0, -1/ 780 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -2, -9/ 781 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', 0, 2/ 782 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -1, -2/ 783 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -3, -9/ 784 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -1, -9/ 785 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', 1, -1/ 786 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 3, 2/ 787 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 5, 4/ 788 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', 7, 5/ 789 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 9, 5/ 790 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 11, 4/ 791 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 12, 2/ 792 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 12, -1/ 793 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 10, -6/ 794 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 11, 4/ 795 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 11, 0/ 796 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 10, -4/ 797 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 10, -8/ 798 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', 11, 2/ 799 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 9, -3/ 800 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 9, -6/ 801 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 10, -8/ 802 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 11, -9/ 803 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 13, -9/ 804 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 15, -7/ 805 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 16, -5/ 806C 807 DATA IXMIND( 13)/ -18/ 808 DATA IXMAXD( 13)/ 17/ 809 DATA IXDELD( 13)/ 35/ 810 DATA ISTARD( 13)/ 163/ 811 DATA NUMCOO( 13)/ 52/ 812C 813C DEFINE CHARACTER 3164--LOWER CASE N 814C 815 DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', -11, 1/ 816 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -10, 3/ 817 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -8, 5/ 818 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -6, 5/ 819 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -5, 4/ 820 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -4, 2/ 821 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -4, -1/ 822 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -6, -9/ 823 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', -5, 4/ 824 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -5, -1/ 825 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -7, -9/ 826 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', -5, 2/ 827 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -6, -2/ 828 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -8, -9/ 829 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -6, -9/ 830 DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -4, -1/ 831 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -2, 2/ 832 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 0, 4/ 833 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 2, 5/ 834 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 4, 5/ 835 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 6, 4/ 836 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 7, 2/ 837 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 7, -1/ 838 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 5, -6/ 839 DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', 6, 4/ 840 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 6, 0/ 841 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 5, -4/ 842 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 5, -8/ 843 DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE', 6, 2/ 844 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 4, -3/ 845 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 4, -6/ 846 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 5, -8/ 847 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 6, -9/ 848 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 8, -9/ 849 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 10, -7/ 850 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 11, -5/ 851C 852 DATA IXMIND( 14)/ -12/ 853 DATA IXMAXD( 14)/ 12/ 854 DATA IXDELD( 14)/ 24/ 855 DATA ISTARD( 14)/ 215/ 856 DATA NUMCOO( 14)/ 36/ 857C 858C DEFINE CHARACTER 3165--LOWER CASE O 859C 860 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', -1, 5/ 861 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -4, 4/ 862 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -6, 1/ 863 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -7, -2/ 864 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -7, -4/ 865 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -6, -7/ 866 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -5, -8/ 867 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -2, -9/ 868 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 1, -9/ 869 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 4, -8/ 870 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 6, -5/ 871 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 7, -2/ 872 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 7, 0/ 873 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 6, 3/ 874 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 5, 4/ 875 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 2, 5/ 876 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -1, 5/ 877 DATA IOPERA( 268),IX( 268),IY( 268)/'MOVE', -4, 3/ 878 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -5, 1/ 879 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -6, -2/ 880 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -6, -5/ 881 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', -5, -7/ 882 DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE', 4, -7/ 883 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 5, -5/ 884 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 6, -2/ 885 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 6, 1/ 886 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 5, 3/ 887 DATA IOPERA( 278),IX( 278),IY( 278)/'MOVE', -1, 5/ 888 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', -3, 3/ 889 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -4, 1/ 890 DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -5, -2/ 891 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -5, -5/ 892 DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', -4, -8/ 893 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -2, -9/ 894 DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE', 1, -9/ 895 DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', 3, -7/ 896 DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 4, -5/ 897 DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', 5, -2/ 898 DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', 5, 1/ 899 DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', 4, 4/ 900 DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', 2, 5/ 901C 902 DATA IXMIND( 15)/ -10/ 903 DATA IXMAXD( 15)/ 10/ 904 DATA IXDELD( 15)/ 20/ 905 DATA ISTARD( 15)/ 251/ 906 DATA NUMCOO( 15)/ 41/ 907C 908C-----START POINT----------------------------------------------------- 909C 910 IFOUND='YES' 911 IERROR='NO' 912C 913 NUMCO=1 914 ISTART=1 915 ISTOP=1 916 NC=1 917C 918C ****************************************** 919C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 920C ** HERSHEY CHARACTER SET CASE ** 921C ****************************************** 922C 923C 924 IF(IBUGD2.EQ.'OFF')GOTO90 925 WRITE(ICOUT,999) 926 999 FORMAT(1X) 927 CALL DPWRST('XXX','BUG ') 928 WRITE(ICOUT,51) 929 51 FORMAT('***** AT THE BEGINNING OF DRTIL2--') 930 CALL DPWRST('XXX','BUG ') 931 WRITE(ICOUT,52)ICHARN 932 52 FORMAT('ICHARN = ',I8) 933 CALL DPWRST('XXX','BUG ') 934 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 935 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 936 CALL DPWRST('XXX','BUG ') 937 90 CONTINUE 938C 939C ************************************** 940C ** STEP 2-- ** 941C ** EXTRACT THE COORDINATES ** 942C ** FOR THIS PARTICULAR CHARACTER. ** 943C ************************************** 944C 945 ISTART=ISTARD(ICHARN) 946 NC=NUMCOO(ICHARN) 947 ISTOP=ISTART+NC-1 948 J=0 949 DO1100I=ISTART,ISTOP 950 J=J+1 951 IOP(J)=IOPERA(I) 952 X(J)=IX(I) 953 Y(J)=IY(I) 954 1100 CONTINUE 955 NUMCO=J 956 IXMINS=IXMIND(ICHARN) 957 IXMAXS=IXMAXD(ICHARN) 958 IXDELS=IXDELD(ICHARN) 959C 960 GOTO9000 961C 962C ***************** 963C ** STEP 90-- ** 964C ** EXIT ** 965C ***************** 966C 967 9000 CONTINUE 968 IF(IBUGD2.EQ.'OFF')GOTO9090 969 WRITE(ICOUT,999) 970 CALL DPWRST('XXX','BUG ') 971 WRITE(ICOUT,9011) 972 9011 FORMAT('***** AT THE END OF DRTIL2--') 973 CALL DPWRST('XXX','BUG ') 974 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 975 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 976 CALL DPWRST('XXX','BUG ') 977 WRITE(ICOUT,9013)ICHARN 978 9013 FORMAT('ICHARN = ',I8) 979 CALL DPWRST('XXX','BUG ') 980 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 981 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 982 CALL DPWRST('XXX','BUG ') 983 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 984 DO9015I=1,NUMCO 985 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 986 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 987 CALL DPWRST('XXX','BUG ') 988 9015 CONTINUE 989 9019 CONTINUE 990 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 991 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 992 CALL DPWRST('XXX','BUG ') 993 9090 CONTINUE 994C 995 RETURN 996 END 997 SUBROUTINE DRTIL3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 998 1IBUGD2,IFOUND,IERROR) 999C 1000C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 1001C FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 3). 1002C WRITTEN BY--JAMES J. FILLIBEN 1003C STATISTICAL ENGINEERING DIVISION 1004C CENTER FOR APPLIED MATHEMATICS 1005C NATIONAL BUREAU OF STANDARDS 1006C WASHINGTON, D. C. 20234 1007C PHONE--301-921-3651 1008C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 1009C OF THE NATIONAL BUREAU OF STANDARDS. 1010C LANGUAGE--ANSI FORTRAN (1977) 1011C VERSION NUMBER--87/4 1012C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 1013C UPDATED --MAY 1982. 1014C UPDATED --MARCH 1987. 1015C 1016C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 1017C 1018 CHARACTER*4 IOP 1019 CHARACTER*4 IBUGD2 1020 CHARACTER*4 IFOUND 1021 CHARACTER*4 IERROR 1022C 1023 CHARACTER*4 IOPERA 1024C 1025C--------------------------------------------------------------------- 1026C 1027 DIMENSION IOP(*) 1028 DIMENSION X(*) 1029 DIMENSION Y(*) 1030C 1031 DIMENSION IOPERA(300) 1032 DIMENSION IX(300) 1033 DIMENSION IY(300) 1034C 1035 DIMENSION IXMIND(30) 1036 DIMENSION IXMAXD(30) 1037 DIMENSION IXDELD(30) 1038 DIMENSION ISTARD(30) 1039 DIMENSION NUMCOO(30) 1040C 1041C-----COMMON---------------------------------------------------------- 1042C 1043 INCLUDE 'DPCOP2.INC' 1044C 1045C-----DATA STATEMENTS------------------------------------------------- 1046C 1047C DEFINE CHARACTER 3166--LOWER CASE P 1048C 1049 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -10, 1/ 1050 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, 3/ 1051 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -7, 5/ 1052 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -5, 5/ 1053 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -4, 4/ 1054 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -3, 2/ 1055 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -3, -1/ 1056 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -4, -5/ 1057 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -7, -16/ 1058 DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', -4, 4/ 1059 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -4, -1/ 1060 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -5, -5/ 1061 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -8, -16/ 1062 DATA IOPERA( 14),IX( 14),IY( 14)/'MOVE', -4, 2/ 1063 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -5, -2/ 1064 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -9, -16/ 1065 DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -3, -2/ 1066 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -2, 1/ 1067 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -1, 3/ 1068 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 0, 4/ 1069 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 2, 5/ 1070 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 4, 5/ 1071 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 6, 4/ 1072 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 7, 3/ 1073 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 8, 0/ 1074 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 8, -2/ 1075 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 7, -5/ 1076 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 5, -8/ 1077 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 2, -9/ 1078 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 0, -9/ 1079 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -2, -8/ 1080 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -3, -5/ 1081 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -3, -2/ 1082 DATA IOPERA( 34),IX( 34),IY( 34)/'MOVE', 6, 3/ 1083 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 7, 1/ 1084 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 7, -2/ 1085 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 6, -5/ 1086 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 5, -7/ 1087 DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', 4, 5/ 1088 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 5, 4/ 1089 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 6, 1/ 1090 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 6, -2/ 1091 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 5, -5/ 1092 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 4, -7/ 1093 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 2, -9/ 1094 DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', -12, -16/ 1095 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -4, -16/ 1096 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', -8, -15/ 1097 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -11, -16/ 1098 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', -8, -14/ 1099 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -10, -16/ 1100 DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', -7, -14/ 1101 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -6, -16/ 1102 DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', -8, -15/ 1103 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -5, -16/ 1104C 1105 DATA IXMIND( 16)/ -11/ 1106 DATA IXMAXD( 16)/ 11/ 1107 DATA IXDELD( 16)/ 22/ 1108 DATA ISTARD( 16)/ 1/ 1109 DATA NUMCOO( 16)/ 55/ 1110C 1111C DEFINE CHARACTER 3167--LOWER CASE Q 1112C 1113 DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 5, 5/ 1114 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -1, -16/ 1115 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', 6, 5/ 1116 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, -16/ 1117 DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', 5, 5/ 1118 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 7, 5/ 1119 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 1, -16/ 1120 DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 3, -2/ 1121 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 3, 1/ 1122 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 2, 4/ 1123 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 0, 5/ 1124 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -2, 5/ 1125 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -5, 4/ 1126 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -7, 1/ 1127 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -8, -2/ 1128 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -8, -4/ 1129 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -7, -7/ 1130 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -6, -8/ 1131 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -4, -9/ 1132 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -2, -9/ 1133 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 0, -8/ 1134 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 1, -7/ 1135 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 2, -5/ 1136 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 3, -2/ 1137 DATA IOPERA( 80),IX( 80),IY( 80)/'MOVE', -5, 3/ 1138 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -6, 1/ 1139 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -7, -2/ 1140 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -7, -5/ 1141 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -6, -7/ 1142 DATA IOPERA( 85),IX( 85),IY( 85)/'MOVE', -2, 5/ 1143 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -4, 3/ 1144 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -5, 1/ 1145 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -6, -2/ 1146 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -6, -5/ 1147 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -5, -8/ 1148 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -4, -9/ 1149 DATA IOPERA( 92),IX( 92),IY( 92)/'MOVE', -4, -16/ 1150 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 4, -16/ 1151 DATA IOPERA( 94),IX( 94),IY( 94)/'MOVE', 0, -15/ 1152 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -3, -16/ 1153 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 0, -14/ 1154 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -2, -16/ 1155 DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', 1, -14/ 1156 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 2, -16/ 1157 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 0, -15/ 1158 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 3, -16/ 1159C 1160 DATA IXMIND( 17)/ -11/ 1161 DATA IXMAXD( 17)/ 10/ 1162 DATA IXDELD( 17)/ 21/ 1163 DATA ISTARD( 17)/ 56/ 1164 DATA NUMCOO( 17)/ 46/ 1165C 1166C DEFINE CHARACTER 3168--LOWER CASE R 1167C 1168 DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE', -8, 1/ 1169 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -7, 3/ 1170 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -5, 5/ 1171 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -3, 5/ 1172 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -2, 4/ 1173 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -1, 2/ 1174 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -1, -2/ 1175 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -3, -9/ 1176 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -2, 4/ 1177 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -2, -2/ 1178 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -4, -9/ 1179 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -2, 2/ 1180 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -3, -2/ 1181 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -5, -9/ 1182 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, -9/ 1183 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 7, 3/ 1184 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 7, 4/ 1185 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 6, 4/ 1186 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 6, 2/ 1187 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 8, 2/ 1188 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 8, 4/ 1189 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 7, 5/ 1190 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 5, 5/ 1191 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 3, 4/ 1192 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 1, 2/ 1193 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -1, -2/ 1194C 1195 DATA IXMIND( 18)/ -9/ 1196 DATA IXMAXD( 18)/ 9/ 1197 DATA IXDELD( 18)/ 18/ 1198 DATA ISTARD( 18)/ 102/ 1199 DATA NUMCOO( 18)/ 26/ 1200C 1201C DEFINE CHARACTER 3169--LOWER CASE S 1202C 1203 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', 6, 2/ 1204 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 6, 3/ 1205 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 5, 3/ 1206 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 5, 1/ 1207 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 7, 1/ 1208 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 7, 3/ 1209 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 6, 4/ 1210 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 3, 5/ 1211 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 0, 5/ 1212 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -3, 4/ 1213 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -4, 3/ 1214 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -4, 1/ 1215 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -3, -1/ 1216 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -1, -2/ 1217 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 2, -3/ 1218 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 4, -4/ 1219 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 5, -6/ 1220 DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE', -3, 4/ 1221 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -4, 1/ 1222 DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE', -3, 0/ 1223 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -1, -1/ 1224 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 2, -2/ 1225 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 4, -3/ 1226 DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE', 5, -4/ 1227 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 4, -8/ 1228 DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', -4, 3/ 1229 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -3, 1/ 1230 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -1, 0/ 1231 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 2, -1/ 1232 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 4, -2/ 1233 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 5, -4/ 1234 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 5, -6/ 1235 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 4, -8/ 1236 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 1, -9/ 1237 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -2, -9/ 1238 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -5, -8/ 1239 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -6, -7/ 1240 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -6, -5/ 1241 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -4, -5/ 1242 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -4, -7/ 1243 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -5, -7/ 1244 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -5, -6/ 1245C 1246 DATA IXMIND( 19)/ -8/ 1247 DATA IXMAXD( 19)/ 9/ 1248 DATA IXDELD( 19)/ 17/ 1249 DATA ISTARD( 19)/ 128/ 1250 DATA NUMCOO( 19)/ 42/ 1251C 1252C DEFINE CHARACTER 3170--LOWER CASE T 1253C 1254 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', 2, 12/ 1255 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -1, 1/ 1256 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -2, -3/ 1257 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -2, -6/ 1258 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -1, -8/ 1259 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 0, -9/ 1260 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 2, -9/ 1261 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 4, -7/ 1262 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 5, -5/ 1263 DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', 3, 12/ 1264 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 0, 1/ 1265 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -1, -3/ 1266 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -1, -8/ 1267 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', 2, 12/ 1268 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 4, 12/ 1269 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 0, -2/ 1270 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -1, -6/ 1271 DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', -4, 5/ 1272 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 6, 5/ 1273C 1274 DATA IXMIND( 20)/ -7/ 1275 DATA IXMAXD( 20)/ 7/ 1276 DATA IXDELD( 20)/ 14/ 1277 DATA ISTARD( 20)/ 170/ 1278 DATA NUMCOO( 20)/ 19/ 1279C 1280C DEFINE CHARACTER 3171--LOWER CASE U 1281C 1282 DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', -11, 1/ 1283 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -10, 3/ 1284 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -8, 5/ 1285 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -6, 5/ 1286 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -5, 4/ 1287 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -4, 2/ 1288 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -4, -1/ 1289 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -6, -6/ 1290 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', -5, 4/ 1291 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -5, 0/ 1292 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -6, -4/ 1293 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -6, -8/ 1294 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', -5, 2/ 1295 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -7, -3/ 1296 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -7, -6/ 1297 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -6, -8/ 1298 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -4, -9/ 1299 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -2, -9/ 1300 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 0, -8/ 1301 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 2, -6/ 1302 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 4, -3/ 1303 DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', 6, 5/ 1304 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 4, -3/ 1305 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 4, -6/ 1306 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 5, -8/ 1307 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 6, -9/ 1308 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 8, -9/ 1309 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 10, -7/ 1310 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 11, -5/ 1311 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', 7, 5/ 1312 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 5, -3/ 1313 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 5, -8/ 1314 DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE', 6, 5/ 1315 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 8, 5/ 1316 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 6, -2/ 1317 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 5, -6/ 1318C 1319 DATA IXMIND( 21)/ -12/ 1320 DATA IXMAXD( 21)/ 12/ 1321 DATA IXDELD( 21)/ 24/ 1322 DATA ISTARD( 21)/ 189/ 1323 DATA NUMCOO( 21)/ 36/ 1324C 1325C DEFINE CHARACTER 3172--LOWER CASE V 1326C 1327 DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE', -9, 1/ 1328 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -8, 3/ 1329 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -6, 5/ 1330 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -4, 5/ 1331 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -3, 4/ 1332 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', -2, 2/ 1333 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -2, -1/ 1334 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -4, -6/ 1335 DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -3, 4/ 1336 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -3, 0/ 1337 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -4, -4/ 1338 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -4, -8/ 1339 DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE', -3, 2/ 1340 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -5, -3/ 1341 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -5, -6/ 1342 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', -4, -8/ 1343 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -2, -9/ 1344 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 0, -9/ 1345 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 2, -8/ 1346 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 4, -6/ 1347 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 6, -3/ 1348 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 7, 1/ 1349 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 7, 5/ 1350 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 6, 5/ 1351 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 6, 4/ 1352 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 7, 2/ 1353C 1354 DATA IXMIND( 22)/ -10/ 1355 DATA IXMAXD( 22)/ 10/ 1356 DATA IXDELD( 22)/ 20/ 1357 DATA ISTARD( 22)/ 225/ 1358 DATA NUMCOO( 22)/ 26/ 1359C 1360C DEFINE CHARACTER 3173--LOWER CASE W 1361C 1362 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', -14, 1/ 1363 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -13, 3/ 1364 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -11, 5/ 1365 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -9, 5/ 1366 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -8, 4/ 1367 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -7, 2/ 1368 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -7, -1/ 1369 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -9, -6/ 1370 DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE', -8, 4/ 1371 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -8, 0/ 1372 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -9, -4/ 1373 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -9, -8/ 1374 DATA IOPERA( 263),IX( 263),IY( 263)/'MOVE', -8, 2/ 1375 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -10, -3/ 1376 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -10, -6/ 1377 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', -9, -8/ 1378 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -7, -9/ 1379 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -5, -9/ 1380 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -3, -8/ 1381 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -1, -6/ 1382 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 0, -3/ 1383 DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE', 2, 5/ 1384 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 0, -3/ 1385 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 0, -6/ 1386 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 1, -8/ 1387 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 3, -9/ 1388 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 5, -9/ 1389 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 7, -8/ 1390 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 9, -6/ 1391 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 11, -3/ 1392 DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', 12, 1/ 1393 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', 12, 5/ 1394 DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 11, 5/ 1395 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 11, 4/ 1396 DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', 12, 2/ 1397 DATA IOPERA( 286),IX( 286),IY( 286)/'MOVE', 3, 5/ 1398 DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 1, -3/ 1399 DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', 1, -8/ 1400 DATA IOPERA( 289),IX( 289),IY( 289)/'MOVE', 2, 5/ 1401 DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', 4, 5/ 1402 DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', 2, -2/ 1403 DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', 1, -6/ 1404C 1405 DATA IXMIND( 23)/ -15/ 1406 DATA IXMAXD( 23)/ 15/ 1407 DATA IXDELD( 23)/ 30/ 1408 DATA ISTARD( 23)/ 251/ 1409 DATA NUMCOO( 23)/ 42/ 1410C 1411C-----START POINT----------------------------------------------------- 1412C 1413 IFOUND='YES' 1414 IERROR='NO' 1415C 1416 NUMCO=1 1417 ISTART=1 1418 ISTOP=1 1419 NC=1 1420C 1421C ****************************************** 1422C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 1423C ** HERSHEY CHARACTER SET CASE ** 1424C ****************************************** 1425C 1426C 1427 IF(IBUGD2.EQ.'OFF')GOTO90 1428 WRITE(ICOUT,999) 1429 999 FORMAT(1X) 1430 CALL DPWRST('XXX','BUG ') 1431 WRITE(ICOUT,51) 1432 51 FORMAT('***** AT THE BEGINNING OF DRTIL3--') 1433 CALL DPWRST('XXX','BUG ') 1434 WRITE(ICOUT,52)ICHARN 1435 52 FORMAT('ICHARN = ',I8) 1436 CALL DPWRST('XXX','BUG ') 1437 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 1438 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 1439 CALL DPWRST('XXX','BUG ') 1440 90 CONTINUE 1441C 1442C ************************************** 1443C ** STEP 2-- ** 1444C ** EXTRACT THE COORDINATES ** 1445C ** FOR THIS PARTICULAR CHARACTER. ** 1446C ************************************** 1447C 1448 ISTART=ISTARD(ICHARN) 1449 NC=NUMCOO(ICHARN) 1450 ISTOP=ISTART+NC-1 1451 J=0 1452 DO1100I=ISTART,ISTOP 1453 J=J+1 1454 IOP(J)=IOPERA(I) 1455 X(J)=IX(I) 1456 Y(J)=IY(I) 1457 1100 CONTINUE 1458 NUMCO=J 1459 IXMINS=IXMIND(ICHARN) 1460 IXMAXS=IXMAXD(ICHARN) 1461 IXDELS=IXDELD(ICHARN) 1462C 1463 GOTO9000 1464C 1465C ***************** 1466C ** STEP 90-- ** 1467C ** EXIT ** 1468C ***************** 1469C 1470 9000 CONTINUE 1471 IF(IBUGD2.EQ.'OFF')GOTO9090 1472 WRITE(ICOUT,999) 1473 CALL DPWRST('XXX','BUG ') 1474 WRITE(ICOUT,9011) 1475 9011 FORMAT('***** AT THE END OF DRTIL3--') 1476 CALL DPWRST('XXX','BUG ') 1477 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 1478 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 1479 CALL DPWRST('XXX','BUG ') 1480 WRITE(ICOUT,9013)ICHARN 1481 9013 FORMAT('ICHARN = ',I8) 1482 CALL DPWRST('XXX','BUG ') 1483 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 1484 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 1485 CALL DPWRST('XXX','BUG ') 1486 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 1487 DO9015I=1,NUMCO 1488 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 1489 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 1490 CALL DPWRST('XXX','BUG ') 1491 9015 CONTINUE 1492 9019 CONTINUE 1493 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 1494 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 1495 CALL DPWRST('XXX','BUG ') 1496 9090 CONTINUE 1497C 1498 RETURN 1499 END 1500 SUBROUTINE DRTIL4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1501 1IBUGD2,IFOUND,IERROR) 1502C 1503C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 1504C FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 4). 1505C WRITTEN BY--JAMES J. FILLIBEN 1506C STATISTICAL ENGINEERING DIVISION 1507C CENTER FOR APPLIED MATHEMATICS 1508C NATIONAL BUREAU OF STANDARDS 1509C WASHINGTON, D. C. 20234 1510C PHONE--301-921-3651 1511C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 1512C OF THE NATIONAL BUREAU OF STANDARDS. 1513C LANGUAGE--ANSI FORTRAN (1977) 1514C VERSION NUMBER--87/4 1515C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 1516C UPDATED --MAY 1982. 1517C UPDATED --MARCH 1987. 1518C 1519C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 1520C 1521 CHARACTER*4 IOP 1522 CHARACTER*4 IBUGD2 1523 CHARACTER*4 IFOUND 1524 CHARACTER*4 IERROR 1525C 1526 CHARACTER*4 IOPERA 1527C 1528C--------------------------------------------------------------------- 1529C 1530 DIMENSION IOP(*) 1531 DIMENSION X(*) 1532 DIMENSION Y(*) 1533C 1534 DIMENSION IOPERA(300) 1535 DIMENSION IX(300) 1536 DIMENSION IY(300) 1537C 1538 DIMENSION IXMIND(30) 1539 DIMENSION IXMAXD(30) 1540 DIMENSION IXDELD(30) 1541 DIMENSION ISTARD(30) 1542 DIMENSION NUMCOO(30) 1543C 1544C-----COMMON---------------------------------------------------------- 1545C 1546 INCLUDE 'DPCOP2.INC' 1547C 1548C-----DATA STATEMENTS------------------------------------------------- 1549C 1550C DEFINE CHARACTER 3174--LOWER CASE X 1551C 1552 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -8, 1/ 1553 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -6, 4/ 1554 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -4, 5/ 1555 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -2, 5/ 1556 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 0, 4/ 1557 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 1, 2/ 1558 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 1, 0/ 1559 DATA IOPERA( 8),IX( 8),IY( 8)/'MOVE', -2, 5/ 1560 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -1, 4/ 1561 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -1, 0/ 1562 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -2, -4/ 1563 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -3, -6/ 1564 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -5, -8/ 1565 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -7, -9/ 1566 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -9, -9/ 1567 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -10, -8/ 1568 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -10, -6/ 1569 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -8, -6/ 1570 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -8, -8/ 1571 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -9, -8/ 1572 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -9, -7/ 1573 DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', 0, 3/ 1574 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 0, 0/ 1575 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -1, -4/ 1576 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, -7/ 1577 DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', 8, 3/ 1578 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 8, 4/ 1579 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 7, 4/ 1580 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 7, 2/ 1581 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 9, 2/ 1582 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 9, 4/ 1583 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 8, 5/ 1584 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 6, 5/ 1585 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 4, 4/ 1586 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 2, 2/ 1587 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 1, 0/ 1588 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 0, -4/ 1589 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 0, -8/ 1590 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 1, -9/ 1591 DATA IOPERA( 40),IX( 40),IY( 40)/'MOVE', -2, -4/ 1592 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -2, -6/ 1593 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -1, -8/ 1594 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 1, -9/ 1595 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 3, -9/ 1596 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 5, -8/ 1597 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 7, -5/ 1598C 1599 DATA IXMIND( 24)/ -11/ 1600 DATA IXMAXD( 24)/ 11/ 1601 DATA IXDELD( 24)/ 22/ 1602 DATA ISTARD( 24)/ 1/ 1603 DATA NUMCOO( 24)/ 46/ 1604C 1605C DEFINE CHARACTER 3175--LOWER CASE Y 1606C 1607 DATA IOPERA( 47),IX( 47),IY( 47)/'MOVE', -10, 1/ 1608 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -9, 3/ 1609 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -7, 5/ 1610 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -5, 5/ 1611 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -4, 4/ 1612 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -3, 2/ 1613 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -3, -1/ 1614 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -5, -6/ 1615 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -4, 4/ 1616 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -4, 0/ 1617 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -5, -4/ 1618 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -5, -8/ 1619 DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', -4, 2/ 1620 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -6, -3/ 1621 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -6, -6/ 1622 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', -5, -8/ 1623 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -3, -9/ 1624 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -1, -9/ 1625 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 1, -8/ 1626 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 3, -6/ 1627 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 5, -2/ 1628 DATA IOPERA( 68),IX( 68),IY( 68)/'MOVE', 7, 5/ 1629 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 3, -9/ 1630 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 2, -12/ 1631 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 0, -15/ 1632 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -2, -16/ 1633 DATA IOPERA( 73),IX( 73),IY( 73)/'MOVE', 8, 5/ 1634 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 4, -9/ 1635 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 2, -13/ 1636 DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', 7, 5/ 1637 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 9, 5/ 1638 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 5, -9/ 1639 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 3, -13/ 1640 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 1, -15/ 1641 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -2, -16/ 1642 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -5, -16/ 1643 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -7, -15/ 1644 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -8, -14/ 1645 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -8, -12/ 1646 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -6, -12/ 1647 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -6, -14/ 1648 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -7, -14/ 1649 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -7, -13/ 1650C 1651 DATA IXMIND( 25)/ -11/ 1652 DATA IXMAXD( 25)/ 11/ 1653 DATA IXDELD( 25)/ 22/ 1654 DATA ISTARD( 25)/ 47/ 1655 DATA NUMCOO( 25)/ 43/ 1656C 1657C DEFINE CHARACTER 3176--LOWER CASE Z 1658C 1659 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', 7, 5/ 1660 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 6, 3/ 1661 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 4, 1/ 1662 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -4, -5/ 1663 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -6, -7/ 1664 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -7, -9/ 1665 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 6, 3/ 1666 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -3, 3/ 1667 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -5, 2/ 1668 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -6, 0/ 1669 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 4, 3/ 1670 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 0, 4/ 1671 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -3, 4/ 1672 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -4, 3/ 1673 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', 4, 3/ 1674 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 0, 5/ 1675 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -3, 5/ 1676 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -5, 3/ 1677 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -6, 0/ 1678 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -6, -7/ 1679 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 3, -7/ 1680 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 5, -6/ 1681 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 6, -4/ 1682 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -4, -7/ 1683 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 0, -8/ 1684 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 3, -8/ 1685 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 4, -7/ 1686 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', -4, -7/ 1687 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 0, -9/ 1688 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 3, -9/ 1689 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 5, -7/ 1690 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 6, -4/ 1691C 1692 DATA IXMIND( 26)/ -10/ 1693 DATA IXMAXD( 26)/ 10/ 1694 DATA IXDELD( 26)/ 20/ 1695 DATA ISTARD( 26)/ 90/ 1696 DATA NUMCOO( 26)/ 32/ 1697C 1698C-----START POINT----------------------------------------------------- 1699C 1700 IFOUND='YES' 1701 IERROR='NO' 1702C 1703 NUMCO=1 1704 ISTART=1 1705 ISTOP=1 1706 NC=1 1707C 1708C ****************************************** 1709C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 1710C ** HERSHEY CHARACTER SET CASE ** 1711C ****************************************** 1712C 1713C 1714 IF(IBUGD2.EQ.'OFF')GOTO90 1715 WRITE(ICOUT,999) 1716 999 FORMAT(1X) 1717 CALL DPWRST('XXX','BUG ') 1718 WRITE(ICOUT,51) 1719 51 FORMAT('***** AT THE BEGINNING OF DRTIL4--') 1720 CALL DPWRST('XXX','BUG ') 1721 WRITE(ICOUT,52)ICHARN 1722 52 FORMAT('ICHARN = ',I8) 1723 CALL DPWRST('XXX','BUG ') 1724 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 1725 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 1726 CALL DPWRST('XXX','BUG ') 1727 90 CONTINUE 1728C 1729C ************************************** 1730C ** STEP 2-- ** 1731C ** EXTRACT THE COORDINATES ** 1732C ** FOR THIS PARTICULAR CHARACTER. ** 1733C ************************************** 1734C 1735 ISTART=ISTARD(ICHARN) 1736 NC=NUMCOO(ICHARN) 1737 ISTOP=ISTART+NC-1 1738 J=0 1739 DO1100I=ISTART,ISTOP 1740 J=J+1 1741 IOP(J)=IOPERA(I) 1742 X(J)=IX(I) 1743 Y(J)=IY(I) 1744 1100 CONTINUE 1745 NUMCO=J 1746 IXMINS=IXMIND(ICHARN) 1747 IXMAXS=IXMAXD(ICHARN) 1748 IXDELS=IXDELD(ICHARN) 1749C 1750 GOTO9000 1751C 1752C ***************** 1753C ** STEP 90-- ** 1754C ** EXIT ** 1755C ***************** 1756C 1757 9000 CONTINUE 1758 IF(IBUGD2.EQ.'OFF')GOTO9090 1759 WRITE(ICOUT,999) 1760 CALL DPWRST('XXX','BUG ') 1761 WRITE(ICOUT,9011) 1762 9011 FORMAT('***** AT THE END OF DRTIL4--') 1763 CALL DPWRST('XXX','BUG ') 1764 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 1765 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 1766 CALL DPWRST('XXX','BUG ') 1767 WRITE(ICOUT,9013)ICHARN 1768 9013 FORMAT('ICHARN = ',I8) 1769 CALL DPWRST('XXX','BUG ') 1770 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 1771 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 1772 CALL DPWRST('XXX','BUG ') 1773 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 1774 DO9015I=1,NUMCO 1775 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 1776 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 1777 CALL DPWRST('XXX','BUG ') 1778 9015 CONTINUE 1779 9019 CONTINUE 1780 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 1781 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 1782 CALL DPWRST('XXX','BUG ') 1783 9090 CONTINUE 1784C 1785 RETURN 1786 END 1787 SUBROUTINE DRTIN1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 1788 1IBUGD2,IFOUND,IERROR) 1789C 1790C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 1791C FOR ROMAN TRIPLEX ITALIC NUMERIC (PART 1). 1792C WRITTEN BY--JAMES J. FILLIBEN 1793C STATISTICAL ENGINEERING DIVISION 1794C CENTER FOR APPLIED MATHEMATICS 1795C NATIONAL BUREAU OF STANDARDS 1796C WASHINGTON, D. C. 20234 1797C PHONE--301-921-3651 1798C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 1799C OF THE NATIONAL BUREAU OF STANDARDS. 1800C LANGUAGE--ANSI FORTRAN (1977) 1801C VERSION NUMBER--87/4 1802C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 1803C UPDATED --MAY 1982. 1804C UPDATED --MARCH 1987. 1805C 1806C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 1807C 1808 CHARACTER*4 IOP 1809 CHARACTER*4 IBUGD2 1810 CHARACTER*4 IFOUND 1811 CHARACTER*4 IERROR 1812C 1813 CHARACTER*4 IOPERA 1814C 1815C--------------------------------------------------------------------- 1816C 1817 DIMENSION IOP(*) 1818 DIMENSION X(*) 1819 DIMENSION Y(*) 1820C 1821 DIMENSION IOPERA(300) 1822 DIMENSION IX(300) 1823 DIMENSION IY(300) 1824C 1825 DIMENSION IXMIND(30) 1826 DIMENSION IXMAXD(30) 1827 DIMENSION IXDELD(30) 1828 DIMENSION ISTARD(30) 1829 DIMENSION NUMCOO(30) 1830C 1831C-----COMMON---------------------------------------------------------- 1832C 1833 INCLUDE 'DPCOP2.INC' 1834C 1835C-----DATA STATEMENTS------------------------------------------------- 1836C 1837C DEFINE CHARACTER 3250--0 1838C 1839 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 2, 12/ 1840 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -1, 11/ 1841 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -3, 9/ 1842 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -5, 6/ 1843 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -6, 3/ 1844 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -7, -1/ 1845 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -7, -4/ 1846 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -6, -7/ 1847 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -5, -8/ 1848 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -3, -9/ 1849 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -1, -9/ 1850 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 2, -8/ 1851 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 4, -6/ 1852 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 6, -3/ 1853 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 7, 0/ 1854 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 8, 4/ 1855 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 8, 7/ 1856 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 7, 10/ 1857 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 6, 11/ 1858 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 4, 12/ 1859 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 2, 12/ 1860 DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', -1, 10/ 1861 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -3, 8/ 1862 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -4, 6/ 1863 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -5, 3/ 1864 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -6, -1/ 1865 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -6, -5/ 1866 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -5, -7/ 1867 DATA IOPERA( 29),IX( 29),IY( 29)/'MOVE', 2, -7/ 1868 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 4, -5/ 1869 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 5, -3/ 1870 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 6, 0/ 1871 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 7, 4/ 1872 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 7, 8/ 1873 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 6, 10/ 1874 DATA IOPERA( 36),IX( 36),IY( 36)/'MOVE', 2, 12/ 1875 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 0, 11/ 1876 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -2, 8/ 1877 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -3, 6/ 1878 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -4, 3/ 1879 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -5, -1/ 1880 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -5, -6/ 1881 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -4, -8/ 1882 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -3, -9/ 1883 DATA IOPERA( 45),IX( 45),IY( 45)/'MOVE', -1, -9/ 1884 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 1, -8/ 1885 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 3, -5/ 1886 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 4, -3/ 1887 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 5, 0/ 1888 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 6, 4/ 1889 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 6, 9/ 1890 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 5, 11/ 1891 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 4, 12/ 1892C 1893 DATA IXMIND( 1)/ -10/ 1894 DATA IXMAXD( 1)/ 11/ 1895 DATA IXDELD( 1)/ 21/ 1896 DATA ISTARD( 1)/ 1/ 1897 DATA NUMCOO( 1)/ 53/ 1898C 1899C DEFINE CHARACTER 3251--1 1900C 1901 DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', 2, 8/ 1902 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -3, -9/ 1903 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -1, -9/ 1904 DATA IOPERA( 57),IX( 57),IY( 57)/'MOVE', 5, 12/ 1905 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 3, 8/ 1906 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -2, -9/ 1907 DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', 5, 12/ 1908 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -1, -9/ 1909 DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', 5, 12/ 1910 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 2, 9/ 1911 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -1, 7/ 1912 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -3, 6/ 1913 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', 2, 8/ 1914 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 0, 7/ 1915 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -3, 6/ 1916C 1917 DATA IXMIND( 2)/ -10/ 1918 DATA IXMAXD( 2)/ 11/ 1919 DATA IXDELD( 2)/ 21/ 1920 DATA ISTARD( 2)/ 54/ 1921 DATA NUMCOO( 2)/ 15/ 1922C 1923C DEFINE CHARACTER 3252--2 1924C 1925 DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', -3, 7/ 1926 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, 8/ 1927 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -2, 8/ 1928 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -2, 6/ 1929 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -4, 6/ 1930 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -4, 8/ 1931 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -3, 10/ 1932 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -2, 11/ 1933 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 1, 12/ 1934 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 4, 12/ 1935 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 7, 11/ 1936 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 8, 9/ 1937 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 8, 7/ 1938 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 7, 5/ 1939 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 5, 3/ 1940 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -5, -3/ 1941 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -7, -5/ 1942 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -9, -9/ 1943 DATA IOPERA( 87),IX( 87),IY( 87)/'MOVE', 6, 11/ 1944 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 7, 9/ 1945 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 7, 7/ 1946 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 6, 5/ 1947 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 4, 3/ 1948 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 1, 1/ 1949 DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', 4, 12/ 1950 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 5, 11/ 1951 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 6, 9/ 1952 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 6, 7/ 1953 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 5, 5/ 1954 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 3, 3/ 1955 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -5, -3/ 1956 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', -8, -7/ 1957 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -7, -6/ 1958 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -5, -6/ 1959 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 0, -7/ 1960 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 5, -7/ 1961 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 6, -6/ 1962 DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', -5, -6/ 1963 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 0, -8/ 1964 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, -8/ 1965 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -5, -6/ 1966 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 0, -9/ 1967 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 3, -9/ 1968 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 5, -8/ 1969 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 6, -6/ 1970 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 6, -5/ 1971C 1972 DATA IXMIND( 3)/ -10/ 1973 DATA IXMAXD( 3)/ 11/ 1974 DATA IXDELD( 3)/ 21/ 1975 DATA ISTARD( 3)/ 69/ 1976 DATA NUMCOO( 3)/ 46/ 1977C 1978C DEFINE CHARACTER 3253--3 1979C 1980 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', -3, 7/ 1981 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, 8/ 1982 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -2, 8/ 1983 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -2, 6/ 1984 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -4, 6/ 1985 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -4, 8/ 1986 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -3, 10/ 1987 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -2, 11/ 1988 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 1, 12/ 1989 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 4, 12/ 1990 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 7, 11/ 1991 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 8, 9/ 1992 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 8, 7/ 1993 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 7, 5/ 1994 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 6, 4/ 1995 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 4, 3/ 1996 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 1, 2/ 1997 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', 6, 11/ 1998 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 7, 9/ 1999 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 7, 7/ 2000 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 6, 5/ 2001 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 5, 4/ 2002 DATA IOPERA( 137),IX( 137),IY( 137)/'MOVE', 4, 12/ 2003 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 5, 11/ 2004 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 6, 9/ 2005 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 6, 7/ 2006 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 5, 5/ 2007 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 3, 3/ 2008 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 1, 2/ 2009 DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', -1, 2/ 2010 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 1, 2/ 2011 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 4, 1/ 2012 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 5, 0/ 2013 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 6, -2/ 2014 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 6, -5/ 2015 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 5, -7/ 2016 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 3, -8/ 2017 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 0, -9/ 2018 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -3, -9/ 2019 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -6, -8/ 2020 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -7, -7/ 2021 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -8, -5/ 2022 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -8, -3/ 2023 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -6, -3/ 2024 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -6, -5/ 2025 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -7, -5/ 2026 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -7, -4/ 2027 DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 4, 0/ 2028 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 5, -2/ 2029 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 5, -5/ 2030 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 4, -7/ 2031 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', 1, 2/ 2032 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 3, 1/ 2033 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 4, -1/ 2034 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 4, -5/ 2035 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 3, -7/ 2036 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 2, -8/ 2037 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 0, -9/ 2038C 2039 DATA IXMIND( 4)/ -10/ 2040 DATA IXMAXD( 4)/ 11/ 2041 DATA IXDELD( 4)/ 21/ 2042 DATA ISTARD( 4)/ 115/ 2043 DATA NUMCOO( 4)/ 58/ 2044C 2045C DEFINE CHARACTER 3254--4 2046C 2047 DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', 5, 8/ 2048 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 0, -9/ 2049 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 2, -9/ 2050 DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE', 8, 12/ 2051 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 6, 8/ 2052 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 1, -9/ 2053 DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', 8, 12/ 2054 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 2, -9/ 2055 DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE', 8, 12/ 2056 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -8, -3/ 2057 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 8, -3/ 2058C 2059 DATA IXMIND( 5)/ -10/ 2060 DATA IXMAXD( 5)/ 11/ 2061 DATA IXDELD( 5)/ 21/ 2062 DATA ISTARD( 5)/ 173/ 2063 DATA NUMCOO( 5)/ 11/ 2064C 2065C DEFINE CHARACTER 3255--5 2066C 2067 DATA IOPERA( 184),IX( 184),IY( 184)/'MOVE', -1, 12/ 2068 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -6, 2/ 2069 DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE', -1, 12/ 2070 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 9, 12/ 2071 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', -1, 11/ 2072 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 7, 11/ 2073 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', -2, 10/ 2074 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 3, 10/ 2075 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 7, 11/ 2076 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 9, 12/ 2077 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', -6, 2/ 2078 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -5, 3/ 2079 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -2, 4/ 2080 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', 1, 4/ 2081 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 4, 3/ 2082 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 5, 2/ 2083 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 6, 0/ 2084 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 6, -3/ 2085 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 5, -6/ 2086 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 3, -8/ 2087 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -1, -9/ 2088 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -4, -9/ 2089 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -6, -8/ 2090 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -7, -7/ 2091 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -8, -5/ 2092 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -8, -3/ 2093 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -6, -3/ 2094 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -6, -5/ 2095 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -7, -5/ 2096 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -7, -4/ 2097 DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE', 4, 2/ 2098 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 5, 0/ 2099 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 5, -3/ 2100 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 4, -6/ 2101 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 2, -8/ 2102 DATA IOPERA( 219),IX( 219),IY( 219)/'MOVE', 1, 4/ 2103 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 3, 3/ 2104 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 4, 1/ 2105 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 4, -3/ 2106 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 3, -6/ 2107 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 1, -8/ 2108 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -1, -9/ 2109C 2110 DATA IXMIND( 6)/ -10/ 2111 DATA IXMAXD( 6)/ 11/ 2112 DATA IXDELD( 6)/ 21/ 2113 DATA ISTARD( 6)/ 184/ 2114 DATA NUMCOO( 6)/ 42/ 2115C 2116C DEFINE CHARACTER 3256--6 2117C 2118 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 7, 8/ 2119 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 7, 9/ 2120 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 6, 9/ 2121 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 6, 7/ 2122 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 8, 7/ 2123 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 8, 9/ 2124 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 7, 11/ 2125 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 5, 12/ 2126 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 2, 12/ 2127 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -1, 11/ 2128 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -3, 9/ 2129 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -5, 6/ 2130 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -6, 3/ 2131 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -7, -1/ 2132 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', -7, -4/ 2133 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -6, -7/ 2134 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -5, -8/ 2135 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -3, -9/ 2136 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 0, -9/ 2137 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 3, -8/ 2138 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 5, -6/ 2139 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 6, -4/ 2140 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 6, -1/ 2141 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 5, 1/ 2142 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 4, 2/ 2143 DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 2, 3/ 2144 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -1, 3/ 2145 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -3, 2/ 2146 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -4, 1/ 2147 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -5, -1/ 2148 DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', -2, 9/ 2149 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', -4, 6/ 2150 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -5, 3/ 2151 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -6, -1/ 2152 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', -6, -5/ 2153 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -5, -7/ 2154 DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', 4, -6/ 2155 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 5, -4/ 2156 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 5, -1/ 2157 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 4, 1/ 2158 DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE', 2, 12/ 2159 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 0, 11/ 2160 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -2, 8/ 2161 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -3, 6/ 2162 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -4, 3/ 2163 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -5, -1/ 2164 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', -5, -6/ 2165 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -4, -8/ 2166 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -3, -9/ 2167 DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE', 0, -9/ 2168 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 2, -8/ 2169 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 3, -7/ 2170 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 4, -4/ 2171 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', 4, 0/ 2172 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 3, 2/ 2173 DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', 2, 3/ 2174C 2175 DATA IXMIND( 7)/ -10/ 2176 DATA IXMAXD( 7)/ 11/ 2177 DATA IXDELD( 7)/ 21/ 2178 DATA ISTARD( 7)/ 226/ 2179 DATA NUMCOO( 7)/ 56/ 2180C 2181C-----START POINT----------------------------------------------------- 2182C 2183 IFOUND='YES' 2184 IERROR='NO' 2185C 2186 NUMCO=1 2187 ISTART=1 2188 ISTOP=1 2189 NC=1 2190C 2191C ****************************************** 2192C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 2193C ** HERSHEY CHARACTER SET CASE ** 2194C ****************************************** 2195C 2196C 2197 IF(IBUGD2.EQ.'OFF')GOTO90 2198 WRITE(ICOUT,999) 2199 999 FORMAT(1X) 2200 CALL DPWRST('XXX','BUG ') 2201 WRITE(ICOUT,51) 2202 51 FORMAT('***** AT THE BEGINNING OF DRTIN1--') 2203 CALL DPWRST('XXX','BUG ') 2204 WRITE(ICOUT,52)ICHARN 2205 52 FORMAT('ICHARN = ',I8) 2206 CALL DPWRST('XXX','BUG ') 2207 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 2208 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 2209 CALL DPWRST('XXX','BUG ') 2210 90 CONTINUE 2211C 2212C ************************************** 2213C ** STEP 2-- ** 2214C ** EXTRACT THE COORDINATES ** 2215C ** FOR THIS PARTICULAR CHARACTER. ** 2216C ************************************** 2217C 2218 ISTART=ISTARD(ICHARN) 2219 NC=NUMCOO(ICHARN) 2220 ISTOP=ISTART+NC-1 2221 J=0 2222 DO1100I=ISTART,ISTOP 2223 J=J+1 2224 IOP(J)=IOPERA(I) 2225 X(J)=IX(I) 2226 Y(J)=IY(I) 2227 1100 CONTINUE 2228 NUMCO=J 2229 IXMINS=IXMIND(ICHARN) 2230 IXMAXS=IXMAXD(ICHARN) 2231 IXDELS=IXDELD(ICHARN) 2232C 2233 GOTO9000 2234C 2235C ***************** 2236C ** STEP 90-- ** 2237C ** EXIT ** 2238C ***************** 2239C 2240 9000 CONTINUE 2241 IF(IBUGD2.EQ.'OFF')GOTO9090 2242 WRITE(ICOUT,999) 2243 CALL DPWRST('XXX','BUG ') 2244 WRITE(ICOUT,9011) 2245 9011 FORMAT('***** AT THE END OF DRTIN1--') 2246 CALL DPWRST('XXX','BUG ') 2247 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 2248 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 2249 CALL DPWRST('XXX','BUG ') 2250 WRITE(ICOUT,9013)ICHARN 2251 9013 FORMAT('ICHARN = ',I8) 2252 CALL DPWRST('XXX','BUG ') 2253 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 2254 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 2255 CALL DPWRST('XXX','BUG ') 2256 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 2257 DO9015I=1,NUMCO 2258 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 2259 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 2260 CALL DPWRST('XXX','BUG ') 2261 9015 CONTINUE 2262 9019 CONTINUE 2263 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 2264 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 2265 CALL DPWRST('XXX','BUG ') 2266 9090 CONTINUE 2267C 2268 RETURN 2269 END 2270 SUBROUTINE DRTIN2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 2271 1IBUGD2,IFOUND,IERROR) 2272C 2273C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 2274C FOR ROMAN TRIPLEX ITALIC NUMERIC (PART 2). 2275C WRITTEN BY--JAMES J. FILLIBEN 2276C STATISTICAL ENGINEERING DIVISION 2277C CENTER FOR APPLIED MATHEMATICS 2278C NATIONAL BUREAU OF STANDARDS 2279C WASHINGTON, D. C. 20234 2280C PHONE--301-921-3651 2281C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 2282C OF THE NATIONAL BUREAU OF STANDARDS. 2283C LANGUAGE--ANSI FORTRAN (1977) 2284C VERSION NUMBER--87/4 2285C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 2286C UPDATED --MAY 1982. 2287C UPDATED --MARCH 1987. 2288C 2289C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 2290C 2291 CHARACTER*4 IOP 2292 CHARACTER*4 IBUGD2 2293 CHARACTER*4 IFOUND 2294 CHARACTER*4 IERROR 2295C 2296 CHARACTER*4 IOPERA 2297C 2298C--------------------------------------------------------------------- 2299C 2300 DIMENSION IOP(*) 2301 DIMENSION X(*) 2302 DIMENSION Y(*) 2303C 2304 DIMENSION IOPERA(300) 2305 DIMENSION IX(300) 2306 DIMENSION IY(300) 2307C 2308 DIMENSION IXMIND(30) 2309 DIMENSION IXMAXD(30) 2310 DIMENSION IXDELD(30) 2311 DIMENSION ISTARD(30) 2312 DIMENSION NUMCOO(30) 2313C 2314C-----COMMON---------------------------------------------------------- 2315C 2316 INCLUDE 'DPCOP2.INC' 2317C 2318C-----DATA STATEMENTS------------------------------------------------- 2319C 2320C DEFINE CHARACTER 3257--7 2321C 2322 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -4, 12/ 2323 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -6, 6/ 2324 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 9, 12/ 2325 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 8, 9/ 2326 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 6, 6/ 2327 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 2, 1/ 2328 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 0, -2/ 2329 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -1, -5/ 2330 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -2, -9/ 2331 DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', 0, -1/ 2332 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -2, -5/ 2333 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -3, -9/ 2334 DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', 6, 6/ 2335 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 0, 0/ 2336 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -2, -3/ 2337 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -3, -5/ 2338 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -4, -9/ 2339 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -2, -9/ 2340 DATA IOPERA( 19),IX( 19),IY( 19)/'MOVE', -5, 9/ 2341 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -2, 12/ 2342 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 0, 12/ 2343 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 5, 9/ 2344 DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', -3, 11/ 2345 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 0, 11/ 2346 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 5, 9/ 2347 DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', -5, 9/ 2348 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -3, 10/ 2349 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 0, 10/ 2350 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 5, 9/ 2351 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 7, 9/ 2352 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 8, 10/ 2353 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 9, 12/ 2354C 2355 DATA IXMIND( 8)/ -10/ 2356 DATA IXMAXD( 8)/ 11/ 2357 DATA IXDELD( 8)/ 21/ 2358 DATA ISTARD( 8)/ 1/ 2359 DATA NUMCOO( 8)/ 32/ 2360C 2361C DEFINE CHARACTER 3258--8 2362C 2363 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', 1, 12/ 2364 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -2, 11/ 2365 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -3, 10/ 2366 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -4, 8/ 2367 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -4, 5/ 2368 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -3, 3/ 2369 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -1, 2/ 2370 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 2, 2/ 2371 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 5, 3/ 2372 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 7, 4/ 2373 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 8, 6/ 2374 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 8, 9/ 2375 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 7, 11/ 2376 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 5, 12/ 2377 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 1, 12/ 2378 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', 3, 12/ 2379 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -2, 11/ 2380 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', -2, 10/ 2381 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -3, 8/ 2382 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -3, 4/ 2383 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -2, 3/ 2384 DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', -3, 3/ 2385 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 0, 2/ 2386 DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 1, 2/ 2387 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 5, 3/ 2388 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', 6, 4/ 2389 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 7, 6/ 2390 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 7, 9/ 2391 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 6, 11/ 2392 DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', 7, 11/ 2393 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 3, 12/ 2394 DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', 1, 12/ 2395 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -1, 10/ 2396 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -2, 8/ 2397 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -2, 4/ 2398 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -1, 2/ 2399 DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', 2, 2/ 2400 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 4, 3/ 2401 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 5, 4/ 2402 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 6, 6/ 2403 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 6, 10/ 2404 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 5, 12/ 2405 DATA IOPERA( 75),IX( 75),IY( 75)/'MOVE', -1, 2/ 2406 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -5, 1/ 2407 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -7, -1/ 2408 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -8, -3/ 2409 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -8, -6/ 2410 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -7, -8/ 2411 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -4, -9/ 2412 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -9/ 2413 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 4, -8/ 2414 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 5, -7/ 2415 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 6, -5/ 2416 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 6, -2/ 2417 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 5, 0/ 2418 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 4, 1/ 2419 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 2, 2/ 2420 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', 0, 2/ 2421 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -5, 1/ 2422 DATA IOPERA( 92),IX( 92),IY( 92)/'MOVE', -4, 1/ 2423 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -6, -1/ 2424 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', -7, -3/ 2425 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -7, -6/ 2426 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -6, -8/ 2427 DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', -7, -8/ 2428 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -2, -9/ 2429 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 4, -8/ 2430 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', 4, -7/ 2431 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 5, -5/ 2432 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 5, -2/ 2433 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 4, 0/ 2434 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', 4, 1/ 2435 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 1, 2/ 2436 DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', -1, 2/ 2437 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -3, 1/ 2438 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -5, -1/ 2439 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -6, -3/ 2440 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -6, -6/ 2441 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -5, -8/ 2442 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -4, -9/ 2443 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', 0, -9/ 2444 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 2, -8/ 2445 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 3, -7/ 2446 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 4, -5/ 2447 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 4, -1/ 2448 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 3, 1/ 2449 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 2, 2/ 2450C 2451 DATA IXMIND( 9)/ -10/ 2452 DATA IXMAXD( 9)/ 11/ 2453 DATA IXDELD( 9)/ 21/ 2454 DATA ISTARD( 9)/ 33/ 2455 DATA NUMCOO( 9)/ 87/ 2456C 2457C DEFINE CHARACTER 3259--9 2458C 2459 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', 6, 4/ 2460 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 5, 2/ 2461 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 4, 1/ 2462 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 2, 0/ 2463 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -1, 0/ 2464 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -3, 1/ 2465 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -4, 2/ 2466 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -5, 4/ 2467 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -5, 7/ 2468 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -4, 9/ 2469 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -2, 11/ 2470 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 1, 12/ 2471 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 4, 12/ 2472 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 6, 11/ 2473 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 7, 10/ 2474 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 8, 7/ 2475 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 8, 4/ 2476 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 7, 0/ 2477 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 6, -3/ 2478 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 4, -6/ 2479 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 2, -8/ 2480 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -1, -9/ 2481 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -4, -9/ 2482 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -6, -8/ 2483 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -7, -6/ 2484 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -7, -4/ 2485 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -5, -4/ 2486 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -5, -6/ 2487 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -6, -6/ 2488 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -6, -5/ 2489 DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', -3, 2/ 2490 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -4, 4/ 2491 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -4, 7/ 2492 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -3, 9/ 2493 DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE', 6, 10/ 2494 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 7, 8/ 2495 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 7, 4/ 2496 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 6, 0/ 2497 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 5, -3/ 2498 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 3, -6/ 2499 DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE', -1, 0/ 2500 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -2, 1/ 2501 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -3, 3/ 2502 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -3, 7/ 2503 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -2, 10/ 2504 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -1, 11/ 2505 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 1, 12/ 2506 DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 4, 12/ 2507 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 5, 11/ 2508 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 6, 9/ 2509 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 6, 4/ 2510 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 5, 0/ 2511 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 4, -3/ 2512 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 3, -5/ 2513 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 1, -8/ 2514 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -1, -9/ 2515C 2516 DATA IXMIND( 10)/ -10/ 2517 DATA IXMAXD( 10)/ 11/ 2518 DATA IXDELD( 10)/ 21/ 2519 DATA ISTARD( 10)/ 120/ 2520 DATA NUMCOO( 10)/ 56/ 2521C 2522C-----START POINT----------------------------------------------------- 2523C 2524 IFOUND='YES' 2525 IERROR='NO' 2526C 2527 NUMCO=1 2528 ISTART=1 2529 ISTOP=1 2530 NC=1 2531C 2532C ****************************************** 2533C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 2534C ** HERSHEY CHARACTER SET CASE ** 2535C ****************************************** 2536C 2537C 2538 IF(IBUGD2.EQ.'OFF')GOTO90 2539 WRITE(ICOUT,999) 2540 999 FORMAT(1X) 2541 CALL DPWRST('XXX','BUG ') 2542 WRITE(ICOUT,51) 2543 51 FORMAT('***** AT THE BEGINNING OF DRTIN2--') 2544 CALL DPWRST('XXX','BUG ') 2545 WRITE(ICOUT,52)ICHARN 2546 52 FORMAT('ICHARN = ',I8) 2547 CALL DPWRST('XXX','BUG ') 2548 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 2549 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 2550 CALL DPWRST('XXX','BUG ') 2551 90 CONTINUE 2552C 2553C ************************************** 2554C ** STEP 2-- ** 2555C ** EXTRACT THE COORDINATES ** 2556C ** FOR THIS PARTICULAR CHARACTER. ** 2557C ************************************** 2558C 2559 ISTART=ISTARD(ICHARN) 2560 NC=NUMCOO(ICHARN) 2561 ISTOP=ISTART+NC-1 2562 J=0 2563 DO1100I=ISTART,ISTOP 2564 J=J+1 2565 IOP(J)=IOPERA(I) 2566 X(J)=IX(I) 2567 Y(J)=IY(I) 2568 1100 CONTINUE 2569 NUMCO=J 2570 IXMINS=IXMIND(ICHARN) 2571 IXMAXS=IXMAXD(ICHARN) 2572 IXDELS=IXDELD(ICHARN) 2573C 2574 GOTO9000 2575C 2576C ***************** 2577C ** STEP 90-- ** 2578C ** EXIT ** 2579C ***************** 2580C 2581 9000 CONTINUE 2582 IF(IBUGD2.EQ.'OFF')GOTO9090 2583 WRITE(ICOUT,999) 2584 CALL DPWRST('XXX','BUG ') 2585 WRITE(ICOUT,9011) 2586 9011 FORMAT('***** AT THE END OF DRTIN2--') 2587 CALL DPWRST('XXX','BUG ') 2588 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 2589 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 2590 CALL DPWRST('XXX','BUG ') 2591 WRITE(ICOUT,9013)ICHARN 2592 9013 FORMAT('ICHARN = ',I8) 2593 CALL DPWRST('XXX','BUG ') 2594 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 2595 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 2596 CALL DPWRST('XXX','BUG ') 2597 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 2598 DO9015I=1,NUMCO 2599 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 2600 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 2601 CALL DPWRST('XXX','BUG ') 2602 9015 CONTINUE 2603 9019 CONTINUE 2604 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 2605 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 2606 CALL DPWRST('XXX','BUG ') 2607 9090 CONTINUE 2608C 2609 RETURN 2610 END 2611 SUBROUTINE DRTIU1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 2612 1IBUGD2,IFOUND,IERROR) 2613C 2614C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 2615C FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 1). 2616C WRITTEN BY--JAMES J. FILLIBEN 2617C STATISTICAL ENGINEERING DIVISION 2618C CENTER FOR APPLIED MATHEMATICS 2619C NATIONAL BUREAU OF STANDARDS 2620C WASHINGTON, D. C. 20234 2621C PHONE--301-921-3651 2622C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 2623C OF THE NATIONAL BUREAU OF STANDARDS. 2624C LANGUAGE--ANSI FORTRAN (1977) 2625C VERSION NUMBER--87/4 2626C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 2627C UPDATED --MAY 1982. 2628C UPDATED --MARCH 1987. 2629C 2630C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 2631C 2632 CHARACTER*4 IOP 2633 CHARACTER*4 IBUGD2 2634 CHARACTER*4 IFOUND 2635 CHARACTER*4 IERROR 2636C 2637 CHARACTER*4 IOPERA 2638C 2639C--------------------------------------------------------------------- 2640C 2641 DIMENSION IOP(*) 2642 DIMENSION X(*) 2643 DIMENSION Y(*) 2644C 2645 DIMENSION IOPERA(300) 2646 DIMENSION IX(300) 2647 DIMENSION IY(300) 2648C 2649 DIMENSION IXMIND(30) 2650 DIMENSION IXMAXD(30) 2651 DIMENSION IXDELD(30) 2652 DIMENSION ISTARD(30) 2653 DIMENSION NUMCOO(30) 2654C 2655C-----COMMON---------------------------------------------------------- 2656C 2657 INCLUDE 'DPCOP2.INC' 2658C 2659C-----DATA STATEMENTS------------------------------------------------- 2660C 2661C DEFINE CHARACTER 3501--UPPER CASE A 2662C 2663 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 3, 12/ 2664 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -8/ 2665 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 1, 8/ 2666 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 2, -9/ 2667 DATA IOPERA( 5),IX( 5),IY( 5)/'MOVE', 2, 10/ 2668 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 3, -8/ 2669 DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', 3, 12/ 2670 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 3, 10/ 2671 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 4, -7/ 2672 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, -9/ 2673 DATA IOPERA( 11),IX( 11),IY( 11)/'MOVE', -6, -3/ 2674 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 2, -3/ 2675 DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', -12, -9/ 2676 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -6, -9/ 2677 DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', -1, -9/ 2678 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 6, -9/ 2679 DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -9, -8/ 2680 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -11, -9/ 2681 DATA IOPERA( 19),IX( 19),IY( 19)/'MOVE', -9, -8/ 2682 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -7, -9/ 2683 DATA IOPERA( 21),IX( 21),IY( 21)/'MOVE', 2, -8/ 2684 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 0, -9/ 2685 DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', 2, -7/ 2686 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 1, -9/ 2687 DATA IOPERA( 25),IX( 25),IY( 25)/'MOVE', 4, -7/ 2688 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 5, -9/ 2689C 2690 DATA IXMIND( 1)/ -10/ 2691 DATA IXMAXD( 1)/ 10/ 2692 DATA IXDELD( 1)/ 20/ 2693 DATA ISTARD( 1)/ 1/ 2694 DATA NUMCOO( 1)/ 26/ 2695C 2696C DEFINE CHARACTER 3502--UPPER CASE B 2697C 2698 DATA IOPERA( 27),IX( 27),IY( 27)/'MOVE', -3, 12/ 2699 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -9, -9/ 2700 DATA IOPERA( 29),IX( 29),IY( 29)/'MOVE', -2, 12/ 2701 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -8, -9/ 2702 DATA IOPERA( 31),IX( 31),IY( 31)/'MOVE', -1, 12/ 2703 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -7, -9/ 2704 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', -6, 12/ 2705 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 5, 12/ 2706 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 8, 11/ 2707 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 9, 9/ 2708 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 9, 7/ 2709 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 8, 4/ 2710 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 7, 3/ 2711 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 4, 2/ 2712 DATA IOPERA( 41),IX( 41),IY( 41)/'MOVE', 7, 11/ 2713 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 8, 9/ 2714 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 8, 7/ 2715 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 7, 4/ 2716 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 6, 3/ 2717 DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', 5, 12/ 2718 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 6, 11/ 2719 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 7, 9/ 2720 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 7, 7/ 2721 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 6, 4/ 2722 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 4, 2/ 2723 DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', -4, 2/ 2724 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 4, 2/ 2725 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 6, 1/ 2726 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 7, -1/ 2727 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 7, -3/ 2728 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 6, -6/ 2729 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 4, -8/ 2730 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, -9/ 2731 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -12, -9/ 2732 DATA IOPERA( 61),IX( 61),IY( 61)/'MOVE', 5, 1/ 2733 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 6, -1/ 2734 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 6, -3/ 2735 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 5, -6/ 2736 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 3, -8/ 2737 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', 4, 2/ 2738 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 5, 0/ 2739 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 5, -3/ 2740 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 4, -6/ 2741 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 2, -8/ 2742 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 0, -9/ 2743 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', -5, 12/ 2744 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -2, 11/ 2745 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', -4, 12/ 2746 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -3, 10/ 2747 DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', 0, 12/ 2748 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -2, 10/ 2749 DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', 1, 12/ 2750 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -2, 11/ 2751 DATA IOPERA( 80),IX( 80),IY( 80)/'MOVE', -8, -8/ 2752 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -11, -9/ 2753 DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', -8, -7/ 2754 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -10, -9/ 2755 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -7, -7/ 2756 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -6, -9/ 2757 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -8, -8/ 2758 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -5, -9/ 2759C 2760 DATA IXMIND( 2)/ -12/ 2761 DATA IXMAXD( 2)/ 12/ 2762 DATA IXDELD( 2)/ 24/ 2763 DATA ISTARD( 2)/ 27/ 2764 DATA NUMCOO( 2)/ 61/ 2765C 2766C DEFINE CHARACTER 3503--UPPER CASE C 2767C 2768 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 8, 10/ 2769 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 9, 10/ 2770 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 10, 12/ 2771 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 9, 6/ 2772 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 9, 8/ 2773 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 8, 10/ 2774 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 7, 11/ 2775 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 5, 12/ 2776 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 2, 12/ 2777 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -1, 11/ 2778 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -3, 9/ 2779 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -5, 6/ 2780 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -6, 3/ 2781 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -7, -1/ 2782 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -7, -4/ 2783 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -6, -7/ 2784 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -5, -8/ 2785 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -2, -9/ 2786 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 1, -9/ 2787 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 3, -8/ 2788 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, -6/ 2789 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 6, -4/ 2790 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -1, 10/ 2791 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -3, 8/ 2792 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -4, 6/ 2793 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -5, 3/ 2794 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -6, -1/ 2795 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -6, -5/ 2796 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -5, -7/ 2797 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 2, 12/ 2798 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 0, 11/ 2799 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -2, 8/ 2800 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', -3, 6/ 2801 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -4, 3/ 2802 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -5, -1/ 2803 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -5, -6/ 2804 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -4, -8/ 2805 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -2, -9/ 2806C 2807 DATA IXMIND( 3)/ -10/ 2808 DATA IXMAXD( 3)/ 11/ 2809 DATA IXDELD( 3)/ 21/ 2810 DATA ISTARD( 3)/ 88/ 2811 DATA NUMCOO( 3)/ 38/ 2812C 2813C DEFINE CHARACTER 3504--UPPER CASE D 2814C 2815 DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', -3, 12/ 2816 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -9, -9/ 2817 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -2, 12/ 2818 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -8, -9/ 2819 DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -1, 12/ 2820 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -7, -9/ 2821 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', -6, 12/ 2822 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 3, 12/ 2823 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 6, 11/ 2824 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 7, 10/ 2825 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 8, 7/ 2826 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 8, 3/ 2827 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 7, -1/ 2828 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 5, -5/ 2829 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 3, -7/ 2830 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 1, -8/ 2831 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -3, -9/ 2832 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -12, -9/ 2833 DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', 5, 11/ 2834 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 6, 10/ 2835 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 7, 7/ 2836 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 7, 3/ 2837 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 6, -1/ 2838 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 4, -5/ 2839 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 2, -7/ 2840 DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE', 3, 12/ 2841 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', 5, 10/ 2842 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 6, 7/ 2843 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 6, 3/ 2844 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 5, -1/ 2845 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 3, -5/ 2846 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 0, -8/ 2847 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -3, -9/ 2848 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', -5, 12/ 2849 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -2, 11/ 2850 DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', -4, 12/ 2851 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -3, 10/ 2852 DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', 0, 12/ 2853 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -2, 10/ 2854 DATA IOPERA( 165),IX( 165),IY( 165)/'MOVE', 1, 12/ 2855 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -2, 11/ 2856 DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', -8, -8/ 2857 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -11, -9/ 2858 DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', -8, -7/ 2859 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -10, -9/ 2860 DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', -7, -7/ 2861 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -6, -9/ 2862 DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', -8, -8/ 2863 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -5, -9/ 2864C 2865 DATA IXMIND( 4)/ -12/ 2866 DATA IXMAXD( 4)/ 11/ 2867 DATA IXDELD( 4)/ 23/ 2868 DATA ISTARD( 4)/ 126/ 2869 DATA NUMCOO( 4)/ 49/ 2870C 2871C DEFINE CHARACTER 3505--UPPER CASE E 2872C 2873 DATA IOPERA( 175),IX( 175),IY( 175)/'MOVE', -3, 12/ 2874 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -9, -9/ 2875 DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', -2, 12/ 2876 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -8, -9/ 2877 DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE', -1, 12/ 2878 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -7, -9/ 2879 DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE', 3, 6/ 2880 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 1, -2/ 2881 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', -6, 12/ 2882 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 9, 12/ 2883 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 8, 6/ 2884 DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE', -4, 2/ 2885 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 2, 2/ 2886 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', -12, -9/ 2887 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 3, -9/ 2888 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 5, -4/ 2889 DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE', -5, 12/ 2890 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -2, 11/ 2891 DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', -4, 12/ 2892 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -3, 10/ 2893 DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', 0, 12/ 2894 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -2, 10/ 2895 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 1, 12/ 2896 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -2, 11/ 2897 DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 5, 12/ 2898 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 8, 11/ 2899 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', 6, 12/ 2900 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 8, 10/ 2901 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 7, 12/ 2902 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 8, 9/ 2903 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', 8, 12/ 2904 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 8, 6/ 2905 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', 3, 6/ 2906 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 1, 2/ 2907 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 1, -2/ 2908 DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', 2, 4/ 2909 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 0, 2/ 2910 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 1, 0/ 2911 DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', 2, 3/ 2912 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -1, 2/ 2913 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 1, 1/ 2914 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', -8, -8/ 2915 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -11, -9/ 2916 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -8, -7/ 2917 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -10, -9/ 2918 DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', -7, -7/ 2919 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -6, -9/ 2920 DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -8, -8/ 2921 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -5, -9/ 2922 DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', -2, -9/ 2923 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 3, -8/ 2924 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 0, -9/ 2925 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 3, -7/ 2926 DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE', 3, -7/ 2927 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 5, -4/ 2928C 2929 DATA IXMIND( 5)/ -12/ 2930 DATA IXMAXD( 5)/ 11/ 2931 DATA IXDELD( 5)/ 23/ 2932 DATA ISTARD( 5)/ 175/ 2933 DATA NUMCOO( 5)/ 55/ 2934C 2935C DEFINE CHARACTER 3506--UPPER CASE F 2936C 2937 DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -3, 12/ 2938 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -9, -9/ 2939 DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE', -2, 12/ 2940 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', -8, -9/ 2941 DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE', -1, 12/ 2942 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -7, -9/ 2943 DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE', 3, 6/ 2944 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 1, -2/ 2945 DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -6, 12/ 2946 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 9, 12/ 2947 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 8, 6/ 2948 DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE', -4, 2/ 2949 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 2, 2/ 2950 DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE', -12, -9/ 2951 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -4, -9/ 2952 DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE', -5, 12/ 2953 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -2, 11/ 2954 DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', -4, 12/ 2955 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', -3, 10/ 2956 DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE', 0, 12/ 2957 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', -2, 10/ 2958 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', 1, 12/ 2959 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -2, 11/ 2960 DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE', 5, 12/ 2961 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 8, 11/ 2962 DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE', 6, 12/ 2963 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 8, 10/ 2964 DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE', 7, 12/ 2965 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 8, 9/ 2966 DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE', 8, 12/ 2967 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 8, 6/ 2968 DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE', 3, 6/ 2969 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 1, 2/ 2970 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 1, -2/ 2971 DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', 2, 4/ 2972 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 0, 2/ 2973 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 1, 0/ 2974 DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE', 2, 3/ 2975 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -1, 2/ 2976 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', 1, 1/ 2977 DATA IOPERA( 270),IX( 270),IY( 270)/'MOVE', -8, -8/ 2978 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -11, -9/ 2979 DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE', -8, -7/ 2980 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -10, -9/ 2981 DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE', -7, -7/ 2982 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -6, -9/ 2983 DATA IOPERA( 276),IX( 276),IY( 276)/'MOVE', -8, -8/ 2984 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', -5, -9/ 2985C 2986 DATA IXMIND( 6)/ -12/ 2987 DATA IXMAXD( 6)/ 10/ 2988 DATA IXDELD( 6)/ 22/ 2989 DATA ISTARD( 6)/ 230/ 2990 DATA NUMCOO( 6)/ 48/ 2991C 2992C-----START POINT----------------------------------------------------- 2993C 2994 IFOUND='YES' 2995 IERROR='NO' 2996C 2997 NUMCO=1 2998 ISTART=1 2999 ISTOP=1 3000 NC=1 3001C 3002C ****************************************** 3003C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 3004C ** HERSHEY CHARACTER SET CASE ** 3005C ****************************************** 3006C 3007C 3008 IF(IBUGD2.EQ.'OFF')GOTO90 3009 WRITE(ICOUT,999) 3010 999 FORMAT(1X) 3011 CALL DPWRST('XXX','BUG ') 3012 WRITE(ICOUT,51) 3013 51 FORMAT('***** AT THE BEGINNING OF DRTIU1--') 3014 CALL DPWRST('XXX','BUG ') 3015 WRITE(ICOUT,52)ICHARN 3016 52 FORMAT('ICHARN = ',I8) 3017 CALL DPWRST('XXX','BUG ') 3018 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 3019 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 3020 CALL DPWRST('XXX','BUG ') 3021 90 CONTINUE 3022C 3023C ************************************** 3024C ** STEP 2-- ** 3025C ** EXTRACT THE COORDINATES ** 3026C ** FOR THIS PARTICULAR CHARACTER. ** 3027C ************************************** 3028C 3029 ISTART=ISTARD(ICHARN) 3030 NC=NUMCOO(ICHARN) 3031 ISTOP=ISTART+NC-1 3032 J=0 3033 DO1100I=ISTART,ISTOP 3034 J=J+1 3035 IOP(J)=IOPERA(I) 3036 X(J)=IX(I) 3037 Y(J)=IY(I) 3038 1100 CONTINUE 3039 NUMCO=J 3040 IXMINS=IXMIND(ICHARN) 3041 IXMAXS=IXMAXD(ICHARN) 3042 IXDELS=IXDELD(ICHARN) 3043C 3044 GOTO9000 3045C 3046C ***************** 3047C ** STEP 90-- ** 3048C ** EXIT ** 3049C ***************** 3050C 3051 9000 CONTINUE 3052 IF(IBUGD2.EQ.'OFF')GOTO9090 3053 WRITE(ICOUT,999) 3054 CALL DPWRST('XXX','BUG ') 3055 WRITE(ICOUT,9011) 3056 9011 FORMAT('***** AT THE END OF DRTIU1--') 3057 CALL DPWRST('XXX','BUG ') 3058 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 3059 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 3060 CALL DPWRST('XXX','BUG ') 3061 WRITE(ICOUT,9013)ICHARN 3062 9013 FORMAT('ICHARN = ',I8) 3063 CALL DPWRST('XXX','BUG ') 3064 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 3065 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 3066 CALL DPWRST('XXX','BUG ') 3067 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 3068 DO9015I=1,NUMCO 3069 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 3070 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 3071 CALL DPWRST('XXX','BUG ') 3072 9015 CONTINUE 3073 9019 CONTINUE 3074 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 3075 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 3076 CALL DPWRST('XXX','BUG ') 3077 9090 CONTINUE 3078C 3079 RETURN 3080 END 3081 SUBROUTINE DRTIU2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 3082 1IBUGD2,IFOUND,IERROR) 3083C 3084C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 3085C FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 2). 3086C WRITTEN BY--JAMES J. FILLIBEN 3087C STATISTICAL ENGINEERING DIVISION 3088C CENTER FOR APPLIED MATHEMATICS 3089C NATIONAL BUREAU OF STANDARDS 3090C WASHINGTON, D. C. 20234 3091C PHONE--301-921-3651 3092C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 3093C OF THE NATIONAL BUREAU OF STANDARDS. 3094C LANGUAGE--ANSI FORTRAN (1977) 3095C VERSION NUMBER--87/4 3096C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 3097C UPDATED --MAY 1982. 3098C UPDATED --MARCH 1987. 3099C 3100C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 3101C 3102 CHARACTER*4 IOP 3103 CHARACTER*4 IBUGD2 3104 CHARACTER*4 IFOUND 3105 CHARACTER*4 IERROR 3106C 3107 CHARACTER*4 IOPERA 3108C 3109C--------------------------------------------------------------------- 3110C 3111 DIMENSION IOP(*) 3112 DIMENSION X(*) 3113 DIMENSION Y(*) 3114C 3115 DIMENSION IOPERA(300) 3116 DIMENSION IX(300) 3117 DIMENSION IY(300) 3118C 3119 DIMENSION IXMIND(30) 3120 DIMENSION IXMAXD(30) 3121 DIMENSION IXDELD(30) 3122 DIMENSION ISTARD(30) 3123 DIMENSION NUMCOO(30) 3124C 3125C-----COMMON---------------------------------------------------------- 3126C 3127 INCLUDE 'DPCOP2.INC' 3128C 3129C-----DATA STATEMENTS------------------------------------------------- 3130C 3131C DEFINE CHARACTER 3507--UPPER CASE G 3132C 3133 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 8, 10/ 3134 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 9, 10/ 3135 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 10, 12/ 3136 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 9, 6/ 3137 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 9, 8/ 3138 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 8, 10/ 3139 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 7, 11/ 3140 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 5, 12/ 3141 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 2, 12/ 3142 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -1, 11/ 3143 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -3, 9/ 3144 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -5, 6/ 3145 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -6, 3/ 3146 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -7, -1/ 3147 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -7, -4/ 3148 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -6, -7/ 3149 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -5, -8/ 3150 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -2, -9/ 3151 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 0, -9/ 3152 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 3, -8/ 3153 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 5, -6/ 3154 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 7, -2/ 3155 DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', -1, 10/ 3156 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -3, 8/ 3157 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -4, 6/ 3158 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -5, 3/ 3159 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -6, -1/ 3160 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -6, -5/ 3161 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -5, -7/ 3162 DATA IOPERA( 30),IX( 30),IY( 30)/'MOVE', 4, -6/ 3163 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 5, -5/ 3164 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 6, -2/ 3165 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', 2, 12/ 3166 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 0, 11/ 3167 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -2, 8/ 3168 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -3, 6/ 3169 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -4, 3/ 3170 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -5, -1/ 3171 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -5, -6/ 3172 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -4, -8/ 3173 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -2, -9/ 3174 DATA IOPERA( 42),IX( 42),IY( 42)/'MOVE', 0, -9/ 3175 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 2, -8/ 3176 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 4, -5/ 3177 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 5, -2/ 3178 DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', 2, -2/ 3179 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 10, -2/ 3180 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', 3, -2/ 3181 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 5, -3/ 3182 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', 4, -2/ 3183 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 5, -5/ 3184 DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', 8, -2/ 3185 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 6, -4/ 3186 DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', 9, -2/ 3187 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 6, -3/ 3188C 3189 DATA IXMIND( 7)/ -10/ 3190 DATA IXMAXD( 7)/ 12/ 3191 DATA IXDELD( 7)/ 22/ 3192 DATA ISTARD( 7)/ 1/ 3193 DATA NUMCOO( 7)/ 55/ 3194C 3195C DEFINE CHARACTER 3508--UPPER CASE H 3196C 3197 DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', -4, 12/ 3198 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -10, -9/ 3199 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', -3, 12/ 3200 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -9, -9/ 3201 DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', -2, 12/ 3202 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -8, -9/ 3203 DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', 8, 12/ 3204 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 2, -9/ 3205 DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', 9, 12/ 3206 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 3, -9/ 3207 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', 10, 12/ 3208 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 4, -9/ 3209 DATA IOPERA( 68),IX( 68),IY( 68)/'MOVE', -7, 12/ 3210 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 1, 12/ 3211 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', 5, 12/ 3212 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 13, 12/ 3213 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', -6, 2/ 3214 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 6, 2/ 3215 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', -13, -9/ 3216 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -5, -9/ 3217 DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', -1, -9/ 3218 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 7, -9/ 3219 DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -6, 12/ 3220 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -3, 11/ 3221 DATA IOPERA( 80),IX( 80),IY( 80)/'MOVE', -5, 12/ 3222 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -4, 10/ 3223 DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', -1, 12/ 3224 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -3, 10/ 3225 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', 0, 12/ 3226 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -3, 11/ 3227 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', 6, 12/ 3228 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 9, 11/ 3229 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 7, 12/ 3230 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 8, 10/ 3231 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', 11, 12/ 3232 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 9, 10/ 3233 DATA IOPERA( 92),IX( 92),IY( 92)/'MOVE', 12, 12/ 3234 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 9, 11/ 3235 DATA IOPERA( 94),IX( 94),IY( 94)/'MOVE', -9, -8/ 3236 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -12, -9/ 3237 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', -9, -7/ 3238 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -11, -9/ 3239 DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', -8, -7/ 3240 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -7, -9/ 3241 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', -9, -8/ 3242 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -6, -9/ 3243 DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE', 3, -8/ 3244 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 0, -9/ 3245 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', 3, -7/ 3246 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 1, -9/ 3247 DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', 4, -7/ 3248 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 5, -9/ 3249 DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', 3, -8/ 3250 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 6, -9/ 3251C 3252 DATA IXMIND( 8)/ -13/ 3253 DATA IXMAXD( 8)/ 13/ 3254 DATA IXDELD( 8)/ 26/ 3255 DATA ISTARD( 8)/ 56/ 3256 DATA NUMCOO( 8)/ 54/ 3257C 3258C DEFINE CHARACTER 3509--UPPER CASE I 3259C 3260 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', 2, 12/ 3261 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -4, -9/ 3262 DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE', 3, 12/ 3263 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -3, -9/ 3264 DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE', 4, 12/ 3265 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -2, -9/ 3266 DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE', -1, 12/ 3267 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 7, 12/ 3268 DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', -7, -9/ 3269 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 1, -9/ 3270 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', 0, 12/ 3271 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 3, 11/ 3272 DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE', 1, 12/ 3273 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 2, 10/ 3274 DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', 5, 12/ 3275 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 3, 10/ 3276 DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', 6, 12/ 3277 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', 3, 11/ 3278 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -3, -8/ 3279 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -6, -9/ 3280 DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -3, -7/ 3281 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -5, -9/ 3282 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', -2, -7/ 3283 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -1, -9/ 3284 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -3, -8/ 3285 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 0, -9/ 3286C 3287 DATA IXMIND( 9)/ -7/ 3288 DATA IXMAXD( 9)/ 7/ 3289 DATA IXDELD( 9)/ 14/ 3290 DATA ISTARD( 9)/ 110/ 3291 DATA NUMCOO( 9)/ 26/ 3292C 3293C DEFINE CHARACTER 3510--UPPER CASE J 3294C 3295 DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', 5, 12/ 3296 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 0, -5/ 3297 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -1, -7/ 3298 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -3, -9/ 3299 DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', 6, 12/ 3300 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 2, -1/ 3301 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 1, -4/ 3302 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 0, -6/ 3303 DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', 7, 12/ 3304 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 3, -1/ 3305 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 1, -6/ 3306 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -1, -8/ 3307 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -3, -9/ 3308 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -5, -9/ 3309 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -7, -8/ 3310 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -8, -6/ 3311 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -8, -4/ 3312 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -7, -3/ 3313 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -6, -3/ 3314 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -5, -4/ 3315 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', -5, -5/ 3316 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -6, -6/ 3317 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -7, -6/ 3318 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', -7, -4/ 3319 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -7, -5/ 3320 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -6, -5/ 3321 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -6, -4/ 3322 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -7, -4/ 3323 DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', 2, 12/ 3324 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 10, 12/ 3325 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', 3, 12/ 3326 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 6, 11/ 3327 DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', 4, 12/ 3328 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 5, 10/ 3329 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', 8, 12/ 3330 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 6, 10/ 3331 DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE', 9, 12/ 3332 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 6, 11/ 3333C 3334 DATA IXMIND( 10)/ -9/ 3335 DATA IXMAXD( 10)/ 10/ 3336 DATA IXDELD( 10)/ 19/ 3337 DATA ISTARD( 10)/ 136/ 3338 DATA NUMCOO( 10)/ 38/ 3339C 3340C DEFINE CHARACTER 3511--UPPER CASE K 3341C 3342 DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -3, 12/ 3343 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -9, -9/ 3344 DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE', -2, 12/ 3345 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -8, -9/ 3346 DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', -1, 12/ 3347 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -7, -9/ 3348 DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', 10, 11/ 3349 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -5, 0/ 3350 DATA IOPERA( 182),IX( 182),IY( 182)/'MOVE', -1, 3/ 3351 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 3, -9/ 3352 DATA IOPERA( 184),IX( 184),IY( 184)/'MOVE', 0, 3/ 3353 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 4, -9/ 3354 DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE', 1, 4/ 3355 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 5, -8/ 3356 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', -6, 12/ 3357 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 2, 12/ 3358 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', 7, 12/ 3359 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 13, 12/ 3360 DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', -12, -9/ 3361 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -4, -9/ 3362 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', 0, -9/ 3363 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 7, -9/ 3364 DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE', -5, 12/ 3365 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -2, 11/ 3366 DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE', -4, 12/ 3367 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -3, 10/ 3368 DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE', 0, 12/ 3369 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -2, 10/ 3370 DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE', 1, 12/ 3371 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -2, 11/ 3372 DATA IOPERA( 204),IX( 204),IY( 204)/'MOVE', 8, 12/ 3373 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 10, 11/ 3374 DATA IOPERA( 206),IX( 206),IY( 206)/'MOVE', 12, 12/ 3375 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 10, 11/ 3376 DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE', -8, -8/ 3377 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -11, -9/ 3378 DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', -8, -7/ 3379 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -10, -9/ 3380 DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', -7, -7/ 3381 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', -6, -9/ 3382 DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE', -8, -8/ 3383 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', -5, -9/ 3384 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', 3, -8/ 3385 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 1, -9/ 3386 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', 3, -7/ 3387 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 2, -9/ 3388 DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', 4, -7/ 3389 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 6, -9/ 3390C 3391 DATA IXMIND( 11)/ -12/ 3392 DATA IXMAXD( 11)/ 11/ 3393 DATA IXDELD( 11)/ 23/ 3394 DATA ISTARD( 11)/ 174/ 3395 DATA NUMCOO( 11)/ 48/ 3396C 3397C DEFINE CHARACTER 3512--UPPER CASE L 3398C 3399 DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -1, 12/ 3400 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -7, -9/ 3401 DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', 0, 12/ 3402 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -6, -9/ 3403 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 1, 12/ 3404 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -5, -9/ 3405 DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE', -4, 12/ 3406 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 4, 12/ 3407 DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -10, -9/ 3408 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 5, -9/ 3409 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 7, -3/ 3410 DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', -3, 12/ 3411 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 0, 11/ 3412 DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE', -2, 12/ 3413 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -1, 10/ 3414 DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE', 2, 12/ 3415 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 0, 10/ 3416 DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', 3, 12/ 3417 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 0, 11/ 3418 DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE', -6, -8/ 3419 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -9, -9/ 3420 DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE', -6, -7/ 3421 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -8, -9/ 3422 DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE', -5, -7/ 3423 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -4, -9/ 3424 DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', -6, -8/ 3425 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', -3, -9/ 3426 DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE', 0, -9/ 3427 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 5, -8/ 3428 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', 2, -9/ 3429 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 6, -6/ 3430 DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE', 4, -9/ 3431 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 7, -3/ 3432C 3433 DATA IXMIND( 12)/ -10/ 3434 DATA IXMAXD( 12)/ 10/ 3435 DATA IXDELD( 12)/ 20/ 3436 DATA ISTARD( 12)/ 222/ 3437 DATA NUMCOO( 12)/ 33/ 3438C 3439C DEFINE CHARACTER 3513--UPPER CASE M 3440C 3441 DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE', -5, 12/ 3442 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -11, -8/ 3443 DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE', -5, 11/ 3444 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -4, -7/ 3445 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -4, -9/ 3446 DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE', -4, 12/ 3447 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', -3, -7/ 3448 DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE', -3, 12/ 3449 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -2, -6/ 3450 DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE', 9, 12/ 3451 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -2, -6/ 3452 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', -4, -9/ 3453 DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE', 9, 12/ 3454 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 3, -9/ 3455 DATA IOPERA( 269),IX( 269),IY( 269)/'MOVE', 10, 12/ 3456 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 4, -9/ 3457 DATA IOPERA( 271),IX( 271),IY( 271)/'MOVE', 11, 12/ 3458 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 5, -9/ 3459 DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE', -8, 12/ 3460 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -3, 12/ 3461 DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE', 9, 12/ 3462 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 14, 12/ 3463 DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', -14, -9/ 3464 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', -8, -9/ 3465 DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE', 0, -9/ 3466 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', 8, -9/ 3467 DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE', -7, 12/ 3468 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -5, 11/ 3469 DATA IOPERA( 283),IX( 283),IY( 283)/'MOVE', -6, 12/ 3470 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -5, 10/ 3471 DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE', 12, 12/ 3472 DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', 10, 10/ 3473 DATA IOPERA( 287),IX( 287),IY( 287)/'MOVE', 13, 12/ 3474 DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', 10, 11/ 3475 DATA IOPERA( 289),IX( 289),IY( 289)/'MOVE', -11, -8/ 3476 DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -13, -9/ 3477 DATA IOPERA( 291),IX( 291),IY( 291)/'MOVE', -11, -8/ 3478 DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', -9, -9/ 3479 DATA IOPERA( 293),IX( 293),IY( 293)/'MOVE', 4, -8/ 3480 DATA IOPERA( 294),IX( 294),IY( 294)/'DRAW', 1, -9/ 3481 DATA IOPERA( 295),IX( 295),IY( 295)/'MOVE', 4, -7/ 3482 DATA IOPERA( 296),IX( 296),IY( 296)/'DRAW', 2, -9/ 3483 DATA IOPERA( 297),IX( 297),IY( 297)/'MOVE', 5, -7/ 3484 DATA IOPERA( 298),IX( 298),IY( 298)/'DRAW', 6, -9/ 3485 DATA IOPERA( 299),IX( 299),IY( 299)/'MOVE', 4, -8/ 3486 DATA IOPERA( 300),IX( 300),IY( 300)/'DRAW', 7, -9/ 3487C 3488 DATA IXMIND( 13)/ -14/ 3489 DATA IXMAXD( 13)/ 14/ 3490 DATA IXDELD( 13)/ 28/ 3491 DATA ISTARD( 13)/ 255/ 3492 DATA NUMCOO( 13)/ 46/ 3493C 3494C-----START POINT----------------------------------------------------- 3495C 3496 IFOUND='YES' 3497 IERROR='NO' 3498C 3499 NUMCO=1 3500 ISTART=1 3501 ISTOP=1 3502 NC=1 3503C 3504C ****************************************** 3505C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 3506C ** HERSHEY CHARACTER SET CASE ** 3507C ****************************************** 3508C 3509C 3510 IF(IBUGD2.EQ.'OFF')GOTO90 3511 WRITE(ICOUT,999) 3512 999 FORMAT(1X) 3513 CALL DPWRST('XXX','BUG ') 3514 WRITE(ICOUT,51) 3515 51 FORMAT('***** AT THE BEGINNING OF DRTIU2--') 3516 CALL DPWRST('XXX','BUG ') 3517 WRITE(ICOUT,52)ICHARN 3518 52 FORMAT('ICHARN = ',I8) 3519 CALL DPWRST('XXX','BUG ') 3520 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 3521 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 3522 CALL DPWRST('XXX','BUG ') 3523 90 CONTINUE 3524C 3525C ************************************** 3526C ** STEP 2-- ** 3527C ** EXTRACT THE COORDINATES ** 3528C ** FOR THIS PARTICULAR CHARACTER. ** 3529C ************************************** 3530C 3531 ISTART=ISTARD(ICHARN) 3532 NC=NUMCOO(ICHARN) 3533 ISTOP=ISTART+NC-1 3534 J=0 3535 DO1100I=ISTART,ISTOP 3536 J=J+1 3537 IOP(J)=IOPERA(I) 3538 X(J)=IX(I) 3539 Y(J)=IY(I) 3540 1100 CONTINUE 3541 NUMCO=J 3542 IXMINS=IXMIND(ICHARN) 3543 IXMAXS=IXMAXD(ICHARN) 3544 IXDELS=IXDELD(ICHARN) 3545C 3546 GOTO9000 3547C 3548C ***************** 3549C ** STEP 90-- ** 3550C ** EXIT ** 3551C ***************** 3552C 3553 9000 CONTINUE 3554 IF(IBUGD2.EQ.'OFF')GOTO9090 3555 WRITE(ICOUT,999) 3556 CALL DPWRST('XXX','BUG ') 3557 WRITE(ICOUT,9011) 3558 9011 FORMAT('***** AT THE END OF DRTIU2--') 3559 CALL DPWRST('XXX','BUG ') 3560 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 3561 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 3562 CALL DPWRST('XXX','BUG ') 3563 WRITE(ICOUT,9013)ICHARN 3564 9013 FORMAT('ICHARN = ',I8) 3565 CALL DPWRST('XXX','BUG ') 3566 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 3567 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 3568 CALL DPWRST('XXX','BUG ') 3569 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 3570 DO9015I=1,NUMCO 3571 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 3572 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 3573 CALL DPWRST('XXX','BUG ') 3574 9015 CONTINUE 3575 9019 CONTINUE 3576 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 3577 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 3578 CALL DPWRST('XXX','BUG ') 3579 9090 CONTINUE 3580C 3581 RETURN 3582 END 3583 SUBROUTINE DRTIU3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 3584 1IBUGD2,IFOUND,IERROR) 3585C 3586C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 3587C FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 3). 3588C WRITTEN BY--JAMES J. FILLIBEN 3589C STATISTICAL ENGINEERING DIVISION 3590C CENTER FOR APPLIED MATHEMATICS 3591C NATIONAL BUREAU OF STANDARDS 3592C WASHINGTON, D. C. 20234 3593C PHONE--301-921-3651 3594C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 3595C OF THE NATIONAL BUREAU OF STANDARDS. 3596C LANGUAGE--ANSI FORTRAN (1977) 3597C VERSION NUMBER--87/4 3598C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 3599C UPDATED --MAY 1982. 3600C UPDATED --MARCH 1987. 3601C 3602C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 3603C 3604 CHARACTER*4 IOP 3605 CHARACTER*4 IBUGD2 3606 CHARACTER*4 IFOUND 3607 CHARACTER*4 IERROR 3608C 3609 CHARACTER*4 IOPERA 3610C 3611C--------------------------------------------------------------------- 3612C 3613 DIMENSION IOP(*) 3614 DIMENSION X(*) 3615 DIMENSION Y(*) 3616C 3617 DIMENSION IOPERA(300) 3618 DIMENSION IX(300) 3619 DIMENSION IY(300) 3620C 3621 DIMENSION IXMIND(30) 3622 DIMENSION IXMAXD(30) 3623 DIMENSION IXDELD(30) 3624 DIMENSION ISTARD(30) 3625 DIMENSION NUMCOO(30) 3626C 3627C-----COMMON---------------------------------------------------------- 3628C 3629 INCLUDE 'DPCOP2.INC' 3630C 3631C-----DATA STATEMENTS------------------------------------------------- 3632C 3633C DEFINE CHARACTER 3514--UPPER CASE N 3634C 3635 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -3, 12/ 3636 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -8/ 3637 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', -3, 12/ 3638 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 4, -9/ 3639 DATA IOPERA( 5),IX( 5),IY( 5)/'MOVE', -2, 12/ 3640 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 4, -6/ 3641 DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', -1, 12/ 3642 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 5, -6/ 3643 DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', 10, 11/ 3644 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 5, -6/ 3645 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 4, -9/ 3646 DATA IOPERA( 12),IX( 12),IY( 12)/'MOVE', -6, 12/ 3647 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -1, 12/ 3648 DATA IOPERA( 14),IX( 14),IY( 14)/'MOVE', 7, 12/ 3649 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 13, 12/ 3650 DATA IOPERA( 16),IX( 16),IY( 16)/'MOVE', -12, -9/ 3651 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -6, -9/ 3652 DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', -5, 12/ 3653 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -2, 11/ 3654 DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', -4, 12/ 3655 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -2, 10/ 3656 DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', 8, 12/ 3657 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 10, 11/ 3658 DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', 12, 12/ 3659 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 10, 11/ 3660 DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', -9, -8/ 3661 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -11, -9/ 3662 DATA IOPERA( 28),IX( 28),IY( 28)/'MOVE', -9, -8/ 3663 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -7, -9/ 3664C 3665 DATA IXMIND( 14)/ -12/ 3666 DATA IXMAXD( 14)/ 13/ 3667 DATA IXDELD( 14)/ 25/ 3668 DATA ISTARD( 14)/ 1/ 3669 DATA NUMCOO( 14)/ 29/ 3670C 3671C DEFINE CHARACTER 3515--UPPER CASE O 3672C 3673 DATA IOPERA( 30),IX( 30),IY( 30)/'MOVE', 1, 12/ 3674 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -2, 11/ 3675 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -4, 9/ 3676 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -6, 6/ 3677 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -7, 3/ 3678 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -8, -1/ 3679 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -8, -4/ 3680 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -7, -7/ 3681 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -6, -8/ 3682 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -4, -9/ 3683 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -1, -9/ 3684 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 2, -8/ 3685 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 4, -6/ 3686 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 6, -3/ 3687 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 7, 0/ 3688 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 8, 4/ 3689 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 8, 7/ 3690 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 7, 10/ 3691 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 6, 11/ 3692 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 4, 12/ 3693 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 1, 12/ 3694 DATA IOPERA( 51),IX( 51),IY( 51)/'MOVE', -3, 9/ 3695 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -5, 6/ 3696 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -6, 3/ 3697 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -7, -1/ 3698 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -7, -5/ 3699 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -6, -7/ 3700 DATA IOPERA( 57),IX( 57),IY( 57)/'MOVE', 3, -6/ 3701 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 5, -3/ 3702 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 6, 0/ 3703 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 7, 4/ 3704 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 7, 8/ 3705 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 6, 10/ 3706 DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 1, 12/ 3707 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -1, 11/ 3708 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -3, 8/ 3709 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -4, 6/ 3710 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -5, 3/ 3711 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -6, -1/ 3712 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -6, -6/ 3713 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -5, -8/ 3714 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -4, -9/ 3715 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', -1, -9/ 3716 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 1, -8/ 3717 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 3, -5/ 3718 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 4, -3/ 3719 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 5, 0/ 3720 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 6, 4/ 3721 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 6, 9/ 3722 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 5, 11/ 3723 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 4, 12/ 3724C 3725 DATA IXMIND( 15)/ -11/ 3726 DATA IXMAXD( 15)/ 11/ 3727 DATA IXDELD( 15)/ 22/ 3728 DATA ISTARD( 15)/ 30/ 3729 DATA NUMCOO( 15)/ 51/ 3730C 3731C DEFINE CHARACTER 3516--UPPER CASE P 3732C 3733 DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', -3, 12/ 3734 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -9, -9/ 3735 DATA IOPERA( 83),IX( 83),IY( 83)/'MOVE', -2, 12/ 3736 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -8, -9/ 3737 DATA IOPERA( 85),IX( 85),IY( 85)/'MOVE', -1, 12/ 3738 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -7, -9/ 3739 DATA IOPERA( 87),IX( 87),IY( 87)/'MOVE', -6, 12/ 3740 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 6, 12/ 3741 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 9, 11/ 3742 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 10, 9/ 3743 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 10, 7/ 3744 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 9, 4/ 3745 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 7, 2/ 3746 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 3, 1/ 3747 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', -5, 1/ 3748 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 8, 11/ 3749 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 9, 9/ 3750 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 9, 7/ 3751 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 8, 4/ 3752 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 6, 2/ 3753 DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', 6, 12/ 3754 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 7, 11/ 3755 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 8, 9/ 3756 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 8, 7/ 3757 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 7, 4/ 3758 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 5, 2/ 3759 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 3, 1/ 3760 DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', -12, -9/ 3761 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -4, -9/ 3762 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -5, 12/ 3763 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', -2, 11/ 3764 DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE', -4, 12/ 3765 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -3, 10/ 3766 DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE', 0, 12/ 3767 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -2, 10/ 3768 DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE', 1, 12/ 3769 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -2, 11/ 3770 DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', -8, -8/ 3771 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -11, -9/ 3772 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', -8, -7/ 3773 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -10, -9/ 3774 DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE', -7, -7/ 3775 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -6, -9/ 3776 DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', -8, -8/ 3777 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -5, -9/ 3778C 3779 DATA IXMIND( 16)/ -12/ 3780 DATA IXMAXD( 16)/ 11/ 3781 DATA IXDELD( 16)/ 23/ 3782 DATA ISTARD( 16)/ 81/ 3783 DATA NUMCOO( 16)/ 45/ 3784C 3785C DEFINE CHARACTER 3517--UPPER CASE Q 3786C 3787 DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', 1, 12/ 3788 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -2, 11/ 3789 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -4, 9/ 3790 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -6, 6/ 3791 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -7, 3/ 3792 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -8, -1/ 3793 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -8, -4/ 3794 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -7, -7/ 3795 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -6, -8/ 3796 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -4, -9/ 3797 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -1, -9/ 3798 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 2, -8/ 3799 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 4, -6/ 3800 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 6, -3/ 3801 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 7, 0/ 3802 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 8, 4/ 3803 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 8, 7/ 3804 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 7, 10/ 3805 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 6, 11/ 3806 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 4, 12/ 3807 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 1, 12/ 3808 DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE', -3, 9/ 3809 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -5, 6/ 3810 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -6, 3/ 3811 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -7, -1/ 3812 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -7, -5/ 3813 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -6, -7/ 3814 DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 3, -6/ 3815 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 5, -3/ 3816 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 6, 0/ 3817 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 7, 4/ 3818 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 7, 8/ 3819 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 6, 10/ 3820 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 1, 12/ 3821 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -1, 11/ 3822 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -3, 8/ 3823 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -4, 6/ 3824 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -5, 3/ 3825 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -6, -1/ 3826 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -6, -6/ 3827 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -5, -8/ 3828 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -4, -9/ 3829 DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', -1, -9/ 3830 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 1, -8/ 3831 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 3, -5/ 3832 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 4, -3/ 3833 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 5, 0/ 3834 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 6, 4/ 3835 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 6, 9/ 3836 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 5, 11/ 3837 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 4, 12/ 3838 DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', -6, -6/ 3839 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -5, -4/ 3840 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -3, -3/ 3841 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -2, -3/ 3842 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 0, -4/ 3843 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 1, -6/ 3844 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 2, -11/ 3845 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 3, -12/ 3846 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 4, -12/ 3847 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 5, -11/ 3848 DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', 2, -12/ 3849 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 3, -13/ 3850 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 4, -13/ 3851 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', 1, -6/ 3852 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 1, -13/ 3853 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 2, -14/ 3854 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 4, -14/ 3855 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 5, -11/ 3856 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 5, -10/ 3857C 3858 DATA IXMIND( 17)/ -11/ 3859 DATA IXMAXD( 17)/ 11/ 3860 DATA IXDELD( 17)/ 22/ 3861 DATA ISTARD( 17)/ 126/ 3862 DATA NUMCOO( 17)/ 70/ 3863C 3864C DEFINE CHARACTER 3518--UPPER CASE R 3865C 3866 DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE', -3, 12/ 3867 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -9, -9/ 3868 DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE', -2, 12/ 3869 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -8, -9/ 3870 DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE', -1, 12/ 3871 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -7, -9/ 3872 DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE', -6, 12/ 3873 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 5, 12/ 3874 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 8, 11/ 3875 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 9, 9/ 3876 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 9, 7/ 3877 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 8, 4/ 3878 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 7, 3/ 3879 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 4, 2/ 3880 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -4, 2/ 3881 DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE', 7, 11/ 3882 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 8, 9/ 3883 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 8, 7/ 3884 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 7, 4/ 3885 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, 3/ 3886 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', 5, 12/ 3887 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 6, 11/ 3888 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 7, 9/ 3889 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 7, 7/ 3890 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 6, 4/ 3891 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 4, 2/ 3892 DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', 0, 2/ 3893 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', 2, 1/ 3894 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 3, 0/ 3895 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 5, -6/ 3896 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 6, -7/ 3897 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 7, -7/ 3898 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 8, -6/ 3899 DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE', 5, -7/ 3900 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 6, -8/ 3901 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 7, -8/ 3902 DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE', 3, 0/ 3903 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 4, -8/ 3904 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 5, -9/ 3905 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 7, -9/ 3906 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 8, -6/ 3907 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 8, -5/ 3908 DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -12, -9/ 3909 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -4, -9/ 3910 DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', -5, 12/ 3911 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -2, 11/ 3912 DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', -4, 12/ 3913 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -3, 10/ 3914 DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE', 0, 12/ 3915 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -2, 10/ 3916 DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE', 1, 12/ 3917 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -2, 11/ 3918 DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', -8, -8/ 3919 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', -11, -9/ 3920 DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', -8, -7/ 3921 DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', -10, -9/ 3922 DATA IOPERA( 252),IX( 252),IY( 252)/'MOVE', -7, -7/ 3923 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -6, -9/ 3924 DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE', -8, -8/ 3925 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -5, -9/ 3926C 3927 DATA IXMIND( 18)/ -12/ 3928 DATA IXMAXD( 18)/ 12/ 3929 DATA IXDELD( 18)/ 24/ 3930 DATA ISTARD( 18)/ 196/ 3931 DATA NUMCOO( 18)/ 60/ 3932C 3933C DEFINE CHARACTER 3519--UPPER CASE S 3934C 3935 DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE', 8, 10/ 3936 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 9, 10/ 3937 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 10, 12/ 3938 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 9, 6/ 3939 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 9, 8/ 3940 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 8, 10/ 3941 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 7, 11/ 3942 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 4, 12/ 3943 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 0, 12/ 3944 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -3, 11/ 3945 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', -5, 9/ 3946 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', -5, 6/ 3947 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -4, 4/ 3948 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -2, 2/ 3949 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', 4, -1/ 3950 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', 5, -3/ 3951 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 5, -6/ 3952 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 4, -8/ 3953 DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE', -4, 6/ 3954 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', -3, 4/ 3955 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 4, 0/ 3956 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 5, -2/ 3957 DATA IOPERA( 278),IX( 278),IY( 278)/'MOVE', -3, 11/ 3958 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', -4, 9/ 3959 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -4, 7/ 3960 DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -3, 5/ 3961 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', 3, 2/ 3962 DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', 5, 0/ 3963 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 6, -2/ 3964 DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', 6, -5/ 3965 DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', 5, -7/ 3966 DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', 4, -8/ 3967 DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW', 1, -9/ 3968 DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW', -3, -9/ 3969 DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -6, -8/ 3970 DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW', -7, -7/ 3971 DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW', -8, -5/ 3972 DATA IOPERA( 293),IX( 293),IY( 293)/'DRAW', -8, -3/ 3973 DATA IOPERA( 294),IX( 294),IY( 294)/'DRAW', -9, -9/ 3974 DATA IOPERA( 295),IX( 295),IY( 295)/'DRAW', -8, -7/ 3975 DATA IOPERA( 296),IX( 296),IY( 296)/'DRAW', -7, -7/ 3976C 3977 DATA IXMIND( 19)/ -11/ 3978 DATA IXMAXD( 19)/ 12/ 3979 DATA IXDELD( 19)/ 23/ 3980 DATA ISTARD( 19)/ 256/ 3981 DATA NUMCOO( 19)/ 41/ 3982C 3983C-----START POINT----------------------------------------------------- 3984C 3985 IFOUND='YES' 3986 IERROR='NO' 3987C 3988 NUMCO=1 3989 ISTART=1 3990 ISTOP=1 3991 NC=1 3992C 3993C ****************************************** 3994C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 3995C ** HERSHEY CHARACTER SET CASE ** 3996C ****************************************** 3997C 3998C 3999 IF(IBUGD2.EQ.'OFF')GOTO90 4000 WRITE(ICOUT,999) 4001 999 FORMAT(1X) 4002 CALL DPWRST('XXX','BUG ') 4003 WRITE(ICOUT,51) 4004 51 FORMAT('***** AT THE BEGINNING OF DRTIU3--') 4005 CALL DPWRST('XXX','BUG ') 4006 WRITE(ICOUT,52)ICHARN 4007 52 FORMAT('ICHARN = ',I8) 4008 CALL DPWRST('XXX','BUG ') 4009 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 4010 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4011 CALL DPWRST('XXX','BUG ') 4012 90 CONTINUE 4013C 4014C ************************************** 4015C ** STEP 2-- ** 4016C ** EXTRACT THE COORDINATES ** 4017C ** FOR THIS PARTICULAR CHARACTER. ** 4018C ************************************** 4019C 4020 ISTART=ISTARD(ICHARN) 4021 NC=NUMCOO(ICHARN) 4022 ISTOP=ISTART+NC-1 4023 J=0 4024 DO1100I=ISTART,ISTOP 4025 J=J+1 4026 IOP(J)=IOPERA(I) 4027 X(J)=IX(I) 4028 Y(J)=IY(I) 4029 1100 CONTINUE 4030 NUMCO=J 4031 IXMINS=IXMIND(ICHARN) 4032 IXMAXS=IXMAXD(ICHARN) 4033 IXDELS=IXDELD(ICHARN) 4034C 4035 GOTO9000 4036C 4037C ***************** 4038C ** STEP 90-- ** 4039C ** EXIT ** 4040C ***************** 4041C 4042 9000 CONTINUE 4043 IF(IBUGD2.EQ.'OFF')GOTO9090 4044 WRITE(ICOUT,999) 4045 CALL DPWRST('XXX','BUG ') 4046 WRITE(ICOUT,9011) 4047 9011 FORMAT('***** AT THE END OF DRTIU3--') 4048 CALL DPWRST('XXX','BUG ') 4049 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 4050 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4051 CALL DPWRST('XXX','BUG ') 4052 WRITE(ICOUT,9013)ICHARN 4053 9013 FORMAT('ICHARN = ',I8) 4054 CALL DPWRST('XXX','BUG ') 4055 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 4056 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 4057 CALL DPWRST('XXX','BUG ') 4058 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 4059 DO9015I=1,NUMCO 4060 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 4061 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 4062 CALL DPWRST('XXX','BUG ') 4063 9015 CONTINUE 4064 9019 CONTINUE 4065 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 4066 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 4067 CALL DPWRST('XXX','BUG ') 4068 9090 CONTINUE 4069C 4070 RETURN 4071 END 4072 SUBROUTINE DRTIU4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 4073 1IBUGD2,IFOUND,IERROR) 4074C 4075C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 4076C FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 4). 4077C WRITTEN BY--JAMES J. FILLIBEN 4078C STATISTICAL ENGINEERING DIVISION 4079C CENTER FOR APPLIED MATHEMATICS 4080C NATIONAL BUREAU OF STANDARDS 4081C WASHINGTON, D. C. 20234 4082C PHONE--301-921-3651 4083C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 4084C OF THE NATIONAL BUREAU OF STANDARDS. 4085C LANGUAGE--ANSI FORTRAN (1977) 4086C VERSION NUMBER--87/4 4087C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 4088C UPDATED --MAY 1982. 4089C UPDATED --MARCH 1987. 4090C 4091C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 4092C 4093 CHARACTER*4 IOP 4094 CHARACTER*4 IBUGD2 4095 CHARACTER*4 IFOUND 4096 CHARACTER*4 IERROR 4097C 4098 CHARACTER*4 IOPERA 4099C 4100C--------------------------------------------------------------------- 4101C 4102 DIMENSION IOP(*) 4103 DIMENSION X(*) 4104 DIMENSION Y(*) 4105C 4106 DIMENSION IOPERA(300) 4107 DIMENSION IX(300) 4108 DIMENSION IY(300) 4109C 4110 DIMENSION IXMIND(30) 4111 DIMENSION IXMAXD(30) 4112 DIMENSION IXDELD(30) 4113 DIMENSION ISTARD(30) 4114 DIMENSION NUMCOO(30) 4115C 4116C-----COMMON---------------------------------------------------------- 4117C 4118 INCLUDE 'DPCOP2.INC' 4119C 4120C-----DATA STATEMENTS------------------------------------------------- 4121C 4122C DEFINE CHARACTER 3520--UPPER CASE T 4123C 4124 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 2, 12/ 4125 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, -9/ 4126 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', 3, 12/ 4127 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -3, -9/ 4128 DATA IOPERA( 5),IX( 5),IY( 5)/'MOVE', 4, 12/ 4129 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -2, -9/ 4130 DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', -5, 12/ 4131 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -7, 6/ 4132 DATA IOPERA( 9),IX( 9),IY( 9)/'MOVE', 11, 12/ 4133 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 10, 6/ 4134 DATA IOPERA( 11),IX( 11),IY( 11)/'MOVE', -5, 12/ 4135 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 11, 12/ 4136 DATA IOPERA( 13),IX( 13),IY( 13)/'MOVE', -7, -9/ 4137 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 1, -9/ 4138 DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', -4, 12/ 4139 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', -7, 6/ 4140 DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -2, 12/ 4141 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -6, 9/ 4142 DATA IOPERA( 19),IX( 19),IY( 19)/'MOVE', 0, 12/ 4143 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -5, 11/ 4144 DATA IOPERA( 21),IX( 21),IY( 21)/'MOVE', 7, 12/ 4145 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 10, 11/ 4146 DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', 8, 12/ 4147 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 10, 10/ 4148 DATA IOPERA( 25),IX( 25),IY( 25)/'MOVE', 9, 12/ 4149 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 10, 9/ 4150 DATA IOPERA( 27),IX( 27),IY( 27)/'MOVE', 10, 12/ 4151 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 10, 6/ 4152 DATA IOPERA( 29),IX( 29),IY( 29)/'MOVE', -3, -8/ 4153 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -6, -9/ 4154 DATA IOPERA( 31),IX( 31),IY( 31)/'MOVE', -3, -7/ 4155 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -5, -9/ 4156 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', -2, -7/ 4157 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -1, -9/ 4158 DATA IOPERA( 35),IX( 35),IY( 35)/'MOVE', -3, -8/ 4159 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 0, -9/ 4160C 4161 DATA IXMIND( 20)/ -11/ 4162 DATA IXMAXD( 20)/ 11/ 4163 DATA IXDELD( 20)/ 22/ 4164 DATA ISTARD( 20)/ 1/ 4165 DATA NUMCOO( 20)/ 36/ 4166C 4167C DEFINE CHARACTER 3521--UPPER CASE U 4168C 4169 DATA IOPERA( 37),IX( 37),IY( 37)/'MOVE', -4, 12/ 4170 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -7, 1/ 4171 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -8, -3/ 4172 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -8, -6/ 4173 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -7, -8/ 4174 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -4, -9/ 4175 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 0, -9/ 4176 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 3, -8/ 4177 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 5, -6/ 4178 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 6, -3/ 4179 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 10, 11/ 4180 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', -3, 12/ 4181 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -6, 1/ 4182 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -7, -3/ 4183 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -7, -7/ 4184 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -6, -8/ 4185 DATA IOPERA( 53),IX( 53),IY( 53)/'MOVE', -2, 12/ 4186 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -5, 1/ 4187 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -6, -3/ 4188 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -6, -7/ 4189 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -4, -9/ 4190 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', -7, 12/ 4191 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 1, 12/ 4192 DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', 7, 12/ 4193 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 13, 12/ 4194 DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', -6, 12/ 4195 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -3, 11/ 4196 DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', -5, 12/ 4197 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -4, 10/ 4198 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', -1, 12/ 4199 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -3, 10/ 4200 DATA IOPERA( 68),IX( 68),IY( 68)/'MOVE', 0, 12/ 4201 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -3, 11/ 4202 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', 8, 12/ 4203 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 10, 11/ 4204 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', 12, 12/ 4205 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 10, 11/ 4206C 4207 DATA IXMIND( 21)/ -12/ 4208 DATA IXMAXD( 21)/ 13/ 4209 DATA IXDELD( 21)/ 25/ 4210 DATA ISTARD( 21)/ 37/ 4211 DATA NUMCOO( 21)/ 37/ 4212C 4213C DEFINE CHARACTER 3522--UPPER CASE V 4214C 4215 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', -4, 12/ 4216 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -4, 10/ 4217 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -3, -7/ 4218 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -3, -9/ 4219 DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -3, 11/ 4220 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -2, -6/ 4221 DATA IOPERA( 80),IX( 80),IY( 80)/'MOVE', -2, 12/ 4222 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -1, -5/ 4223 DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', 9, 11/ 4224 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -3, -9/ 4225 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -6, 12/ 4226 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 1, 12/ 4227 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', 6, 12/ 4228 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 12, 12/ 4229 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', -5, 12/ 4230 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -4, 10/ 4231 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', -1, 12/ 4232 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -2, 10/ 4233 DATA IOPERA( 92),IX( 92),IY( 92)/'MOVE', 0, 12/ 4234 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -3, 11/ 4235 DATA IOPERA( 94),IX( 94),IY( 94)/'MOVE', 7, 12/ 4236 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 9, 11/ 4237 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 11, 12/ 4238 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 9, 11/ 4239C 4240 DATA IXMIND( 22)/ -10/ 4241 DATA IXMAXD( 22)/ 10/ 4242 DATA IXDELD( 22)/ 20/ 4243 DATA ISTARD( 22)/ 74/ 4244 DATA NUMCOO( 22)/ 24/ 4245C 4246C DEFINE CHARACTER 3523--UPPER CASE W 4247C 4248 DATA IOPERA( 98),IX( 98),IY( 98)/'MOVE', -5, 12/ 4249 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -5, 10/ 4250 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -7, -7/ 4251 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -7, -9/ 4252 DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE', -4, 11/ 4253 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -6, -6/ 4254 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', -3, 12/ 4255 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -5, -5/ 4256 DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', 3, 12/ 4257 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -5, -5/ 4258 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -7, -9/ 4259 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', 3, 12/ 4260 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 3, 10/ 4261 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 1, -7/ 4262 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 1, -9/ 4263 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', 4, 11/ 4264 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 2, -6/ 4265 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', 5, 12/ 4266 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 3, -5/ 4267 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 11, 11/ 4268 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 3, -5/ 4269 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 1, -9/ 4270 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', -8, 12/ 4271 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 0, 12/ 4272 DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE', 3, 12/ 4273 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 5, 12/ 4274 DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', 8, 12/ 4275 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 14, 12/ 4276 DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', -7, 12/ 4277 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -4, 11/ 4278 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -6, 12/ 4279 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -5, 10/ 4280 DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -2, 12/ 4281 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -4, 9/ 4282 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', -1, 12/ 4283 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -4, 11/ 4284 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', 9, 12/ 4285 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 11, 11/ 4286 DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', 13, 12/ 4287 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 11, 11/ 4288C 4289 DATA IXMIND( 23)/ -13/ 4290 DATA IXMAXD( 23)/ 13/ 4291 DATA IXDELD( 23)/ 26/ 4292 DATA ISTARD( 23)/ 98/ 4293 DATA NUMCOO( 23)/ 40/ 4294C 4295C DEFINE CHARACTER 3524--UPPER CASE X 4296C 4297 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', -4, 12/ 4298 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 2, -9/ 4299 DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', -3, 12/ 4300 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 3, -9/ 4301 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', -2, 12/ 4302 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 4, -9/ 4303 DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', 9, 11/ 4304 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', -9, -8/ 4305 DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', -6, 12/ 4306 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 1, 12/ 4307 DATA IOPERA( 148),IX( 148),IY( 148)/'MOVE', 6, 12/ 4308 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 12, 12/ 4309 DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', -12, -9/ 4310 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -6, -9/ 4311 DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE', -1, -9/ 4312 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 6, -9/ 4313 DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE', -5, 12/ 4314 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -3, 10/ 4315 DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE', -1, 12/ 4316 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', -2, 10/ 4317 DATA IOPERA( 158),IX( 158),IY( 158)/'MOVE', 0, 12/ 4318 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -2, 11/ 4319 DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE', 7, 12/ 4320 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 9, 11/ 4321 DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 11, 12/ 4322 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 9, 11/ 4323 DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', -9, -8/ 4324 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -11, -9/ 4325 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', -9, -8/ 4326 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -7, -9/ 4327 DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', 2, -8/ 4328 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 0, -9/ 4329 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', 2, -7/ 4330 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 1, -9/ 4331 DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE', 3, -7/ 4332 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 5, -9/ 4333C 4334 DATA IXMIND( 24)/ -11/ 4335 DATA IXMAXD( 24)/ 11/ 4336 DATA IXDELD( 24)/ 22/ 4337 DATA ISTARD( 24)/ 138/ 4338 DATA NUMCOO( 24)/ 36/ 4339C 4340C DEFINE CHARACTER 3525--UPPER CASE Y 4341C 4342 DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -5, 12/ 4343 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -1, 2/ 4344 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -4, -9/ 4345 DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE', -4, 12/ 4346 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 0, 2/ 4347 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -3, -9/ 4348 DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', -3, 12/ 4349 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 1, 2/ 4350 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -2, -9/ 4351 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', 10, 11/ 4352 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 1, 2/ 4353 DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE', -7, 12/ 4354 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 0, 12/ 4355 DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', 7, 12/ 4356 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 13, 12/ 4357 DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', -7, -9/ 4358 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 1, -9/ 4359 DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE', -6, 12/ 4360 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -4, 11/ 4361 DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE', -2, 12/ 4362 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -3, 10/ 4363 DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', -1, 12/ 4364 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -4, 11/ 4365 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 8, 12/ 4366 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 10, 11/ 4367 DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 12, 12/ 4368 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 10, 11/ 4369 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', -3, -8/ 4370 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -6, -9/ 4371 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -3, -7/ 4372 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -5, -9/ 4373 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', -2, -7/ 4374 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -1, -9/ 4375 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -3, -8/ 4376 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', 0, -9/ 4377C 4378 DATA IXMIND( 25)/ -11/ 4379 DATA IXMAXD( 25)/ 11/ 4380 DATA IXDELD( 25)/ 22/ 4381 DATA ISTARD( 25)/ 174/ 4382 DATA NUMCOO( 25)/ 35/ 4383C 4384C DEFINE CHARACTER 3526--UPPER CASE Z 4385C 4386 DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 8, 12/ 4387 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -10, -9/ 4388 DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE', 9, 12/ 4389 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -9, -9/ 4390 DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', 10, 12/ 4391 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -8, -9/ 4392 DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', 10, 12/ 4393 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -4, 12/ 4394 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -6, 6/ 4395 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -10, -9/ 4396 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 4, -9/ 4397 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 6, -3/ 4398 DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE', -3, 12/ 4399 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -6, 6/ 4400 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', -2, 12/ 4401 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -5, 9/ 4402 DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE', 0, 12/ 4403 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -4, 11/ 4404 DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', 0, -9/ 4405 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 4, -8/ 4406 DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE', 2, -9/ 4407 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 5, -6/ 4408 DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE', 3, -9/ 4409 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 6, -3/ 4410C 4411 DATA IXMIND( 26)/ -11/ 4412 DATA IXMAXD( 26)/ 11/ 4413 DATA IXDELD( 26)/ 22/ 4414 DATA ISTARD( 26)/ 209/ 4415 DATA NUMCOO( 26)/ 24/ 4416C 4417C-----START POINT----------------------------------------------------- 4418C 4419 IFOUND='YES' 4420 IERROR='NO' 4421C 4422 NUMCO=1 4423 ISTART=1 4424 ISTOP=1 4425 NC=1 4426C 4427C ****************************************** 4428C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 4429C ** HERSHEY CHARACTER SET CASE ** 4430C ****************************************** 4431C 4432C 4433 IF(IBUGD2.EQ.'OFF')GOTO90 4434 WRITE(ICOUT,999) 4435 999 FORMAT(1X) 4436 CALL DPWRST('XXX','BUG ') 4437 WRITE(ICOUT,51) 4438 51 FORMAT('***** AT THE BEGINNING OF DRTIU4--') 4439 CALL DPWRST('XXX','BUG ') 4440 WRITE(ICOUT,52)ICHARN 4441 52 FORMAT('ICHARN = ',I8) 4442 CALL DPWRST('XXX','BUG ') 4443 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 4444 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4445 CALL DPWRST('XXX','BUG ') 4446 90 CONTINUE 4447C 4448C ************************************** 4449C ** STEP 2-- ** 4450C ** EXTRACT THE COORDINATES ** 4451C ** FOR THIS PARTICULAR CHARACTER. ** 4452C ************************************** 4453C 4454 ISTART=ISTARD(ICHARN) 4455 NC=NUMCOO(ICHARN) 4456 ISTOP=ISTART+NC-1 4457 J=0 4458 DO1100I=ISTART,ISTOP 4459 J=J+1 4460 IOP(J)=IOPERA(I) 4461 X(J)=IX(I) 4462 Y(J)=IY(I) 4463 1100 CONTINUE 4464 NUMCO=J 4465 IXMINS=IXMIND(ICHARN) 4466 IXMAXS=IXMAXD(ICHARN) 4467 IXDELS=IXDELD(ICHARN) 4468C 4469 GOTO9000 4470C 4471C ***************** 4472C ** STEP 90-- ** 4473C ** EXIT ** 4474C ***************** 4475C 4476 9000 CONTINUE 4477 IF(IBUGD2.EQ.'OFF')GOTO9090 4478 WRITE(ICOUT,999) 4479 CALL DPWRST('XXX','BUG ') 4480 WRITE(ICOUT,9011) 4481 9011 FORMAT('***** AT THE END OF DRTIU4--') 4482 CALL DPWRST('XXX','BUG ') 4483 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 4484 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4485 CALL DPWRST('XXX','BUG ') 4486 WRITE(ICOUT,9013)ICHARN 4487 9013 FORMAT('ICHARN = ',I8) 4488 CALL DPWRST('XXX','BUG ') 4489 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 4490 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 4491 CALL DPWRST('XXX','BUG ') 4492 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 4493 DO9015I=1,NUMCO 4494 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 4495 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 4496 CALL DPWRST('XXX','BUG ') 4497 9015 CONTINUE 4498 9019 CONTINUE 4499 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 4500 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 4501 CALL DPWRST('XXX','BUG ') 4502 9090 CONTINUE 4503C 4504 RETURN 4505 END 4506 SUBROUTINE DRTL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 4507 1IBUGD2,IFOUND,IERROR) 4508C 4509C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 4510C FOR ROMAN TRIPLEX LOWER CASE (PART 1). 4511C WRITTEN BY--JAMES J. FILLIBEN 4512C STATISTICAL ENGINEERING DIVISION 4513C CENTER FOR APPLIED MATHEMATICS 4514C NATIONAL BUREAU OF STANDARDS 4515C WASHINGTON, D. C. 20234 4516C PHONE--301-921-3651 4517C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 4518C OF THE NATIONAL BUREAU OF STANDARDS. 4519C LANGUAGE--ANSI FORTRAN (1977) 4520C VERSION NUMBER--87/4 4521C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 4522C UPDATED --MAY 1982. 4523C UPDATED --MARCH 1987. 4524C 4525C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 4526C 4527 CHARACTER*4 IOP 4528 CHARACTER*4 IBUGD2 4529 CHARACTER*4 IFOUND 4530 CHARACTER*4 IERROR 4531C 4532 CHARACTER*4 IOPERA 4533C 4534C--------------------------------------------------------------------- 4535C 4536 DIMENSION IOP(*) 4537 DIMENSION X(*) 4538 DIMENSION Y(*) 4539C 4540 DIMENSION IOPERA(300) 4541 DIMENSION IX(300) 4542 DIMENSION IY(300) 4543C 4544 DIMENSION IXMIND(30) 4545 DIMENSION IXMAXD(30) 4546 DIMENSION IXDELD(30) 4547 DIMENSION ISTARD(30) 4548 DIMENSION NUMCOO(30) 4549C 4550C-----COMMON---------------------------------------------------------- 4551C 4552 INCLUDE 'DPCOP2.INC' 4553C 4554C-----DATA STATEMENTS------------------------------------------------- 4555C 4556C DEFINE CHARACTER 3101--LOWER CASE A 4557C 4558 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -4, 2/ 4559 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, 3/ 4560 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -3, 3/ 4561 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -3, 1/ 4562 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -5, 1/ 4563 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -5, 3/ 4564 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -4, 4/ 4565 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -2, 5/ 4566 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 2, 5/ 4567 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, 4/ 4568 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 5, 3/ 4569 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 6, 1/ 4570 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 6, -6/ 4571 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 7, -8/ 4572 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 8, -9/ 4573 DATA IOPERA( 16),IX( 16),IY( 16)/'MOVE', 4, 3/ 4574 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 5, 1/ 4575 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 5, -6/ 4576 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 6, -8/ 4577 DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', 2, 5/ 4578 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 3, 4/ 4579 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 4, 2/ 4580 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 4, -6/ 4581 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 5, -8/ 4582 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 8, -9/ 4583 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 9, -9/ 4584 DATA IOPERA( 27),IX( 27),IY( 27)/'MOVE', 4, 0/ 4585 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 3, -1/ 4586 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', -2, -2/ 4587 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', -5, -3/ 4588 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -6, -5/ 4589 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -6, -6/ 4590 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -5, -8/ 4591 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -2, -9/ 4592 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 1, -9/ 4593 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 3, -8/ 4594 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 4, -6/ 4595 DATA IOPERA( 38),IX( 38),IY( 38)/'MOVE', -4, -3/ 4596 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -5, -5/ 4597 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -5, -6/ 4598 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -4, -8/ 4599 DATA IOPERA( 42),IX( 42),IY( 42)/'MOVE', 3, -1/ 4600 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', -1, -2/ 4601 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', -3, -3/ 4602 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', -4, -5/ 4603 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -4, -6/ 4604 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -3, -8/ 4605 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -2, -9/ 4606C 4607 DATA IXMIND( 1)/ -9/ 4608 DATA IXMAXD( 1)/ 11/ 4609 DATA IXDELD( 1)/ 20/ 4610 DATA ISTARD( 1)/ 1/ 4611 DATA NUMCOO( 1)/ 48/ 4612C 4613C DEFINE CHARACTER 3102--LOWER CASE B 4614C 4615 DATA IOPERA( 49),IX( 49),IY( 49)/'MOVE', -6, 12/ 4616 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -6, -9/ 4617 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -5, -8/ 4618 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -3, -8/ 4619 DATA IOPERA( 53),IX( 53),IY( 53)/'MOVE', -5, 11/ 4620 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -5, -7/ 4621 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -9, 12/ 4622 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -4, 12/ 4623 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -4, -8/ 4624 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', -4, 2/ 4625 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -3, 4/ 4626 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -1, 5/ 4627 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 1, 5/ 4628 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 4, 4/ 4629 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 6, 2/ 4630 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 7, -1/ 4631 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 7, -3/ 4632 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 6, -6/ 4633 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 4, -8/ 4634 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 1, -9/ 4635 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -1, -9/ 4636 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -3, -8/ 4637 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -4, -6/ 4638 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', 5, 2/ 4639 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 6, 0/ 4640 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 6, -4/ 4641 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 5, -6/ 4642 DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', 1, 5/ 4643 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', 3, 4/ 4644 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 4, 3/ 4645 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 5, 0/ 4646 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 5, -4/ 4647 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 4, -7/ 4648 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 3, -8/ 4649 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 1, -9/ 4650 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -8, 12/ 4651 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -6, 11/ 4652 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', -7, 12/ 4653 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -6, 10/ 4654C 4655 DATA IXMIND( 2)/ -11/ 4656 DATA IXMAXD( 2)/ 10/ 4657 DATA IXDELD( 2)/ 21/ 4658 DATA ISTARD( 2)/ 49/ 4659 DATA NUMCOO( 2)/ 39/ 4660C 4661C DEFINE CHARACTER 3103--LOWER CASE C 4662C 4663 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 5, 1/ 4664 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 5, 2/ 4665 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 4, 2/ 4666 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 4, 0/ 4667 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 6, 0/ 4668 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 6, 2/ 4669 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 4, 4/ 4670 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 2, 5/ 4671 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -1, 5/ 4672 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -4, 4/ 4673 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -6, 2/ 4674 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -7, -1/ 4675 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -7, -3/ 4676 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -6, -6/ 4677 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -4, -8/ 4678 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -1, -9/ 4679 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 1, -9/ 4680 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 4, -8/ 4681 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 6, -6/ 4682 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -5, 2/ 4683 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -6, 0/ 4684 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', -6, -4/ 4685 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -5, -6/ 4686 DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', -1, 5/ 4687 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -3, 4/ 4688 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -4, 3/ 4689 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, 0/ 4690 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -5, -4/ 4691 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -4, -7/ 4692 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', -3, -8/ 4693 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -1, -9/ 4694C 4695 DATA IXMIND( 3)/ -10/ 4696 DATA IXMAXD( 3)/ 9/ 4697 DATA IXDELD( 3)/ 19/ 4698 DATA ISTARD( 3)/ 88/ 4699 DATA NUMCOO( 3)/ 31/ 4700C 4701C DEFINE CHARACTER 3104--LOWER CASE D 4702C 4703 DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', 4, 12/ 4704 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 4, -9/ 4705 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 9, -9/ 4706 DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE', 5, 11/ 4707 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 5, -8/ 4708 DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', 1, 12/ 4709 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 6, 12/ 4710 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 6, -9/ 4711 DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', 4, 2/ 4712 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 3, 4/ 4713 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, 5/ 4714 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -1, 5/ 4715 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -4, 4/ 4716 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -6, 2/ 4717 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -7, -1/ 4718 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -7, -3/ 4719 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -6, -6/ 4720 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -4, -8/ 4721 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -1, -9/ 4722 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 1, -9/ 4723 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 3, -8/ 4724 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 4, -6/ 4725 DATA IOPERA( 141),IX( 141),IY( 141)/'MOVE', -5, 2/ 4726 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -6, 0/ 4727 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -6, -4/ 4728 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -5, -6/ 4729 DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE', -1, 5/ 4730 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -3, 4/ 4731 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -4, 3/ 4732 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -5, 0/ 4733 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -5, -4/ 4734 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -4, -7/ 4735 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -3, -8/ 4736 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -1, -9/ 4737 DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 2, 12/ 4738 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 4, 11/ 4739 DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', 3, 12/ 4740 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 4, 10/ 4741 DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', 6, -7/ 4742 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 7, -9/ 4743 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 6, -8/ 4744 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 8, -9/ 4745C 4746 DATA IXMIND( 4)/ -10/ 4747 DATA IXMAXD( 4)/ 11/ 4748 DATA IXDELD( 4)/ 21/ 4749 DATA ISTARD( 4)/ 119/ 4750 DATA NUMCOO( 4)/ 42/ 4751C 4752C DEFINE CHARACTER 3105--LOWER CASE E 4753C 4754 DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE', -5, -1/ 4755 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 6, -1/ 4756 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 6, 1/ 4757 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 5, 3/ 4758 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 4, 4/ 4759 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 1, 5/ 4760 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -1, 5/ 4761 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -4, 4/ 4762 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -6, 2/ 4763 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -7, -1/ 4764 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -7, -3/ 4765 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -6, -6/ 4766 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -4, -8/ 4767 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -1, -9/ 4768 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 1, -9/ 4769 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 4, -8/ 4770 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 6, -6/ 4771 DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', 5, 0/ 4772 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 5, 1/ 4773 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 4, 3/ 4774 DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE', -5, 2/ 4775 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -6, 0/ 4776 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -6, -4/ 4777 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -5, -6/ 4778 DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE', 4, -1/ 4779 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 4, 2/ 4780 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 3, 4/ 4781 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 1, 5/ 4782 DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', -1, 5/ 4783 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -3, 4/ 4784 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -4, 3/ 4785 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', -5, 0/ 4786 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -5, -4/ 4787 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', -4, -7/ 4788 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -3, -8/ 4789 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -1, -9/ 4790C 4791 DATA IXMIND( 5)/ -10/ 4792 DATA IXMAXD( 5)/ 9/ 4793 DATA IXDELD( 5)/ 19/ 4794 DATA ISTARD( 5)/ 161/ 4795 DATA NUMCOO( 5)/ 36/ 4796C 4797C DEFINE CHARACTER 3106--LOWER CASE F 4798C 4799 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 5, 10/ 4800 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 5, 11/ 4801 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 4, 11/ 4802 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 4, 9/ 4803 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 6, 9/ 4804 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 6, 11/ 4805 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 5, 12/ 4806 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 2, 12/ 4807 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 0, 11/ 4808 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -1, 10/ 4809 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -2, 7/ 4810 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -2, -9/ 4811 DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 0, 10/ 4812 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -1, 7/ 4813 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -1, -8/ 4814 DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', 2, 12/ 4815 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 1, 11/ 4816 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 0, 9/ 4817 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 0, -9/ 4818 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', -5, 5/ 4819 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 4, 5/ 4820 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -5, -9/ 4821 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 3, -9/ 4822 DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', -2, -8/ 4823 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -4, -9/ 4824 DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -2, -7/ 4825 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -3, -9/ 4826 DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', 0, -7/ 4827 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 1, -9/ 4828 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 0, -8/ 4829 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 2, -9/ 4830C 4831 DATA IXMIND( 6)/ -7/ 4832 DATA IXMAXD( 6)/ 7/ 4833 DATA IXDELD( 6)/ 14/ 4834 DATA ISTARD( 6)/ 197/ 4835 DATA NUMCOO( 6)/ 31/ 4836C 4837C-----START POINT----------------------------------------------------- 4838C 4839 IFOUND='YES' 4840 IERROR='NO' 4841C 4842 NUMCO=1 4843 ISTART=1 4844 ISTOP=1 4845 NC=1 4846C 4847C ****************************************** 4848C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 4849C ** HERSHEY CHARACTER SET CASE ** 4850C ****************************************** 4851C 4852C 4853 IF(IBUGD2.EQ.'OFF')GOTO90 4854 WRITE(ICOUT,999) 4855 999 FORMAT(1X) 4856 CALL DPWRST('XXX','BUG ') 4857 WRITE(ICOUT,51) 4858 51 FORMAT('***** AT THE BEGINNING OF DRTL1--') 4859 CALL DPWRST('XXX','BUG ') 4860 WRITE(ICOUT,52)ICHARN 4861 52 FORMAT('ICHARN = ',I8) 4862 CALL DPWRST('XXX','BUG ') 4863 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 4864 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4865 CALL DPWRST('XXX','BUG ') 4866 90 CONTINUE 4867C 4868C ************************************** 4869C ** STEP 2-- ** 4870C ** EXTRACT THE COORDINATES ** 4871C ** FOR THIS PARTICULAR CHARACTER. ** 4872C ************************************** 4873C 4874 ISTART=ISTARD(ICHARN) 4875 NC=NUMCOO(ICHARN) 4876 ISTOP=ISTART+NC-1 4877 J=0 4878 DO1100I=ISTART,ISTOP 4879 J=J+1 4880 IOP(J)=IOPERA(I) 4881 X(J)=IX(I) 4882 Y(J)=IY(I) 4883 1100 CONTINUE 4884 NUMCO=J 4885 IXMINS=IXMIND(ICHARN) 4886 IXMAXS=IXMAXD(ICHARN) 4887 IXDELS=IXDELD(ICHARN) 4888C 4889 GOTO9000 4890C 4891C ***************** 4892C ** STEP 90-- ** 4893C ** EXIT ** 4894C ***************** 4895C 4896 9000 CONTINUE 4897 IF(IBUGD2.EQ.'OFF')GOTO9090 4898 WRITE(ICOUT,999) 4899 CALL DPWRST('XXX','BUG ') 4900 WRITE(ICOUT,9011) 4901 9011 FORMAT('***** AT THE END OF DRTL1--') 4902 CALL DPWRST('XXX','BUG ') 4903 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 4904 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 4905 CALL DPWRST('XXX','BUG ') 4906 WRITE(ICOUT,9013)ICHARN 4907 9013 FORMAT('ICHARN = ',I8) 4908 CALL DPWRST('XXX','BUG ') 4909 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 4910 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 4911 CALL DPWRST('XXX','BUG ') 4912 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 4913 DO9015I=1,NUMCO 4914 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 4915 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 4916 CALL DPWRST('XXX','BUG ') 4917 9015 CONTINUE 4918 9019 CONTINUE 4919 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 4920 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 4921 CALL DPWRST('XXX','BUG ') 4922 9090 CONTINUE 4923C 4924 RETURN 4925 END 4926 SUBROUTINE DRTL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 4927 1IBUGD2,IFOUND,IERROR) 4928C 4929C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 4930C FOR ROMAN TRIPLEX LOWER CASE (PART 2). 4931C WRITTEN BY--JAMES J. FILLIBEN 4932C STATISTICAL ENGINEERING DIVISION 4933C CENTER FOR APPLIED MATHEMATICS 4934C NATIONAL BUREAU OF STANDARDS 4935C WASHINGTON, D. C. 20234 4936C PHONE--301-921-3651 4937C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 4938C OF THE NATIONAL BUREAU OF STANDARDS. 4939C LANGUAGE--ANSI FORTRAN (1977) 4940C VERSION NUMBER--87/4 4941C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 4942C UPDATED --MAY 1982. 4943C UPDATED --MARCH 1987. 4944C 4945C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 4946C 4947 CHARACTER*4 IOP 4948 CHARACTER*4 IBUGD2 4949 CHARACTER*4 IFOUND 4950 CHARACTER*4 IERROR 4951C 4952 CHARACTER*4 IOPERA 4953C 4954C--------------------------------------------------------------------- 4955C 4956 DIMENSION IOP(*) 4957 DIMENSION X(*) 4958 DIMENSION Y(*) 4959C 4960 DIMENSION IOPERA(300) 4961 DIMENSION IX(300) 4962 DIMENSION IY(300) 4963C 4964 DIMENSION IXMIND(30) 4965 DIMENSION IXMAXD(30) 4966 DIMENSION IXDELD(30) 4967 DIMENSION ISTARD(30) 4968 DIMENSION NUMCOO(30) 4969C 4970C-----COMMON---------------------------------------------------------- 4971C 4972 INCLUDE 'DPCOP2.INC' 4973C 4974C-----DATA STATEMENTS------------------------------------------------- 4975C 4976C DEFINE CHARACTER 3107--LOWER CASE G 4977C 4978 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 6, 4/ 4979 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 7, 3/ 4980 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 8, 4/ 4981 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 7, 5/ 4982 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 6, 5/ 4983 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 4, 4/ 4984 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 3, 3/ 4985 DATA IOPERA( 8),IX( 8),IY( 8)/'MOVE', -1, 5/ 4986 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -3, 4/ 4987 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -4, 3/ 4988 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -5, 1/ 4989 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -5, -1/ 4990 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -4, -3/ 4991 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -3, -4/ 4992 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', -1, -5/ 4993 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, -5/ 4994 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 3, -4/ 4995 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 4, -3/ 4996 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 5, -1/ 4997 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 5, 1/ 4998 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 4, 3/ 4999 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 3, 4/ 5000 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 1, 5/ 5001 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -1, 5/ 5002 DATA IOPERA( 25),IX( 25),IY( 25)/'MOVE', -3, 3/ 5003 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -4, 1/ 5004 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -4, -1/ 5005 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -3, -3/ 5006 DATA IOPERA( 29),IX( 29),IY( 29)/'MOVE', 3, -3/ 5007 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 4, -1/ 5008 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 4, 1/ 5009 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 3, 3/ 5010 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', -1, 5/ 5011 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -2, 4/ 5012 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -3, 2/ 5013 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -3, -2/ 5014 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -2, -4/ 5015 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -1, -5/ 5016 DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', 1, -5/ 5017 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 2, -4/ 5018 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 3, -2/ 5019 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 3, 2/ 5020 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 2, 4/ 5021 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 1, 5/ 5022 DATA IOPERA( 45),IX( 45),IY( 45)/'MOVE', -4, -3/ 5023 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', -5, -4/ 5024 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -6, -6/ 5025 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -6, -7/ 5026 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -5, -9/ 5027 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -4, -10/ 5028 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -1, -11/ 5029 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 3, -11/ 5030 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 6, -12/ 5031 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 7, -13/ 5032 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -4, -9/ 5033 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -1, -10/ 5034 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 3, -10/ 5035 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 6, -11/ 5036 DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', -6, -7/ 5037 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -5, -8/ 5038 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -2, -9/ 5039 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 3, -9/ 5040 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 6, -10/ 5041 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 7, -12/ 5042 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 7, -13/ 5043 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 6, -15/ 5044 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 3, -16/ 5045 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -3, -16/ 5046 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -6, -15/ 5047 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -7, -13/ 5048 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -7, -12/ 5049 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -6, -10/ 5050 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -3, -9/ 5051 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', -3, -16/ 5052 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -5, -15/ 5053 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -6, -13/ 5054 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -6, -12/ 5055 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -5, -10/ 5056 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -3, -9/ 5057C 5058 DATA IXMIND( 7)/ -9/ 5059 DATA IXMAXD( 7)/ 10/ 5060 DATA IXDELD( 7)/ 19/ 5061 DATA ISTARD( 7)/ 1/ 5062 DATA NUMCOO( 7)/ 79/ 5063C 5064C DEFINE CHARACTER 3108--LOWER CASE H 5065C 5066 DATA IOPERA( 80),IX( 80),IY( 80)/'MOVE', -6, 12/ 5067 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -6, -9/ 5068 DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', -5, 11/ 5069 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -5, -8/ 5070 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -9, 12/ 5071 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -4, 12/ 5072 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -4, -9/ 5073 DATA IOPERA( 87),IX( 87),IY( 87)/'MOVE', -4, 1/ 5074 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -3, 3/ 5075 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -2, 4/ 5076 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 0, 5/ 5077 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 3, 5/ 5078 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 5, 4/ 5079 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 6, 3/ 5080 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 7, 0/ 5081 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 7, -9/ 5082 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 5, 3/ 5083 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 6, 0/ 5084 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 6, -8/ 5085 DATA IOPERA( 99),IX( 99),IY( 99)/'MOVE', 3, 5/ 5086 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 4, 4/ 5087 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 5, 1/ 5088 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 5, -9/ 5089 DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', -9, -9/ 5090 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -1, -9/ 5091 DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', 2, -9/ 5092 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 10, -9/ 5093 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -8, 12/ 5094 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -6, 11/ 5095 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -7, 12/ 5096 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -6, 10/ 5097 DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', -6, -8/ 5098 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -8, -9/ 5099 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -6, -7/ 5100 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -7, -9/ 5101 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', -4, -7/ 5102 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, -9/ 5103 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', -4, -8/ 5104 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -2, -9/ 5105 DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', 5, -8/ 5106 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 3, -9/ 5107 DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', 5, -7/ 5108 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 4, -9/ 5109 DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE', 7, -7/ 5110 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 8, -9/ 5111 DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE', 7, -8/ 5112 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 9, -9/ 5113C 5114 DATA IXMIND( 8)/ -11/ 5115 DATA IXMAXD( 8)/ 12/ 5116 DATA IXDELD( 8)/ 23/ 5117 DATA ISTARD( 8)/ 80/ 5118 DATA NUMCOO( 8)/ 47/ 5119C 5120C DEFINE CHARACTER 3109--LOWER CASE I 5121C 5122 DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', -1, 12/ 5123 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -1, 10/ 5124 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, 10/ 5125 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 1, 12/ 5126 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -1, 12/ 5127 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', 0, 12/ 5128 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 0, 10/ 5129 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -1, 11/ 5130 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 1, 11/ 5131 DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', -1, 5/ 5132 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -1, -9/ 5133 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', 0, 4/ 5134 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 0, -8/ 5135 DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', -4, 5/ 5136 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 1, 5/ 5137 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 1, -9/ 5138 DATA IOPERA( 143),IX( 143),IY( 143)/'MOVE', -4, -9/ 5139 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 4, -9/ 5140 DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE', -3, 5/ 5141 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', -1, 4/ 5142 DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE', -2, 5/ 5143 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -1, 3/ 5144 DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', -1, -8/ 5145 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -3, -9/ 5146 DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE', -1, -7/ 5147 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -2, -9/ 5148 DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 1, -7/ 5149 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 2, -9/ 5150 DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE', 1, -8/ 5151 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 3, -9/ 5152C 5153 DATA IXMIND( 9)/ -6/ 5154 DATA IXMAXD( 9)/ 6/ 5155 DATA IXDELD( 9)/ 12/ 5156 DATA ISTARD( 9)/ 127/ 5157 DATA NUMCOO( 9)/ 30/ 5158C 5159C DEFINE CHARACTER 3110--LOWER CASE J 5160C 5161 DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', 0, 12/ 5162 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 0, 10/ 5163 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 2, 10/ 5164 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 2, 12/ 5165 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 0, 12/ 5166 DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 1, 12/ 5167 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 1, 10/ 5168 DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', 0, 11/ 5169 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 2, 11/ 5170 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', 0, 5/ 5171 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 0, -12/ 5172 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -1, -15/ 5173 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -2, -16/ 5174 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', 1, 4/ 5175 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 1, -11/ 5176 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 0, -14/ 5177 DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE', -3, 5/ 5178 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 2, 5/ 5179 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 2, -11/ 5180 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 1, -14/ 5181 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 0, -15/ 5182 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -2, -16/ 5183 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -5, -16/ 5184 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, -15/ 5185 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -6, -13/ 5186 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -4, -13/ 5187 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, -15/ 5188 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -5, -15/ 5189 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -5, -14/ 5190 DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE', -2, 5/ 5191 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 0, 4/ 5192 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', -1, 5/ 5193 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 0, 3/ 5194C 5195 DATA IXMIND( 10)/ -7/ 5196 DATA IXMAXD( 10)/ 6/ 5197 DATA IXDELD( 10)/ 13/ 5198 DATA ISTARD( 10)/ 157/ 5199 DATA NUMCOO( 10)/ 33/ 5200C 5201C DEFINE CHARACTER 3111--LOWER CASE K 5202C 5203 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', -6, 12/ 5204 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -6, -9/ 5205 DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', -5, 11/ 5206 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -5, -8/ 5207 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', -9, 12/ 5208 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -4, 12/ 5209 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -4, -9/ 5210 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', 5, 4/ 5211 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -4, -5/ 5212 DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 0, -1/ 5213 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 7, -9/ 5214 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', 0, -2/ 5215 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 6, -9/ 5216 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -1, -2/ 5217 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 5, -9/ 5218 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', 2, 5/ 5219 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 9, 5/ 5220 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -9, -9/ 5221 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -1, -9/ 5222 DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 2, -9/ 5223 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 9, -9/ 5224 DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE', -8, 12/ 5225 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -6, 11/ 5226 DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', -7, 12/ 5227 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', -6, 10/ 5228 DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', 3, 5/ 5229 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 5, 4/ 5230 DATA IOPERA( 217),IX( 217),IY( 217)/'MOVE', 8, 5/ 5231 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 5, 4/ 5232 DATA IOPERA( 219),IX( 219),IY( 219)/'MOVE', -6, -8/ 5233 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -8, -9/ 5234 DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE', -6, -7/ 5235 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -7, -9/ 5236 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', -4, -7/ 5237 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -3, -9/ 5238 DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE', -4, -8/ 5239 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -2, -9/ 5240 DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE', 5, -7/ 5241 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 3, -9/ 5242 DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE', 4, -7/ 5243 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 8, -9/ 5244C 5245 DATA IXMIND( 11)/ -11/ 5246 DATA IXMAXD( 11)/ 11/ 5247 DATA IXDELD( 11)/ 22/ 5248 DATA ISTARD( 11)/ 190/ 5249 DATA NUMCOO( 11)/ 41/ 5250C 5251C DEFINE CHARACTER 3112--LOWER CASE L 5252C 5253 DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE', -1, 12/ 5254 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -1, -9/ 5255 DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE', 0, 11/ 5256 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 0, -8/ 5257 DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE', -4, 12/ 5258 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 1, 12/ 5259 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 1, -9/ 5260 DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -4, -9/ 5261 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 4, -9/ 5262 DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE', -3, 12/ 5263 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -1, 11/ 5264 DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', -2, 12/ 5265 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -1, 10/ 5266 DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE', -1, -8/ 5267 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -3, -9/ 5268 DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE', -1, -7/ 5269 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', -2, -9/ 5270 DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE', 1, -7/ 5271 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 2, -9/ 5272 DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE', 1, -8/ 5273 DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', 3, -9/ 5274C 5275 DATA IXMIND( 12)/ -6/ 5276 DATA IXMAXD( 12)/ 6/ 5277 DATA IXDELD( 12)/ 12/ 5278 DATA ISTARD( 12)/ 231/ 5279 DATA NUMCOO( 12)/ 21/ 5280C 5281C-----START POINT----------------------------------------------------- 5282C 5283 IFOUND='YES' 5284 IERROR='NO' 5285C 5286 NUMCO=1 5287 ISTART=1 5288 ISTOP=1 5289 NC=1 5290C 5291C ****************************************** 5292C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 5293C ** HERSHEY CHARACTER SET CASE ** 5294C ****************************************** 5295C 5296C 5297 IF(IBUGD2.EQ.'OFF')GOTO90 5298 WRITE(ICOUT,999) 5299 999 FORMAT(1X) 5300 CALL DPWRST('XXX','BUG ') 5301 WRITE(ICOUT,51) 5302 51 FORMAT('***** AT THE BEGINNING OF DRTL2--') 5303 CALL DPWRST('XXX','BUG ') 5304 WRITE(ICOUT,52)ICHARN 5305 52 FORMAT('ICHARN = ',I8) 5306 CALL DPWRST('XXX','BUG ') 5307 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 5308 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 5309 CALL DPWRST('XXX','BUG ') 5310 90 CONTINUE 5311C 5312C ************************************** 5313C ** STEP 2-- ** 5314C ** EXTRACT THE COORDINATES ** 5315C ** FOR THIS PARTICULAR CHARACTER. ** 5316C ************************************** 5317C 5318 ISTART=ISTARD(ICHARN) 5319 NC=NUMCOO(ICHARN) 5320 ISTOP=ISTART+NC-1 5321 J=0 5322 DO1100I=ISTART,ISTOP 5323 J=J+1 5324 IOP(J)=IOPERA(I) 5325 X(J)=IX(I) 5326 Y(J)=IY(I) 5327 1100 CONTINUE 5328 NUMCO=J 5329 IXMINS=IXMIND(ICHARN) 5330 IXMAXS=IXMAXD(ICHARN) 5331 IXDELS=IXDELD(ICHARN) 5332C 5333 GOTO9000 5334C 5335C ***************** 5336C ** STEP 90-- ** 5337C ** EXIT ** 5338C ***************** 5339C 5340 9000 CONTINUE 5341 IF(IBUGD2.EQ.'OFF')GOTO9090 5342 WRITE(ICOUT,999) 5343 CALL DPWRST('XXX','BUG ') 5344 WRITE(ICOUT,9011) 5345 9011 FORMAT('***** AT THE END OF DRTL2--') 5346 CALL DPWRST('XXX','BUG ') 5347 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 5348 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 5349 CALL DPWRST('XXX','BUG ') 5350 WRITE(ICOUT,9013)ICHARN 5351 9013 FORMAT('ICHARN = ',I8) 5352 CALL DPWRST('XXX','BUG ') 5353 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 5354 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 5355 CALL DPWRST('XXX','BUG ') 5356 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 5357 DO9015I=1,NUMCO 5358 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 5359 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 5360 CALL DPWRST('XXX','BUG ') 5361 9015 CONTINUE 5362 9019 CONTINUE 5363 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 5364 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 5365 CALL DPWRST('XXX','BUG ') 5366 9090 CONTINUE 5367C 5368 RETURN 5369 END 5370 SUBROUTINE DRTL3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 5371 1IBUGD2,IFOUND,IERROR) 5372C 5373C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 5374C FOR ROMAN TRIPLEX LOWER CASE (PART 3). 5375C WRITTEN BY--JAMES J. FILLIBEN 5376C STATISTICAL ENGINEERING DIVISION 5377C CENTER FOR APPLIED MATHEMATICS 5378C NATIONAL BUREAU OF STANDARDS 5379C WASHINGTON, D. C. 20234 5380C PHONE--301-921-3651 5381C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 5382C OF THE NATIONAL BUREAU OF STANDARDS. 5383C LANGUAGE--ANSI FORTRAN (1977) 5384C VERSION NUMBER--87/4 5385C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 5386C UPDATED --MAY 1982. 5387C UPDATED --MARCH 1987. 5388C 5389C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 5390C 5391 CHARACTER*4 IOP 5392 CHARACTER*4 IBUGD2 5393 CHARACTER*4 IFOUND 5394 CHARACTER*4 IERROR 5395C 5396 CHARACTER*4 IOPERA 5397C 5398C--------------------------------------------------------------------- 5399C 5400 DIMENSION IOP(*) 5401 DIMENSION X(*) 5402 DIMENSION Y(*) 5403C 5404 DIMENSION IOPERA(300) 5405 DIMENSION IX(300) 5406 DIMENSION IY(300) 5407C 5408 DIMENSION IXMIND(30) 5409 DIMENSION IXMAXD(30) 5410 DIMENSION IXDELD(30) 5411 DIMENSION ISTARD(30) 5412 DIMENSION NUMCOO(30) 5413C 5414C-----COMMON---------------------------------------------------------- 5415C 5416 INCLUDE 'DPCOP2.INC' 5417C 5418C-----DATA STATEMENTS------------------------------------------------- 5419C 5420C DEFINE CHARACTER 3113--LOWER CASE M 5421C 5422 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -12, 5/ 5423 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -12, -9/ 5424 DATA IOPERA( 3),IX( 3),IY( 3)/'MOVE', -11, 4/ 5425 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -11, -8/ 5426 DATA IOPERA( 5),IX( 5),IY( 5)/'MOVE', -15, 5/ 5427 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -10, 5/ 5428 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -10, -9/ 5429 DATA IOPERA( 8),IX( 8),IY( 8)/'MOVE', -10, 1/ 5430 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -9, 3/ 5431 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -8, 4/ 5432 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -6, 5/ 5433 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -3, 5/ 5434 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -1, 4/ 5435 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 0, 3/ 5436 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 1, 0/ 5437 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, -9/ 5438 DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -1, 3/ 5439 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', 0, 0/ 5440 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', 0, -8/ 5441 DATA IOPERA( 20),IX( 20),IY( 20)/'MOVE', -3, 5/ 5442 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -2, 4/ 5443 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -1, 1/ 5444 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -1, -9/ 5445 DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', 1, 1/ 5446 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 2, 3/ 5447 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 3, 4/ 5448 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 5, 5/ 5449 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 8, 5/ 5450 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 10, 4/ 5451 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 11, 3/ 5452 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 12, 0/ 5453 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 12, -9/ 5454 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', 10, 3/ 5455 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 11, 0/ 5456 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 11, -8/ 5457 DATA IOPERA( 36),IX( 36),IY( 36)/'MOVE', 8, 5/ 5458 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 9, 4/ 5459 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 10, 1/ 5460 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 10, -9/ 5461 DATA IOPERA( 40),IX( 40),IY( 40)/'MOVE', -15, -9/ 5462 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -7, -9/ 5463 DATA IOPERA( 42),IX( 42),IY( 42)/'MOVE', -4, -9/ 5464 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 4, -9/ 5465 DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 7, -9/ 5466 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 15, -9/ 5467 DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', -14, 5/ 5468 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -12, 4/ 5469 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', -13, 5/ 5470 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -12, 3/ 5471 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', -12, -8/ 5472 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -14, -9/ 5473 DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', -12, -7/ 5474 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -13, -9/ 5475 DATA IOPERA( 54),IX( 54),IY( 54)/'MOVE', -10, -7/ 5476 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -9, -9/ 5477 DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', -10, -8/ 5478 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', -8, -9/ 5479 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', -1, -8/ 5480 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -3, -9/ 5481 DATA IOPERA( 60),IX( 60),IY( 60)/'MOVE', -1, -7/ 5482 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -2, -9/ 5483 DATA IOPERA( 62),IX( 62),IY( 62)/'MOVE', 1, -7/ 5484 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 2, -9/ 5485 DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', 1, -8/ 5486 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 3, -9/ 5487 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', 10, -8/ 5488 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 8, -9/ 5489 DATA IOPERA( 68),IX( 68),IY( 68)/'MOVE', 10, -7/ 5490 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 9, -9/ 5491 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', 12, -7/ 5492 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 13, -9/ 5493 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', 12, -8/ 5494 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 14, -9/ 5495C 5496 DATA IXMIND( 13)/ -17/ 5497 DATA IXMAXD( 13)/ 17/ 5498 DATA IXDELD( 13)/ 34/ 5499 DATA ISTARD( 13)/ 1/ 5500 DATA NUMCOO( 13)/ 73/ 5501C 5502C DEFINE CHARACTER 3114--LOWER CASE N 5503C 5504 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', -6, 5/ 5505 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -6, -9/ 5506 DATA IOPERA( 76),IX( 76),IY( 76)/'MOVE', -5, 4/ 5507 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -5, -8/ 5508 DATA IOPERA( 78),IX( 78),IY( 78)/'MOVE', -9, 5/ 5509 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -4, 5/ 5510 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -4, -9/ 5511 DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', -4, 1/ 5512 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', -3, 3/ 5513 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -2, 4/ 5514 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 0, 5/ 5515 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 3, 5/ 5516 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 5, 4/ 5517 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 6, 3/ 5518 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 7, 0/ 5519 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 7, -9/ 5520 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', 5, 3/ 5521 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 6, 0/ 5522 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 6, -8/ 5523 DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', 3, 5/ 5524 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 4, 4/ 5525 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 5, 1/ 5526 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 5, -9/ 5527 DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', -9, -9/ 5528 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -1, -9/ 5529 DATA IOPERA( 99),IX( 99),IY( 99)/'MOVE', 2, -9/ 5530 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 10, -9/ 5531 DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', -8, 5/ 5532 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -6, 4/ 5533 DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', -7, 5/ 5534 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -6, 3/ 5535 DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', -6, -8/ 5536 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -8, -9/ 5537 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', -6, -7/ 5538 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', -7, -9/ 5539 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -4, -7/ 5540 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', -3, -9/ 5541 DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', -4, -8/ 5542 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -2, -9/ 5543 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', 5, -8/ 5544 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 3, -9/ 5545 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', 5, -7/ 5546 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 4, -9/ 5547 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 7, -7/ 5548 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 8, -9/ 5549 DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE', 7, -8/ 5550 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 9, -9/ 5551C 5552 DATA IXMIND( 14)/ -11/ 5553 DATA IXMAXD( 14)/ 12/ 5554 DATA IXDELD( 14)/ 23/ 5555 DATA ISTARD( 14)/ 74/ 5556 DATA NUMCOO( 14)/ 47/ 5557C 5558C DEFINE CHARACTER 3115--LOWER CASE O 5559C 5560 DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', -1, 5/ 5561 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -4, 4/ 5562 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -6, 2/ 5563 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -7, -1/ 5564 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -7, -3/ 5565 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -6, -6/ 5566 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -4, -8/ 5567 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -1, -9/ 5568 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 1, -9/ 5569 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 4, -8/ 5570 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 6, -6/ 5571 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 7, -3/ 5572 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 7, -1/ 5573 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 6, 2/ 5574 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 4, 4/ 5575 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 1, 5/ 5576 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -1, 5/ 5577 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', -5, 2/ 5578 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -6, 0/ 5579 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -6, -4/ 5580 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -5, -6/ 5581 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', 5, -6/ 5582 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 6, -4/ 5583 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 6, 0/ 5584 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 5, 2/ 5585 DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', -1, 5/ 5586 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', -3, 4/ 5587 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', -4, 3/ 5588 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -5, 0/ 5589 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -5, -4/ 5590 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -4, -7/ 5591 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -3, -8/ 5592 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -1, -9/ 5593 DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE', 1, -9/ 5594 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 3, -8/ 5595 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 4, -7/ 5596 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 5, -4/ 5597 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 5, 0/ 5598 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 4, 3/ 5599 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 3, 4/ 5600 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 1, 5/ 5601C 5602 DATA IXMIND( 15)/ -10/ 5603 DATA IXMAXD( 15)/ 10/ 5604 DATA IXDELD( 15)/ 20/ 5605 DATA ISTARD( 15)/ 121/ 5606 DATA NUMCOO( 15)/ 41/ 5607C 5608C DEFINE CHARACTER 3116--LOWER CASE P 5609C 5610 DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', -6, 5/ 5611 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -6, -16/ 5612 DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', -5, 4/ 5613 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -5, -15/ 5614 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', -9, 5/ 5615 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -4, 5/ 5616 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -4, -16/ 5617 DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', -4, 2/ 5618 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -3, 4/ 5619 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -1, 5/ 5620 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 1, 5/ 5621 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 4, 4/ 5622 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 6, 2/ 5623 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 7, -1/ 5624 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 7, -3/ 5625 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 6, -6/ 5626 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 4, -8/ 5627 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 1, -9/ 5628 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -1, -9/ 5629 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -3, -8/ 5630 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -4, -6/ 5631 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', 5, 2/ 5632 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 6, 0/ 5633 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 6, -4/ 5634 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 5, -6/ 5635 DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE', 1, 5/ 5636 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 3, 4/ 5637 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 4, 3/ 5638 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 5, 0/ 5639 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 5, -4/ 5640 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 4, -7/ 5641 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, -8/ 5642 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 1, -9/ 5643 DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE', -9, -16/ 5644 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -1, -16/ 5645 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', -8, 5/ 5646 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -6, 4/ 5647 DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', -7, 5/ 5648 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -6, 3/ 5649 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', -6, -15/ 5650 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -8, -16/ 5651 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', -6, -14/ 5652 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -7, -16/ 5653 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', -4, -14/ 5654 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -3, -16/ 5655 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -4, -15/ 5656 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -2, -16/ 5657C 5658 DATA IXMIND( 16)/ -11/ 5659 DATA IXMAXD( 16)/ 10/ 5660 DATA IXDELD( 16)/ 21/ 5661 DATA ISTARD( 16)/ 162/ 5662 DATA NUMCOO( 16)/ 47/ 5663C 5664C DEFINE CHARACTER 3117--LOWER CASE Q 5665C 5666 DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 4, 4/ 5667 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 4, -16/ 5668 DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE', 5, 3/ 5669 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 5, -15/ 5670 DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', 3, 4/ 5671 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 5, 4/ 5672 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, 5/ 5673 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 6, -16/ 5674 DATA IOPERA( 217),IX( 217),IY( 217)/'MOVE', 4, 2/ 5675 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 3, 4/ 5676 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', 1, 5/ 5677 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -1, 5/ 5678 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -4, 4/ 5679 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -6, 2/ 5680 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -7, -1/ 5681 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -7, -3/ 5682 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -6, -6/ 5683 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -4, -8/ 5684 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -1, -9/ 5685 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 1, -9/ 5686 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 3, -8/ 5687 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 4, -6/ 5688 DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE', -5, 2/ 5689 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', -6, 0/ 5690 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', -6, -4/ 5691 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -5, -6/ 5692 DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE', -1, 5/ 5693 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', -3, 4/ 5694 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', -4, 3/ 5695 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -5, 0/ 5696 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', -5, -4/ 5697 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', -4, -7/ 5698 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', -3, -8/ 5699 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', -1, -9/ 5700 DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE', 1, -16/ 5701 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 9, -16/ 5702 DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE', 4, -15/ 5703 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 2, -16/ 5704 DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', 4, -14/ 5705 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 3, -16/ 5706 DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE', 6, -14/ 5707 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 7, -16/ 5708 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', 6, -15/ 5709 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', 8, -16/ 5710C 5711 DATA IXMIND( 17)/ -10/ 5712 DATA IXMAXD( 17)/ 10/ 5713 DATA IXDELD( 17)/ 20/ 5714 DATA ISTARD( 17)/ 209/ 5715 DATA NUMCOO( 17)/ 44/ 5716C 5717C DEFINE CHARACTER 3118--LOWER CASE R 5718C 5719 DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE', -4, 5/ 5720 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -4, -9/ 5721 DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE', -3, 4/ 5722 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -3, -8/ 5723 DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE', -7, 5/ 5724 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', -2, 5/ 5725 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', -2, -9/ 5726 DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE', 5, 3/ 5727 DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW', 5, 4/ 5728 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', 4, 4/ 5729 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', 4, 2/ 5730 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 6, 2/ 5731 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 6, 4/ 5732 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 5, 5/ 5733 DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW', 3, 5/ 5734 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', 1, 4/ 5735 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -1, 2/ 5736 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -2, -1/ 5737 DATA IOPERA( 271),IX( 271),IY( 271)/'MOVE', -7, -9/ 5738 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 1, -9/ 5739 DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE', -6, 5/ 5740 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', -4, 4/ 5741 DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE', -5, 5/ 5742 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', -4, 3/ 5743 DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', -4, -8/ 5744 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', -6, -9/ 5745 DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE', -4, -7/ 5746 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -5, -9/ 5747 DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE', -2, -7/ 5748 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -1, -9/ 5749 DATA IOPERA( 283),IX( 283),IY( 283)/'MOVE', -2, -8/ 5750 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', 0, -9/ 5751C 5752 DATA IXMIND( 18)/ -9/ 5753 DATA IXMAXD( 18)/ 8/ 5754 DATA IXDELD( 18)/ 17/ 5755 DATA ISTARD( 18)/ 253/ 5756 DATA NUMCOO( 18)/ 32/ 5757C 5758C-----START POINT----------------------------------------------------- 5759C 5760 IFOUND='YES' 5761 IERROR='NO' 5762C 5763 NUMCO=1 5764 ISTART=1 5765 ISTOP=1 5766 NC=1 5767C 5768C ****************************************** 5769C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 5770C ** HERSHEY CHARACTER SET CASE ** 5771C ****************************************** 5772C 5773C 5774 IF(IBUGD2.EQ.'OFF')GOTO90 5775 WRITE(ICOUT,999) 5776 999 FORMAT(1X) 5777 CALL DPWRST('XXX','BUG ') 5778 WRITE(ICOUT,51) 5779 51 FORMAT('***** AT THE BEGINNING OF DRTL3--') 5780 CALL DPWRST('XXX','BUG ') 5781 WRITE(ICOUT,52)ICHARN 5782 52 FORMAT('ICHARN = ',I8) 5783 CALL DPWRST('XXX','BUG ') 5784 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 5785 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 5786 CALL DPWRST('XXX','BUG ') 5787 90 CONTINUE 5788C 5789C ************************************** 5790C ** STEP 2-- ** 5791C ** EXTRACT THE COORDINATES ** 5792C ** FOR THIS PARTICULAR CHARACTER. ** 5793C ************************************** 5794C 5795 ISTART=ISTARD(ICHARN) 5796 NC=NUMCOO(ICHARN) 5797 ISTOP=ISTART+NC-1 5798 J=0 5799 DO1100I=ISTART,ISTOP 5800 J=J+1 5801 IOP(J)=IOPERA(I) 5802 X(J)=IX(I) 5803 Y(J)=IY(I) 5804 1100 CONTINUE 5805 NUMCO=J 5806 IXMINS=IXMIND(ICHARN) 5807 IXMAXS=IXMAXD(ICHARN) 5808 IXDELS=IXDELD(ICHARN) 5809C 5810 GOTO9000 5811C 5812C ***************** 5813C ** STEP 90-- ** 5814C ** EXIT ** 5815C ***************** 5816C 5817 9000 CONTINUE 5818 IF(IBUGD2.EQ.'OFF')GOTO9090 5819 WRITE(ICOUT,999) 5820 CALL DPWRST('XXX','BUG ') 5821 WRITE(ICOUT,9011) 5822 9011 FORMAT('***** AT THE END OF DRTL3--') 5823 CALL DPWRST('XXX','BUG ') 5824 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 5825 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 5826 CALL DPWRST('XXX','BUG ') 5827 WRITE(ICOUT,9013)ICHARN 5828 9013 FORMAT('ICHARN = ',I8) 5829 CALL DPWRST('XXX','BUG ') 5830 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 5831 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 5832 CALL DPWRST('XXX','BUG ') 5833 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 5834 DO9015I=1,NUMCO 5835 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 5836 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 5837 CALL DPWRST('XXX','BUG ') 5838 9015 CONTINUE 5839 9019 CONTINUE 5840 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 5841 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 5842 CALL DPWRST('XXX','BUG ') 5843 9090 CONTINUE 5844C 5845 RETURN 5846 END 5847 SUBROUTINE DRTL4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 5848 1IBUGD2,IFOUND,IERROR) 5849C 5850C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 5851C FOR ROMAN TRIPLEX LOWER CASE (PART 4). 5852C WRITTEN BY--JAMES J. FILLIBEN 5853C STATISTICAL ENGINEERING DIVISION 5854C CENTER FOR APPLIED MATHEMATICS 5855C NATIONAL BUREAU OF STANDARDS 5856C WASHINGTON, D. C. 20234 5857C PHONE--301-921-3651 5858C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 5859C OF THE NATIONAL BUREAU OF STANDARDS. 5860C LANGUAGE--ANSI FORTRAN (1977) 5861C VERSION NUMBER--87/4 5862C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 5863C UPDATED --MAY 1982. 5864C UPDATED --MARCH 1987. 5865C 5866C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 5867C 5868 CHARACTER*4 IOP 5869 CHARACTER*4 IBUGD2 5870 CHARACTER*4 IFOUND 5871 CHARACTER*4 IERROR 5872C 5873 CHARACTER*4 IOPERA 5874C 5875C--------------------------------------------------------------------- 5876C 5877 DIMENSION IOP(*) 5878 DIMENSION X(*) 5879 DIMENSION Y(*) 5880C 5881 DIMENSION IOPERA(300) 5882 DIMENSION IX(300) 5883 DIMENSION IY(300) 5884C 5885 DIMENSION IXMIND(30) 5886 DIMENSION IXMAXD(30) 5887 DIMENSION IXDELD(30) 5888 DIMENSION ISTARD(30) 5889 DIMENSION NUMCOO(30) 5890C 5891C-----COMMON---------------------------------------------------------- 5892C 5893 INCLUDE 'DPCOP2.INC' 5894C 5895C-----DATA STATEMENTS------------------------------------------------- 5896C 5897C DEFINE CHARACTER 3119--LOWER CASE S 5898C 5899 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 5, 3/ 5900 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 6, 5/ 5901 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 6, 1/ 5902 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 5, 3/ 5903 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 4, 4/ 5904 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 2, 5/ 5905 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -2, 5/ 5906 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -4, 4/ 5907 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -5, 3/ 5908 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -5, 1/ 5909 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -4, -1/ 5910 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -2, -2/ 5911 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 3, -3/ 5912 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 5, -4/ 5913 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 6, -7/ 5914 DATA IOPERA( 16),IX( 16),IY( 16)/'MOVE', -4, 4/ 5915 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -5, 1/ 5916 DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', -4, 0/ 5917 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -2, -1/ 5918 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 3, -2/ 5919 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 5, -3/ 5920 DATA IOPERA( 22),IX( 22),IY( 22)/'MOVE', 6, -4/ 5921 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 5, -8/ 5922 DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', -5, 3/ 5923 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -4, 1/ 5924 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -2, 0/ 5925 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 3, -1/ 5926 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 5, -2/ 5927 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 6, -4/ 5928 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 6, -7/ 5929 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 5, -8/ 5930 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 3, -9/ 5931 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -1, -9/ 5932 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -3, -8/ 5933 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -4, -7/ 5934 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -5, -5/ 5935 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -5, -9/ 5936 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -4, -7/ 5937C 5938 DATA IXMIND( 19)/ -8/ 5939 DATA IXMAXD( 19)/ 9/ 5940 DATA IXDELD( 19)/ 17/ 5941 DATA ISTARD( 19)/ 1/ 5942 DATA NUMCOO( 19)/ 38/ 5943C 5944C DEFINE CHARACTER 3120--LOWER CASE T 5945C 5946 DATA IOPERA( 39),IX( 39),IY( 39)/'MOVE', -2, 10/ 5947 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -2, -4/ 5948 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -1, -7/ 5949 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 0, -8/ 5950 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 2, -9/ 5951 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 4, -9/ 5952 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 6, -8/ 5953 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 7, -6/ 5954 DATA IOPERA( 47),IX( 47),IY( 47)/'MOVE', -1, 10/ 5955 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -1, -5/ 5956 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 0, -7/ 5957 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', -2, 10/ 5958 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 0, 12/ 5959 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 0, -5/ 5960 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 1, -8/ 5961 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 2, -9/ 5962 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -5, 5/ 5963 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 4, 5/ 5964C 5965 DATA IXMIND( 20)/ -7/ 5966 DATA IXMAXD( 20)/ 8/ 5967 DATA IXDELD( 20)/ 15/ 5968 DATA ISTARD( 20)/ 39/ 5969 DATA NUMCOO( 20)/ 18/ 5970C 5971C DEFINE CHARACTER 3121--LOWER CASE U 5972C 5973 DATA IOPERA( 57),IX( 57),IY( 57)/'MOVE', -6, 5/ 5974 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -6, -4/ 5975 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', -5, -7/ 5976 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -4, -8/ 5977 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', -2, -9/ 5978 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 1, -9/ 5979 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 3, -8/ 5980 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 4, -7/ 5981 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', 5, -5/ 5982 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', -5, 4/ 5983 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -5, -5/ 5984 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -4, -7/ 5985 DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', -9, 5/ 5986 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', -4, 5/ 5987 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -4, -5/ 5988 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -3, -8/ 5989 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -2, -9/ 5990 DATA IOPERA( 74),IX( 74),IY( 74)/'MOVE', 5, 5/ 5991 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 5, -9/ 5992 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 10, -9/ 5993 DATA IOPERA( 77),IX( 77),IY( 77)/'MOVE', 6, 4/ 5994 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 6, -8/ 5995 DATA IOPERA( 79),IX( 79),IY( 79)/'MOVE', 2, 5/ 5996 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', 7, 5/ 5997 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 7, -9/ 5998 DATA IOPERA( 82),IX( 82),IY( 82)/'MOVE', -8, 5/ 5999 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -6, 4/ 6000 DATA IOPERA( 84),IX( 84),IY( 84)/'MOVE', -7, 5/ 6001 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -6, 3/ 6002 DATA IOPERA( 86),IX( 86),IY( 86)/'MOVE', 7, -7/ 6003 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 8, -9/ 6004 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 7, -8/ 6005 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 9, -9/ 6006C 6007 DATA IXMIND( 21)/ -11/ 6008 DATA IXMAXD( 21)/ 12/ 6009 DATA IXDELD( 21)/ 23/ 6010 DATA ISTARD( 21)/ 57/ 6011 DATA NUMCOO( 21)/ 33/ 6012C 6013C DEFINE CHARACTER 3122--LOWER CASE V 6014C 6015 DATA IOPERA( 90),IX( 90),IY( 90)/'MOVE', -6, 5/ 6016 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 0, -9/ 6017 DATA IOPERA( 92),IX( 92),IY( 92)/'MOVE', -5, 5/ 6018 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 0, -7/ 6019 DATA IOPERA( 94),IX( 94),IY( 94)/'MOVE', -4, 5/ 6020 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 1, -7/ 6021 DATA IOPERA( 96),IX( 96),IY( 96)/'MOVE', 6, 4/ 6022 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', 1, -7/ 6023 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 0, -9/ 6024 DATA IOPERA( 99),IX( 99),IY( 99)/'MOVE', -8, 5/ 6025 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', -1, 5/ 6026 DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', 2, 5/ 6027 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 8, 5/ 6028 DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', -7, 5/ 6029 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -4, 3/ 6030 DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE', -2, 5/ 6031 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -4, 4/ 6032 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', 4, 5/ 6033 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 6, 4/ 6034 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', 7, 5/ 6035 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 6, 4/ 6036C 6037 DATA IXMIND( 22)/ -9/ 6038 DATA IXMAXD( 22)/ 9/ 6039 DATA IXDELD( 22)/ 18/ 6040 DATA ISTARD( 22)/ 90/ 6041 DATA NUMCOO( 22)/ 21/ 6042C 6043C DEFINE CHARACTER 3123--LOWER CASE W 6044C 6045 DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', -8, 5/ 6046 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -4, -9/ 6047 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -7, 5/ 6048 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -4, -6/ 6049 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', -6, 5/ 6050 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -3, -6/ 6051 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 0, 5/ 6052 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', -3, -6/ 6053 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -4, -9/ 6054 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', 0, 5/ 6055 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 4, -9/ 6056 DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE', 1, 5/ 6057 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 4, -6/ 6058 DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE', 0, 5/ 6059 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', 2, 5/ 6060 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', 5, -6/ 6061 DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', 8, 4/ 6062 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 5, -6/ 6063 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 4, -9/ 6064 DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -11, 5/ 6065 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -3, 5/ 6066 DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE', 5, 5/ 6067 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 11, 5/ 6068 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -10, 5/ 6069 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -7, 4/ 6070 DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', -4, 5/ 6071 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -6, 4/ 6072 DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE', 6, 5/ 6073 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 8, 4/ 6074 DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE', 10, 5/ 6075 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 8, 4/ 6076C 6077 DATA IXMIND( 23)/ -12/ 6078 DATA IXMAXD( 23)/ 12/ 6079 DATA IXDELD( 23)/ 24/ 6080 DATA ISTARD( 23)/ 111/ 6081 DATA NUMCOO( 23)/ 31/ 6082C 6083C DEFINE CHARACTER 3124--LOWER CASE X 6084C 6085 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', -6, 5/ 6086 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 4, -9/ 6087 DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE', -5, 5/ 6088 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 5, -9/ 6089 DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', -4, 5/ 6090 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 6, -9/ 6091 DATA IOPERA( 148),IX( 148),IY( 148)/'MOVE', 5, 4/ 6092 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', -5, -8/ 6093 DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', -8, 5/ 6094 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -1, 5/ 6095 DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE', 2, 5/ 6096 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 8, 5/ 6097 DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE', -8, -9/ 6098 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', -2, -9/ 6099 DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE', 1, -9/ 6100 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 8, -9/ 6101 DATA IOPERA( 158),IX( 158),IY( 158)/'MOVE', -7, 5/ 6102 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -5, 4/ 6103 DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE', -2, 5/ 6104 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -4, 4/ 6105 DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE', 3, 5/ 6106 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 5, 4/ 6107 DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE', 7, 5/ 6108 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 5, 4/ 6109 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', -5, -8/ 6110 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -7, -9/ 6111 DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', -5, -8/ 6112 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -3, -9/ 6113 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', 4, -8/ 6114 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', 2, -9/ 6115 DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE', 5, -8/ 6116 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 7, -9/ 6117C 6118 DATA IXMIND( 24)/ -10/ 6119 DATA IXMAXD( 24)/ 10/ 6120 DATA IXDELD( 24)/ 20/ 6121 DATA ISTARD( 24)/ 142/ 6122 DATA NUMCOO( 24)/ 32/ 6123C 6124C DEFINE CHARACTER 3125--LOWER CASE Y 6125C 6126 DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -6, 5/ 6127 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 0, -9/ 6128 DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE', -5, 5/ 6129 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 0, -7/ 6130 DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', -4, 5/ 6131 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 1, -7/ 6132 DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE', 6, 4/ 6133 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 1, -7/ 6134 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -2, -13/ 6135 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -4, -15/ 6136 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -6, -16/ 6137 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -8, -16/ 6138 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -9, -15/ 6139 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -9, -13/ 6140 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -7, -13/ 6141 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -7, -15/ 6142 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -8, -15/ 6143 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', -8, -14/ 6144 DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', -8, 5/ 6145 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', -1, 5/ 6146 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', 2, 5/ 6147 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', 8, 5/ 6148 DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE', -7, 5/ 6149 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -4, 3/ 6150 DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE', -2, 5/ 6151 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -4, 4/ 6152 DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE', 4, 5/ 6153 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 6, 4/ 6154 DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE', 7, 5/ 6155 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 6, 4/ 6156C 6157 DATA IXMIND( 25)/ -10/ 6158 DATA IXMAXD( 25)/ 9/ 6159 DATA IXDELD( 25)/ 19/ 6160 DATA ISTARD( 25)/ 174/ 6161 DATA NUMCOO( 25)/ 30/ 6162C 6163C DEFINE CHARACTER 3126--LOWER CASE Z 6164C 6165 DATA IOPERA( 204),IX( 204),IY( 204)/'MOVE', 4, 5/ 6166 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', -6, -9/ 6167 DATA IOPERA( 206),IX( 206),IY( 206)/'MOVE', 5, 5/ 6168 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -5, -9/ 6169 DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE', 6, 5/ 6170 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -4, -9/ 6171 DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', 6, 5/ 6172 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -6, 5/ 6173 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', -6, 1/ 6174 DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE', -6, -9/ 6175 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 6, -9/ 6176 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 6, -5/ 6177 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', -5, 5/ 6178 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -6, 1/ 6179 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -4, 5/ 6180 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -6, 2/ 6181 DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE', -3, 5/ 6182 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -6, 3/ 6183 DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE', -1, 5/ 6184 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -6, 4/ 6185 DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE', 1, -9/ 6186 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 6, -8/ 6187 DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE', 3, -9/ 6188 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 6, -7/ 6189 DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE', 4, -9/ 6190 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 6, -6/ 6191 DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', 5, -9/ 6192 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 6, -5/ 6193C 6194 DATA IXMIND( 26)/ -9/ 6195 DATA IXMAXD( 26)/ 9/ 6196 DATA IXDELD( 26)/ 18/ 6197 DATA ISTARD( 26)/ 204/ 6198 DATA NUMCOO( 26)/ 28/ 6199C 6200C-----START POINT----------------------------------------------------- 6201C 6202 IFOUND='YES' 6203 IERROR='NO' 6204C 6205 NUMCO=1 6206 ISTART=1 6207 ISTOP=1 6208 NC=1 6209C 6210C ****************************************** 6211C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 6212C ** HERSHEY CHARACTER SET CASE ** 6213C ****************************************** 6214C 6215C 6216 IF(IBUGD2.EQ.'OFF')GOTO90 6217 WRITE(ICOUT,999) 6218 999 FORMAT(1X) 6219 CALL DPWRST('XXX','BUG ') 6220 WRITE(ICOUT,51) 6221 51 FORMAT('***** AT THE BEGINNING OF DRTL4--') 6222 CALL DPWRST('XXX','BUG ') 6223 WRITE(ICOUT,52)ICHARN 6224 52 FORMAT('ICHARN = ',I8) 6225 CALL DPWRST('XXX','BUG ') 6226 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 6227 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 6228 CALL DPWRST('XXX','BUG ') 6229 90 CONTINUE 6230C 6231C ************************************** 6232C ** STEP 2-- ** 6233C ** EXTRACT THE COORDINATES ** 6234C ** FOR THIS PARTICULAR CHARACTER. ** 6235C ************************************** 6236C 6237 ISTART=ISTARD(ICHARN) 6238 NC=NUMCOO(ICHARN) 6239 ISTOP=ISTART+NC-1 6240 J=0 6241 DO1100I=ISTART,ISTOP 6242 J=J+1 6243 IOP(J)=IOPERA(I) 6244 X(J)=IX(I) 6245 Y(J)=IY(I) 6246 1100 CONTINUE 6247 NUMCO=J 6248 IXMINS=IXMIND(ICHARN) 6249 IXMAXS=IXMAXD(ICHARN) 6250 IXDELS=IXDELD(ICHARN) 6251C 6252 GOTO9000 6253C 6254C ***************** 6255C ** STEP 90-- ** 6256C ** EXIT ** 6257C ***************** 6258C 6259 9000 CONTINUE 6260 IF(IBUGD2.EQ.'OFF')GOTO9090 6261 WRITE(ICOUT,999) 6262 CALL DPWRST('XXX','BUG ') 6263 WRITE(ICOUT,9011) 6264 9011 FORMAT('***** AT THE END OF DRTL4--') 6265 CALL DPWRST('XXX','BUG ') 6266 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 6267 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 6268 CALL DPWRST('XXX','BUG ') 6269 WRITE(ICOUT,9013)ICHARN 6270 9013 FORMAT('ICHARN = ',I8) 6271 CALL DPWRST('XXX','BUG ') 6272 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 6273 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 6274 CALL DPWRST('XXX','BUG ') 6275 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 6276 DO9015I=1,NUMCO 6277 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 6278 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 6279 CALL DPWRST('XXX','BUG ') 6280 9015 CONTINUE 6281 9019 CONTINUE 6282 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 6283 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 6284 CALL DPWRST('XXX','BUG ') 6285 9090 CONTINUE 6286C 6287 RETURN 6288 END 6289 SUBROUTINE DRTN1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 6290 1IBUGD2,IFOUND,IERROR) 6291C 6292C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 6293C FOR ROMAN TRIPLEX NUMERIC (PART 1). 6294C WRITTEN BY--JAMES J. FILLIBEN 6295C STATISTICAL ENGINEERING DIVISION 6296C CENTER FOR APPLIED MATHEMATICS 6297C NATIONAL BUREAU OF STANDARDS 6298C WASHINGTON, D. C. 20234 6299C PHONE--301-921-3651 6300C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 6301C OF THE NATIONAL BUREAU OF STANDARDS. 6302C LANGUAGE--ANSI FORTRAN (1977) 6303C VERSION NUMBER--87/4 6304C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 6305C UPDATED --MAY 1982. 6306C UPDATED --MARCH 1987. 6307C 6308C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 6309C 6310 CHARACTER*4 IOP 6311 CHARACTER*4 IBUGD2 6312 CHARACTER*4 IFOUND 6313 CHARACTER*4 IERROR 6314C 6315 CHARACTER*4 IOPERA 6316C 6317C--------------------------------------------------------------------- 6318C 6319 DIMENSION IOP(*) 6320 DIMENSION X(*) 6321 DIMENSION Y(*) 6322C 6323 DIMENSION IOPERA(300) 6324 DIMENSION IX(300) 6325 DIMENSION IY(300) 6326C 6327 DIMENSION IXMIND(30) 6328 DIMENSION IXMAXD(30) 6329 DIMENSION IXDELD(30) 6330 DIMENSION ISTARD(30) 6331 DIMENSION NUMCOO(30) 6332C 6333C-----COMMON---------------------------------------------------------- 6334C 6335 INCLUDE 'DPCOP2.INC' 6336C 6337C-----DATA STATEMENTS------------------------------------------------- 6338C 6339C DEFINE CHARACTER 3200--0 6340C 6341 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', -1, 12/ 6342 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -4, 11/ 6343 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -6, 8/ 6344 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', -7, 3/ 6345 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', -7, 0/ 6346 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -6, -5/ 6347 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', -4, -8/ 6348 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', -1, -9/ 6349 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 1, -9/ 6350 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, -8/ 6351 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 6, -5/ 6352 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 7, 0/ 6353 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 7, 3/ 6354 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 6, 8/ 6355 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 4, 11/ 6356 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, 12/ 6357 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -1, 12/ 6358 DATA IOPERA( 18),IX( 18),IY( 18)/'MOVE', -4, 10/ 6359 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -5, 8/ 6360 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -6, 4/ 6361 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -6, -1/ 6362 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -5, -5/ 6363 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -4, -7/ 6364 DATA IOPERA( 24),IX( 24),IY( 24)/'MOVE', 4, -7/ 6365 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 5, -5/ 6366 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 6, -1/ 6367 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 6, 4/ 6368 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 5, 8/ 6369 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 4, 10/ 6370 DATA IOPERA( 30),IX( 30),IY( 30)/'MOVE', -1, 12/ 6371 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', -3, 11/ 6372 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -4, 9/ 6373 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -5, 4/ 6374 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -5, -1/ 6375 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -4, -6/ 6376 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -3, -8/ 6377 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -1, -9/ 6378 DATA IOPERA( 38),IX( 38),IY( 38)/'MOVE', 1, -9/ 6379 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 3, -8/ 6380 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 4, -6/ 6381 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 5, -1/ 6382 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 5, 4/ 6383 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 4, 9/ 6384 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 3, 11/ 6385 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 1, 12/ 6386C 6387 DATA IXMIND( 1)/ -10/ 6388 DATA IXMAXD( 1)/ 10/ 6389 DATA IXDELD( 1)/ 20/ 6390 DATA ISTARD( 1)/ 1/ 6391 DATA NUMCOO( 1)/ 45/ 6392C 6393C DEFINE CHARACTER 3201--1 6394C 6395 DATA IOPERA( 46),IX( 46),IY( 46)/'MOVE', -1, 10/ 6396 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', -1, -9/ 6397 DATA IOPERA( 48),IX( 48),IY( 48)/'MOVE', 0, 10/ 6398 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 0, -8/ 6399 DATA IOPERA( 50),IX( 50),IY( 50)/'MOVE', 1, 12/ 6400 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 1, -9/ 6401 DATA IOPERA( 52),IX( 52),IY( 52)/'MOVE', 1, 12/ 6402 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -2, 9/ 6403 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -4, 8/ 6404 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', -5, -9/ 6405 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 5, -9/ 6406 DATA IOPERA( 57),IX( 57),IY( 57)/'MOVE', -1, -8/ 6407 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', -3, -9/ 6408 DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', -1, -7/ 6409 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', -2, -9/ 6410 DATA IOPERA( 61),IX( 61),IY( 61)/'MOVE', 1, -7/ 6411 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 2, -9/ 6412 DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 1, -8/ 6413 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 3, -9/ 6414C 6415 DATA IXMIND( 2)/ -10/ 6416 DATA IXMAXD( 2)/ 10/ 6417 DATA IXDELD( 2)/ 20/ 6418 DATA ISTARD( 2)/ 46/ 6419 DATA NUMCOO( 2)/ 19/ 6420C 6421C DEFINE CHARACTER 3202--2 6422C 6423 DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', -6, 8/ 6424 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -6, 7/ 6425 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', -5, 7/ 6426 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', -5, 8/ 6427 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', -6, 8/ 6428 DATA IOPERA( 70),IX( 70),IY( 70)/'MOVE', -6, 9/ 6429 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', -5, 9/ 6430 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -4, 8/ 6431 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', -4, 7/ 6432 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', -5, 6/ 6433 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -6, 6/ 6434 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -7, 7/ 6435 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -7, 8/ 6436 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -6, 10/ 6437 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -5, 11/ 6438 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -2, 12/ 6439 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', 2, 12/ 6440 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 5, 11/ 6441 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 6, 10/ 6442 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 7, 8/ 6443 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 7, 6/ 6444 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 6, 4/ 6445 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 3, 2/ 6446 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', -2, 0/ 6447 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -4, -1/ 6448 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', -6, -3/ 6449 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', -7, -6/ 6450 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -7, -9/ 6451 DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', 5, 10/ 6452 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 6, 8/ 6453 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 6, 6/ 6454 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 5, 4/ 6455 DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', 2, 12/ 6456 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 4, 11/ 6457 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 5, 8/ 6458 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 5, 6/ 6459 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', 4, 4/ 6460 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 2, 2/ 6461 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -2, 0/ 6462 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', -7, -7/ 6463 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -6, -6/ 6464 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', -4, -6/ 6465 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 1, -7/ 6466 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 5, -7/ 6467 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 7, -6/ 6468 DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE', -4, -6/ 6469 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 1, -8/ 6470 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', 5, -8/ 6471 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', 6, -7/ 6472 DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE', -4, -6/ 6473 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 1, -9/ 6474 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 5, -9/ 6475 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 6, -8/ 6476 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 7, -6/ 6477 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 7, -4/ 6478C 6479 DATA IXMIND( 3)/ -10/ 6480 DATA IXMAXD( 3)/ 10/ 6481 DATA IXDELD( 3)/ 20/ 6482 DATA ISTARD( 3)/ 65/ 6483 DATA NUMCOO( 3)/ 55/ 6484C 6485C DEFINE CHARACTER 3203--3 6486C 6487 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', -6, 8/ 6488 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -6, 7/ 6489 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -5, 7/ 6490 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -5, 8/ 6491 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -6, 8/ 6492 DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE', -6, 9/ 6493 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -5, 9/ 6494 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -4, 8/ 6495 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -4, 7/ 6496 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -5, 6/ 6497 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -6, 6/ 6498 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -7, 7/ 6499 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -7, 8/ 6500 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -6, 10/ 6501 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -5, 11/ 6502 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -2, 12/ 6503 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 2, 12/ 6504 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 5, 11/ 6505 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 6, 9/ 6506 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 6, 6/ 6507 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 5, 4/ 6508 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 2, 3/ 6509 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', 4, 11/ 6510 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 5, 9/ 6511 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 5, 6/ 6512 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 4, 4/ 6513 DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', 1, 12/ 6514 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 3, 11/ 6515 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 4, 9/ 6516 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 4, 6/ 6517 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 3, 4/ 6518 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 1, 3/ 6519 DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE', -1, 3/ 6520 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 2, 3/ 6521 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 4, 2/ 6522 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 6, 0/ 6523 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 7, -2/ 6524 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 7, -5/ 6525 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', 6, -7/ 6526 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', 5, -8/ 6527 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 2, -9/ 6528 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -2, -9/ 6529 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -5, -8/ 6530 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', -6, -7/ 6531 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -7, -5/ 6532 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -7, -4/ 6533 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -6, -3/ 6534 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -5, -3/ 6535 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -4, -4/ 6536 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -4, -5/ 6537 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -5, -6/ 6538 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -6, -6/ 6539 DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE', 5, 0/ 6540 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 6, -2/ 6541 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 6, -5/ 6542 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 5, -7/ 6543 DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE', 1, 3/ 6544 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 3, 2/ 6545 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 4, 1/ 6546 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 5, -2/ 6547 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 5, -5/ 6548 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 4, -8/ 6549 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 2, -9/ 6550 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', -6, -4/ 6551 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -6, -5/ 6552 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -5, -5/ 6553 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -5, -4/ 6554 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -6, -4/ 6555C 6556 DATA IXMIND( 4)/ -10/ 6557 DATA IXMAXD( 4)/ 10/ 6558 DATA IXDELD( 4)/ 20/ 6559 DATA ISTARD( 4)/ 120/ 6560 DATA NUMCOO( 4)/ 68/ 6561C 6562C DEFINE CHARACTER 3204--4 6563C 6564 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', 1, 9/ 6565 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 1, -9/ 6566 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', 2, 10/ 6567 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 2, -8/ 6568 DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', 3, 12/ 6569 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, -9/ 6570 DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE', 3, 12/ 6571 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -8, -3/ 6572 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', 8, -3/ 6573 DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE', -2, -9/ 6574 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 6, -9/ 6575 DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE', 1, -8/ 6576 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -1, -9/ 6577 DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE', 1, -7/ 6578 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 0, -9/ 6579 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 3, -7/ 6580 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 4, -9/ 6581 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', 3, -8/ 6582 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 5, -9/ 6583C 6584 DATA IXMIND( 5)/ -10/ 6585 DATA IXMAXD( 5)/ 10/ 6586 DATA IXDELD( 5)/ 20/ 6587 DATA ISTARD( 5)/ 188/ 6588 DATA NUMCOO( 5)/ 19/ 6589C 6590C DEFINE CHARACTER 3205--5 6591C 6592 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -5, 12/ 6593 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -7, 2/ 6594 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -5, 4/ 6595 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -2, 5/ 6596 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 1, 5/ 6597 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 4, 4/ 6598 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 6, 2/ 6599 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 7, -1/ 6600 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 7, -3/ 6601 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 6, -6/ 6602 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 4, -8/ 6603 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', 1, -9/ 6604 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -2, -9/ 6605 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -5, -8/ 6606 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -6, -7/ 6607 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -7, -5/ 6608 DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW', -7, -4/ 6609 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -6, -3/ 6610 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -5, -3/ 6611 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -4, -4/ 6612 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -4, -5/ 6613 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -5, -6/ 6614 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', -6, -6/ 6615 DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', 5, 2/ 6616 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 6, 0/ 6617 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 6, -4/ 6618 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 5, -6/ 6619 DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE', 1, 5/ 6620 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 3, 4/ 6621 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 4, 3/ 6622 DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW', 5, 0/ 6623 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', 5, -4/ 6624 DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW', 4, -7/ 6625 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 3, -8/ 6626 DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW', 1, -9/ 6627 DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE', -6, -4/ 6628 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', -6, -5/ 6629 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', -5, -5/ 6630 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', -5, -4/ 6631 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', -6, -4/ 6632 DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE', -5, 12/ 6633 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 5, 12/ 6634 DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE', -5, 11/ 6635 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', 3, 11/ 6636 DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', -5, 10/ 6637 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -1, 10/ 6638 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', 3, 11/ 6639 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', 5, 12/ 6640C 6641 DATA IXMIND( 6)/ -10/ 6642 DATA IXMAXD( 6)/ 10/ 6643 DATA IXDELD( 6)/ 20/ 6644 DATA ISTARD( 6)/ 207/ 6645 DATA NUMCOO( 6)/ 48/ 6646C 6647C-----START POINT----------------------------------------------------- 6648C 6649 IFOUND='YES' 6650 IERROR='NO' 6651C 6652 NUMCO=1 6653 ISTART=1 6654 ISTOP=1 6655 NC=1 6656C 6657C ****************************************** 6658C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 6659C ** HERSHEY CHARACTER SET CASE ** 6660C ****************************************** 6661C 6662C 6663 IF(IBUGD2.EQ.'OFF')GOTO90 6664 WRITE(ICOUT,999) 6665 999 FORMAT(1X) 6666 CALL DPWRST('XXX','BUG ') 6667 WRITE(ICOUT,51) 6668 51 FORMAT('***** AT THE BEGINNING OF DRTN1--') 6669 CALL DPWRST('XXX','BUG ') 6670 WRITE(ICOUT,52)ICHARN 6671 52 FORMAT('ICHARN = ',I8) 6672 CALL DPWRST('XXX','BUG ') 6673 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 6674 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 6675 CALL DPWRST('XXX','BUG ') 6676 90 CONTINUE 6677C 6678C ************************************** 6679C ** STEP 2-- ** 6680C ** EXTRACT THE COORDINATES ** 6681C ** FOR THIS PARTICULAR CHARACTER. ** 6682C ************************************** 6683C 6684 ISTART=ISTARD(ICHARN) 6685 NC=NUMCOO(ICHARN) 6686 ISTOP=ISTART+NC-1 6687 J=0 6688 DO1100I=ISTART,ISTOP 6689 J=J+1 6690 IOP(J)=IOPERA(I) 6691 X(J)=IX(I) 6692 Y(J)=IY(I) 6693 1100 CONTINUE 6694 NUMCO=J 6695 IXMINS=IXMIND(ICHARN) 6696 IXMAXS=IXMAXD(ICHARN) 6697 IXDELS=IXDELD(ICHARN) 6698C 6699 GOTO9000 6700C 6701C ***************** 6702C ** STEP 90-- ** 6703C ** EXIT ** 6704C ***************** 6705C 6706 9000 CONTINUE 6707 IF(IBUGD2.EQ.'OFF')GOTO9090 6708 WRITE(ICOUT,999) 6709 CALL DPWRST('XXX','BUG ') 6710 WRITE(ICOUT,9011) 6711 9011 FORMAT('***** AT THE END OF DRTN1--') 6712 CALL DPWRST('XXX','BUG ') 6713 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 6714 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 6715 CALL DPWRST('XXX','BUG ') 6716 WRITE(ICOUT,9013)ICHARN 6717 9013 FORMAT('ICHARN = ',I8) 6718 CALL DPWRST('XXX','BUG ') 6719 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 6720 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 6721 CALL DPWRST('XXX','BUG ') 6722 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 6723 DO9015I=1,NUMCO 6724 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 6725 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 6726 CALL DPWRST('XXX','BUG ') 6727 9015 CONTINUE 6728 9019 CONTINUE 6729 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 6730 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 6731 CALL DPWRST('XXX','BUG ') 6732 9090 CONTINUE 6733C 6734 RETURN 6735 END 6736 SUBROUTINE DRTN2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 6737 1IBUGD2,IFOUND,IERROR) 6738C 6739C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 6740C FOR ROMAN TRIPLEX NUMERIC (PART 2). 6741C WRITTEN BY--JAMES J. FILLIBEN 6742C STATISTICAL ENGINEERING DIVISION 6743C CENTER FOR APPLIED MATHEMATICS 6744C NATIONAL BUREAU OF STANDARDS 6745C WASHINGTON, D. C. 20234 6746C PHONE--301-921-3651 6747C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 6748C OF THE NATIONAL BUREAU OF STANDARDS. 6749C LANGUAGE--ANSI FORTRAN (1977) 6750C VERSION NUMBER--87/4 6751C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 6752C UPDATED --MAY 1982. 6753C UPDATED --MARCH 1987. 6754C 6755C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 6756C 6757 CHARACTER*4 IOP 6758 CHARACTER*4 IBUGD2 6759 CHARACTER*4 IFOUND 6760 CHARACTER*4 IERROR 6761C 6762 CHARACTER*4 IOPERA 6763C 6764C--------------------------------------------------------------------- 6765C 6766 DIMENSION IOP(*) 6767 DIMENSION X(*) 6768 DIMENSION Y(*) 6769C 6770 DIMENSION IOPERA(300) 6771 DIMENSION IX(300) 6772 DIMENSION IY(300) 6773C 6774 DIMENSION IXMIND(30) 6775 DIMENSION IXMAXD(30) 6776 DIMENSION IXDELD(30) 6777 DIMENSION ISTARD(30) 6778 DIMENSION NUMCOO(30) 6779C 6780C-----COMMON---------------------------------------------------------- 6781C 6782 INCLUDE 'DPCOP2.INC' 6783C 6784C-----DATA STATEMENTS------------------------------------------------- 6785C 6786C DEFINE CHARACTER 3206--6 6787C 6788 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 4, 9/ 6789 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', 4, 8/ 6790 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', 5, 8/ 6791 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 5, 9/ 6792 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 4, 9/ 6793 DATA IOPERA( 6),IX( 6),IY( 6)/'MOVE', 5, 10/ 6794 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 4, 10/ 6795 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 3, 9/ 6796 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 3, 8/ 6797 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', 4, 7/ 6798 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 5, 7/ 6799 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 6, 8/ 6800 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 6, 9/ 6801 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 5, 11/ 6802 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 3, 12/ 6803 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 0, 12/ 6804 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', -3, 11/ 6805 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -5, 9/ 6806 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -6, 7/ 6807 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -7, 3/ 6808 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -7, -3/ 6809 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -6, -6/ 6810 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', -4, -8/ 6811 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', -1, -9/ 6812 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', 1, -9/ 6813 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', 4, -8/ 6814 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 6, -6/ 6815 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 7, -3/ 6816 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 7, -2/ 6817 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 6, 1/ 6818 DATA IOPERA( 31),IX( 31),IY( 31)/'DRAW', 4, 3/ 6819 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 1, 4/ 6820 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', -1, 4/ 6821 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', -3, 3/ 6822 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', -4, 2/ 6823 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -5, 0/ 6824 DATA IOPERA( 37),IX( 37),IY( 37)/'MOVE', -4, 9/ 6825 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', -5, 7/ 6826 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -6, 3/ 6827 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -6, -3/ 6828 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', -5, -6/ 6829 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', -4, -7/ 6830 DATA IOPERA( 43),IX( 43),IY( 43)/'MOVE', 5, -6/ 6831 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 6, -4/ 6832 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 6, -1/ 6833 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 5, 1/ 6834 DATA IOPERA( 47),IX( 47),IY( 47)/'MOVE', 0, 12/ 6835 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', -2, 11/ 6836 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', -3, 10/ 6837 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -4, 8/ 6838 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -5, 4/ 6839 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', -5, -3/ 6840 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', -4, -6/ 6841 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -3, -8/ 6842 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', -1, -9/ 6843 DATA IOPERA( 56),IX( 56),IY( 56)/'MOVE', 1, -9/ 6844 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 3, -8/ 6845 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 4, -7/ 6846 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 5, -4/ 6847 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 5, -1/ 6848 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 4, 2/ 6849 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 3, 3/ 6850 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', 1, 4/ 6851C 6852 DATA IXMIND( 7)/ -10/ 6853 DATA IXMAXD( 7)/ 10/ 6854 DATA IXDELD( 7)/ 20/ 6855 DATA ISTARD( 7)/ 1/ 6856 DATA NUMCOO( 7)/ 63/ 6857C 6858C DEFINE CHARACTER 3207--7 6859C 6860 DATA IOPERA( 64),IX( 64),IY( 64)/'MOVE', -7, 12/ 6861 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -7, 6/ 6862 DATA IOPERA( 66),IX( 66),IY( 66)/'MOVE', 7, 12/ 6863 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 7, 9/ 6864 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 6, 6/ 6865 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 2, 1/ 6866 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 1, -1/ 6867 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 0, -5/ 6868 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', 0, -9/ 6869 DATA IOPERA( 73),IX( 73),IY( 73)/'MOVE', 1, 0/ 6870 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 0, -2/ 6871 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', -1, -5/ 6872 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', -1, -9/ 6873 DATA IOPERA( 77),IX( 77),IY( 77)/'MOVE', 6, 6/ 6874 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 1, 1/ 6875 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', -1, -2/ 6876 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -2, -5/ 6877 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -2, -9/ 6878 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -9/ 6879 DATA IOPERA( 83),IX( 83),IY( 83)/'MOVE', -7, 8/ 6880 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -6, 10/ 6881 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', -4, 12/ 6882 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', -2, 12/ 6883 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 3, 9/ 6884 DATA IOPERA( 88),IX( 88),IY( 88)/'DRAW', 5, 9/ 6885 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 6, 10/ 6886 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 7, 12/ 6887 DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', -5, 10/ 6888 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', -4, 11/ 6889 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', -2, 11/ 6890 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 0, 10/ 6891 DATA IOPERA( 95),IX( 95),IY( 95)/'MOVE', -7, 8/ 6892 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', -6, 9/ 6893 DATA IOPERA( 97),IX( 97),IY( 97)/'DRAW', -4, 10/ 6894 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -2, 10/ 6895 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 3, 9/ 6896C 6897 DATA IXMIND( 8)/ -10/ 6898 DATA IXMAXD( 8)/ 10/ 6899 DATA IXDELD( 8)/ 20/ 6900 DATA ISTARD( 8)/ 64/ 6901 DATA NUMCOO( 8)/ 36/ 6902C 6903C DEFINE CHARACTER 3208--8 6904C 6905 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', -2, 12/ 6906 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -5, 11/ 6907 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', -6, 9/ 6908 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', -6, 6/ 6909 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', -5, 4/ 6910 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', -2, 3/ 6911 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 2, 3/ 6912 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', 5, 4/ 6913 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 6, 6/ 6914 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 6, 9/ 6915 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 5, 11/ 6916 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 2, 12/ 6917 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -2, 12/ 6918 DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE', -4, 11/ 6919 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', -5, 9/ 6920 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', -5, 6/ 6921 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', -4, 4/ 6922 DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE', 4, 4/ 6923 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 5, 6/ 6924 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 5, 9/ 6925 DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW', 4, 11/ 6926 DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE', -2, 12/ 6927 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', -3, 11/ 6928 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', -4, 9/ 6929 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -4, 6/ 6930 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -3, 4/ 6931 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -2, 3/ 6932 DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE', 2, 3/ 6933 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', 3, 4/ 6934 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', 4, 6/ 6935 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', 4, 9/ 6936 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', 3, 11/ 6937 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 2, 12/ 6938 DATA IOPERA( 133),IX( 133),IY( 133)/'MOVE', -2, 3/ 6939 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', -5, 2/ 6940 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', -6, 1/ 6941 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', -7, -1/ 6942 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', -7, -5/ 6943 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', -6, -7/ 6944 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', -5, -8/ 6945 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -2, -9/ 6946 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 2, -9/ 6947 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', 5, -8/ 6948 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 6, -7/ 6949 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 7, -5/ 6950 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 7, -1/ 6951 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 6, 1/ 6952 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 5, 2/ 6953 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 2, 3/ 6954 DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE', -5, 1/ 6955 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', -6, -1/ 6956 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -6, -5/ 6957 DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW', -5, -7/ 6958 DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE', 5, -7/ 6959 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 6, -5/ 6960 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 6, -1/ 6961 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 5, 1/ 6962 DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', -2, 3/ 6963 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -4, 2/ 6964 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -5, -1/ 6965 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -5, -5/ 6966 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -4, -8/ 6967 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -2, -9/ 6968 DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', 2, -9/ 6969 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 4, -8/ 6970 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 5, -5/ 6971 DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', 5, -1/ 6972 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 4, 2/ 6973 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 2, 3/ 6974C 6975 DATA IXMIND( 9)/ -10/ 6976 DATA IXMAXD( 9)/ 10/ 6977 DATA IXDELD( 9)/ 20/ 6978 DATA ISTARD( 9)/ 100/ 6979 DATA NUMCOO( 9)/ 69/ 6980C 6981C DEFINE CHARACTER 3209--9 6982C 6983 DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', -5, -5/ 6984 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -5, -6/ 6985 DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW', -4, -6/ 6986 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -4, -5/ 6987 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -5, -5/ 6988 DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', 5, 3/ 6989 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 4, 1/ 6990 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 3, 0/ 6991 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 1, -1/ 6992 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', -1, -1/ 6993 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', -4, 0/ 6994 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', -6, 2/ 6995 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', -7, 5/ 6996 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -7, 6/ 6997 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', -6, 9/ 6998 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -4, 11/ 6999 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -1, 12/ 7000 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 1, 12/ 7001 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 4, 11/ 7002 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', 6, 9/ 7003 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', 7, 6/ 7004 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', 7, 0/ 7005 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 6, -4/ 7006 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 5, -6/ 7007 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 3, -8/ 7008 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 0, -9/ 7009 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -3, -9/ 7010 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -5, -8/ 7011 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -6, -6/ 7012 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -6, -5/ 7013 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -5, -4/ 7014 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -4, -4/ 7015 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', -3, -5/ 7016 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -3, -6/ 7017 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', -4, -7/ 7018 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', -5, -7/ 7019 DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE', -5, 2/ 7020 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', -6, 4/ 7021 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', -6, 7/ 7022 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -5, 9/ 7023 DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE', 4, 10/ 7024 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', 5, 9/ 7025 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 6, 6/ 7026 DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW', 6, 0/ 7027 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 5, -4/ 7028 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 4, -6/ 7029 DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', -1, -1/ 7030 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -3, 0/ 7031 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -4, 1/ 7032 DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW', -5, 4/ 7033 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -5, 7/ 7034 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', -4, 10/ 7035 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', -3, 11/ 7036 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', -1, 12/ 7037 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', 1, 12/ 7038 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', 3, 11/ 7039 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', 4, 9/ 7040 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', 5, 6/ 7041 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', 5, -1/ 7042 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', 4, -5/ 7043 DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW', 3, -7/ 7044 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', 2, -8/ 7045 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', 0, -9/ 7046C 7047 DATA IXMIND( 10)/ -10/ 7048 DATA IXMAXD( 10)/ 10/ 7049 DATA IXDELD( 10)/ 20/ 7050 DATA ISTARD( 10)/ 169/ 7051 DATA NUMCOO( 10)/ 63/ 7052C 7053C-----START POINT----------------------------------------------------- 7054C 7055 IFOUND='YES' 7056 IERROR='NO' 7057C 7058 NUMCO=1 7059 ISTART=1 7060 ISTOP=1 7061 NC=1 7062C 7063C ****************************************** 7064C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 7065C ** HERSHEY CHARACTER SET CASE ** 7066C ****************************************** 7067C 7068C 7069 IF(IBUGD2.EQ.'OFF')GOTO90 7070 WRITE(ICOUT,999) 7071 999 FORMAT(1X) 7072 CALL DPWRST('XXX','BUG ') 7073 WRITE(ICOUT,51) 7074 51 FORMAT('***** AT THE BEGINNING OF DRTN2--') 7075 CALL DPWRST('XXX','BUG ') 7076 WRITE(ICOUT,52)ICHARN 7077 52 FORMAT('ICHARN = ',I8) 7078 CALL DPWRST('XXX','BUG ') 7079 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 7080 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 7081 CALL DPWRST('XXX','BUG ') 7082 90 CONTINUE 7083C 7084C ************************************** 7085C ** STEP 2-- ** 7086C ** EXTRACT THE COORDINATES ** 7087C ** FOR THIS PARTICULAR CHARACTER. ** 7088C ************************************** 7089C 7090 ISTART=ISTARD(ICHARN) 7091 NC=NUMCOO(ICHARN) 7092 ISTOP=ISTART+NC-1 7093 J=0 7094 DO1100I=ISTART,ISTOP 7095 J=J+1 7096 IOP(J)=IOPERA(I) 7097 X(J)=IX(I) 7098 Y(J)=IY(I) 7099 1100 CONTINUE 7100 NUMCO=J 7101 IXMINS=IXMIND(ICHARN) 7102 IXMAXS=IXMAXD(ICHARN) 7103 IXDELS=IXDELD(ICHARN) 7104C 7105 GOTO9000 7106C 7107C ***************** 7108C ** STEP 90-- ** 7109C ** EXIT ** 7110C ***************** 7111C 7112 9000 CONTINUE 7113 IF(IBUGD2.EQ.'OFF')GOTO9090 7114 WRITE(ICOUT,999) 7115 CALL DPWRST('XXX','BUG ') 7116 WRITE(ICOUT,9011) 7117 9011 FORMAT('***** AT THE END OF DRTN2--') 7118 CALL DPWRST('XXX','BUG ') 7119 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 7120 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 7121 CALL DPWRST('XXX','BUG ') 7122 WRITE(ICOUT,9013)ICHARN 7123 9013 FORMAT('ICHARN = ',I8) 7124 CALL DPWRST('XXX','BUG ') 7125 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 7126 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 7127 CALL DPWRST('XXX','BUG ') 7128 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 7129 DO9015I=1,NUMCO 7130 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 7131 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 7132 CALL DPWRST('XXX','BUG ') 7133 9015 CONTINUE 7134 9019 CONTINUE 7135 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 7136 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 7137 CALL DPWRST('XXX','BUG ') 7138 9090 CONTINUE 7139C 7140 RETURN 7141 END 7142 SUBROUTINE DRTS1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 7143 1IBUGD2,IFOUND,IERROR) 7144C 7145C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 7146C FOR ROMAN TRIPLEX SYMBOLS (PART 1). 7147C WRITTEN BY--JAMES J. FILLIBEN 7148C STATISTICAL ENGINEERING DIVISION 7149C CENTER FOR APPLIED MATHEMATICS 7150C NATIONAL BUREAU OF STANDARDS 7151C WASHINGTON, D. C. 20234 7152C PHONE--301-921-3651 7153C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 7154C OF THE NATIONAL BUREAU OF STANDARDS. 7155C LANGUAGE--ANSI FORTRAN (1977) 7156C VERSION NUMBER--87/4 7157C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 7158C UPDATED --MARCH 1982. 7159C UPDATED --MARCH 1987. 7160C UPDATED --MAY 1982. 7161C 7162C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 7163C 7164 CHARACTER*4 IOP 7165 CHARACTER*4 IBUGD2 7166 CHARACTER*4 IFOUND 7167 CHARACTER*4 IERROR 7168C 7169 CHARACTER*4 IOPERA 7170C 7171C--------------------------------------------------------------------- 7172C 7173 DIMENSION IOP(*) 7174 DIMENSION X(*) 7175 DIMENSION Y(*) 7176C 7177 DIMENSION IOPERA(300) 7178 DIMENSION IX(300) 7179 DIMENSION IY(300) 7180C 7181 DIMENSION IXMIND(30) 7182 DIMENSION IXMAXD(30) 7183 DIMENSION IXDELD(30) 7184 DIMENSION ISTARD(30) 7185 DIMENSION NUMCOO(30) 7186C 7187C-----COMMON---------------------------------------------------------- 7188C 7189 INCLUDE 'DPCOP2.INC' 7190C 7191C-----DATA STATEMENTS------------------------------------------------- 7192C 7193C DEFINE CHARACTER 3210--. (PERIOD) 7194C 7195 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 0, -6/ 7196 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -1, -7/ 7197 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -1, -8/ 7198 DATA IOPERA( 4),IX( 4),IY( 4)/'DRAW', 0, -9/ 7199 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 1, -9/ 7200 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', 2, -8/ 7201 DATA IOPERA( 7),IX( 7),IY( 7)/'DRAW', 2, -7/ 7202 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 1, -6/ 7203 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', 0, -6/ 7204 DATA IOPERA( 10),IX( 10),IY( 10)/'MOVE', 0, -7/ 7205 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', 0, -8/ 7206 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', 1, -8/ 7207 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', 1, -7/ 7208 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', 0, -7/ 7209C 7210 DATA IXMIND( 1)/ -5/ 7211 DATA IXMAXD( 1)/ 6/ 7212 DATA IXDELD( 1)/ 11/ 7213 DATA ISTARD( 1)/ 1/ 7214 DATA NUMCOO( 1)/ 14/ 7215C 7216C DEFINE CHARACTER 3211--, (COMMA) 7217C 7218 DATA IOPERA( 15),IX( 15),IY( 15)/'MOVE', 2, -8/ 7219 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 1, -9/ 7220 DATA IOPERA( 17),IX( 17),IY( 17)/'DRAW', 0, -9/ 7221 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -1, -8/ 7222 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -1, -7/ 7223 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', 0, -6/ 7224 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', 1, -6/ 7225 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', 2, -7/ 7226 DATA IOPERA( 23),IX( 23),IY( 23)/'DRAW', 2, -10/ 7227 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 1, -12/ 7228 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, -13/ 7229 DATA IOPERA( 26),IX( 26),IY( 26)/'MOVE', 0, -7/ 7230 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', 0, -8/ 7231 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', 1, -8/ 7232 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 1, -7/ 7233 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 0, -7/ 7234 DATA IOPERA( 31),IX( 31),IY( 31)/'MOVE', 1, -9/ 7235 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', 2, -10/ 7236 DATA IOPERA( 33),IX( 33),IY( 33)/'MOVE', 2, -8/ 7237 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 1, -12/ 7238C 7239 DATA IXMIND( 2)/ -5/ 7240 DATA IXMAXD( 2)/ 6/ 7241 DATA IXDELD( 2)/ 11/ 7242 DATA ISTARD( 2)/ 15/ 7243 DATA NUMCOO( 2)/ 20/ 7244C 7245C DEFINE CHARACTER 3212--: (COLON) 7246C 7247 DATA IOPERA( 35),IX( 35),IY( 35)/'MOVE', 0, 5/ 7248 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', -1, 4/ 7249 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', -1, 3/ 7250 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 0, 2/ 7251 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', 1, 2/ 7252 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', 2, 3/ 7253 DATA IOPERA( 41),IX( 41),IY( 41)/'DRAW', 2, 4/ 7254 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 1, 5/ 7255 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 0, 5/ 7256 DATA IOPERA( 44),IX( 44),IY( 44)/'MOVE', 0, 4/ 7257 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 0, 3/ 7258 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 1, 3/ 7259 DATA IOPERA( 47),IX( 47),IY( 47)/'DRAW', 1, 4/ 7260 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 0, 4/ 7261 DATA IOPERA( 49),IX( 49),IY( 49)/'MOVE', 0, -6/ 7262 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', -1, -7/ 7263 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', -1, -8/ 7264 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 0, -9/ 7265 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 1, -9/ 7266 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', 2, -8/ 7267 DATA IOPERA( 55),IX( 55),IY( 55)/'DRAW', 2, -7/ 7268 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', 1, -6/ 7269 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 0, -6/ 7270 DATA IOPERA( 58),IX( 58),IY( 58)/'MOVE', 0, -7/ 7271 DATA IOPERA( 59),IX( 59),IY( 59)/'DRAW', 0, -8/ 7272 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 1, -8/ 7273 DATA IOPERA( 61),IX( 61),IY( 61)/'DRAW', 1, -7/ 7274 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 0, -7/ 7275C 7276 DATA IXMIND( 3)/ -5/ 7277 DATA IXMAXD( 3)/ 6/ 7278 DATA IXDELD( 3)/ 11/ 7279 DATA ISTARD( 3)/ 35/ 7280 DATA NUMCOO( 3)/ 28/ 7281C 7282C DEFINE CHARACTER 3213--; (SEMICOLON) 7283C 7284 DATA IOPERA( 63),IX( 63),IY( 63)/'MOVE', 0, 5/ 7285 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', -1, 4/ 7286 DATA IOPERA( 65),IX( 65),IY( 65)/'DRAW', -1, 3/ 7287 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', 0, 2/ 7288 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 1, 2/ 7289 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 2, 3/ 7290 DATA IOPERA( 69),IX( 69),IY( 69)/'DRAW', 2, 4/ 7291 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 1, 5/ 7292 DATA IOPERA( 71),IX( 71),IY( 71)/'DRAW', 0, 5/ 7293 DATA IOPERA( 72),IX( 72),IY( 72)/'MOVE', 0, 4/ 7294 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 0, 3/ 7295 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 1, 3/ 7296 DATA IOPERA( 75),IX( 75),IY( 75)/'DRAW', 1, 4/ 7297 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 0, 4/ 7298 DATA IOPERA( 77),IX( 77),IY( 77)/'MOVE', 2, -8/ 7299 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', 1, -9/ 7300 DATA IOPERA( 79),IX( 79),IY( 79)/'DRAW', 0, -9/ 7301 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -1, -8/ 7302 DATA IOPERA( 81),IX( 81),IY( 81)/'DRAW', -1, -7/ 7303 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 0, -6/ 7304 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', 1, -6/ 7305 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', 2, -7/ 7306 DATA IOPERA( 85),IX( 85),IY( 85)/'DRAW', 2, -10/ 7307 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 1, -12/ 7308 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', -1, -13/ 7309 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', 0, -7/ 7310 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', 0, -8/ 7311 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 1, -8/ 7312 DATA IOPERA( 91),IX( 91),IY( 91)/'DRAW', 1, -7/ 7313 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 0, -7/ 7314 DATA IOPERA( 93),IX( 93),IY( 93)/'MOVE', 1, -9/ 7315 DATA IOPERA( 94),IX( 94),IY( 94)/'DRAW', 2, -10/ 7316 DATA IOPERA( 95),IX( 95),IY( 95)/'MOVE', 2, -8/ 7317 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 1, -12/ 7318C 7319 DATA IXMIND( 4)/ -5/ 7320 DATA IXMAXD( 4)/ 6/ 7321 DATA IXDELD( 4)/ 11/ 7322 DATA ISTARD( 4)/ 63/ 7323 DATA NUMCOO( 4)/ 34/ 7324C 7325C DEFINE CHARACTER 3214--! (EXCLAMATION POINT) 7326C 7327 DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', 0, 12/ 7328 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', -1, 11/ 7329 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', -1, 9/ 7330 DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW', 0, 1/ 7331 DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE', 0, 12/ 7332 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 0, -2/ 7333 DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW', 1, -2/ 7334 DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE', 0, 12/ 7335 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 1, 12/ 7336 DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW', 1, -2/ 7337 DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE', 1, 12/ 7338 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 2, 11/ 7339 DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW', 2, 9/ 7340 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 1, 1/ 7341 DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE', 0, -6/ 7342 DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW', -1, -7/ 7343 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -1, -8/ 7344 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 0, -9/ 7345 DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW', 1, -9/ 7346 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 2, -8/ 7347 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 2, -7/ 7348 DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW', 1, -6/ 7349 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 0, -6/ 7350 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', 0, -7/ 7351 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 0, -8/ 7352 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 1, -8/ 7353 DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW', 1, -7/ 7354 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', 0, -7/ 7355C 7356 DATA IXMIND( 5)/ -5/ 7357 DATA IXMAXD( 5)/ 6/ 7358 DATA IXDELD( 5)/ 11/ 7359 DATA ISTARD( 5)/ 97/ 7360 DATA NUMCOO( 5)/ 28/ 7361C 7362C DEFINE CHARACTER 3215--? (QUESTION MARK) 7363C 7364 DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE', -5, 7/ 7365 DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW', -5, 8/ 7366 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -4, 8/ 7367 DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW', -4, 6/ 7368 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -6, 6/ 7369 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -6, 8/ 7370 DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW', -5, 10/ 7371 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', -4, 11/ 7372 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', -2, 12/ 7373 DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW', 2, 12/ 7374 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 5, 11/ 7375 DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW', 6, 10/ 7376 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 7, 8/ 7377 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 7, 6/ 7378 DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW', 6, 4/ 7379 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', 5, 3/ 7380 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', 1, 1/ 7381 DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE', 5, 10/ 7382 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', 6, 9/ 7383 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', 6, 5/ 7384 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 5, 4/ 7385 DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE', 2, 12/ 7386 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 4, 11/ 7387 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 5, 9/ 7388 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 5, 5/ 7389 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 4, 3/ 7390 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', 3, 2/ 7391 DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE', 0, 1/ 7392 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', 0, -2/ 7393 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', 1, -2/ 7394 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 1, 1/ 7395 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 0, 1/ 7396 DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE', 0, -6/ 7397 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -1, -7/ 7398 DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW', -1, -8/ 7399 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', 0, -9/ 7400 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', 1, -9/ 7401 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', 2, -8/ 7402 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 2, -7/ 7403 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 1, -6/ 7404 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 0, -6/ 7405 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', 0, -7/ 7406 DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', 0, -8/ 7407 DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', 1, -8/ 7408 DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', 1, -7/ 7409 DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', 0, -7/ 7410C 7411 DATA IXMIND( 6)/ -9/ 7412 DATA IXMAXD( 6)/ 10/ 7413 DATA IXDELD( 6)/ 19/ 7414 DATA ISTARD( 6)/ 125/ 7415 DATA NUMCOO( 6)/ 46/ 7416C 7417C DEFINE CHARACTER 3218--& (AMPERSAND) 7418C 7419 DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 9, 3/ 7420 DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', 9, 4/ 7421 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 8, 4/ 7422 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', 8, 2/ 7423 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', 10, 2/ 7424 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 10, 4/ 7425 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 9, 5/ 7426 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 8, 5/ 7427 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 7, 4/ 7428 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 6, 2/ 7429 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 4, -3/ 7430 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', 2, -6/ 7431 DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW', 0, -8/ 7432 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', -2, -9/ 7433 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', -6, -9/ 7434 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', -8, -8/ 7435 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', -9, -6/ 7436 DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW', -9, -3/ 7437 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -8, -1/ 7438 DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -2, 3/ 7439 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 0, 5/ 7440 DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW', 1, 7/ 7441 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 1, 9/ 7442 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 0, 11/ 7443 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -2, 12/ 7444 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -4, 11/ 7445 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', -5, 9/ 7446 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', -5, 6/ 7447 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', -4, 3/ 7448 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', -2, 0/ 7449 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 2, -5/ 7450 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', 5, -8/ 7451 DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW', 7, -9/ 7452 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 9, -9/ 7453 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 10, -7/ 7454 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 10, -6/ 7455 DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE', -7, -8/ 7456 DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW', -8, -6/ 7457 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -8, -3/ 7458 DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -7, -1/ 7459 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -6, 0/ 7460 DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', 0, 5/ 7461 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 1, 9/ 7462 DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE', 1, 7/ 7463 DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW', 0, 11/ 7464 DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE', -4, 11/ 7465 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -5, 7/ 7466 DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -4, 4/ 7467 DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -2, 1/ 7468 DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW', 2, -4/ 7469 DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW', 5, -7/ 7470 DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW', 7, -8/ 7471 DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE', -4, -9/ 7472 DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW', -6, -8/ 7473 DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW', -7, -6/ 7474 DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW', -7, -3/ 7475 DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW', -6, -1/ 7476 DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW', -2, 3/ 7477 DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE', -5, 9/ 7478 DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW', -4, 5/ 7479 DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW', -1, 1/ 7480 DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW', 3, -4/ 7481 DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW', 6, -7/ 7482 DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', 8, -8/ 7483 DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', 9, -8/ 7484 DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW', 10, -7/ 7485C 7486 DATA IXMIND( 7)/ -13/ 7487 DATA IXMAXD( 7)/ 13/ 7488 DATA IXDELD( 7)/ 26/ 7489 DATA ISTARD( 7)/ 171/ 7490 DATA NUMCOO( 7)/ 66/ 7491C 7492C DEFINE CHARACTER 3219--$ (DOLLAR SIGN) 7493C 7494 DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE', -2, 16/ 7495 DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW', -2, -13/ 7496 DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE', 2, 16/ 7497 DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW', 2, -13/ 7498 DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE', 6, 7/ 7499 DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW', 6, 8/ 7500 DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW', 5, 8/ 7501 DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW', 5, 6/ 7502 DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW', 7, 6/ 7503 DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW', 7, 8/ 7504 DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW', 6, 10/ 7505 DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW', 5, 11/ 7506 DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', 2, 12/ 7507 DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW', -2, 12/ 7508 DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', -5, 11/ 7509 DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -7, 9/ 7510 DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -7, 6/ 7511 DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW', -6, 4/ 7512 DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW', -3, 2/ 7513 DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', 3, 0/ 7514 DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW', 5, -1/ 7515 DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW', 6, -3/ 7516 DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW', 6, -6/ 7517 DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW', 5, -8/ 7518 DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE', -6, 6/ 7519 DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW', -5, 4/ 7520 DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW', -3, 3/ 7521 DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', 3, 1/ 7522 DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', 5, 0/ 7523 DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW', 6, -2/ 7524 DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE', -5, 11/ 7525 DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW', -6, 9/ 7526 DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW', -6, 7/ 7527 DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW', -5, 5/ 7528 DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -3, 4/ 7529 DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW', 3, 2/ 7530 DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', 6, 0/ 7531 DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW', 7, -2/ 7532 DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW', 7, -5/ 7533 DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW', 6, -7/ 7534 DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW', 5, -8/ 7535 DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW', 2, -9/ 7536 DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW', -2, -9/ 7537 DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW', -5, -8/ 7538 DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW', -6, -7/ 7539 DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW', -7, -5/ 7540 DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW', -7, -3/ 7541 DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW', -5, -3/ 7542 DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW', -5, -5/ 7543 DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW', -6, -5/ 7544 DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW', -6, -4/ 7545C 7546 DATA IXMIND( 8)/ -10/ 7547 DATA IXMAXD( 8)/ 10/ 7548 DATA IXDELD( 8)/ 20/ 7549 DATA ISTARD( 8)/ 237/ 7550 DATA NUMCOO( 8)/ 51/ 7551C 7552C-----START POINT----------------------------------------------------- 7553C 7554 IFOUND='YES' 7555 IERROR='NO' 7556C 7557 NUMCO=1 7558 ISTART=1 7559 ISTOP=1 7560 NC=1 7561C 7562C ****************************************** 7563C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 7564C ** HERSHEY CHARACTER SET CASE ** 7565C ****************************************** 7566C 7567C 7568 IF(IBUGD2.EQ.'OFF')GOTO90 7569 WRITE(ICOUT,999) 7570 999 FORMAT(1X) 7571 CALL DPWRST('XXX','BUG ') 7572 WRITE(ICOUT,51) 7573 51 FORMAT('***** AT THE BEGINNING OF DRTS1--') 7574 CALL DPWRST('XXX','BUG ') 7575 WRITE(ICOUT,52)ICHARN 7576 52 FORMAT('ICHARN = ',I8) 7577 CALL DPWRST('XXX','BUG ') 7578 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 7579 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 7580 CALL DPWRST('XXX','BUG ') 7581 90 CONTINUE 7582C 7583C ************************************** 7584C ** STEP 2-- ** 7585C ** EXTRACT THE COORDINATES ** 7586C ** FOR THIS PARTICULAR CHARACTER. ** 7587C ************************************** 7588C 7589 ISTART=ISTARD(ICHARN) 7590 NC=NUMCOO(ICHARN) 7591 ISTOP=ISTART+NC-1 7592 J=0 7593 DO1100I=ISTART,ISTOP 7594 J=J+1 7595 IOP(J)=IOPERA(I) 7596 X(J)=IX(I) 7597 Y(J)=IY(I) 7598 1100 CONTINUE 7599 NUMCO=J 7600 IXMINS=IXMIND(ICHARN) 7601 IXMAXS=IXMAXD(ICHARN) 7602 IXDELS=IXDELD(ICHARN) 7603C 7604 GOTO9000 7605C 7606C ***************** 7607C ** STEP 90-- ** 7608C ** EXIT ** 7609C ***************** 7610C 7611 9000 CONTINUE 7612 IF(IBUGD2.EQ.'OFF')GOTO9090 7613 WRITE(ICOUT,999) 7614 CALL DPWRST('XXX','BUG ') 7615 WRITE(ICOUT,9011) 7616 9011 FORMAT('***** AT THE END OF DRTS1--') 7617 CALL DPWRST('XXX','BUG ') 7618 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 7619 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 7620 CALL DPWRST('XXX','BUG ') 7621 WRITE(ICOUT,9013)ICHARN 7622 9013 FORMAT('ICHARN = ',I8) 7623 CALL DPWRST('XXX','BUG ') 7624 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 7625 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 7626 CALL DPWRST('XXX','BUG ') 7627 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 7628 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 7629 DO9015I=1,NUMCO 7630 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 7631 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 7632 CALL DPWRST('XXX','BUG ') 7633 9015 CONTINUE 7634 9019 CONTINUE 7635 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 7636 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 7637 CALL DPWRST('XXX','BUG ') 7638 9090 CONTINUE 7639C 7640 RETURN 7641 END 7642 SUBROUTINE DRTS2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS, 7643 1IBUGD2,IFOUND,IERROR) 7644C 7645C PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES 7646C FOR ROMAN TRIPLEX SYMBOLS (PART 2). 7647C WRITTEN BY--JAMES J. FILLIBEN 7648C STATISTICAL ENGINEERING DIVISION 7649C CENTER FOR APPLIED MATHEMATICS 7650C NATIONAL BUREAU OF STANDARDS 7651C WASHINGTON, D. C. 20234 7652C PHONE--301-921-3651 7653C NOTE--DATAPLOT IS A REGISTERED TRADEMARK 7654C OF THE NATIONAL BUREAU OF STANDARDS. 7655C LANGUAGE--ANSI FORTRAN (1977) 7656C VERSION NUMBER--87/4 7657C ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH 1981. 7658C UPDATED --MARCH 1982. 7659C UPDATED --MAY 1982. 7660C UPDATED --MARCH 1987. 7661C UPDATED --MAY 1987. 7662C 7663C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES------------------- 7664C 7665 CHARACTER*4 IOP 7666 CHARACTER*4 IBUGD2 7667 CHARACTER*4 IFOUND 7668 CHARACTER*4 IERROR 7669C 7670 CHARACTER*4 IOPERA 7671C 7672C--------------------------------------------------------------------- 7673C 7674 DIMENSION IOP(*) 7675 DIMENSION X(*) 7676 DIMENSION Y(*) 7677C 7678 DIMENSION IOPERA(300) 7679 DIMENSION IX(300) 7680 DIMENSION IY(300) 7681C 7682 DIMENSION IXMIND(30) 7683 DIMENSION IXMAXD(30) 7684 DIMENSION IXDELD(30) 7685 DIMENSION ISTARD(30) 7686 DIMENSION NUMCOO(30) 7687C 7688C-----COMMON---------------------------------------------------------- 7689C 7690 INCLUDE 'DPCOP2.INC' 7691C 7692C-----DATA STATEMENTS------------------------------------------------- 7693C 7694C DEFINE CHARACTER 3220--/ (SLASH) 7695C 7696 DATA IOPERA( 1),IX( 1),IY( 1)/'MOVE', 9, 16/ 7697 DATA IOPERA( 2),IX( 2),IY( 2)/'DRAW', -9, -16/ 7698 DATA IOPERA( 3),IX( 3),IY( 3)/'DRAW', -8, -16/ 7699 DATA IOPERA( 4),IX( 4),IY( 4)/'MOVE', 9, 16/ 7700 DATA IOPERA( 5),IX( 5),IY( 5)/'DRAW', 10, 16/ 7701 DATA IOPERA( 6),IX( 6),IY( 6)/'DRAW', -8, -16/ 7702C 7703 DATA IXMIND( 9)/ -11/ 7704 DATA IXMAXD( 9)/ 12/ 7705 DATA IXDELD( 9)/ 23/ 7706 DATA ISTARD( 9)/ 1/ 7707 DATA NUMCOO( 9)/ 6/ 7708C 7709C DEFINE CHARACTER 3221--( (LEFT PARENTHESES) 7710C 7711 DATA IOPERA( 7),IX( 7),IY( 7)/'MOVE', 3, 16/ 7712 DATA IOPERA( 8),IX( 8),IY( 8)/'DRAW', 1, 14/ 7713 DATA IOPERA( 9),IX( 9),IY( 9)/'DRAW', -1, 11/ 7714 DATA IOPERA( 10),IX( 10),IY( 10)/'DRAW', -3, 7/ 7715 DATA IOPERA( 11),IX( 11),IY( 11)/'DRAW', -4, 2/ 7716 DATA IOPERA( 12),IX( 12),IY( 12)/'DRAW', -4, -2/ 7717 DATA IOPERA( 13),IX( 13),IY( 13)/'DRAW', -3, -7/ 7718 DATA IOPERA( 14),IX( 14),IY( 14)/'DRAW', -1, -11/ 7719 DATA IOPERA( 15),IX( 15),IY( 15)/'DRAW', 1, -14/ 7720 DATA IOPERA( 16),IX( 16),IY( 16)/'DRAW', 3, -16/ 7721 DATA IOPERA( 17),IX( 17),IY( 17)/'MOVE', -1, 10/ 7722 DATA IOPERA( 18),IX( 18),IY( 18)/'DRAW', -2, 7/ 7723 DATA IOPERA( 19),IX( 19),IY( 19)/'DRAW', -3, 3/ 7724 DATA IOPERA( 20),IX( 20),IY( 20)/'DRAW', -3, -3/ 7725 DATA IOPERA( 21),IX( 21),IY( 21)/'DRAW', -2, -7/ 7726 DATA IOPERA( 22),IX( 22),IY( 22)/'DRAW', -1, -10/ 7727 DATA IOPERA( 23),IX( 23),IY( 23)/'MOVE', 1, 14/ 7728 DATA IOPERA( 24),IX( 24),IY( 24)/'DRAW', 0, 12/ 7729 DATA IOPERA( 25),IX( 25),IY( 25)/'DRAW', -1, 9/ 7730 DATA IOPERA( 26),IX( 26),IY( 26)/'DRAW', -2, 3/ 7731 DATA IOPERA( 27),IX( 27),IY( 27)/'DRAW', -2, -3/ 7732 DATA IOPERA( 28),IX( 28),IY( 28)/'DRAW', -1, -9/ 7733 DATA IOPERA( 29),IX( 29),IY( 29)/'DRAW', 0, -12/ 7734 DATA IOPERA( 30),IX( 30),IY( 30)/'DRAW', 1, -14/ 7735C 7736 DATA IXMIND( 10)/ -7/ 7737 DATA IXMAXD( 10)/ 7/ 7738 DATA IXDELD( 10)/ 14/ 7739 DATA ISTARD( 10)/ 7/ 7740 DATA NUMCOO( 10)/ 24/ 7741C 7742C DEFINE CHARACTER 3222--) (RIGHT PARENTHESES) 7743C 7744 DATA IOPERA( 31),IX( 31),IY( 31)/'MOVE', -3, 16/ 7745 DATA IOPERA( 32),IX( 32),IY( 32)/'DRAW', -1, 14/ 7746 DATA IOPERA( 33),IX( 33),IY( 33)/'DRAW', 1, 11/ 7747 DATA IOPERA( 34),IX( 34),IY( 34)/'DRAW', 3, 7/ 7748 DATA IOPERA( 35),IX( 35),IY( 35)/'DRAW', 4, 2/ 7749 DATA IOPERA( 36),IX( 36),IY( 36)/'DRAW', 4, -2/ 7750 DATA IOPERA( 37),IX( 37),IY( 37)/'DRAW', 3, -7/ 7751 DATA IOPERA( 38),IX( 38),IY( 38)/'DRAW', 1, -11/ 7752 DATA IOPERA( 39),IX( 39),IY( 39)/'DRAW', -1, -14/ 7753 DATA IOPERA( 40),IX( 40),IY( 40)/'DRAW', -3, -16/ 7754 DATA IOPERA( 41),IX( 41),IY( 41)/'MOVE', 1, 10/ 7755 DATA IOPERA( 42),IX( 42),IY( 42)/'DRAW', 2, 7/ 7756 DATA IOPERA( 43),IX( 43),IY( 43)/'DRAW', 3, 3/ 7757 DATA IOPERA( 44),IX( 44),IY( 44)/'DRAW', 3, -3/ 7758 DATA IOPERA( 45),IX( 45),IY( 45)/'DRAW', 2, -7/ 7759 DATA IOPERA( 46),IX( 46),IY( 46)/'DRAW', 1, -10/ 7760 DATA IOPERA( 47),IX( 47),IY( 47)/'MOVE', -1, 14/ 7761 DATA IOPERA( 48),IX( 48),IY( 48)/'DRAW', 0, 12/ 7762 DATA IOPERA( 49),IX( 49),IY( 49)/'DRAW', 1, 9/ 7763 DATA IOPERA( 50),IX( 50),IY( 50)/'DRAW', 2, 3/ 7764 DATA IOPERA( 51),IX( 51),IY( 51)/'DRAW', 2, -3/ 7765 DATA IOPERA( 52),IX( 52),IY( 52)/'DRAW', 1, -9/ 7766 DATA IOPERA( 53),IX( 53),IY( 53)/'DRAW', 0, -12/ 7767 DATA IOPERA( 54),IX( 54),IY( 54)/'DRAW', -1, -14/ 7768C 7769 DATA IXMIND( 11)/ -7/ 7770 DATA IXMAXD( 11)/ 7/ 7771 DATA IXDELD( 11)/ 14/ 7772 DATA ISTARD( 11)/ 31/ 7773 DATA NUMCOO( 11)/ 24/ 7774C 7775C DEFINE CHARACTER 3223--* (ASTERISK) 7776C 7777 DATA IOPERA( 55),IX( 55),IY( 55)/'MOVE', 0, 12/ 7778 DATA IOPERA( 56),IX( 56),IY( 56)/'DRAW', -1, 11/ 7779 DATA IOPERA( 57),IX( 57),IY( 57)/'DRAW', 1, 1/ 7780 DATA IOPERA( 58),IX( 58),IY( 58)/'DRAW', 0, 0/ 7781 DATA IOPERA( 59),IX( 59),IY( 59)/'MOVE', 0, 12/ 7782 DATA IOPERA( 60),IX( 60),IY( 60)/'DRAW', 0, 0/ 7783 DATA IOPERA( 61),IX( 61),IY( 61)/'MOVE', 0, 12/ 7784 DATA IOPERA( 62),IX( 62),IY( 62)/'DRAW', 1, 11/ 7785 DATA IOPERA( 63),IX( 63),IY( 63)/'DRAW', -1, 1/ 7786 DATA IOPERA( 64),IX( 64),IY( 64)/'DRAW', 0, 0/ 7787 DATA IOPERA( 65),IX( 65),IY( 65)/'MOVE', -5, 9/ 7788 DATA IOPERA( 66),IX( 66),IY( 66)/'DRAW', -4, 9/ 7789 DATA IOPERA( 67),IX( 67),IY( 67)/'DRAW', 4, 3/ 7790 DATA IOPERA( 68),IX( 68),IY( 68)/'DRAW', 5, 3/ 7791 DATA IOPERA( 69),IX( 69),IY( 69)/'MOVE', -5, 9/ 7792 DATA IOPERA( 70),IX( 70),IY( 70)/'DRAW', 5, 3/ 7793 DATA IOPERA( 71),IX( 71),IY( 71)/'MOVE', -5, 9/ 7794 DATA IOPERA( 72),IX( 72),IY( 72)/'DRAW', -5, 8/ 7795 DATA IOPERA( 73),IX( 73),IY( 73)/'DRAW', 5, 4/ 7796 DATA IOPERA( 74),IX( 74),IY( 74)/'DRAW', 5, 3/ 7797 DATA IOPERA( 75),IX( 75),IY( 75)/'MOVE', 5, 9/ 7798 DATA IOPERA( 76),IX( 76),IY( 76)/'DRAW', 4, 9/ 7799 DATA IOPERA( 77),IX( 77),IY( 77)/'DRAW', -4, 3/ 7800 DATA IOPERA( 78),IX( 78),IY( 78)/'DRAW', -5, 3/ 7801 DATA IOPERA( 79),IX( 79),IY( 79)/'MOVE', 5, 9/ 7802 DATA IOPERA( 80),IX( 80),IY( 80)/'DRAW', -5, 3/ 7803 DATA IOPERA( 81),IX( 81),IY( 81)/'MOVE', 5, 9/ 7804 DATA IOPERA( 82),IX( 82),IY( 82)/'DRAW', 5, 8/ 7805 DATA IOPERA( 83),IX( 83),IY( 83)/'DRAW', -5, 4/ 7806 DATA IOPERA( 84),IX( 84),IY( 84)/'DRAW', -5, 3/ 7807C 7808 DATA IXMIND( 12)/ -8/ 7809 DATA IXMAXD( 12)/ 8/ 7810 DATA IXDELD( 12)/ 16/ 7811 DATA ISTARD( 12)/ 55/ 7812 DATA NUMCOO( 12)/ 30/ 7813C 7814C DEFINE CHARACTER 3224--- (HYPHEN OR MINUS SIGN) 7815C 7816 DATA IOPERA( 85),IX( 85),IY( 85)/'MOVE', -8, 1/ 7817 DATA IOPERA( 86),IX( 86),IY( 86)/'DRAW', 9, 1/ 7818 DATA IOPERA( 87),IX( 87),IY( 87)/'DRAW', 9, 0/ 7819 DATA IOPERA( 88),IX( 88),IY( 88)/'MOVE', -8, 1/ 7820 DATA IOPERA( 89),IX( 89),IY( 89)/'DRAW', -8, 0/ 7821 DATA IOPERA( 90),IX( 90),IY( 90)/'DRAW', 9, 0/ 7822C 7823 DATA IXMIND( 13)/ -12/ 7824 DATA IXMAXD( 13)/ 13/ 7825 DATA IXDELD( 13)/ 25/ 7826 DATA ISTARD( 13)/ 85/ 7827 DATA NUMCOO( 13)/ 6/ 7828C 7829C DEFINE CHARACTER 3225--+ (PLUS SIGN) 7830C 7831 DATA IOPERA( 91),IX( 91),IY( 91)/'MOVE', 0, 9/ 7832 DATA IOPERA( 92),IX( 92),IY( 92)/'DRAW', 0, -8/ 7833 DATA IOPERA( 93),IX( 93),IY( 93)/'DRAW', 1, -8/ 7834 DATA IOPERA( 94),IX( 94),IY( 94)/'MOVE', 0, 9/ 7835 DATA IOPERA( 95),IX( 95),IY( 95)/'DRAW', 1, 9/ 7836 DATA IOPERA( 96),IX( 96),IY( 96)/'DRAW', 1, -8/ 7837 DATA IOPERA( 97),IX( 97),IY( 97)/'MOVE', -8, 1/ 7838 DATA IOPERA( 98),IX( 98),IY( 98)/'DRAW', 9, 1/ 7839 DATA IOPERA( 99),IX( 99),IY( 99)/'DRAW', 9, 0/ 7840 DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE', -8, 1/ 7841 DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW', -8, 0/ 7842 DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW', 9, 0/ 7843C 7844 DATA IXMIND( 14)/ -12/ 7845 DATA IXMAXD( 14)/ 13/ 7846 DATA IXDELD( 14)/ 25/ 7847 DATA ISTARD( 14)/ 91/ 7848 DATA NUMCOO( 14)/ 12/ 7849C 7850C DEFINE CHARACTER 3226--= (EQUAL SIGN) 7851C 7852 DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE', -8, 5/ 7853 DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW', 9, 5/ 7854 DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW', 9, 4/ 7855 DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE', -8, 5/ 7856 DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW', -8, 4/ 7857 DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW', 9, 4/ 7858 DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE', -8, -3/ 7859 DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW', 9, -3/ 7860 DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW', 9, -4/ 7861 DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE', -8, -3/ 7862 DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW', -8, -4/ 7863 DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW', 9, -4/ 7864C 7865 DATA IXMIND( 15)/ -12/ 7866 DATA IXMAXD( 15)/ 13/ 7867 DATA IXDELD( 15)/ 25/ 7868 DATA ISTARD( 15)/ 103/ 7869 DATA NUMCOO( 15)/ 12/ 7870C 7871C DEFINE CHARACTER 3227--' (SINGLE QUOTE) 7872C 7873 DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE', 1, 12/ 7874 DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW', 0, 11/ 7875 DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW', 0, 5/ 7876 DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE', 1, 11/ 7877 DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', 0, 5/ 7878 DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE', 1, 12/ 7879 DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', 2, 11/ 7880 DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW', 0, 5/ 7881C 7882 DATA IXMIND( 16)/ -4/ 7883 DATA IXMAXD( 16)/ 5/ 7884 DATA IXDELD( 16)/ 9/ 7885 DATA ISTARD( 16)/ 115/ 7886 DATA NUMCOO( 16)/ 8/ 7887C 7888C DEFINE CHARACTER 3228-- (DOUBLE QUOTE) 7889C 7890 DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE', -4, 12/ 7891 DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW', -5, 11/ 7892 DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW', -5, 5/ 7893 DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE', -4, 11/ 7894 DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW', -5, 5/ 7895 DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE', -4, 12/ 7896 DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW', -3, 11/ 7897 DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW', -5, 5/ 7898 DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE', 5, 12/ 7899 DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW', 4, 11/ 7900 DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW', 4, 5/ 7901 DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', 5, 11/ 7902 DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW', 4, 5/ 7903 DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE', 5, 12/ 7904 DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW', 6, 11/ 7905 DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW', 4, 5/ 7906C 7907 DATA IXMIND( 17)/ -9/ 7908 DATA IXMAXD( 17)/ 9/ 7909 DATA IXDELD( 17)/ 18/ 7910 DATA ISTARD( 17)/ 123/ 7911 DATA NUMCOO( 17)/ 16/ 7912C 7913C DEFINE CHARACTER 3229-- (DEGREES) 7914C 7915 DATA IOPERA( 139),IX( 139),IY( 139)/'MOVE', -1, 12/ 7916 DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW', -3, 11/ 7917 DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW', -4, 9/ 7918 DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW', -4, 7/ 7919 DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -3, 5/ 7920 DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW', -1, 4/ 7921 DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW', 1, 4/ 7922 DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW', 3, 5/ 7923 DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW', 4, 7/ 7924 DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW', 4, 9/ 7925 DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW', 3, 11/ 7926 DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW', 1, 12/ 7927 DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW', -1, 12/ 7928 DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE', -1, 12/ 7929 DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW', -4, 9/ 7930 DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW', -3, 5/ 7931 DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW', 1, 4/ 7932 DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW', 4, 7/ 7933 DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW', 3, 11/ 7934 DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW', -1, 12/ 7935 DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE', 1, 12/ 7936 DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW', -3, 11/ 7937 DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW', -4, 7/ 7938 DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW', -1, 4/ 7939 DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW', 3, 5/ 7940 DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', 4, 9/ 7941 DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', 1, 12/ 7942C 7943 DATA IXMIND( 18)/ -7/ 7944 DATA IXMAXD( 18)/ 7/ 7945 DATA IXDELD( 18)/ 14/ 7946 DATA ISTARD( 18)/ 139/ 7947 DATA NUMCOO( 18)/ 27/ 7948C 7949C DEFINE CHARACTER 3247-- (NO SPACE BLANK) 7950C 7951 DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE', 0, -32/ 7952 DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE', 0, -32/ 7953C 7954 DATA IXMIND( 19)/ 0/ 7955 DATA IXMAXD( 19)/ 0/ 7956 DATA IXDELD( 19)/ 0/ 7957 DATA ISTARD( 19)/ 166/ 7958 DATA NUMCOO( 19)/ 2/ 7959C 7960C DEFINE CHARACTER 3248-- (HALF SPACE BLANK) 7961C 7962 DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE', -4, -32/ 7963 DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE', 4, -32/ 7964C 7965 DATA IXMIND( 20)/ -5/ 7966 DATA IXMAXD( 20)/ 5/ 7967 DATA IXDELD( 20)/ 10/ 7968 DATA ISTARD( 20)/ 168/ 7969 DATA NUMCOO( 20)/ 2/ 7970C 7971C DEFINE CHARACTER 3249-- (FULL SPACE BLANK) 7972C 7973 DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE', -8, -32/ 7974 DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', 8, -32/ 7975C 7976 DATA IXMIND( 21)/ -10/ 7977 DATA IXMAXD( 21)/ 10/ 7978 DATA IXDELD( 21)/ 20/ 7979 DATA ISTARD( 21)/ 170/ 7980 DATA NUMCOO( 21)/ 2/ 7981C 7982C DEFINE CHARACTER 3216-- (LEFT APOSTRAPHE) 7983C 7984 DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE', 2, 12/ 7985 DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', 0, 11/ 7986 DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW', -1, 9/ 7987 DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -1, 6/ 7988 DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', 0, 5/ 7989 DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', 1, 5/ 7990 DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW', 2, 6/ 7991 DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW', 2, 7/ 7992 DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW', 1, 8/ 7993 DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW', 0, 8/ 7994 DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW', -1, 7/ 7995 DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE', 0, 7/ 7996 DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW', 0, 6/ 7997 DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW', 1, 6/ 7998 DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW', 1, 7/ 7999 DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW', 0, 7/ 8000 DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', 0, 11/ 8001 DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW', -1, 7/ 8002 DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE', -1, 9/ 8003 DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW', 0, 8/ 8004C 8005 DATA IXMIND( 22)/ -5/ 8006 DATA IXMAXD( 22)/ 6/ 8007 DATA IXDELD( 22)/ 11/ 8008 DATA ISTARD( 22)/ 172/ 8009 DATA NUMCOO( 22)/ 20/ 8010C 8011C DEFINE CHARACTER 3217-- (RIGHT APOSTRAPHE) 8012C 8013 DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', 2, 10/ 8014 DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW', 1, 9/ 8015 DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW', 0, 9/ 8016 DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW', -1, 10/ 8017 DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW', -1, 11/ 8018 DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW', 0, 12/ 8019 DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW', 1, 12/ 8020 DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW', 2, 11/ 8021 DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW', 2, 8/ 8022 DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW', 1, 6/ 8023 DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW', -1, 5/ 8024 DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE', 0, 11/ 8025 DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW', 0, 10/ 8026 DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW', 1, 10/ 8027 DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW', 1, 11/ 8028 DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW', 0, 11/ 8029 DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE', 1, 9/ 8030 DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', 2, 8/ 8031 DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE', 2, 10/ 8032 DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', 1, 6/ 8033C 8034 DATA IXMIND( 23)/ -5/ 8035 DATA IXMAXD( 23)/ 6/ 8036 DATA IXDELD( 23)/ 11/ 8037 DATA ISTARD( 23)/ 192/ 8038 DATA NUMCOO( 23)/ 20/ 8039C 8040C DEFINE CHARACTER XXX--| (KEYBOARD VERTICAL BAR) 8041C 8042 DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE', 0, 12/ 8043 DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW', 0, -9/ 8044 DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW', 1, -9/ 8045 DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', 0, 12/ 8046 DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', 1, 12/ 8047 DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', 1, -9/ 8048C 8049 DATA IXMIND( 24)/ -4/ 8050 DATA IXMAXD( 24)/ 5/ 8051 DATA IXDELD( 24)/ 9/ 8052 DATA ISTARD( 24)/ 212/ 8053 DATA NUMCOO( 24)/ 6/ 8054C 8055C-----START POINT----------------------------------------------------- 8056C 8057 IFOUND='YES' 8058 IERROR='NO' 8059C 8060 NUMCO=1 8061 ISTART=1 8062 ISTOP=1 8063 NC=1 8064C 8065C ****************************************** 8066C ** TREAT THE ROMAN SIMPLEX UPPER CASE ** 8067C ** HERSHEY CHARACTER SET CASE ** 8068C ****************************************** 8069C 8070C 8071 IF(IBUGD2.EQ.'OFF')GOTO90 8072 WRITE(ICOUT,999) 8073 999 FORMAT(1X) 8074 CALL DPWRST('XXX','BUG ') 8075 WRITE(ICOUT,51) 8076 51 FORMAT('***** AT THE BEGINNING OF DRTS2--') 8077 CALL DPWRST('XXX','BUG ') 8078 WRITE(ICOUT,52)ICHARN 8079 52 FORMAT('ICHARN = ',I8) 8080 CALL DPWRST('XXX','BUG ') 8081 WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR 8082 59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 8083 CALL DPWRST('XXX','BUG ') 8084 90 CONTINUE 8085C 8086C ************************************** 8087C ** STEP 2-- ** 8088C ** EXTRACT THE COORDINATES ** 8089C ** FOR THIS PARTICULAR CHARACTER. ** 8090C ************************************** 8091C 8092 ISTART=ISTARD(ICHARN) 8093 NC=NUMCOO(ICHARN) 8094 ISTOP=ISTART+NC-1 8095 J=0 8096 DO1100I=ISTART,ISTOP 8097 J=J+1 8098 IOP(J)=IOPERA(I) 8099 X(J)=IX(I) 8100 Y(J)=IY(I) 8101 1100 CONTINUE 8102 NUMCO=J 8103 IXMINS=IXMIND(ICHARN) 8104 IXMAXS=IXMAXD(ICHARN) 8105 IXDELS=IXDELD(ICHARN) 8106C 8107 GOTO9000 8108C 8109C ***************** 8110C ** STEP 90-- ** 8111C ** EXIT ** 8112C ***************** 8113C 8114 9000 CONTINUE 8115 IF(IBUGD2.EQ.'OFF')GOTO9090 8116 WRITE(ICOUT,999) 8117 CALL DPWRST('XXX','BUG ') 8118 WRITE(ICOUT,9011) 8119 9011 FORMAT('***** AT THE END OF DRTS2--') 8120 CALL DPWRST('XXX','BUG ') 8121 WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR 8122 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4) 8123 CALL DPWRST('XXX','BUG ') 8124 WRITE(ICOUT,9013)ICHARN 8125 9013 FORMAT('ICHARN = ',I8) 8126 CALL DPWRST('XXX','BUG ') 8127 WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO 8128 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8) 8129 CALL DPWRST('XXX','BUG ') 8130 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 8131 IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019 8132 DO9015I=1,NUMCO 8133 WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I) 8134 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2) 8135 CALL DPWRST('XXX','BUG ') 8136 9015 CONTINUE 8137 9019 CONTINUE 8138 WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS 8139 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8) 8140 CALL DPWRST('XXX','BUG ') 8141 9090 CONTINUE 8142C 8143 RETURN 8144 END 8145