* * $Id: sidstp.F,v 1.1.1.1 1995/12/12 14:36:16 mclareni Exp $ * * $Log: sidstp.F,v $ * Revision 1.1.1.1 1995/12/12 14:36:16 mclareni * Imported sources * * #include "sigma/pilot.h" *CMZ : 1.06/00 14/08/89 15.15.48 by Carlo E. Vandoni *-- Author : INTEGER FUNCTION SIDSTP(I,J) ***************************************** * * NOTE NEW FORTRAN LIKE * OPERATOR PRECEDENCE. * ***************************************** C SAVE KSTP C #if !defined(CERNLIB_CRAY) DIMENSION KSTP(6,362) C C ENTRY NO. 1 DATA KSTP(1, 1),KSTP(2, 1),KSTP(3, 1),KSTP(4, 1), ,KSTP(5, 1),KSTP(6, 1)/2,0, 0,000000,000028, 2/ DATA KSTP(1, 2),KSTP(2, 2),KSTP(3, 2),KSTP(4, 2), ,KSTP(5, 2),KSTP(6, 2)/5,0, 0,000000,000000, 5/ DATA KSTP(1, 3),KSTP(2, 3),KSTP(3, 3),KSTP(4, 3), ,KSTP(5, 3),KSTP(6, 3)/2,0, 0,000000,000029, 2/ DATA KSTP(1, 4),KSTP(2, 4),KSTP(3, 4),KSTP(4, 4), ,KSTP(5, 4),KSTP(6, 4)/6,0, 0,000000,000000, 0/ C ENTRY NO. 2 DATA KSTP(1, 5),KSTP(2, 5),KSTP(3, 5),KSTP(4, 5), ,KSTP(5, 5),KSTP(6, 5)/4,0, 9,000000,000000, 0/ DATA KSTP(1, 6),KSTP(2, 6),KSTP(3, 6),KSTP(4, 6), ,KSTP(5, 6),KSTP(6, 6)/0,0, 0,4HSUBR,4HOUTI, 0/ DATA KSTP(1, 7),KSTP(2, 7),KSTP(3, 7),KSTP(4, 7), ,KSTP(5, 7),KSTP(6, 7)/2,0, 9,000000,000001, 15/ DATA KSTP(1, 8),KSTP(2, 8),KSTP(3, 8),KSTP(4, 8), ,KSTP(5, 8),KSTP(6, 8)/5,0, 9,000000,000000, 28/ DATA KSTP(1, 9),KSTP(2, 9),KSTP(3, 9),KSTP(4, 9), ,KSTP(5, 9),KSTP(6, 9)/4,4, 13,000000,000000, 0/ DATA KSTP(1, 10),KSTP(2, 10),KSTP(3, 10),KSTP(4, 10), ,KSTP(5, 10),KSTP(6, 10)/0,0, 0,4HFUNC,4HTION, 0/ DATA KSTP(1, 11),KSTP(2, 11),KSTP(3, 11),KSTP(4, 11), ,KSTP(5, 11),KSTP(6, 11)/2,0, 13,000000,000002, 15/ DATA KSTP(1, 12),KSTP(2, 12),KSTP(3, 12),KSTP(4, 12), ,KSTP(5, 12),KSTP(6, 12)/5,0, 13,000000,000000, 28/ DATA KSTP(1, 13),KSTP(2, 13),KSTP(3, 13),KSTP(4, 13), ,KSTP(5, 13),KSTP(6, 13)/4,4, 17,000000,000000, 0/ DATA KSTP(1, 14),KSTP(2, 14),KSTP(3, 14),KSTP(4, 14), ,KSTP(5, 14),KSTP(6, 14)/0,0, 0,4HFMAC,4HRO , 0/ DATA KSTP(1, 15),KSTP(2, 15),KSTP(3, 15),KSTP(4, 15), ,KSTP(5, 15),KSTP(6, 15)/2,0, 17,000000,000007, 15/ DATA KSTP(1, 16),KSTP(2, 16),KSTP(3, 16),KSTP(4, 16), ,KSTP(5, 16),KSTP(6, 16)/5,0, 17,000000,000000, 28/ DATA KSTP(1, 17),KSTP(2, 17),KSTP(3, 17),KSTP(4, 17), ,KSTP(5, 17),KSTP(6, 17)/4,4, 21,000000,000000, 0/ DATA KSTP(1, 18),KSTP(2, 18),KSTP(3, 18),KSTP(4, 18), ,KSTP(5, 18),KSTP(6, 18)/0,0, 0,4HMACR,4HO , 0/ DATA KSTP(1, 19),KSTP(2, 19),KSTP(3, 19),KSTP(4, 19), ,KSTP(5, 19),KSTP(6, 19)/2,0, 21,000000,000008, 15/ DATA KSTP(1, 20),KSTP(2, 20),KSTP(3, 20),KSTP(4, 20), ,KSTP(5, 20),KSTP(6, 20)/5,0, 21,000000,000000, 28/ DATA KSTP(1, 21),KSTP(2, 21),KSTP(3, 21),KSTP(4, 21), ,KSTP(5, 21),KSTP(6, 21)/5,4, 0,000000,000000, 23/ DATA KSTP(1, 22),KSTP(2, 22),KSTP(3, 22),KSTP(4, 22), ,KSTP(5, 22),KSTP(6, 22)/6,0, 0,000000,000000, 0/ C ENTRY NO. 3 DATA KSTP(1, 23),KSTP(2, 23),KSTP(3, 23),KSTP(4, 23), ,KSTP(5, 23),KSTP(6, 23)/2,0, 26,000000,000001, 3/ DATA KSTP(1, 24),KSTP(2, 24),KSTP(3, 24),KSTP(4, 24), ,KSTP(5, 24),KSTP(6, 24)/5,0, 26,000000,000000,263/ DATA KSTP(1, 25),KSTP(2, 25),KSTP(3, 25),KSTP(4, 25), ,KSTP(5, 25),KSTP(6, 25)/2,0, 26,000000,000002, 3/ DATA KSTP(1, 26),KSTP(2, 26),KSTP(3, 26),KSTP(4, 26), ,KSTP(5, 26),KSTP(6, 26)/5,4, 0,000000,000000,263/ DATA KSTP(1, 27),KSTP(2, 27),KSTP(3, 27),KSTP(4, 27), ,KSTP(5, 27),KSTP(6, 27)/6,0, 0,000000,000000, 0/ C ENTRY NO. 4 DATA KSTP(1, 28),KSTP(2, 28),KSTP(3, 28),KSTP(4, 28), ,KSTP(5, 28),KSTP(6, 28)/5,0, 0,000000,000000, 30/ DATA KSTP(1, 29),KSTP(2, 29),KSTP(3, 29),KSTP(4, 29), ,KSTP(5, 29),KSTP(6, 29)/6,0, 0,000000,000000, 0/ C ENTRY NO. 5 DATA KSTP(1, 30),KSTP(2, 30),KSTP(3, 30),KSTP(4, 30), ,KSTP(5, 30),KSTP(6, 30)/2,0, 31,000000,000003, 15/ DATA KSTP(1, 31),KSTP(2, 31),KSTP(3, 31),KSTP(4, 31), ,KSTP(5, 31),KSTP(6, 31)/2,4, 0,000000,000004, 15/ DATA KSTP(1, 32),KSTP(2, 32),KSTP(3, 32),KSTP(4, 32), ,KSTP(5, 32),KSTP(6, 32)/3,0, 0,000000,000004, 0/ DATA KSTP(1, 33),KSTP(2, 33),KSTP(3, 33),KSTP(4, 33), ,KSTP(5, 33),KSTP(6, 33)/5,0, 0,000000,000000, 37/ DATA KSTP(1, 34),KSTP(2, 34),KSTP(3, 34),KSTP(4, 34), ,KSTP(5, 34),KSTP(6, 34)/3,0, 0,000000,000005, 0/ DATA KSTP(1, 35),KSTP(2, 35),KSTP(3, 35),KSTP(4, 35), ,KSTP(5, 35),KSTP(6, 35)/2,0, 0,000000,000005, 15/ DATA KSTP(1, 36),KSTP(2, 36),KSTP(3, 36),KSTP(4, 36), ,KSTP(5, 36),KSTP(6, 36)/6,0, 0,000000,000000, 0/ C ENTRY NO. 6 DATA KSTP(1, 37),KSTP(2, 37),KSTP(3, 37),KSTP(4, 37), ,KSTP(5, 37),KSTP(6, 37)/2,0, 0,000000,000001, 16/ DATA KSTP(1, 38),KSTP(2, 38),KSTP(3, 38),KSTP(4, 38), ,KSTP(5, 38),KSTP(6, 38)/5,0, 0,000000,000000,145/ DATA KSTP(1, 39),KSTP(2, 39),KSTP(3, 39),KSTP(4, 39), ,KSTP(5, 39),KSTP(6, 39)/1,0, 0,000000,000000, 41/ DATA KSTP(1, 40),KSTP(2, 40),KSTP(3, 40),KSTP(4, 40), ,KSTP(5, 40),KSTP(6, 40)/6,0, 0,000000,000000, 0/ C ENTRY NO. 7 DATA KSTP(1, 41),KSTP(2, 41),KSTP(3, 41),KSTP(4, 41), ,KSTP(5, 41),KSTP(6, 41)/3,0, 0,000000,000007, 0/ DATA KSTP(1, 42),KSTP(2, 42),KSTP(3, 42),KSTP(4, 42), ,KSTP(5, 42),KSTP(6, 42)/2,0, 0,000000,000002, 16/ DATA KSTP(1, 43),KSTP(2, 43),KSTP(3, 43),KSTP(4, 43), ,KSTP(5, 43),KSTP(6, 43)/5,0, 0,000000,000000,145/ DATA KSTP(1, 44),KSTP(2, 44),KSTP(3, 44),KSTP(4, 44), ,KSTP(5, 44),KSTP(6, 44)/6,0, 0,000000,000000, 0/ C ENTRY NO. 8 DATA KSTP(1, 45),KSTP(2, 45),KSTP(3, 45),KSTP(4, 45), ,KSTP(5, 45),KSTP(6, 45)/4,0, 52,000000,000000, 0/ DATA KSTP(1, 46),KSTP(2, 46),KSTP(3, 46),KSTP(4, 46), ,KSTP(5, 46),KSTP(6, 46)/0,0, 0,4HDISP,4HLAY , 0/ DATA KSTP(1, 47),KSTP(2, 47),KSTP(3, 47),KSTP(4, 47), ,KSTP(5, 47),KSTP(6, 47)/2,0, 52,000000,000101, 2/ DATA KSTP(1, 48),KSTP(2, 48),KSTP(3, 48),KSTP(4, 48), ,KSTP(5, 48),KSTP(6, 48)/2,0, 52,000000,000102, 2/ DATA KSTP(1, 49),KSTP(2, 49),KSTP(3, 49),KSTP(4, 49), ,KSTP(5, 49),KSTP(6, 49)/2,0, 52,000000,000000, 19/ DATA KSTP(1, 50),KSTP(2, 50),KSTP(3, 50),KSTP(4, 50), ,KSTP(5, 50),KSTP(6, 50)/5,0, 52,000000,000000,255/ DATA KSTP(1, 51),KSTP(2, 51),KSTP(3, 51),KSTP(4, 51), ,KSTP(5, 51),KSTP(6, 51)/5,0, 52,000000,000000, 70/ DATA KSTP(1, 52),KSTP(2, 52),KSTP(3, 52),KSTP(4, 52), ,KSTP(5, 52),KSTP(6, 52)/2,4, 0,000000,000102, 2/ DATA KSTP(1, 53),KSTP(2, 53),KSTP(3, 53),KSTP(4, 53), ,KSTP(5, 53),KSTP(6, 53)/2,0, 0,000000,000000, 19/ DATA KSTP(1, 54),KSTP(2, 54),KSTP(3, 54),KSTP(4, 54), ,KSTP(5, 54),KSTP(6, 54)/5,0, 0,000000,000000, 70/ DATA KSTP(1, 55),KSTP(2, 55),KSTP(3, 55),KSTP(4, 55), ,KSTP(5, 55),KSTP(6, 55)/6,0, 0,000000,000000, 0/ C ENTRY NO. 9 DATA KSTP(1, 56),KSTP(2, 56),KSTP(3, 56),KSTP(4, 56), ,KSTP(5, 56),KSTP(6, 56)/3,0, 58,000000,000006, 0/ DATA KSTP(1, 57),KSTP(2, 57),KSTP(3, 57),KSTP(4, 57), ,KSTP(5, 57),KSTP(6, 57)/2,0, 58,000000,000107, 2/ DATA KSTP(1, 58),KSTP(2, 58),KSTP(3, 58),KSTP(4, 58), ,KSTP(5, 58),KSTP(6, 58)/5,4, 0,000000,000000, 61/ DATA KSTP(1, 59),KSTP(2, 59),KSTP(3, 59),KSTP(4, 59), ,KSTP(5, 59),KSTP(6, 59)/5,0, 0,000000,000000, 65/ DATA KSTP(1, 60),KSTP(2, 60),KSTP(3, 60),KSTP(4, 60), ,KSTP(5, 60),KSTP(6, 60)/6,0, 0,000000,000000, 0/ C ENTRY NO. 10 DATA KSTP(1, 61),KSTP(2, 61),KSTP(3, 61),KSTP(4, 61), ,KSTP(5, 61),KSTP(6, 61)/5,0, 63,000000,000000,155/ DATA KSTP(1, 62),KSTP(2, 62),KSTP(3, 62),KSTP(4, 62), ,KSTP(5, 62),KSTP(6, 62)/2,0, 63,000000,000002, 26/ DATA KSTP(1, 63),KSTP(2, 63),KSTP(3, 63),KSTP(4, 63), ,KSTP(5, 63),KSTP(6, 63)/5,4, 0,000000,000000,233/ DATA KSTP(1, 64),KSTP(2, 64),KSTP(3, 64),KSTP(4, 64), ,KSTP(5, 64),KSTP(6, 64)/6,0, 0,000000,000000, 0/ C ENTRY NO. 11 DATA KSTP(1, 65),KSTP(2, 65),KSTP(3, 65),KSTP(4, 65), ,KSTP(5, 65),KSTP(6, 65)/3,0, 68,000000,000010, 0/ DATA KSTP(1, 66),KSTP(2, 66),KSTP(3, 66),KSTP(4, 66), ,KSTP(5, 66),KSTP(6, 66)/5,0, 68,000000,000000,155/ DATA KSTP(1, 67),KSTP(2, 67),KSTP(3, 67),KSTP(4, 67), ,KSTP(5, 67),KSTP(6, 67)/2,0, 68,000000,000001, 26/ DATA KSTP(1, 68),KSTP(2, 68),KSTP(3, 68),KSTP(4, 68), ,KSTP(5, 68),KSTP(6, 68)/5,4, 0,000000,000000,233/ DATA KSTP(1, 69),KSTP(2, 69),KSTP(3, 69),KSTP(4, 69), ,KSTP(5, 69),KSTP(6, 69)/6,0, 0,000000,000000, 0/ C ENTRY NO. 12 DATA KSTP(1, 70),KSTP(2, 70),KSTP(3, 70),KSTP(4, 70), ,KSTP(5, 70),KSTP(6, 70)/5,0, 0,000000,000000, 81/ DATA KSTP(1, 71),KSTP(2, 71),KSTP(3, 71),KSTP(4, 71), ,KSTP(5, 71),KSTP(6, 71)/1,0, 0,000000,000000, 74/ DATA KSTP(1, 72),KSTP(2, 72),KSTP(3, 72),KSTP(4, 72), ,KSTP(5, 72),KSTP(6, 72)/2,0, 0,000000,000000, 23/ DATA KSTP(1, 73),KSTP(2, 73),KSTP(3, 73),KSTP(4, 73), ,KSTP(5, 73),KSTP(6, 73)/6,0, 0,000000,000000, 0/ C ENTRY NO. 13 DATA KSTP(1, 74),KSTP(2, 74),KSTP(3, 74),KSTP(4, 74), ,KSTP(5, 74),KSTP(6, 74)/3,0, 77,000000,000007, 0/ DATA KSTP(1, 75),KSTP(2, 75),KSTP(3, 75),KSTP(4, 75), ,KSTP(5, 75),KSTP(6, 75)/2,0, 77,000000,000000, 22/ DATA KSTP(1, 76),KSTP(2, 76),KSTP(3, 76),KSTP(4, 76), ,KSTP(5, 76),KSTP(6, 76)/5,0, 77,000000,000000, 81/ DATA KSTP(1, 77),KSTP(2, 77),KSTP(3, 77),KSTP(4, 77), ,KSTP(5, 77),KSTP(6, 77)/3,4, 0,000000,000010, 0/ DATA KSTP(1, 78),KSTP(2, 78),KSTP(3, 78),KSTP(4, 78), ,KSTP(5, 78),KSTP(6, 78)/2,0, 0,000000,000000, 21/ DATA KSTP(1, 79),KSTP(2, 79),KSTP(3, 79),KSTP(4, 79), ,KSTP(5, 79),KSTP(6, 79)/5,0, 0,000000,000000, 88/ DATA KSTP(1, 80),KSTP(2, 80),KSTP(3, 80),KSTP(4, 80), ,KSTP(5, 80),KSTP(6, 80)/6,0, 0,000000,000000, 0/ C ENTRY NO. 14 DATA KSTP(1, 81),KSTP(2, 81),KSTP(3, 81),KSTP(4, 81), ,KSTP(5, 81),KSTP(6, 81)/3,0, 85,000000,000015, 0/ DATA KSTP(1, 82),KSTP(2, 82),KSTP(3, 82),KSTP(4, 82), ,KSTP(5, 82),KSTP(6, 82)/2,0, 85,000000,000000, 20/ DATA KSTP(1, 83),KSTP(2, 83),KSTP(3, 83),KSTP(4, 83), ,KSTP(5, 83),KSTP(6, 83)/3,0, 85,000000,000016, 0/ DATA KSTP(1, 84),KSTP(2, 84),KSTP(3, 84),KSTP(4, 84), ,KSTP(5, 84),KSTP(6, 84)/5,0, 85,000000,000000, 88/ DATA KSTP(1, 85),KSTP(2, 85),KSTP(3, 85),KSTP(4, 85), ,KSTP(5, 85),KSTP(6, 85)/2,4, 0,000000,000000, 24/ DATA KSTP(1, 86),KSTP(2, 86),KSTP(3, 86),KSTP(4, 86), ,KSTP(5, 86),KSTP(6, 86)/5,0, 0,000000,000000, 88/ DATA KSTP(1, 87),KSTP(2, 87),KSTP(3, 87),KSTP(4, 87), ,KSTP(5, 87),KSTP(6, 87)/6,0, 0,000000,000000, 0/ C ENTRY NO. 15 DATA KSTP(1, 88),KSTP(2, 88),KSTP(3, 88),KSTP(4, 88), ,KSTP(5, 88),KSTP(6, 88)/5,0, 0,000000,000000,172/ DATA KSTP(1, 89),KSTP(2, 89),KSTP(3, 89),KSTP(4, 89), ,KSTP(5, 89),KSTP(6, 89)/6,0, 0,000000,000000, 0/ C ENTRY NO. 16 DATA KSTP(1, 90),KSTP(2, 90),KSTP(3, 90),KSTP(4, 90), ,KSTP(5, 90),KSTP(6, 90)/3,0, 93,000000,000002, 0/ DATA KSTP(1, 91),KSTP(2, 91),KSTP(3, 91),KSTP(4, 91), ,KSTP(5, 91),KSTP(6, 91)/5,0, 93,000000,000000, 97/ DATA KSTP(1, 92),KSTP(2, 92),KSTP(3, 92),KSTP(4, 92), ,KSTP(5, 92),KSTP(6, 92)/2,0, 93,000000,000011, 2/ DATA KSTP(1, 93),KSTP(2, 93),KSTP(3, 93),KSTP(4, 93), ,KSTP(5, 93),KSTP(6, 93)/3,4, 0,000000,000001, 0/ DATA KSTP(1, 94),KSTP(2, 94),KSTP(3, 94),KSTP(4, 94), ,KSTP(5, 94),KSTP(6, 94)/5,0, 0,000000,000000, 97/ DATA KSTP(1, 95),KSTP(2, 95),KSTP(3, 95),KSTP(4, 95), ,KSTP(5, 95),KSTP(6, 95)/2,0, 0,000000,000012, 2/ DATA KSTP(1, 96),KSTP(2, 96),KSTP(3, 96),KSTP(4, 96), ,KSTP(5, 96),KSTP(6, 96)/6,0, 0,000000,000000, 0/ C ENTRY NO. 17 DATA KSTP(1, 97),KSTP(2, 97),KSTP(3, 97),KSTP(4, 97), ,KSTP(5, 97),KSTP(6, 97)/5,0, 0,000000,000000,111/ DATA KSTP(1, 98),KSTP(2, 98),KSTP(3, 98),KSTP(4, 98), ,KSTP(5, 98),KSTP(6, 98)/1,0, 0,000000,000000,100/ DATA KSTP(1, 99),KSTP(2, 99),KSTP(3, 99),KSTP(4, 99), ,KSTP(5, 99),KSTP(6, 99)/6,0, 0,000000,000000, 0/ C ENTRY NO. 18 DATA KSTP(1,100),KSTP(2,100),KSTP(3,100),KSTP(4,100), ,KSTP(5,100),KSTP(6,100)/3,0,103,000000,000017, 0/ DATA KSTP(1,101),KSTP(2,101),KSTP(3,101),KSTP(4,101), ,KSTP(5,101),KSTP(6,101)/5,0,103,000000,000000,111/ DATA KSTP(1,102),KSTP(2,102),KSTP(3,102),KSTP(4,102), ,KSTP(5,102),KSTP(6,102)/2,0,103,000000,000009, 2/ DATA KSTP(1,103),KSTP(2,103),KSTP(3,103),KSTP(4,103), ,KSTP(5,103),KSTP(6,103)/3,4,106,000000,000003, 0/ DATA KSTP(1,104),KSTP(2,104),KSTP(3,104),KSTP(4,104), ,KSTP(5,104),KSTP(6,104)/5,0,106,000000,000000,111/ DATA KSTP(1,105),KSTP(2,105),KSTP(3,105),KSTP(4,105), ,KSTP(5,105),KSTP(6,105)/2,0,106,000000,000010, 2/ DATA KSTP(1,106),KSTP(2,106),KSTP(3,106),KSTP(4,106), ,KSTP(5,106),KSTP(6,106)/4,4, 0,000000,000000, 0/ DATA KSTP(1,107),KSTP(2,107),KSTP(3,107),KSTP(4,107), ,KSTP(5,107),KSTP(6,107)/0,0, 0,4HMULT,4H , 0/ DATA KSTP(1,108),KSTP(2,108),KSTP(3,108),KSTP(4,108), ,KSTP(5,108),KSTP(6,108)/5,0, 0,000000,000000,111/ DATA KSTP(1,109),KSTP(2,109),KSTP(3,109),KSTP(4,109), ,KSTP(5,109),KSTP(6,109)/2,0, 0,000000,000036, 2/ DATA KSTP(1,110),KSTP(2,110),KSTP(3,110),KSTP(4,110), ,KSTP(5,110),KSTP(6,110)/6,0, 0,000000,000000, 0/ ***************************************************** * NOW PRIORITIES OF ** AND UNARY MINUS ARE REVERSED, * i.e. FORTRAN-LIKE ***************************************************** C ENTRY NO. 19 DATA KSTP(1,111),KSTP(2,111),KSTP(3,111),KSTP(4,111), ,KSTP(5,111),KSTP(6,111)/3,0,115,0,2,0/ DATA KSTP(1,112),KSTP(2,112),KSTP(3,112),KSTP(4,112), ,KSTP(5,112),KSTP(6,112)/2,0,115,0,0,8/ DATA KSTP(1,113),KSTP(2,113),KSTP(3,113),KSTP(4,113), ,KSTP(5,113),KSTP(6,113)/5,0,115,0,0,119/ C ENTRY NO. 20 DATA KSTP(1,114),KSTP(2,114),KSTP(3,114),KSTP(4,114), ,KSTP(5,114),KSTP(6,114)/2,0,115,0,11,2/ DATA KSTP(1,115),KSTP(2,115),KSTP(3,115),KSTP(4,115), ,KSTP(5,115),KSTP(6,115)/3,4,117,0,1,0/ DATA KSTP(1,116),KSTP(2,116),KSTP(3,116),KSTP(4,116), ,KSTP(5,116),KSTP(6,116)/5,0,117,0,0,119/ DATA KSTP(1,117),KSTP(2,117),KSTP(3,117),KSTP(4,117), ,KSTP(5,117),KSTP(6,117)/5,4,0,0,0,119/ C ENTRY NO. 21 DATA KSTP(1,118),KSTP(2,118),KSTP(3,118),KSTP(4,118), ,KSTP(5,118),KSTP(6,118)/6,0,0,0,0,0/ DATA KSTP(1,119),KSTP(2,119),KSTP(3,119),KSTP(4,119), ,KSTP(5,119),KSTP(6,119)/5,0,0,0,0,126/ DATA KSTP(1,120),KSTP(2,120),KSTP(3,120),KSTP(4,120), ,KSTP(5,120),KSTP(6,120)/1,0,0,0,0,122/ DATA KSTP(1,121),KSTP(2,121),KSTP(3,121),KSTP(4,121), ,KSTP(5,121),KSTP(6,121)/6,0,0,0,0,0/ DATA KSTP(1,122),KSTP(2,122),KSTP(3,122),KSTP(4,122), ,KSTP(5,122),KSTP(6,122)/3,0,0,0,22,0/ DATA KSTP(1,123),KSTP(2,123),KSTP(3,123),KSTP(4,123), ,KSTP(5,123),KSTP(6,123)/5,0,0,0,0,126/ DATA KSTP(1,124),KSTP(2,124),KSTP(3,124),KSTP(4,124), ,KSTP(5,124),KSTP(6,124)/2,0,0,0,8,2/ DATA KSTP(1,125),KSTP(2,125),KSTP(3,125),KSTP(4,125), ,KSTP(5,125),KSTP(6,125)/6,0, 0,000000,000000, 0/ C ENTRY NO. 22 DATA KSTP(1,126),KSTP(2,126),KSTP(3,126),KSTP(4,126), ,KSTP(5,126),KSTP(6,126)/5,0,127,000000,000000,145/ DATA KSTP(1,127),KSTP(2,127),KSTP(3,127),KSTP(4,127), ,KSTP(5,127),KSTP(6,127)/5,4,128,000000,000000,141/ DATA KSTP(1,128),KSTP(2,128),KSTP(3,128),KSTP(4,128), ,KSTP(5,128),KSTP(6,128)/5,4,129,000000,000000,139/ DATA KSTP(1,129),KSTP(2,129),KSTP(3,129),KSTP(4,129), ,KSTP(5,129),KSTP(6,129)/3,4,131,000000,000014, 0/ DATA KSTP(1,130),KSTP(2,130),KSTP(3,130),KSTP(4,130), ,KSTP(5,130),KSTP(6,130)/2,0,131,000000,000001, 4/ DATA KSTP(1,131),KSTP(2,131),KSTP(3,131),KSTP(4,131), ,KSTP(5,131),KSTP(6,131)/4,4,137,000000,000000, 0/ DATA KSTP(1,132),KSTP(2,132),KSTP(3,132),KSTP(4,132), ,KSTP(5,132),KSTP(6,132)/0,0, 0,4HARRA,4HY , 0/ DATA KSTP(1,133),KSTP(2,133),KSTP(3,133),KSTP(4,133), ,KSTP(5,133),KSTP(6,133)/3,0,137,000000,000004, 0/ DATA KSTP(1,134),KSTP(2,134),KSTP(3,134),KSTP(4,134), ,KSTP(5,134),KSTP(6,134)/5,0,137,000000,000000, 88/ DATA KSTP(1,135),KSTP(2,135),KSTP(3,135),KSTP(4,135), ,KSTP(5,135),KSTP(6,135)/2,0,137,000000,000201, 2/ DATA KSTP(1,136),KSTP(2,136),KSTP(3,136),KSTP(4,136), ,KSTP(5,136),KSTP(6,136)/5,0,137,000000,000000,159/ DATA KSTP(1,137),KSTP(2,137),KSTP(3,137),KSTP(4,137), ,KSTP(5,137),KSTP(6,137)/5,4, 0,000000,000000,249/ DATA KSTP(1,138),KSTP(2,138),KSTP(3,138),KSTP(4,138), ,KSTP(5,138),KSTP(6,138)/6,0, 0,000000,000000, 0/ C ENTRY NO. 23 DATA KSTP(1,139),KSTP(2,139),KSTP(3,139),KSTP(4,139), ,KSTP(5,139),KSTP(6,139)/2,0, 0,000000,000000, 9/ DATA KSTP(1,140),KSTP(2,140),KSTP(3,140),KSTP(4,140), ,KSTP(5,140),KSTP(6,140)/6,0, 0,000000,000000, 0/ C ENTRY NO. 24 DATA KSTP(1,141),KSTP(2,141),KSTP(3,141),KSTP(4,141), ,KSTP(5,141),KSTP(6,141)/3,0, 0,000000,000004, 0/ DATA KSTP(1,142),KSTP(2,142),KSTP(3,142),KSTP(4,142), ,KSTP(5,142),KSTP(6,142)/5,0, 0,000000,000000,172/ DATA KSTP(1,143),KSTP(2,143),KSTP(3,143),KSTP(4,143), ,KSTP(5,143),KSTP(6,143)/3,0, 0,000000,000005, 0/ DATA KSTP(1,144),KSTP(2,144),KSTP(3,144),KSTP(4,144), ,KSTP(5,144),KSTP(6,144)/6,0, 0,000000,000000, 0/ C ENTRY NO. 25 DATA KSTP(1,145),KSTP(2,145),KSTP(3,145),KSTP(4,145), ,KSTP(5,145),KSTP(6,145)/2,0, 0,000000,000000, 10/ DATA KSTP(1,146),KSTP(2,146),KSTP(3,146),KSTP(4,146), ,KSTP(5,146),KSTP(6,146)/6,0, 0,000000,000000, 0/ C ENTRY NO. 26 DATA KSTP(1,147),KSTP(2,147),KSTP(3,147),KSTP(4,147), ,KSTP(5,147),KSTP(6,147)/2,0, 0,000000,000001, 13/ DATA KSTP(1,148),KSTP(2,148),KSTP(3,148),KSTP(4,148), ,KSTP(5,148),KSTP(6,148)/1,0, 0,000000,000000,150/ DATA KSTP(1,149),KSTP(2,149),KSTP(3,149),KSTP(4,149), ,KSTP(5,149),KSTP(6,149)/6,0, 0,000000,000000, 0/ C ENTRY NO. 27 DATA KSTP(1,150),KSTP(2,150),KSTP(3,150),KSTP(4,150), ,KSTP(5,150),KSTP(6,150)/5,0,152,000000,000000, 88/ DATA KSTP(1,151),KSTP(2,151),KSTP(3,151),KSTP(4,151), ,KSTP(5,151),KSTP(6,151)/2,0,152,000000,000000, 14/ DATA KSTP(1,152),KSTP(2,152),KSTP(3,152),KSTP(4,152), ,KSTP(5,152),KSTP(6,152)/5,4, 0,000000,000000,261/ DATA KSTP(1,153),KSTP(2,153),KSTP(3,153),KSTP(4,153), ,KSTP(5,153),KSTP(6,153)/2,0, 0,000000,000000, 14/ DATA KSTP(1,154),KSTP(2,154),KSTP(3,154),KSTP(4,154), ,KSTP(5,154),KSTP(6,154)/6,0, 0,000000,000000, 0/ C ENTRY NO. 28 DATA KSTP(1,155),KSTP(2,155),KSTP(3,155),KSTP(4,155), ,KSTP(5,155),KSTP(6,155)/5,0, 0,000000,000000, 88/ DATA KSTP(1,156),KSTP(2,156),KSTP(3,156),KSTP(4,156), ,KSTP(5,156),KSTP(6,156)/3,0, 0,000000,000009, 0/ DATA KSTP(1,157),KSTP(2,157),KSTP(3,157),KSTP(4,157), ,KSTP(5,157),KSTP(6,157)/5,0, 0,000000,000000, 88/ DATA KSTP(1,158),KSTP(2,158),KSTP(3,158),KSTP(4,158), ,KSTP(5,158),KSTP(6,158)/6,0, 0,000000,000000, 0/ C ENTRY NO. 29 DATA KSTP(1,159),KSTP(2,159),KSTP(3,159),KSTP(4,159), ,KSTP(5,159),KSTP(6,159)/3,0,161,000000,000005, 0/ DATA KSTP(1,160),KSTP(2,160),KSTP(3,160),KSTP(4,160), ,KSTP(5,160),KSTP(6,160)/2,0,161,000000,000202, 2/ DATA KSTP(1,161),KSTP(2,161),KSTP(3,161),KSTP(4,161), ,KSTP(5,161),KSTP(6,161)/3,4, 0,000000,000007, 0/ DATA KSTP(1,162),KSTP(2,162),KSTP(3,162),KSTP(4,162), ,KSTP(5,162),KSTP(6,162)/5,0, 0,000000,000000, 88/ DATA KSTP(1,163),KSTP(2,163),KSTP(3,163),KSTP(4,163), ,KSTP(5,163),KSTP(6,163)/5,0, 0,000000,000000,165/ DATA KSTP(1,164),KSTP(2,164),KSTP(3,164),KSTP(4,164), ,KSTP(5,164),KSTP(6,164)/6,0, 0,000000,000000, 0/ C ENTRY NO. 30 DATA KSTP(1,165),KSTP(2,165),KSTP(3,165),KSTP(4,165), ,KSTP(5,165),KSTP(6,165)/3,0,169,000000,000009, 0/ DATA KSTP(1,166),KSTP(2,166),KSTP(3,166),KSTP(4,166), ,KSTP(5,166),KSTP(6,166)/5,0,169,000000,000000, 88/ DATA KSTP(1,167),KSTP(2,167),KSTP(3,167),KSTP(4,167), ,KSTP(5,167),KSTP(6,167)/3,0,169,000000,000005, 0/ DATA KSTP(1,168),KSTP(2,168),KSTP(3,168),KSTP(4,168), ,KSTP(5,168),KSTP(6,168)/2,0,169,000000,000205, 2/ DATA KSTP(1,169),KSTP(2,169),KSTP(3,169),KSTP(4,169), ,KSTP(5,169),KSTP(6,169)/3,4, 0,000000,000005, 0/ DATA KSTP(1,170),KSTP(2,170),KSTP(3,170),KSTP(4,170), ,KSTP(5,170),KSTP(6,170)/2,0, 0,000000,000206, 2/ DATA KSTP(1,171),KSTP(2,171),KSTP(3,171),KSTP(4,171), ,KSTP(5,171),KSTP(6,171)/6,0, 0,000000,000000, 0/ C ENTRY NO. 31 DATA KSTP(1,172),KSTP(2,172),KSTP(3,172),KSTP(4,172), ,KSTP(5,172),KSTP(6,172)/5,0, 0,000000,000000,180/ DATA KSTP(1,173),KSTP(2,173),KSTP(3,173),KSTP(4,173), ,KSTP(5,173),KSTP(6,173)/1,0, 0,000777,000777,175/ DATA KSTP(1,174),KSTP(2,174),KSTP(3,174),KSTP(4,174), ,KSTP(5,174),KSTP(6,174)/6,0, 0,000000,000000, 0/ C ENTRY NO. 32 DATA KSTP(1,175),KSTP(2,175),KSTP(3,175),KSTP(4,175), ,KSTP(5,175),KSTP(6,175)/4,0, 0,000000,000000, 0/ DATA KSTP(1,176),KSTP(2,176),KSTP(3,176),KSTP(4,176), ,KSTP(5,176),KSTP(6,176)/0,0, 0,4HOR ,4H , 0/ DATA KSTP(1,177),KSTP(2,177),KSTP(3,177),KSTP(4,177), ,KSTP(5,177),KSTP(6,177)/5,0, 0,000000,000000,180/ DATA KSTP(1,178),KSTP(2,178),KSTP(3,178),KSTP(4,178), ,KSTP(5,178),KSTP(6,178)/2,0, 0,000000,000021, 2/ DATA KSTP(1,179),KSTP(2,179),KSTP(3,179),KSTP(4,179), ,KSTP(5,179),KSTP(6,179)/6,0, 0,000000,000000, 0/ C ENTRY NO. 33 DATA KSTP(1,180),KSTP(2,180),KSTP(3,180),KSTP(4,180), ,KSTP(5,180),KSTP(6,180)/5,0, 0,000000,000000,188/ DATA KSTP(1,181),KSTP(2,181),KSTP(3,181),KSTP(4,181), ,KSTP(5,181),KSTP(6,181)/1,0, 0,000000,000000,183/ DATA KSTP(1,182),KSTP(2,182),KSTP(3,182),KSTP(4,182), ,KSTP(5,182),KSTP(6,182)/6,0, 0,000000,000000, 0/ C ENTRY NO. 34 DATA KSTP(1,183),KSTP(2,183),KSTP(3,183),KSTP(4,183), ,KSTP(5,183),KSTP(6,183)/4,0, 0,000000,000000, 0/ DATA KSTP(1,184),KSTP(2,184),KSTP(3,184),KSTP(4,184), ,KSTP(5,184),KSTP(6,184)/0,0, 0,4HAND ,4H , 0/ DATA KSTP(1,185),KSTP(2,185),KSTP(3,185),KSTP(4,185), ,KSTP(5,185),KSTP(6,185)/5,0, 0,000000,000000,188/ DATA KSTP(1,186),KSTP(2,186),KSTP(3,186),KSTP(4,186), ,KSTP(5,186),KSTP(6,186)/2,0, 0,000000,000020, 2/ DATA KSTP(1,187),KSTP(2,187),KSTP(3,187),KSTP(4,187), ,KSTP(5,187),KSTP(6,187)/6,0, 0,000000,000000, 0/ C ENTRY NO. 35 DATA KSTP(1,188),KSTP(2,188),KSTP(3,188),KSTP(4,188), ,KSTP(5,188),KSTP(6,188)/4,0,192,000000,000000, 0/ DATA KSTP(1,189),KSTP(2,189),KSTP(3,189),KSTP(4,189), ,KSTP(5,189),KSTP(6,189)/0,0, 0,4HNOT ,4H , 0/ DATA KSTP(1,190),KSTP(2,190),KSTP(3,190),KSTP(4,190), ,KSTP(5,190),KSTP(6,190)/5,0,192,000000,000000,195/ DATA KSTP(1,191),KSTP(2,191),KSTP(3,191),KSTP(4,191), ,KSTP(5,191),KSTP(6,191)/2,0,192,000000,000037, 2/ DATA KSTP(1,192),KSTP(2,192),KSTP(3,192),KSTP(4,192), ,KSTP(5,192),KSTP(6,192)/5,4, 0,000000,000000,195/ DATA KSTP(1,193),KSTP(2,193),KSTP(3,193),KSTP(4,193), ,KSTP(5,193),KSTP(6,193)/6,0, 0,000000,000000, 0/ C ENTRY NO. 36 DATA KSTP(1,194),KSTP(2,194),KSTP(3,194),KSTP(4,194), ,KSTP(5,194),KSTP(6,194)/6,0, 0,000000,000000, 0/ C ENTRY NO. 37 DATA KSTP(1,195),KSTP(2,195),KSTP(3,195),KSTP(4,195), ,KSTP(5,195),KSTP(6,195)/5,0, 0,000000,000000,223/ DATA KSTP(1,196),KSTP(2,196),KSTP(3,196),KSTP(4,196), ,KSTP(5,196),KSTP(6,196)/1,0, 0,000000,000000,198/ DATA KSTP(1,197),KSTP(2,197),KSTP(3,197),KSTP(4,197), ,KSTP(5,197),KSTP(6,197)/6,0, 0,000777,000777, 0/ C ENTRY NO. 38 DATA KSTP(1,198),KSTP(2,198),KSTP(3,198),KSTP(4,198), ,KSTP(5,198),KSTP(6,198)/4,0,202,000000,000000, 0/ DATA KSTP(1,199),KSTP(2,199),KSTP(3,199),KSTP(4,199), ,KSTP(5,199),KSTP(6,199)/0,0, 0,4HEQ ,4H , 0/ DATA KSTP(1,200),KSTP(2,200),KSTP(3,200),KSTP(4,200), ,KSTP(5,200),KSTP(6,200)/5,0,202,000000,000000,223/ DATA KSTP(1,201),KSTP(2,201),KSTP(3,201),KSTP(4,201), ,KSTP(5,201),KSTP(6,201)/2,0,202,000000,000013, 2/ DATA KSTP(1,202),KSTP(2,202),KSTP(3,202),KSTP(4,202), ,KSTP(5,202),KSTP(6,202)/4,4,206,000000,000000, 0/ DATA KSTP(1,203),KSTP(2,203),KSTP(3,203),KSTP(4,203), ,KSTP(5,203),KSTP(6,203)/0,0, 0,4HNE ,4H , 0/ DATA KSTP(1,204),KSTP(2,204),KSTP(3,204),KSTP(4,204), ,KSTP(5,204),KSTP(6,204)/5,0,206,000000,000000,223/ DATA KSTP(1,205),KSTP(2,205),KSTP(3,205),KSTP(4,205), ,KSTP(5,205),KSTP(6,205)/2,0,206,000000,000014, 2/ DATA KSTP(1,206),KSTP(2,206),KSTP(3,206),KSTP(4,206), ,KSTP(5,206),KSTP(6,206)/4,4,210,000000,000000, 0/ DATA KSTP(1,207),KSTP(2,207),KSTP(3,207),KSTP(4,207), ,KSTP(5,207),KSTP(6,207)/0,0, 0,4HGT ,4H , 0/ DATA KSTP(1,208),KSTP(2,208),KSTP(3,208),KSTP(4,208), ,KSTP(5,208),KSTP(6,208)/5,0,210,000000,000000,223/ DATA KSTP(1,209),KSTP(2,209),KSTP(3,209),KSTP(4,209), ,KSTP(5,209),KSTP(6,209)/2,0,210,000000,000015, 2/ DATA KSTP(1,210),KSTP(2,210),KSTP(3,210),KSTP(4,210), ,KSTP(5,210),KSTP(6,210)/4,4,358,000000,000000, 0/ DATA KSTP(1,211),KSTP(2,211),KSTP(3,211),KSTP(4,211), ,KSTP(5,211),KSTP(6,211)/0,0, 0,4HLT ,4H , 0/ DATA KSTP(1,212),KSTP(2,212),KSTP(3,212),KSTP(4,212), ,KSTP(5,212),KSTP(6,212)/5,0,358,000000,000000,223/ DATA KSTP(1,213),KSTP(2,213),KSTP(3,213),KSTP(4,213), ,KSTP(5,213),KSTP(6,213)/2,0,358,000000,000016, 2/ DATA KSTP(1,214),KSTP(2,214),KSTP(3,214),KSTP(4,214), ,KSTP(5,214),KSTP(6,214)/4,4,218,000000,000000, 0/ DATA KSTP(1,215),KSTP(2,215),KSTP(3,215),KSTP(4,215), ,KSTP(5,215),KSTP(6,215)/0,0, 0,4HGE ,4H , 0/ DATA KSTP(1,216),KSTP(2,216),KSTP(3,216),KSTP(4,216), ,KSTP(5,216),KSTP(6,216)/5,0,218,000000,000000,223/ DATA KSTP(1,217),KSTP(2,217),KSTP(3,217),KSTP(4,217), ,KSTP(5,217),KSTP(6,217)/2,0,218,000000,000017, 2/ DATA KSTP(1,218),KSTP(2,218),KSTP(3,218),KSTP(4,218), ,KSTP(5,218),KSTP(6,218)/4,4, 0,000000,000000, 0/ DATA KSTP(1,219),KSTP(2,219),KSTP(3,219),KSTP(4,219), ,KSTP(5,219),KSTP(6,219)/0,0, 0,4HLE ,4H , 0/ DATA KSTP(1,220),KSTP(2,220),KSTP(3,220),KSTP(4,220), ,KSTP(5,220),KSTP(6,220)/5,0, 0,000000,000000,223/ DATA KSTP(1,221),KSTP(2,221),KSTP(3,221),KSTP(4,221), ,KSTP(5,221),KSTP(6,221)/2,0, 0,000000,000018, 2/ DATA KSTP(1,222),KSTP(2,222),KSTP(3,222),KSTP(4,222), ,KSTP(5,222),KSTP(6,222)/6,0, 0,000000,000000, 0/ C ENTRY NO. 39 DATA KSTP(1,223),KSTP(2,223),KSTP(3,223),KSTP(4,223), ,KSTP(5,223),KSTP(6,223)/5,0, 0,000000,000000,230/ DATA KSTP(1,224),KSTP(2,224),KSTP(3,224),KSTP(4,224), ,KSTP(5,224),KSTP(6,224)/1,0, 0,000000,000000,226/ DATA KSTP(1,225),KSTP(2,225),KSTP(3,225),KSTP(4,225), ,KSTP(5,225),KSTP(6,225)/6,0, 0,000000,000000, 0/ C ENTRY NO. 40 DATA KSTP(1,226),KSTP(2,226),KSTP(3,226),KSTP(4,226), ,KSTP(5,226),KSTP(6,226)/3,0, 0,000000,000011, 0/ DATA KSTP(1,227),KSTP(2,227),KSTP(3,227),KSTP(4,227), ,KSTP(5,227),KSTP(6,227)/5,0, 0,000000,000000,230/ DATA KSTP(1,228),KSTP(2,228),KSTP(3,228),KSTP(4,228), ,KSTP(5,228),KSTP(6,228)/2,0, 0,000000,000019, 2/ DATA KSTP(1,229),KSTP(2,229),KSTP(3,229),KSTP(4,229), ,KSTP(5,229),KSTP(6,229)/6,0, 0,000000,000000, 0/ C ENTRY NO. 41 DATA KSTP(1,230),KSTP(2,230),KSTP(3,230),KSTP(4,230), ,KSTP(5,230),KSTP(6,230)/5,0, 0,000000,000000, 97/ DATA KSTP(1,231),KSTP(2,231),KSTP(3,231),KSTP(4,231), ,KSTP(5,231),KSTP(6,231)/1,0, 0,000000,000000, 90/ DATA KSTP(1,232),KSTP(2,232),KSTP(3,232),KSTP(4,232), ,KSTP(5,232),KSTP(6,232)/6,0, 0,000000,000000, 0/ C ENTRY NO. 42 DATA KSTP(1,233),KSTP(2,233),KSTP(3,233),KSTP(4,233), ,KSTP(5,233),KSTP(6,233)/6,0, 0,000000,000000, 0/ C ENTRY NO. 43 DATA KSTP(1,234),KSTP(2,234),KSTP(3,234),KSTP(4,234), ,KSTP(5,234),KSTP(6,234)/2,0, 0,000000,000004, 6/ DATA KSTP(1,235),KSTP(2,235),KSTP(3,235),KSTP(4,235), ,KSTP(5,235),KSTP(6,235)/5,0, 0,000000,000000, 23/ DATA KSTP(1,236),KSTP(2,236),KSTP(3,236),KSTP(4,236), ,KSTP(5,236),KSTP(6,236)/2,0, 0,000000,000005, 6/ DATA KSTP(1,237),KSTP(2,237),KSTP(3,237),KSTP(4,237), ,KSTP(5,237),KSTP(6,237)/6,0, 0,000000,000000, 0/ C ENTRY NO. 44 DATA KSTP(1,238),KSTP(2,238),KSTP(3,238),KSTP(4,238), ,KSTP(5,238),KSTP(6,238)/3,0,240,000000,000008, 0/ DATA KSTP(1,239),KSTP(2,239),KSTP(3,239),KSTP(4,239), ,KSTP(5,239),KSTP(6,239)/2,0,240,000000,000001, 28/ DATA KSTP(1,240),KSTP(2,240),KSTP(3,240),KSTP(4,240), ,KSTP(5,240),KSTP(6,240)/2,4, 0,000000,000002, 28/ DATA KSTP(1,241),KSTP(2,241),KSTP(3,241),KSTP(4,241), ,KSTP(5,241),KSTP(6,241)/5,0, 0,000000,000000,147/ DATA KSTP(1,242),KSTP(2,242),KSTP(3,242),KSTP(4,242), ,KSTP(5,242),KSTP(6,242)/2,0, 0,000000,000003, 28/ DATA KSTP(1,243),KSTP(2,243),KSTP(3,243),KSTP(4,243), ,KSTP(5,243),KSTP(6,243)/2,0, 0,000000,000002, 13/ DATA KSTP(1,244),KSTP(2,244),KSTP(3,244),KSTP(4,244), ,KSTP(5,244),KSTP(6,244)/6,0, 0,000000,000000, 0/ C ENTRY NO. 45 DATA KSTP(1,245),KSTP(2,245),KSTP(3,245),KSTP(4,245), ,KSTP(5,245),KSTP(6,245)/2,0, 0,000000,000001, 6/ DATA KSTP(1,246),KSTP(2,246),KSTP(3,246),KSTP(4,246), ,KSTP(5,246),KSTP(6,246)/1,0, 0,000000,000000,234/ DATA KSTP(1,247),KSTP(2,247),KSTP(3,247),KSTP(4,247), ,KSTP(5,247),KSTP(6,247)/2,0, 0,000000,000002, 6/ DATA KSTP(1,248),KSTP(2,248),KSTP(3,248),KSTP(4,248), ,KSTP(5,248),KSTP(6,248)/6,0, 0,000000,000000, 0/ C ENTRY NO. 46 DATA KSTP(1,249),KSTP(2,249),KSTP(3,249),KSTP(4,249), ,KSTP(5,249),KSTP(6,249)/2,0, 0,000000,000001, 11/ DATA KSTP(1,250),KSTP(2,250),KSTP(3,250),KSTP(4,250), ,KSTP(5,250),KSTP(6,250)/3,0, 0,000000,000004, 0/ DATA KSTP(1,251),KSTP(2,251),KSTP(3,251),KSTP(4,251), ,KSTP(5,251),KSTP(6,251)/5,0, 0,000000,000000,147/ DATA KSTP(1,252),KSTP(2,252),KSTP(3,252),KSTP(4,252), ,KSTP(5,252),KSTP(6,252)/3,0, 0,000000,000005, 0/ DATA KSTP(1,253),KSTP(2,253),KSTP(3,253),KSTP(4,253), ,KSTP(5,253),KSTP(6,253)/2,0, 0,000000,000002, 11/ DATA KSTP(1,254),KSTP(2,254),KSTP(3,254),KSTP(4,254), ,KSTP(5,254),KSTP(6,254)/6,0, 0,000000,000000, 0/ C ENTRY NO. 47 DATA KSTP(1,255),KSTP(2,255),KSTP(3,255),KSTP(4,255), ,KSTP(5,255),KSTP(6,255)/3,0,258,000000,000004, 0/ DATA KSTP(1,256),KSTP(2,256),KSTP(3,256),KSTP(4,256), ,KSTP(5,256),KSTP(6,256)/5,0,258,000000,000000, 56/ DATA KSTP(1,257),KSTP(2,257),KSTP(3,257),KSTP(4,257), ,KSTP(5,257),KSTP(6,257)/3,0,258,000000,000005, 0/ DATA KSTP(1,258),KSTP(2,258),KSTP(3,258),KSTP(4,258), ,KSTP(5,258),KSTP(6,258)/5,4, 0,000000,000000,233/ DATA KSTP(1,259),KSTP(2,259),KSTP(3,259),KSTP(4,259), ,KSTP(5,259),KSTP(6,259)/6,0, 0,000000,000000, 0/ C ENTRY NO. 48 DATA KSTP(1,260),KSTP(2,260),KSTP(3,260),KSTP(4,260), ,KSTP(5,260),KSTP(6,260)/6,0, 0,000000,000000, 0/ C ENTRY NO. 49 DATA KSTP(1,261),KSTP(2,261),KSTP(3,261),KSTP(4,261), ,KSTP(5,261),KSTP(6,261)/2,0, 0,000000,000000, 32/ DATA KSTP(1,262),KSTP(2,262),KSTP(3,262),KSTP(4,262), ,KSTP(5,262),KSTP(6,262)/6,0, 0,000000,000000, 0/ C ENTRY NO. 50 DATA KSTP(1,263),KSTP(2,263),KSTP(3,263),KSTP(4,263), ,KSTP(5,263),KSTP(6,263)/5,0,264,000000,000000,270/ DATA KSTP(1,264),KSTP(2,264),KSTP(3,264),KSTP(4,264), ,KSTP(5,264),KSTP(6,264)/5,4,265,000000,000000,238/ DATA KSTP(1,265),KSTP(2,265),KSTP(3,265),KSTP(4,265), ,KSTP(5,265),KSTP(6,265)/5,4,266,000000,000000,283/ DATA KSTP(1,266),KSTP(2,266),KSTP(3,266),KSTP(4,266), ,KSTP(5,266),KSTP(6,266)/5,4,267,000000,000000,309/ DATA KSTP(1,267),KSTP(2,267),KSTP(3,267),KSTP(4,267), ,KSTP(5,267),KSTP(6,267)/5,4,268,000000,000000,324/ DATA KSTP(1,268),KSTP(2,268),KSTP(3,268),KSTP(4,268), ,KSTP(5,268),KSTP(6,268)/5,4, 0,000000,000000, 45/ DATA KSTP(1,269),KSTP(2,269),KSTP(3,269),KSTP(4,269), ,KSTP(5,269),KSTP(6,269)/6,0, 0,000000,000000, 0/ C ENTRY NO. 51 DATA KSTP(1,270),KSTP(2,270),KSTP(3,270),KSTP(4,270), ,KSTP(5,270),KSTP(6,270)/5,0, 0,000000,000000,275/ DATA KSTP(1,271),KSTP(2,271),KSTP(3,271),KSTP(4,271), ,KSTP(5,271),KSTP(6,271)/3,0, 0,000000,000006, 0/ DATA KSTP(1,272),KSTP(2,272),KSTP(3,272),KSTP(4,272), ,KSTP(5,272),KSTP(6,272)/5,0, 0,000000,000000, 88/ DATA KSTP(1,273),KSTP(2,273),KSTP(3,273),KSTP(4,273), ,KSTP(5,273),KSTP(6,273)/2,0, 0,000000,000004, 7/ DATA KSTP(1,274),KSTP(2,274),KSTP(3,274),KSTP(4,274), ,KSTP(5,274),KSTP(6,274)/6,0, 0,000000,000000, 0/ C ENTRY NO. 52 DATA KSTP(1,275),KSTP(2,275),KSTP(3,275),KSTP(4,275), ,KSTP(5,275),KSTP(6,275)/2,0,276,000000,000001, 7/ DATA KSTP(1,276),KSTP(2,276),KSTP(3,276),KSTP(4,276), ,KSTP(5,276),KSTP(6,276)/2,4, 0,000000,000002, 7/ DATA KSTP(1,277),KSTP(2,277),KSTP(3,277),KSTP(4,277), ,KSTP(5,277),KSTP(6,277)/3,0, 0,000000,000004, 0/ DATA KSTP(1,278),KSTP(2,278),KSTP(3,278),KSTP(4,278), ,KSTP(5,278),KSTP(6,278)/5,0, 0,000000,000000,147/ DATA KSTP(1,279),KSTP(2,279),KSTP(3,279),KSTP(4,279), ,KSTP(5,279),KSTP(6,279)/3,0, 0,000000,000005, 0/ DATA KSTP(1,280),KSTP(2,280),KSTP(3,280),KSTP(4,280), ,KSTP(5,280),KSTP(6,280)/2,0, 0,000000,000003, 7/ DATA KSTP(1,281),KSTP(2,281),KSTP(3,281),KSTP(4,281), ,KSTP(5,281),KSTP(6,281)/2,0, 0,000000,000002, 13/ DATA KSTP(1,282),KSTP(2,282),KSTP(3,282),KSTP(4,282), ,KSTP(5,282),KSTP(6,282)/6,0, 0,000000,000000, 0/ C ENTRY NO. 53 DATA KSTP(1,283),KSTP(2,283),KSTP(3,283),KSTP(4,283), ,KSTP(5,283),KSTP(6,283)/4,0, 0,000000,000000, 0/ DATA KSTP(1,284),KSTP(2,284),KSTP(3,284),KSTP(4,284), ,KSTP(5,284),KSTP(6,284)/0,0, 0,4HTO ,4H , 0/ DATA KSTP(1,285),KSTP(2,285),KSTP(3,285),KSTP(4,285), ,KSTP(5,285),KSTP(6,285)/2,0, 0,000000,000001, 5/ DATA KSTP(1,286),KSTP(2,286),KSTP(3,286),KSTP(4,286), ,KSTP(5,286),KSTP(6,286)/5,0, 0,000000,000000, 88/ DATA KSTP(1,287),KSTP(2,287),KSTP(3,287),KSTP(4,287), ,KSTP(5,287),KSTP(6,287)/5,0, 0,000000,000000,289/ DATA KSTP(1,288),KSTP(2,288),KSTP(3,288),KSTP(4,288), ,KSTP(5,288),KSTP(6,288)/6,0, 0,000000,000000, 0/ C ENTRY NO. 54 DATA KSTP(1,289),KSTP(2,289),KSTP(3,289),KSTP(4,289), ,KSTP(5,289),KSTP(6,289)/4,0,294,000000,000000, 0/ DATA KSTP(1,290),KSTP(2,290),KSTP(3,290),KSTP(4,290), ,KSTP(5,290),KSTP(6,290)/0,0, 0,4HTHEN,4H , 0/ DATA KSTP(1,291),KSTP(2,291),KSTP(3,291),KSTP(4,291), ,KSTP(5,291),KSTP(6,291)/2,0,294,000000,000002, 5/ DATA KSTP(1,292),KSTP(2,292),KSTP(3,292),KSTP(4,292), ,KSTP(5,292),KSTP(6,292)/5,0,294,000000,000000,245/ DATA KSTP(1,293),KSTP(2,293),KSTP(3,293),KSTP(4,293), ,KSTP(5,293),KSTP(6,293)/5,0,294,000000,000000,298/ DATA KSTP(1,294),KSTP(2,294),KSTP(3,294),KSTP(4,294), ,KSTP(5,294),KSTP(6,294)/2,4, 0,000000,000002, 5/ DATA KSTP(1,295),KSTP(2,295),KSTP(3,295),KSTP(4,295), ,KSTP(5,295),KSTP(6,295)/5,0, 0,000000,000000,263/ DATA KSTP(1,296),KSTP(2,296),KSTP(3,296),KSTP(4,296), ,KSTP(5,296),KSTP(6,296)/2,0, 0,000000,000004, 5/ DATA KSTP(1,297),KSTP(2,297),KSTP(3,297),KSTP(4,297), ,KSTP(5,297),KSTP(6,297)/6,0, 0,000000,000000, 0/ C ENTRY NO. 55 DATA KSTP(1,298),KSTP(2,298),KSTP(3,298),KSTP(4,298), ,KSTP(5,298),KSTP(6,298)/4,0,301,000000,000000, 0/ DATA KSTP(1,299),KSTP(2,299),KSTP(3,299),KSTP(4,299), ,KSTP(5,299),KSTP(6,299)/0,0, 0,4HFI ,4H , 0/ DATA KSTP(1,300),KSTP(2,300),KSTP(3,300),KSTP(4,300), ,KSTP(5,300),KSTP(6,300)/2,0,301,000000,000004, 5/ DATA KSTP(1,301),KSTP(2,301),KSTP(3,301),KSTP(4,301), ,KSTP(5,301),KSTP(6,301)/4,4, 0,000000,000000, 0/ DATA KSTP(1,302),KSTP(2,302),KSTP(3,302),KSTP(4,302), ,KSTP(5,302),KSTP(6,302)/0,0, 0,4HELSE,4H , 0/ DATA KSTP(1,303),KSTP(2,303),KSTP(3,303),KSTP(4,303), ,KSTP(5,303),KSTP(6,303)/2,0, 0,000000,000003, 5/ DATA KSTP(1,304),KSTP(2,304),KSTP(3,304),KSTP(4,304), ,KSTP(5,304),KSTP(6,304)/5,0, 0,000000,000000,245/ DATA KSTP(1,305),KSTP(2,305),KSTP(3,305),KSTP(4,305), ,KSTP(5,305),KSTP(6,305)/4,0, 0,000000,000000, 0/ DATA KSTP(1,306),KSTP(2,306),KSTP(3,306),KSTP(4,306), ,KSTP(5,306),KSTP(6,306)/0,0, 0,4HFI ,4H , 0/ DATA KSTP(1,307),KSTP(2,307),KSTP(3,307),KSTP(4,307), ,KSTP(5,307),KSTP(6,307)/2,0, 0,000000,000004, 5/ DATA KSTP(1,308),KSTP(2,308),KSTP(3,308),KSTP(4,308), ,KSTP(5,308),KSTP(6,308)/6,0, 0,000000,000000, 0/ C ENTRY NO. 56 DATA KSTP(1,309),KSTP(2,309),KSTP(3,309),KSTP(4,309), ,KSTP(5,309),KSTP(6,309)/4,0, 0,000000,000000, 0/ DATA KSTP(1,310),KSTP(2,310),KSTP(3,310),KSTP(4,310), ,KSTP(5,310),KSTP(6,310)/0,0, 0,4HDO ,4H , 0/ DATA KSTP(1,311),KSTP(2,311),KSTP(3,311),KSTP(4,311), ,KSTP(5,311),KSTP(6,311)/2,0, 0,000000,000003, 27/ DATA KSTP(1,312),KSTP(2,312),KSTP(3,312),KSTP(4,312), ,KSTP(5,312),KSTP(6,312)/5,0, 0,000000,000000,145/ DATA KSTP(1,313),KSTP(2,313),KSTP(3,313),KSTP(4,313), ,KSTP(5,313),KSTP(6,313)/3,0, 0,000000,000006, 0/ DATA KSTP(1,314),KSTP(2,314),KSTP(3,314),KSTP(4,314), ,KSTP(5,314),KSTP(6,314)/5,0, 0,000000,000000, 88/ DATA KSTP(1,315),KSTP(2,315),KSTP(3,315),KSTP(4,315), ,KSTP(5,315),KSTP(6,315)/3,0, 0,000000,000007, 0/ DATA KSTP(1,316),KSTP(2,316),KSTP(3,316),KSTP(4,316), ,KSTP(5,316),KSTP(6,316)/5,0, 0,000000,000000, 88/ DATA KSTP(1,317),KSTP(2,317),KSTP(3,317),KSTP(4,317), ,KSTP(5,317),KSTP(6,317)/5,0, 0,000000,000000,319/ DATA KSTP(1,318),KSTP(2,318),KSTP(3,318),KSTP(4,318), ,KSTP(5,318),KSTP(6,318)/6,0, 0,000000,000000, 0/ C ENTRY NO. 57 DATA KSTP(1,319),KSTP(2,319),KSTP(3,319),KSTP(4,319), ,KSTP(5,319),KSTP(6,319)/3,0,322,000000,000007, 0/ DATA KSTP(1,320),KSTP(2,320),KSTP(3,320),KSTP(4,320), ,KSTP(5,320),KSTP(6,320)/5,0,322,000000,000000, 88/ DATA KSTP(1,321),KSTP(2,321),KSTP(3,321),KSTP(4,321), ,KSTP(5,321),KSTP(6,321)/2,0,322,000000,000001, 27/ DATA KSTP(1,322),KSTP(2,322),KSTP(3,322),KSTP(4,322), ,KSTP(5,322),KSTP(6,322)/2,4, 0,000000,000002, 27/ DATA KSTP(1,323),KSTP(2,323),KSTP(3,323),KSTP(4,323), ,KSTP(5,323),KSTP(6,323)/6,0, 0,000000,000000, 0/ C ENTRY NO. 58 DATA KSTP(1,324),KSTP(2,324),KSTP(3,324),KSTP(4,324), ,KSTP(5,324),KSTP(6,324)/2,0,327,000000,000001, 29/ DATA KSTP(1,325),KSTP(2,325),KSTP(3,325),KSTP(4,325), ,KSTP(5,325),KSTP(6,325)/5,0,327,000000,000000, 37/ DATA KSTP(1,326),KSTP(2,326),KSTP(3,326),KSTP(4,326), ,KSTP(5,326),KSTP(6,326)/2,0,327,000000,000002, 29/ DATA KSTP(1,327),KSTP(2,327),KSTP(3,327),KSTP(4,327), ,KSTP(5,327),KSTP(6,327)/2,4,331,000000,000003, 29/ DATA KSTP(1,328),KSTP(2,328),KSTP(3,328),KSTP(4,328), ,KSTP(5,328),KSTP(6,328)/5,0,331,000000,000000,147/ DATA KSTP(1,329),KSTP(2,329),KSTP(3,329),KSTP(4,329), ,KSTP(5,329),KSTP(6,329)/2,0,331,000000,000004, 29/ DATA KSTP(1,330),KSTP(2,330),KSTP(3,330),KSTP(4,330), ,KSTP(5,330),KSTP(6,330)/2,0,331,000000,000002, 13/ DATA KSTP(1,331),KSTP(2,331),KSTP(3,331),KSTP(4,331), ,KSTP(5,331),KSTP(6,331)/2,4,332,000000,000005, 29/ DATA KSTP(1,332),KSTP(2,332),KSTP(3,332),KSTP(4,332), ,KSTP(5,332),KSTP(6,332)/4,4,335,000000,000000, 0/ DATA KSTP(1,333),KSTP(2,333),KSTP(3,333),KSTP(4,333), ,KSTP(5,333),KSTP(6,333)/0,0, 0,4HCALL,4H , 0/ DATA KSTP(1,334),KSTP(2,334),KSTP(3,334),KSTP(4,334), ,KSTP(5,334),KSTP(6,334)/5,0,335,000000,000000,352/ DATA KSTP(1,335),KSTP(2,335),KSTP(3,335),KSTP(4,335), ,KSTP(5,335),KSTP(6,335)/4,4,338,000000,000000, 0/ DATA KSTP(1,336),KSTP(2,336),KSTP(3,336),KSTP(4,336), ,KSTP(5,336),KSTP(6,336)/0,0, 0,4HTRAC,4HK , 0/ DATA KSTP(1,337),KSTP(2,337),KSTP(3,337),KSTP(4,337), ,KSTP(5,337),KSTP(6,337)/2,0,338,000000,000001, 25/ DATA KSTP(1,338),KSTP(2,338),KSTP(3,338),KSTP(4,338), ,KSTP(5,338),KSTP(6,338)/4,4,341,000000,000000, 0/ DATA KSTP(1,339),KSTP(2,339),KSTP(3,339),KSTP(4,339), ,KSTP(5,339),KSTP(6,339)/0,0, 0,4HGOTO,4H , 0/ DATA KSTP(1,340),KSTP(2,340),KSTP(3,340),KSTP(4,340), ,KSTP(5,340),KSTP(6,340)/5,0,341,000000,000000,348/ DATA KSTP(1,341),KSTP(2,341),KSTP(3,341),KSTP(4,341), ,KSTP(5,341),KSTP(6,341)/4,4, 0,000000,000000, 0/ DATA KSTP(1,342),KSTP(2,342),KSTP(3,342),KSTP(4,342), ,KSTP(5,342),KSTP(6,342)/0,0, 0,4HGO ,4H , 0/ DATA KSTP(1,343),KSTP(2,343),KSTP(3,343),KSTP(4,343), ,KSTP(5,343),KSTP(6,343)/4,0, 0,000000,000000, 0/ DATA KSTP(1,344),KSTP(2,344),KSTP(3,344),KSTP(4,344), ,KSTP(5,344),KSTP(6,344)/0,0, 0,4HTO ,4H , 0/ DATA KSTP(1,345),KSTP(2,345),KSTP(3,345),KSTP(4,345), ,KSTP(5,345),KSTP(6,345)/5,0, 0,000000,000000,348/ DATA KSTP(1,346),KSTP(2,346),KSTP(3,346),KSTP(4,346), ,KSTP(5,346),KSTP(6,346)/6,0, 0,000000,000000, 0/ C ENTRY NO. 59 DATA KSTP(1,347),KSTP(2,347),KSTP(3,347),KSTP(4,347), ,KSTP(5,347),KSTP(6,347)/6,0, 0,000000,000000, 0/ C ENTRY NO. 60 DATA KSTP(1,348),KSTP(2,348),KSTP(3,348),KSTP(4,348), ,KSTP(5,348),KSTP(6,348)/2,0,349,000000,000001, 31/ DATA KSTP(1,349),KSTP(2,349),KSTP(3,349),KSTP(4,349), ,KSTP(5,349),KSTP(6,349)/5,4, 0,000000,000000, 88/ DATA KSTP(1,350),KSTP(2,350),KSTP(3,350),KSTP(4,350), ,KSTP(5,350),KSTP(6,350)/2,0, 0,000000,000002, 31/ DATA KSTP(1,351),KSTP(2,351),KSTP(3,351),KSTP(4,351), ,KSTP(5,351),KSTP(6,351)/6,0, 0,000000,000000, 0/ C ENTRY NO. 61 DATA KSTP(1,352),KSTP(2,352),KSTP(3,352),KSTP(4,352), ,KSTP(5,352),KSTP(6,352)/2,0,353,000000,000001, 30/ DATA KSTP(1,353),KSTP(2,353),KSTP(3,353),KSTP(4,353), ,KSTP(5,353),KSTP(6,353)/2,4, 0,000000,000002, 30/ DATA KSTP(1,354),KSTP(2,354),KSTP(3,354),KSTP(4,354), ,KSTP(5,354),KSTP(6,354)/5,0, 0,000000,000000,249/ DATA KSTP(1,355),KSTP(2,355),KSTP(3,355),KSTP(4,355), ,KSTP(5,355),KSTP(6,355)/2,0, 0,000000,000003, 30/ DATA KSTP(1,356),KSTP(2,356),KSTP(3,356),KSTP(4,356), ,KSTP(5,356),KSTP(6,356)/6,0, 0,000000,000000, 0/ C ENTRY NO.*45 DATA KSTP(1,357),KSTP(2,357),KSTP(3,357),KSTP(4,357), ,KSTP(5,357),KSTP(6,357)/7,7,511,000777,000777,511/ C C Extra entry for CT (CLOSE TO) DATA KSTP(1,358),KSTP(2,358),KSTP(3,358),KSTP(4,358), ,KSTP(5,358),KSTP(6,358)/4,4,214,000000,000000, 0/ DATA KSTP(1,359),KSTP(2,359),KSTP(3,359),KSTP(4,359), ,KSTP(5,359),KSTP(6,359)/0,0, 0,4HCT ,4H , 0/ DATA KSTP(1,360),KSTP(2,360),KSTP(3,360),KSTP(4,360), ,KSTP(5,360),KSTP(6,360)/5,0,214,000000,000000,223/ DATA KSTP(1,361),KSTP(2,361),KSTP(3,361),KSTP(4,361), ,KSTP(5,361),KSTP(6,361)/2,0,214,000000,000019, 2/ DATA KSTP(1,362),KSTP(2,362),KSTP(3,362),KSTP(4,362), ,KSTP(5,362),KSTP(6,362)/6,0, 0,000000,000000, 0/ #endif #if defined(CERNLIB_CRAY) C DIMENSION KSTP(6,362) C C ENTRY NO. 1 DATA KSTP(1, 1),KSTP(2, 1),KSTP(3, 1),KSTP(4, 1), ,KSTP(5, 1),KSTP(6, 1)/2,0, 0,000000,000028, 2/ DATA KSTP(1, 2),KSTP(2, 2),KSTP(3, 2),KSTP(4, 2), ,KSTP(5, 2),KSTP(6, 2)/5,0, 0,000000,000000, 5/ DATA KSTP(1, 3),KSTP(2, 3),KSTP(3, 3),KSTP(4, 3), ,KSTP(5, 3),KSTP(6, 3)/2,0, 0,000000,000029, 2/ DATA KSTP(1, 4),KSTP(2, 4),KSTP(3, 4),KSTP(4, 4), ,KSTP(5, 4),KSTP(6, 4)/6,0, 0,000000,000000, 0/ C ENTRY NO. 2 DATA KSTP(1, 5),KSTP(2, 5),KSTP(3, 5),KSTP(4, 5), ,KSTP(5, 5),KSTP(6, 5)/4,0, 9,000000,000000, 0/ DATA KSTP(1, 6),KSTP(2, 6),KSTP(3, 6),KSTP(4, 6), ,KSTP(5, 6),KSTP(6, 6)/0,0, 0,4HSUBR,4HOUTI, 0/ DATA KSTP(1, 7),KSTP(2, 7),KSTP(3, 7),KSTP(4, 7), ,KSTP(5, 7),KSTP(6, 7)/2,0, 9,000000,000001, 15/ DATA KSTP(1, 8),KSTP(2, 8),KSTP(3, 8),KSTP(4, 8), ,KSTP(5, 8),KSTP(6, 8)/5,0, 9,000000,000000, 28/ DATA KSTP(1, 9),KSTP(2, 9),KSTP(3, 9),KSTP(4, 9), ,KSTP(5, 9),KSTP(6, 9)/4,4, 13,000000,000000, 0/ DATA KSTP(1, 10),KSTP(2, 10),KSTP(3, 10),KSTP(4, 10), ,KSTP(5, 10),KSTP(6, 10)/0,0, 0,4HFUNC,4HTION, 0/ DATA KSTP(1, 11),KSTP(2, 11),KSTP(3, 11),KSTP(4, 11), ,KSTP(5, 11),KSTP(6, 11)/2,0, 13,000000,000002, 15/ DATA KSTP(1, 12),KSTP(2, 12),KSTP(3, 12),KSTP(4, 12), ,KSTP(5, 12),KSTP(6, 12)/5,0, 13,000000,000000, 28/ DATA KSTP(1, 13),KSTP(2, 13),KSTP(3, 13),KSTP(4, 13), ,KSTP(5, 13),KSTP(6, 13)/4,4, 17,000000,000000, 0/ DATA KSTP(1, 14),KSTP(2, 14),KSTP(3, 14),KSTP(4, 14), ,KSTP(5, 14),KSTP(6, 14)/0,0, 0,4HFMAC,4HRO , 0/ DATA KSTP(1, 15),KSTP(2, 15),KSTP(3, 15),KSTP(4, 15), ,KSTP(5, 15),KSTP(6, 15)/2,0, 17,000000,000007, 15/ DATA KSTP(1, 16),KSTP(2, 16),KSTP(3, 16),KSTP(4, 16), ,KSTP(5, 16),KSTP(6, 16)/5,0, 17,000000,000000, 28/ DATA KSTP(1, 17),KSTP(2, 17),KSTP(3, 17),KSTP(4, 17), ,KSTP(5, 17),KSTP(6, 17)/4,4, 21,000000,000000, 0/ DATA KSTP(1, 18),KSTP(2, 18),KSTP(3, 18),KSTP(4, 18), ,KSTP(5, 18),KSTP(6, 18)/0,0, 0,4HMACR,4HO , 0/ DATA KSTP(1, 19),KSTP(2, 19),KSTP(3, 19),KSTP(4, 19), ,KSTP(5, 19),KSTP(6, 19)/2,0, 21,000000,000008, 15/ DATA KSTP(1, 20),KSTP(2, 20),KSTP(3, 20),KSTP(4, 20), ,KSTP(5, 20),KSTP(6, 20)/5,0, 21,000000,000000, 28/ DATA KSTP(1, 21),KSTP(2, 21),KSTP(3, 21),KSTP(4, 21), ,KSTP(5, 21),KSTP(6, 21)/5,4, 0,000000,000000, 23/ DATA KSTP(1, 22),KSTP(2, 22),KSTP(3, 22),KSTP(4, 22), ,KSTP(5, 22),KSTP(6, 22)/6,0, 0,000000,000000, 0/ C ENTRY NO. 3 DATA KSTP(1, 23),KSTP(2, 23),KSTP(3, 23),KSTP(4, 23), ,KSTP(5, 23),KSTP(6, 23)/2,0, 26,000000,000001, 3/ DATA KSTP(1, 24),KSTP(2, 24),KSTP(3, 24),KSTP(4, 24), ,KSTP(5, 24),KSTP(6, 24)/5,0, 26,000000,000000,263/ DATA KSTP(1, 25),KSTP(2, 25),KSTP(3, 25),KSTP(4, 25), ,KSTP(5, 25),KSTP(6, 25)/2,0, 26,000000,000002, 3/ DATA KSTP(1, 26),KSTP(2, 26),KSTP(3, 26),KSTP(4, 26), ,KSTP(5, 26),KSTP(6, 26)/5,4, 0,000000,000000,263/ DATA KSTP(1, 27),KSTP(2, 27),KSTP(3, 27),KSTP(4, 27), ,KSTP(5, 27),KSTP(6, 27)/6,0, 0,000000,000000, 0/ C ENTRY NO. 4 DATA KSTP(1, 28),KSTP(2, 28),KSTP(3, 28),KSTP(4, 28), ,KSTP(5, 28),KSTP(6, 28)/5,0, 0,000000,000000, 30/ DATA KSTP(1, 29),KSTP(2, 29),KSTP(3, 29),KSTP(4, 29), ,KSTP(5, 29),KSTP(6, 29)/6,0, 0,000000,000000, 0/ C ENTRY NO. 5 DATA KSTP(1, 30),KSTP(2, 30),KSTP(3, 30),KSTP(4, 30), ,KSTP(5, 30),KSTP(6, 30)/2,0, 31,000000,000003, 15/ DATA KSTP(1, 31),KSTP(2, 31),KSTP(3, 31),KSTP(4, 31), ,KSTP(5, 31),KSTP(6, 31)/2,4, 0,000000,000004, 15/ DATA KSTP(1, 32),KSTP(2, 32),KSTP(3, 32),KSTP(4, 32), ,KSTP(5, 32),KSTP(6, 32)/3,0, 0,000000,000004, 0/ DATA KSTP(1, 33),KSTP(2, 33),KSTP(3, 33),KSTP(4, 33), ,KSTP(5, 33),KSTP(6, 33)/5,0, 0,000000,000000, 37/ DATA KSTP(1, 34),KSTP(2, 34),KSTP(3, 34),KSTP(4, 34), ,KSTP(5, 34),KSTP(6, 34)/3,0, 0,000000,000005, 0/ DATA KSTP(1, 35),KSTP(2, 35),KSTP(3, 35),KSTP(4, 35), ,KSTP(5, 35),KSTP(6, 35)/2,0, 0,000000,000005, 15/ DATA KSTP(1, 36),KSTP(2, 36),KSTP(3, 36),KSTP(4, 36), ,KSTP(5, 36),KSTP(6, 36)/6,0, 0,000000,000000, 0/ C ENTRY NO. 6 DATA KSTP(1, 37),KSTP(2, 37),KSTP(3, 37),KSTP(4, 37), ,KSTP(5, 37),KSTP(6, 37)/2,0, 0,000000,000001, 16/ DATA KSTP(1, 38),KSTP(2, 38),KSTP(3, 38),KSTP(4, 38), ,KSTP(5, 38),KSTP(6, 38)/5,0, 0,000000,000000,145/ DATA KSTP(1, 39),KSTP(2, 39),KSTP(3, 39),KSTP(4, 39), ,KSTP(5, 39),KSTP(6, 39)/1,0, 0,000000,000000, 41/ DATA KSTP(1, 40),KSTP(2, 40),KSTP(3, 40),KSTP(4, 40), ,KSTP(5, 40),KSTP(6, 40)/6,0, 0,000000,000000, 0/ C ENTRY NO. 7 DATA KSTP(1, 41),KSTP(2, 41),KSTP(3, 41),KSTP(4, 41), ,KSTP(5, 41),KSTP(6, 41)/3,0, 0,000000,000007, 0/ DATA KSTP(1, 42),KSTP(2, 42),KSTP(3, 42),KSTP(4, 42), ,KSTP(5, 42),KSTP(6, 42)/2,0, 0,000000,000002, 16/ DATA KSTP(1, 43),KSTP(2, 43),KSTP(3, 43),KSTP(4, 43), ,KSTP(5, 43),KSTP(6, 43)/5,0, 0,000000,000000,145/ DATA KSTP(1, 44),KSTP(2, 44),KSTP(3, 44),KSTP(4, 44), ,KSTP(5, 44),KSTP(6, 44)/6,0, 0,000000,000000, 0/ C ENTRY NO. 8 DATA KSTP(1, 45),KSTP(2, 45),KSTP(3, 45),KSTP(4, 45), ,KSTP(5, 45),KSTP(6, 45)/4,0, 52,000000,000000, 0/ DATA KSTP(1, 46),KSTP(2, 46),KSTP(3, 46),KSTP(4, 46), ,KSTP(5, 46),KSTP(6, 46)/0,0, 0,4HDISP,4HLAY , 0/ DATA KSTP(1, 47),KSTP(2, 47),KSTP(3, 47),KSTP(4, 47), ,KSTP(5, 47),KSTP(6, 47)/2,0, 52,000000,000101, 2/ DATA KSTP(1, 48),KSTP(2, 48),KSTP(3, 48),KSTP(4, 48), ,KSTP(5, 48),KSTP(6, 48)/2,0, 52,000000,000102, 2/ DATA KSTP(1, 49),KSTP(2, 49),KSTP(3, 49),KSTP(4, 49), ,KSTP(5, 49),KSTP(6, 49)/2,0, 52,000000,000000, 19/ DATA KSTP(1, 50),KSTP(2, 50),KSTP(3, 50),KSTP(4, 50), ,KSTP(5, 50),KSTP(6, 50)/5,0, 52,000000,000000,255/ DATA KSTP(1, 51),KSTP(2, 51),KSTP(3, 51),KSTP(4, 51), ,KSTP(5, 51),KSTP(6, 51)/5,0, 52,000000,000000, 70/ DATA KSTP(1, 52),KSTP(2, 52),KSTP(3, 52),KSTP(4, 52), ,KSTP(5, 52),KSTP(6, 52)/2,4, 0,000000,000102, 2/ DATA KSTP(1, 53),KSTP(2, 53),KSTP(3, 53),KSTP(4, 53), ,KSTP(5, 53),KSTP(6, 53)/2,0, 0,000000,000000, 19/ DATA KSTP(1, 54),KSTP(2, 54),KSTP(3, 54),KSTP(4, 54), ,KSTP(5, 54),KSTP(6, 54)/5,0, 0,000000,000000, 70/ DATA KSTP(1, 55),KSTP(2, 55),KSTP(3, 55),KSTP(4, 55), ,KSTP(5, 55),KSTP(6, 55)/6,0, 0,000000,000000, 0/ C ENTRY NO. 9 DATA KSTP(1, 56),KSTP(2, 56),KSTP(3, 56),KSTP(4, 56), ,KSTP(5, 56),KSTP(6, 56)/3,0, 58,000000,000006, 0/ DATA KSTP(1, 57),KSTP(2, 57),KSTP(3, 57),KSTP(4, 57), ,KSTP(5, 57),KSTP(6, 57)/2,0, 58,000000,000107, 2/ DATA KSTP(1, 58),KSTP(2, 58),KSTP(3, 58),KSTP(4, 58), ,KSTP(5, 58),KSTP(6, 58)/5,4, 0,000000,000000, 61/ DATA KSTP(1, 59),KSTP(2, 59),KSTP(3, 59),KSTP(4, 59), ,KSTP(5, 59),KSTP(6, 59)/5,0, 0,000000,000000, 65/ DATA KSTP(1, 60),KSTP(2, 60),KSTP(3, 60),KSTP(4, 60), ,KSTP(5, 60),KSTP(6, 60)/6,0, 0,000000,000000, 0/ C ENTRY NO. 10 DATA KSTP(1, 61),KSTP(2, 61),KSTP(3, 61),KSTP(4, 61), ,KSTP(5, 61),KSTP(6, 61)/5,0, 63,000000,000000,155/ DATA KSTP(1, 62),KSTP(2, 62),KSTP(3, 62),KSTP(4, 62), ,KSTP(5, 62),KSTP(6, 62)/2,0, 63,000000,000002, 26/ DATA KSTP(1, 63),KSTP(2, 63),KSTP(3, 63),KSTP(4, 63), ,KSTP(5, 63),KSTP(6, 63)/5,4, 0,000000,000000,233/ DATA KSTP(1, 64),KSTP(2, 64),KSTP(3, 64),KSTP(4, 64), ,KSTP(5, 64),KSTP(6, 64)/6,0, 0,000000,000000, 0/ C ENTRY NO. 11 DATA KSTP(1, 65),KSTP(2, 65),KSTP(3, 65),KSTP(4, 65), ,KSTP(5, 65),KSTP(6, 65)/3,0, 68,000000,000010, 0/ DATA KSTP(1, 66),KSTP(2, 66),KSTP(3, 66),KSTP(4, 66), ,KSTP(5, 66),KSTP(6, 66)/5,0, 68,000000,000000,155/ DATA KSTP(1, 67),KSTP(2, 67),KSTP(3, 67),KSTP(4, 67), ,KSTP(5, 67),KSTP(6, 67)/2,0, 68,000000,000001, 26/ DATA KSTP(1, 68),KSTP(2, 68),KSTP(3, 68),KSTP(4, 68), ,KSTP(5, 68),KSTP(6, 68)/5,4, 0,000000,000000,233/ DATA KSTP(1, 69),KSTP(2, 69),KSTP(3, 69),KSTP(4, 69), ,KSTP(5, 69),KSTP(6, 69)/6,0, 0,000000,000000, 0/ C ENTRY NO. 12 DATA KSTP(1, 70),KSTP(2, 70),KSTP(3, 70),KSTP(4, 70), ,KSTP(5, 70),KSTP(6, 70)/5,0, 0,000000,000000, 81/ DATA KSTP(1, 71),KSTP(2, 71),KSTP(3, 71),KSTP(4, 71), ,KSTP(5, 71),KSTP(6, 71)/1,0, 0,000000,000000, 74/ DATA KSTP(1, 72),KSTP(2, 72),KSTP(3, 72),KSTP(4, 72), ,KSTP(5, 72),KSTP(6, 72)/2,0, 0,000000,000000, 23/ DATA KSTP(1, 73),KSTP(2, 73),KSTP(3, 73),KSTP(4, 73), ,KSTP(5, 73),KSTP(6, 73)/6,0, 0,000000,000000, 0/ C ENTRY NO. 13 DATA KSTP(1, 74),KSTP(2, 74),KSTP(3, 74),KSTP(4, 74), ,KSTP(5, 74),KSTP(6, 74)/3,0, 77,000000,000007, 0/ DATA KSTP(1, 75),KSTP(2, 75),KSTP(3, 75),KSTP(4, 75), ,KSTP(5, 75),KSTP(6, 75)/2,0, 77,000000,000000, 22/ DATA KSTP(1, 76),KSTP(2, 76),KSTP(3, 76),KSTP(4, 76), ,KSTP(5, 76),KSTP(6, 76)/5,0, 77,000000,000000, 81/ DATA KSTP(1, 77),KSTP(2, 77),KSTP(3, 77),KSTP(4, 77), ,KSTP(5, 77),KSTP(6, 77)/3,4, 0,000000,000010, 0/ DATA KSTP(1, 78),KSTP(2, 78),KSTP(3, 78),KSTP(4, 78), ,KSTP(5, 78),KSTP(6, 78)/2,0, 0,000000,000000, 21/ DATA KSTP(1, 79),KSTP(2, 79),KSTP(3, 79),KSTP(4, 79), ,KSTP(5, 79),KSTP(6, 79)/5,0, 0,000000,000000, 88/ DATA KSTP(1, 80),KSTP(2, 80),KSTP(3, 80),KSTP(4, 80), ,KSTP(5, 80),KSTP(6, 80)/6,0, 0,000000,000000, 0/ C ENTRY NO. 14 DATA KSTP(1, 81),KSTP(2, 81),KSTP(3, 81),KSTP(4, 81), ,KSTP(5, 81),KSTP(6, 81)/3,0, 85,000000,000015, 0/ DATA KSTP(1, 82),KSTP(2, 82),KSTP(3, 82),KSTP(4, 82), ,KSTP(5, 82),KSTP(6, 82)/2,0, 85,000000,000000, 20/ DATA KSTP(1, 83),KSTP(2, 83),KSTP(3, 83),KSTP(4, 83), ,KSTP(5, 83),KSTP(6, 83)/3,0, 85,000000,000016, 0/ DATA KSTP(1, 84),KSTP(2, 84),KSTP(3, 84),KSTP(4, 84), ,KSTP(5, 84),KSTP(6, 84)/5,0, 85,000000,000000, 88/ DATA KSTP(1, 85),KSTP(2, 85),KSTP(3, 85),KSTP(4, 85), ,KSTP(5, 85),KSTP(6, 85)/2,4, 0,000000,000000, 24/ DATA KSTP(1, 86),KSTP(2, 86),KSTP(3, 86),KSTP(4, 86), ,KSTP(5, 86),KSTP(6, 86)/5,0, 0,000000,000000, 88/ DATA KSTP(1, 87),KSTP(2, 87),KSTP(3, 87),KSTP(4, 87), ,KSTP(5, 87),KSTP(6, 87)/6,0, 0,000000,000000, 0/ C ENTRY NO. 15 DATA KSTP(1, 88),KSTP(2, 88),KSTP(3, 88),KSTP(4, 88), ,KSTP(5, 88),KSTP(6, 88)/5,0, 0,000000,000000,172/ DATA KSTP(1, 89),KSTP(2, 89),KSTP(3, 89),KSTP(4, 89), ,KSTP(5, 89),KSTP(6, 89)/6,0, 0,000000,000000, 0/ C ENTRY NO. 16 DATA KSTP(1, 90),KSTP(2, 90),KSTP(3, 90),KSTP(4, 90), ,KSTP(5, 90),KSTP(6, 90)/3,0, 93,000000,000002, 0/ DATA KSTP(1, 91),KSTP(2, 91),KSTP(3, 91),KSTP(4, 91), ,KSTP(5, 91),KSTP(6, 91)/5,0, 93,000000,000000, 97/ DATA KSTP(1, 92),KSTP(2, 92),KSTP(3, 92),KSTP(4, 92), ,KSTP(5, 92),KSTP(6, 92)/2,0, 93,000000,000011, 2/ DATA KSTP(1, 93),KSTP(2, 93),KSTP(3, 93),KSTP(4, 93), ,KSTP(5, 93),KSTP(6, 93)/3,4, 0,000000,000001, 0/ DATA KSTP(1, 94),KSTP(2, 94),KSTP(3, 94),KSTP(4, 94), ,KSTP(5, 94),KSTP(6, 94)/5,0, 0,000000,000000, 97/ DATA KSTP(1, 95),KSTP(2, 95),KSTP(3, 95),KSTP(4, 95), ,KSTP(5, 95),KSTP(6, 95)/2,0, 0,000000,000012, 2/ DATA KSTP(1, 96),KSTP(2, 96),KSTP(3, 96),KSTP(4, 96), ,KSTP(5, 96),KSTP(6, 96)/6,0, 0,000000,000000, 0/ C ENTRY NO. 17 DATA KSTP(1, 97),KSTP(2, 97),KSTP(3, 97),KSTP(4, 97), ,KSTP(5, 97),KSTP(6, 97)/5,0, 0,000000,000000,111/ DATA KSTP(1, 98),KSTP(2, 98),KSTP(3, 98),KSTP(4, 98), ,KSTP(5, 98),KSTP(6, 98)/1,0, 0,000000,000000,100/ DATA KSTP(1, 99),KSTP(2, 99),KSTP(3, 99),KSTP(4, 99), ,KSTP(5, 99),KSTP(6, 99)/6,0, 0,000000,000000, 0/ C ENTRY NO. 18 DATA KSTP(1,100),KSTP(2,100),KSTP(3,100),KSTP(4,100), ,KSTP(5,100),KSTP(6,100)/3,0,103,000000,000017, 0/ DATA KSTP(1,101),KSTP(2,101),KSTP(3,101),KSTP(4,101), ,KSTP(5,101),KSTP(6,101)/5,0,103,000000,000000,111/ DATA KSTP(1,102),KSTP(2,102),KSTP(3,102),KSTP(4,102), ,KSTP(5,102),KSTP(6,102)/2,0,103,000000,000009, 2/ DATA KSTP(1,103),KSTP(2,103),KSTP(3,103),KSTP(4,103), ,KSTP(5,103),KSTP(6,103)/3,4,106,000000,000003, 0/ DATA KSTP(1,104),KSTP(2,104),KSTP(3,104),KSTP(4,104), ,KSTP(5,104),KSTP(6,104)/5,0,106,000000,000000,111/ DATA KSTP(1,105),KSTP(2,105),KSTP(3,105),KSTP(4,105), ,KSTP(5,105),KSTP(6,105)/2,0,106,000000,000010, 2/ DATA KSTP(1,106),KSTP(2,106),KSTP(3,106),KSTP(4,106), ,KSTP(5,106),KSTP(6,106)/4,4, 0,000000,000000, 0/ DATA KSTP(1,107),KSTP(2,107),KSTP(3,107),KSTP(4,107), ,KSTP(5,107),KSTP(6,107)/0,0, 0,4HMULT,4H , 0/ DATA KSTP(1,108),KSTP(2,108),KSTP(3,108),KSTP(4,108), ,KSTP(5,108),KSTP(6,108)/5,0, 0,000000,000000,111/ DATA KSTP(1,109),KSTP(2,109),KSTP(3,109),KSTP(4,109), ,KSTP(5,109),KSTP(6,109)/2,0, 0,000000,000036, 2/ DATA KSTP(1,110),KSTP(2,110),KSTP(3,110),KSTP(4,110), ,KSTP(5,110),KSTP(6,110)/6,0, 0,000000,000000, 0/ ***************************************************** * NOW PRIORITIES OF ** AND UNARY MINUS ARE REVERSED, * i.e. FORTRAN-LIKE ***************************************************** C ENTRY NO. 19 DATA KSTP(1,111),KSTP(2,111),KSTP(3,111),KSTP(4,111), ,KSTP(5,111),KSTP(6,111)/3,0,115,0,2,0/ DATA KSTP(1,112),KSTP(2,112),KSTP(3,112),KSTP(4,112), ,KSTP(5,112),KSTP(6,112)/2,0,115,0,0,8/ DATA KSTP(1,113),KSTP(2,113),KSTP(3,113),KSTP(4,113), ,KSTP(5,113),KSTP(6,113)/5,0,115,0,0,119/ C ENTRY NO. 20 DATA KSTP(1,114),KSTP(2,114),KSTP(3,114),KSTP(4,114), ,KSTP(5,114),KSTP(6,114)/2,0,115,0,11,2/ DATA KSTP(1,115),KSTP(2,115),KSTP(3,115),KSTP(4,115), ,KSTP(5,115),KSTP(6,115)/3,4,117,0,1,0/ DATA KSTP(1,116),KSTP(2,116),KSTP(3,116),KSTP(4,116), ,KSTP(5,116),KSTP(6,116)/5,0,117,0,0,119/ DATA KSTP(1,117),KSTP(2,117),KSTP(3,117),KSTP(4,117), ,KSTP(5,117),KSTP(6,117)/5,4,0,0,0,119/ C ENTRY NO. 21 DATA KSTP(1,118),KSTP(2,118),KSTP(3,118),KSTP(4,118), ,KSTP(5,118),KSTP(6,118)/6,0,0,0,0,0/ DATA KSTP(1,119),KSTP(2,119),KSTP(3,119),KSTP(4,119), ,KSTP(5,119),KSTP(6,119)/5,0,0,0,0,126/ DATA KSTP(1,120),KSTP(2,120),KSTP(3,120),KSTP(4,120), ,KSTP(5,120),KSTP(6,120)/1,0,0,0,0,122/ DATA KSTP(1,121),KSTP(2,121),KSTP(3,121),KSTP(4,121), ,KSTP(5,121),KSTP(6,121)/6,0,0,0,0,0/ DATA KSTP(1,122),KSTP(2,122),KSTP(3,122),KSTP(4,122), ,KSTP(5,122),KSTP(6,122)/3,0,0,0,22,0/ DATA KSTP(1,123),KSTP(2,123),KSTP(3,123),KSTP(4,123), ,KSTP(5,123),KSTP(6,123)/5,0,0,0,0,126/ DATA KSTP(1,124),KSTP(2,124),KSTP(3,124),KSTP(4,124), ,KSTP(5,124),KSTP(6,124)/2,0,0,0,8,2/ DATA KSTP(1,125),KSTP(2,125),KSTP(3,125),KSTP(4,125), ,KSTP(5,125),KSTP(6,125)/6,0, 0,000000,000000, 0/ C ENTRY NO. 22 DATA KSTP(1,126),KSTP(2,126),KSTP(3,126),KSTP(4,126), ,KSTP(5,126),KSTP(6,126)/5,0,127,000000,000000,145/ DATA KSTP(1,127),KSTP(2,127),KSTP(3,127),KSTP(4,127), ,KSTP(5,127),KSTP(6,127)/5,4,128,000000,000000,141/ DATA KSTP(1,128),KSTP(2,128),KSTP(3,128),KSTP(4,128), ,KSTP(5,128),KSTP(6,128)/5,4,129,000000,000000,139/ DATA KSTP(1,129),KSTP(2,129),KSTP(3,129),KSTP(4,129), ,KSTP(5,129),KSTP(6,129)/3,4,131,000000,000014, 0/ DATA KSTP(1,130),KSTP(2,130),KSTP(3,130),KSTP(4,130), ,KSTP(5,130),KSTP(6,130)/2,0,131,000000,000001, 4/ DATA KSTP(1,131),KSTP(2,131),KSTP(3,131),KSTP(4,131), ,KSTP(5,131),KSTP(6,131)/4,4,137,000000,000000, 0/ DATA KSTP(1,132),KSTP(2,132),KSTP(3,132),KSTP(4,132), ,KSTP(5,132),KSTP(6,132)/0,0, 0,8HARRAY ,4H , 0/ DATA KSTP(1,133),KSTP(2,133),KSTP(3,133),KSTP(4,133), ,KSTP(5,133),KSTP(6,133)/3,0,137,000000,000004, 0/ DATA KSTP(1,134),KSTP(2,134),KSTP(3,134),KSTP(4,134), ,KSTP(5,134),KSTP(6,134)/5,0,137,000000,000000, 88/ DATA KSTP(1,135),KSTP(2,135),KSTP(3,135),KSTP(4,135), ,KSTP(5,135),KSTP(6,135)/2,0,137,000000,000201, 2/ DATA KSTP(1,136),KSTP(2,136),KSTP(3,136),KSTP(4,136), ,KSTP(5,136),KSTP(6,136)/5,0,137,000000,000000,159/ DATA KSTP(1,137),KSTP(2,137),KSTP(3,137),KSTP(4,137), ,KSTP(5,137),KSTP(6,137)/5,4, 0,000000,000000,249/ DATA KSTP(1,138),KSTP(2,138),KSTP(3,138),KSTP(4,138), ,KSTP(5,138),KSTP(6,138)/6,0, 0,000000,000000, 0/ C ENTRY NO. 23 DATA KSTP(1,139),KSTP(2,139),KSTP(3,139),KSTP(4,139), ,KSTP(5,139),KSTP(6,139)/2,0, 0,000000,000000, 9/ DATA KSTP(1,140),KSTP(2,140),KSTP(3,140),KSTP(4,140), ,KSTP(5,140),KSTP(6,140)/6,0, 0,000000,000000, 0/ C ENTRY NO. 24 DATA KSTP(1,141),KSTP(2,141),KSTP(3,141),KSTP(4,141), ,KSTP(5,141),KSTP(6,141)/3,0, 0,000000,000004, 0/ DATA KSTP(1,142),KSTP(2,142),KSTP(3,142),KSTP(4,142), ,KSTP(5,142),KSTP(6,142)/5,0, 0,000000,000000,172/ DATA KSTP(1,143),KSTP(2,143),KSTP(3,143),KSTP(4,143), ,KSTP(5,143),KSTP(6,143)/3,0, 0,000000,000005, 0/ DATA KSTP(1,144),KSTP(2,144),KSTP(3,144),KSTP(4,144), ,KSTP(5,144),KSTP(6,144)/6,0, 0,000000,000000, 0/ C ENTRY NO. 25 DATA KSTP(1,145),KSTP(2,145),KSTP(3,145),KSTP(4,145), ,KSTP(5,145),KSTP(6,145)/2,0, 0,000000,000000, 10/ DATA KSTP(1,146),KSTP(2,146),KSTP(3,146),KSTP(4,146), ,KSTP(5,146),KSTP(6,146)/6,0, 0,000000,000000, 0/ C ENTRY NO. 26 DATA KSTP(1,147),KSTP(2,147),KSTP(3,147),KSTP(4,147), ,KSTP(5,147),KSTP(6,147)/2,0, 0,000000,000001, 13/ DATA KSTP(1,148),KSTP(2,148),KSTP(3,148),KSTP(4,148), ,KSTP(5,148),KSTP(6,148)/1,0, 0,000000,000000,150/ DATA KSTP(1,149),KSTP(2,149),KSTP(3,149),KSTP(4,149), ,KSTP(5,149),KSTP(6,149)/6,0, 0,000000,000000, 0/ C ENTRY NO. 27 DATA KSTP(1,150),KSTP(2,150),KSTP(3,150),KSTP(4,150), ,KSTP(5,150),KSTP(6,150)/5,0,152,000000,000000, 88/ DATA KSTP(1,151),KSTP(2,151),KSTP(3,151),KSTP(4,151), ,KSTP(5,151),KSTP(6,151)/2,0,152,000000,000000, 14/ DATA KSTP(1,152),KSTP(2,152),KSTP(3,152),KSTP(4,152), ,KSTP(5,152),KSTP(6,152)/5,4, 0,000000,000000,261/ DATA KSTP(1,153),KSTP(2,153),KSTP(3,153),KSTP(4,153), ,KSTP(5,153),KSTP(6,153)/2,0, 0,000000,000000, 14/ DATA KSTP(1,154),KSTP(2,154),KSTP(3,154),KSTP(4,154), ,KSTP(5,154),KSTP(6,154)/6,0, 0,000000,000000, 0/ C ENTRY NO. 28 DATA KSTP(1,155),KSTP(2,155),KSTP(3,155),KSTP(4,155), ,KSTP(5,155),KSTP(6,155)/5,0, 0,000000,000000, 88/ DATA KSTP(1,156),KSTP(2,156),KSTP(3,156),KSTP(4,156), ,KSTP(5,156),KSTP(6,156)/3,0, 0,000000,000009, 0/ DATA KSTP(1,157),KSTP(2,157),KSTP(3,157),KSTP(4,157), ,KSTP(5,157),KSTP(6,157)/5,0, 0,000000,000000, 88/ DATA KSTP(1,158),KSTP(2,158),KSTP(3,158),KSTP(4,158), ,KSTP(5,158),KSTP(6,158)/6,0, 0,000000,000000, 0/ C ENTRY NO. 29 DATA KSTP(1,159),KSTP(2,159),KSTP(3,159),KSTP(4,159), ,KSTP(5,159),KSTP(6,159)/3,0,161,000000,000005, 0/ DATA KSTP(1,160),KSTP(2,160),KSTP(3,160),KSTP(4,160), ,KSTP(5,160),KSTP(6,160)/2,0,161,000000,000202, 2/ DATA KSTP(1,161),KSTP(2,161),KSTP(3,161),KSTP(4,161), ,KSTP(5,161),KSTP(6,161)/3,4, 0,000000,000007, 0/ DATA KSTP(1,162),KSTP(2,162),KSTP(3,162),KSTP(4,162), ,KSTP(5,162),KSTP(6,162)/5,0, 0,000000,000000, 88/ DATA KSTP(1,163),KSTP(2,163),KSTP(3,163),KSTP(4,163), ,KSTP(5,163),KSTP(6,163)/5,0, 0,000000,000000,165/ DATA KSTP(1,164),KSTP(2,164),KSTP(3,164),KSTP(4,164), ,KSTP(5,164),KSTP(6,164)/6,0, 0,000000,000000, 0/ C ENTRY NO. 30 DATA KSTP(1,165),KSTP(2,165),KSTP(3,165),KSTP(4,165), ,KSTP(5,165),KSTP(6,165)/3,0,169,000000,000009, 0/ DATA KSTP(1,166),KSTP(2,166),KSTP(3,166),KSTP(4,166), ,KSTP(5,166),KSTP(6,166)/5,0,169,000000,000000, 88/ DATA KSTP(1,167),KSTP(2,167),KSTP(3,167),KSTP(4,167), ,KSTP(5,167),KSTP(6,167)/3,0,169,000000,000005, 0/ DATA KSTP(1,168),KSTP(2,168),KSTP(3,168),KSTP(4,168), ,KSTP(5,168),KSTP(6,168)/2,0,169,000000,000205, 2/ DATA KSTP(1,169),KSTP(2,169),KSTP(3,169),KSTP(4,169), ,KSTP(5,169),KSTP(6,169)/3,4, 0,000000,000005, 0/ DATA KSTP(1,170),KSTP(2,170),KSTP(3,170),KSTP(4,170), ,KSTP(5,170),KSTP(6,170)/2,0, 0,000000,000206, 2/ DATA KSTP(1,171),KSTP(2,171),KSTP(3,171),KSTP(4,171), ,KSTP(5,171),KSTP(6,171)/6,0, 0,000000,000000, 0/ C ENTRY NO. 31 DATA KSTP(1,172),KSTP(2,172),KSTP(3,172),KSTP(4,172), ,KSTP(5,172),KSTP(6,172)/5,0, 0,000000,000000,180/ DATA KSTP(1,173),KSTP(2,173),KSTP(3,173),KSTP(4,173), ,KSTP(5,173),KSTP(6,173)/1,0, 0,000777,000777,175/ DATA KSTP(1,174),KSTP(2,174),KSTP(3,174),KSTP(4,174), ,KSTP(5,174),KSTP(6,174)/6,0, 0,000000,000000, 0/ C ENTRY NO. 32 DATA KSTP(1,175),KSTP(2,175),KSTP(3,175),KSTP(4,175), ,KSTP(5,175),KSTP(6,175)/4,0, 0,000000,000000, 0/ DATA KSTP(1,176),KSTP(2,176),KSTP(3,176),KSTP(4,176), ,KSTP(5,176),KSTP(6,176)/0,0, 0,8HOR ,4H , 0/ DATA KSTP(1,177),KSTP(2,177),KSTP(3,177),KSTP(4,177), ,KSTP(5,177),KSTP(6,177)/5,0, 0,000000,000000,180/ DATA KSTP(1,178),KSTP(2,178),KSTP(3,178),KSTP(4,178), ,KSTP(5,178),KSTP(6,178)/2,0, 0,000000,000021, 2/ DATA KSTP(1,179),KSTP(2,179),KSTP(3,179),KSTP(4,179), ,KSTP(5,179),KSTP(6,179)/6,0, 0,000000,000000, 0/ C ENTRY NO. 33 DATA KSTP(1,180),KSTP(2,180),KSTP(3,180),KSTP(4,180), ,KSTP(5,180),KSTP(6,180)/5,0, 0,000000,000000,188/ DATA KSTP(1,181),KSTP(2,181),KSTP(3,181),KSTP(4,181), ,KSTP(5,181),KSTP(6,181)/1,0, 0,000000,000000,183/ DATA KSTP(1,182),KSTP(2,182),KSTP(3,182),KSTP(4,182), ,KSTP(5,182),KSTP(6,182)/6,0, 0,000000,000000, 0/ C ENTRY NO. 34 DATA KSTP(1,183),KSTP(2,183),KSTP(3,183),KSTP(4,183), ,KSTP(5,183),KSTP(6,183)/4,0, 0,000000,000000, 0/ DATA KSTP(1,184),KSTP(2,184),KSTP(3,184),KSTP(4,184), ,KSTP(5,184),KSTP(6,184)/0,0, 0,8HAND ,4H , 0/ DATA KSTP(1,185),KSTP(2,185),KSTP(3,185),KSTP(4,185), ,KSTP(5,185),KSTP(6,185)/5,0, 0,000000,000000,188/ DATA KSTP(1,186),KSTP(2,186),KSTP(3,186),KSTP(4,186), ,KSTP(5,186),KSTP(6,186)/2,0, 0,000000,000020, 2/ DATA KSTP(1,187),KSTP(2,187),KSTP(3,187),KSTP(4,187), ,KSTP(5,187),KSTP(6,187)/6,0, 0,000000,000000, 0/ C ENTRY NO. 35 DATA KSTP(1,188),KSTP(2,188),KSTP(3,188),KSTP(4,188), ,KSTP(5,188),KSTP(6,188)/4,0,192,000000,000000, 0/ DATA KSTP(1,189),KSTP(2,189),KSTP(3,189),KSTP(4,189), ,KSTP(5,189),KSTP(6,189)/0,0, 0,8HNOT ,4H , 0/ DATA KSTP(1,190),KSTP(2,190),KSTP(3,190),KSTP(4,190), ,KSTP(5,190),KSTP(6,190)/5,0,192,000000,000000,195/ DATA KSTP(1,191),KSTP(2,191),KSTP(3,191),KSTP(4,191), ,KSTP(5,191),KSTP(6,191)/2,0,192,000000,000037, 2/ DATA KSTP(1,192),KSTP(2,192),KSTP(3,192),KSTP(4,192), ,KSTP(5,192),KSTP(6,192)/5,4, 0,000000,000000,195/ DATA KSTP(1,193),KSTP(2,193),KSTP(3,193),KSTP(4,193), ,KSTP(5,193),KSTP(6,193)/6,0, 0,000000,000000, 0/ C ENTRY NO. 36 DATA KSTP(1,194),KSTP(2,194),KSTP(3,194),KSTP(4,194), ,KSTP(5,194),KSTP(6,194)/6,0, 0,000000,000000, 0/ C ENTRY NO. 37 DATA KSTP(1,195),KSTP(2,195),KSTP(3,195),KSTP(4,195), ,KSTP(5,195),KSTP(6,195)/5,0, 0,000000,000000,223/ DATA KSTP(1,196),KSTP(2,196),KSTP(3,196),KSTP(4,196), ,KSTP(5,196),KSTP(6,196)/1,0, 0,000000,000000,198/ DATA KSTP(1,197),KSTP(2,197),KSTP(3,197),KSTP(4,197), ,KSTP(5,197),KSTP(6,197)/6,0, 0,000777,000777, 0/ C ENTRY NO. 38 DATA KSTP(1,198),KSTP(2,198),KSTP(3,198),KSTP(4,198), ,KSTP(5,198),KSTP(6,198)/4,0,202,000000,000000, 0/ DATA KSTP(1,199),KSTP(2,199),KSTP(3,199),KSTP(4,199), ,KSTP(5,199),KSTP(6,199)/0,0, 0,8HEQ ,4H , 0/ DATA KSTP(1,200),KSTP(2,200),KSTP(3,200),KSTP(4,200), ,KSTP(5,200),KSTP(6,200)/5,0,202,000000,000000,223/ DATA KSTP(1,201),KSTP(2,201),KSTP(3,201),KSTP(4,201), ,KSTP(5,201),KSTP(6,201)/2,0,202,000000,000013, 2/ DATA KSTP(1,202),KSTP(2,202),KSTP(3,202),KSTP(4,202), ,KSTP(5,202),KSTP(6,202)/4,4,206,000000,000000, 0/ DATA KSTP(1,203),KSTP(2,203),KSTP(3,203),KSTP(4,203), ,KSTP(5,203),KSTP(6,203)/0,0, 0,8HNE ,4H , 0/ DATA KSTP(1,204),KSTP(2,204),KSTP(3,204),KSTP(4,204), ,KSTP(5,204),KSTP(6,204)/5,0,206,000000,000000,223/ DATA KSTP(1,205),KSTP(2,205),KSTP(3,205),KSTP(4,205), ,KSTP(5,205),KSTP(6,205)/2,0,206,000000,000014, 2/ DATA KSTP(1,206),KSTP(2,206),KSTP(3,206),KSTP(4,206), ,KSTP(5,206),KSTP(6,206)/4,4,210,000000,000000, 0/ DATA KSTP(1,207),KSTP(2,207),KSTP(3,207),KSTP(4,207), ,KSTP(5,207),KSTP(6,207)/0,0, 0,8HGT ,4H , 0/ DATA KSTP(1,208),KSTP(2,208),KSTP(3,208),KSTP(4,208), ,KSTP(5,208),KSTP(6,208)/5,0,210,000000,000000,223/ DATA KSTP(1,209),KSTP(2,209),KSTP(3,209),KSTP(4,209), ,KSTP(5,209),KSTP(6,209)/2,0,210,000000,000015, 2/ DATA KSTP(1,210),KSTP(2,210),KSTP(3,210),KSTP(4,210), ,KSTP(5,210),KSTP(6,210)/4,4,358,000000,000000, 0/ DATA KSTP(1,211),KSTP(2,211),KSTP(3,211),KSTP(4,211), ,KSTP(5,211),KSTP(6,211)/0,0, 0,8HLT ,4H , 0/ DATA KSTP(1,212),KSTP(2,212),KSTP(3,212),KSTP(4,212), ,KSTP(5,212),KSTP(6,212)/5,0,358,000000,000000,223/ DATA KSTP(1,213),KSTP(2,213),KSTP(3,213),KSTP(4,213), ,KSTP(5,213),KSTP(6,213)/2,0,358,000000,000016, 2/ DATA KSTP(1,214),KSTP(2,214),KSTP(3,214),KSTP(4,214), ,KSTP(5,214),KSTP(6,214)/4,4,218,000000,000000, 0/ DATA KSTP(1,215),KSTP(2,215),KSTP(3,215),KSTP(4,215), ,KSTP(5,215),KSTP(6,215)/0,0, 0,8HGE ,4H , 0/ DATA KSTP(1,216),KSTP(2,216),KSTP(3,216),KSTP(4,216), ,KSTP(5,216),KSTP(6,216)/5,0,218,000000,000000,223/ DATA KSTP(1,217),KSTP(2,217),KSTP(3,217),KSTP(4,217), ,KSTP(5,217),KSTP(6,217)/2,0,218,000000,000017, 2/ DATA KSTP(1,218),KSTP(2,218),KSTP(3,218),KSTP(4,218), ,KSTP(5,218),KSTP(6,218)/4,4, 0,000000,000000, 0/ DATA KSTP(1,219),KSTP(2,219),KSTP(3,219),KSTP(4,219), ,KSTP(5,219),KSTP(6,219)/0,0, 0,8HLE ,4H , 0/ DATA KSTP(1,220),KSTP(2,220),KSTP(3,220),KSTP(4,220), ,KSTP(5,220),KSTP(6,220)/5,0, 0,000000,000000,223/ DATA KSTP(1,221),KSTP(2,221),KSTP(3,221),KSTP(4,221), ,KSTP(5,221),KSTP(6,221)/2,0, 0,000000,000018, 2/ DATA KSTP(1,222),KSTP(2,222),KSTP(3,222),KSTP(4,222), ,KSTP(5,222),KSTP(6,222)/6,0, 0,000000,000000, 0/ C ENTRY NO. 39 DATA KSTP(1,223),KSTP(2,223),KSTP(3,223),KSTP(4,223), ,KSTP(5,223),KSTP(6,223)/5,0, 0,000000,000000,230/ DATA KSTP(1,224),KSTP(2,224),KSTP(3,224),KSTP(4,224), ,KSTP(5,224),KSTP(6,224)/1,0, 0,000000,000000,226/ DATA KSTP(1,225),KSTP(2,225),KSTP(3,225),KSTP(4,225), ,KSTP(5,225),KSTP(6,225)/6,0, 0,000000,000000, 0/ C ENTRY NO. 40 DATA KSTP(1,226),KSTP(2,226),KSTP(3,226),KSTP(4,226), ,KSTP(5,226),KSTP(6,226)/3,0, 0,000000,000011, 0/ DATA KSTP(1,227),KSTP(2,227),KSTP(3,227),KSTP(4,227), ,KSTP(5,227),KSTP(6,227)/5,0, 0,000000,000000,230/ DATA KSTP(1,228),KSTP(2,228),KSTP(3,228),KSTP(4,228), ,KSTP(5,228),KSTP(6,228)/2,0, 0,000000,000019, 2/ DATA KSTP(1,229),KSTP(2,229),KSTP(3,229),KSTP(4,229), ,KSTP(5,229),KSTP(6,229)/6,0, 0,000000,000000, 0/ C ENTRY NO. 41 DATA KSTP(1,230),KSTP(2,230),KSTP(3,230),KSTP(4,230), ,KSTP(5,230),KSTP(6,230)/5,0, 0,000000,000000, 97/ DATA KSTP(1,231),KSTP(2,231),KSTP(3,231),KSTP(4,231), ,KSTP(5,231),KSTP(6,231)/1,0, 0,000000,000000, 90/ DATA KSTP(1,232),KSTP(2,232),KSTP(3,232),KSTP(4,232), ,KSTP(5,232),KSTP(6,232)/6,0, 0,000000,000000, 0/ C ENTRY NO. 42 DATA KSTP(1,233),KSTP(2,233),KSTP(3,233),KSTP(4,233), ,KSTP(5,233),KSTP(6,233)/6,0, 0,000000,000000, 0/ C ENTRY NO. 43 DATA KSTP(1,234),KSTP(2,234),KSTP(3,234),KSTP(4,234), ,KSTP(5,234),KSTP(6,234)/2,0, 0,000000,000004, 6/ DATA KSTP(1,235),KSTP(2,235),KSTP(3,235),KSTP(4,235), ,KSTP(5,235),KSTP(6,235)/5,0, 0,000000,000000, 23/ DATA KSTP(1,236),KSTP(2,236),KSTP(3,236),KSTP(4,236), ,KSTP(5,236),KSTP(6,236)/2,0, 0,000000,000005, 6/ DATA KSTP(1,237),KSTP(2,237),KSTP(3,237),KSTP(4,237), ,KSTP(5,237),KSTP(6,237)/6,0, 0,000000,000000, 0/ C ENTRY NO. 44 DATA KSTP(1,238),KSTP(2,238),KSTP(3,238),KSTP(4,238), ,KSTP(5,238),KSTP(6,238)/3,0,240,000000,000008, 0/ DATA KSTP(1,239),KSTP(2,239),KSTP(3,239),KSTP(4,239), ,KSTP(5,239),KSTP(6,239)/2,0,240,000000,000001, 28/ DATA KSTP(1,240),KSTP(2,240),KSTP(3,240),KSTP(4,240), ,KSTP(5,240),KSTP(6,240)/2,4, 0,000000,000002, 28/ DATA KSTP(1,241),KSTP(2,241),KSTP(3,241),KSTP(4,241), ,KSTP(5,241),KSTP(6,241)/5,0, 0,000000,000000,147/ DATA KSTP(1,242),KSTP(2,242),KSTP(3,242),KSTP(4,242), ,KSTP(5,242),KSTP(6,242)/2,0, 0,000000,000003, 28/ DATA KSTP(1,243),KSTP(2,243),KSTP(3,243),KSTP(4,243), ,KSTP(5,243),KSTP(6,243)/2,0, 0,000000,000002, 13/ DATA KSTP(1,244),KSTP(2,244),KSTP(3,244),KSTP(4,244), ,KSTP(5,244),KSTP(6,244)/6,0, 0,000000,000000, 0/ C ENTRY NO. 45 DATA KSTP(1,245),KSTP(2,245),KSTP(3,245),KSTP(4,245), ,KSTP(5,245),KSTP(6,245)/2,0, 0,000000,000001, 6/ DATA KSTP(1,246),KSTP(2,246),KSTP(3,246),KSTP(4,246), ,KSTP(5,246),KSTP(6,246)/1,0, 0,000000,000000,234/ DATA KSTP(1,247),KSTP(2,247),KSTP(3,247),KSTP(4,247), ,KSTP(5,247),KSTP(6,247)/2,0, 0,000000,000002, 6/ DATA KSTP(1,248),KSTP(2,248),KSTP(3,248),KSTP(4,248), ,KSTP(5,248),KSTP(6,248)/6,0, 0,000000,000000, 0/ C ENTRY NO. 46 DATA KSTP(1,249),KSTP(2,249),KSTP(3,249),KSTP(4,249), ,KSTP(5,249),KSTP(6,249)/2,0, 0,000000,000001, 11/ DATA KSTP(1,250),KSTP(2,250),KSTP(3,250),KSTP(4,250), ,KSTP(5,250),KSTP(6,250)/3,0, 0,000000,000004, 0/ DATA KSTP(1,251),KSTP(2,251),KSTP(3,251),KSTP(4,251), ,KSTP(5,251),KSTP(6,251)/5,0, 0,000000,000000,147/ DATA KSTP(1,252),KSTP(2,252),KSTP(3,252),KSTP(4,252), ,KSTP(5,252),KSTP(6,252)/3,0, 0,000000,000005, 0/ DATA KSTP(1,253),KSTP(2,253),KSTP(3,253),KSTP(4,253), ,KSTP(5,253),KSTP(6,253)/2,0, 0,000000,000002, 11/ DATA KSTP(1,254),KSTP(2,254),KSTP(3,254),KSTP(4,254), ,KSTP(5,254),KSTP(6,254)/6,0, 0,000000,000000, 0/ C ENTRY NO. 47 DATA KSTP(1,255),KSTP(2,255),KSTP(3,255),KSTP(4,255), ,KSTP(5,255),KSTP(6,255)/3,0,258,000000,000004, 0/ DATA KSTP(1,256),KSTP(2,256),KSTP(3,256),KSTP(4,256), ,KSTP(5,256),KSTP(6,256)/5,0,258,000000,000000, 56/ DATA KSTP(1,257),KSTP(2,257),KSTP(3,257),KSTP(4,257), ,KSTP(5,257),KSTP(6,257)/3,0,258,000000,000005, 0/ DATA KSTP(1,258),KSTP(2,258),KSTP(3,258),KSTP(4,258), ,KSTP(5,258),KSTP(6,258)/5,4, 0,000000,000000,233/ DATA KSTP(1,259),KSTP(2,259),KSTP(3,259),KSTP(4,259), ,KSTP(5,259),KSTP(6,259)/6,0, 0,000000,000000, 0/ C ENTRY NO. 48 DATA KSTP(1,260),KSTP(2,260),KSTP(3,260),KSTP(4,260), ,KSTP(5,260),KSTP(6,260)/6,0, 0,000000,000000, 0/ C ENTRY NO. 49 DATA KSTP(1,261),KSTP(2,261),KSTP(3,261),KSTP(4,261), ,KSTP(5,261),KSTP(6,261)/2,0, 0,000000,000000, 32/ DATA KSTP(1,262),KSTP(2,262),KSTP(3,262),KSTP(4,262), ,KSTP(5,262),KSTP(6,262)/6,0, 0,000000,000000, 0/ C ENTRY NO. 50 DATA KSTP(1,263),KSTP(2,263),KSTP(3,263),KSTP(4,263), ,KSTP(5,263),KSTP(6,263)/5,0,264,000000,000000,270/ DATA KSTP(1,264),KSTP(2,264),KSTP(3,264),KSTP(4,264), ,KSTP(5,264),KSTP(6,264)/5,4,265,000000,000000,238/ DATA KSTP(1,265),KSTP(2,265),KSTP(3,265),KSTP(4,265), ,KSTP(5,265),KSTP(6,265)/5,4,266,000000,000000,283/ DATA KSTP(1,266),KSTP(2,266),KSTP(3,266),KSTP(4,266), ,KSTP(5,266),KSTP(6,266)/5,4,267,000000,000000,309/ DATA KSTP(1,267),KSTP(2,267),KSTP(3,267),KSTP(4,267), ,KSTP(5,267),KSTP(6,267)/5,4,268,000000,000000,324/ DATA KSTP(1,268),KSTP(2,268),KSTP(3,268),KSTP(4,268), ,KSTP(5,268),KSTP(6,268)/5,4, 0,000000,000000, 45/ DATA KSTP(1,269),KSTP(2,269),KSTP(3,269),KSTP(4,269), ,KSTP(5,269),KSTP(6,269)/6,0, 0,000000,000000, 0/ C ENTRY NO. 51 DATA KSTP(1,270),KSTP(2,270),KSTP(3,270),KSTP(4,270), ,KSTP(5,270),KSTP(6,270)/5,0, 0,000000,000000,275/ DATA KSTP(1,271),KSTP(2,271),KSTP(3,271),KSTP(4,271), ,KSTP(5,271),KSTP(6,271)/3,0, 0,000000,000006, 0/ DATA KSTP(1,272),KSTP(2,272),KSTP(3,272),KSTP(4,272), ,KSTP(5,272),KSTP(6,272)/5,0, 0,000000,000000, 88/ DATA KSTP(1,273),KSTP(2,273),KSTP(3,273),KSTP(4,273), ,KSTP(5,273),KSTP(6,273)/2,0, 0,000000,000004, 7/ DATA KSTP(1,274),KSTP(2,274),KSTP(3,274),KSTP(4,274), ,KSTP(5,274),KSTP(6,274)/6,0, 0,000000,000000, 0/ C ENTRY NO. 52 DATA KSTP(1,275),KSTP(2,275),KSTP(3,275),KSTP(4,275), ,KSTP(5,275),KSTP(6,275)/2,0,276,000000,000001, 7/ DATA KSTP(1,276),KSTP(2,276),KSTP(3,276),KSTP(4,276), ,KSTP(5,276),KSTP(6,276)/2,4, 0,000000,000002, 7/ DATA KSTP(1,277),KSTP(2,277),KSTP(3,277),KSTP(4,277), ,KSTP(5,277),KSTP(6,277)/3,0, 0,000000,000004, 0/ DATA KSTP(1,278),KSTP(2,278),KSTP(3,278),KSTP(4,278), ,KSTP(5,278),KSTP(6,278)/5,0, 0,000000,000000,147/ DATA KSTP(1,279),KSTP(2,279),KSTP(3,279),KSTP(4,279), ,KSTP(5,279),KSTP(6,279)/3,0, 0,000000,000005, 0/ DATA KSTP(1,280),KSTP(2,280),KSTP(3,280),KSTP(4,280), ,KSTP(5,280),KSTP(6,280)/2,0, 0,000000,000003, 7/ DATA KSTP(1,281),KSTP(2,281),KSTP(3,281),KSTP(4,281), ,KSTP(5,281),KSTP(6,281)/2,0, 0,000000,000002, 13/ DATA KSTP(1,282),KSTP(2,282),KSTP(3,282),KSTP(4,282), ,KSTP(5,282),KSTP(6,282)/6,0, 0,000000,000000, 0/ C ENTRY NO. 53 DATA KSTP(1,283),KSTP(2,283),KSTP(3,283),KSTP(4,283), ,KSTP(5,283),KSTP(6,283)/4,0, 0,000000,000000, 0/ DATA KSTP(1,284),KSTP(2,284),KSTP(3,284),KSTP(4,284), ,KSTP(5,284),KSTP(6,284)/0,0, 0,4HTO ,4H , 0/ DATA KSTP(1,285),KSTP(2,285),KSTP(3,285),KSTP(4,285), ,KSTP(5,285),KSTP(6,285)/2,0, 0,000000,000001, 5/ DATA KSTP(1,286),KSTP(2,286),KSTP(3,286),KSTP(4,286), ,KSTP(5,286),KSTP(6,286)/5,0, 0,000000,000000, 88/ DATA KSTP(1,287),KSTP(2,287),KSTP(3,287),KSTP(4,287), ,KSTP(5,287),KSTP(6,287)/5,0, 0,000000,000000,289/ DATA KSTP(1,288),KSTP(2,288),KSTP(3,288),KSTP(4,288), ,KSTP(5,288),KSTP(6,288)/6,0, 0,000000,000000, 0/ C ENTRY NO. 54 DATA KSTP(1,289),KSTP(2,289),KSTP(3,289),KSTP(4,289), ,KSTP(5,289),KSTP(6,289)/4,0,294,000000,000000, 0/ DATA KSTP(1,290),KSTP(2,290),KSTP(3,290),KSTP(4,290), ,KSTP(5,290),KSTP(6,290)/0,0, 0,4HTHEN,4H , 0/ DATA KSTP(1,291),KSTP(2,291),KSTP(3,291),KSTP(4,291), ,KSTP(5,291),KSTP(6,291)/2,0,294,000000,000002, 5/ DATA KSTP(1,292),KSTP(2,292),KSTP(3,292),KSTP(4,292), ,KSTP(5,292),KSTP(6,292)/5,0,294,000000,000000,245/ DATA KSTP(1,293),KSTP(2,293),KSTP(3,293),KSTP(4,293), ,KSTP(5,293),KSTP(6,293)/5,0,294,000000,000000,298/ DATA KSTP(1,294),KSTP(2,294),KSTP(3,294),KSTP(4,294), ,KSTP(5,294),KSTP(6,294)/2,4, 0,000000,000002, 5/ DATA KSTP(1,295),KSTP(2,295),KSTP(3,295),KSTP(4,295), ,KSTP(5,295),KSTP(6,295)/5,0, 0,000000,000000,263/ DATA KSTP(1,296),KSTP(2,296),KSTP(3,296),KSTP(4,296), ,KSTP(5,296),KSTP(6,296)/2,0, 0,000000,000004, 5/ DATA KSTP(1,297),KSTP(2,297),KSTP(3,297),KSTP(4,297), ,KSTP(5,297),KSTP(6,297)/6,0, 0,000000,000000, 0/ C ENTRY NO. 55 DATA KSTP(1,298),KSTP(2,298),KSTP(3,298),KSTP(4,298), ,KSTP(5,298),KSTP(6,298)/4,0,301,000000,000000, 0/ DATA KSTP(1,299),KSTP(2,299),KSTP(3,299),KSTP(4,299), ,KSTP(5,299),KSTP(6,299)/0,0, 0,4HFI ,4H , 0/ DATA KSTP(1,300),KSTP(2,300),KSTP(3,300),KSTP(4,300), ,KSTP(5,300),KSTP(6,300)/2,0,301,000000,000004, 5/ DATA KSTP(1,301),KSTP(2,301),KSTP(3,301),KSTP(4,301), ,KSTP(5,301),KSTP(6,301)/4,4, 0,000000,000000, 0/ DATA KSTP(1,302),KSTP(2,302),KSTP(3,302),KSTP(4,302), ,KSTP(5,302),KSTP(6,302)/0,0, 0,4HELSE,4H , 0/ DATA KSTP(1,303),KSTP(2,303),KSTP(3,303),KSTP(4,303), ,KSTP(5,303),KSTP(6,303)/2,0, 0,000000,000003, 5/ DATA KSTP(1,304),KSTP(2,304),KSTP(3,304),KSTP(4,304), ,KSTP(5,304),KSTP(6,304)/5,0, 0,000000,000000,245/ DATA KSTP(1,305),KSTP(2,305),KSTP(3,305),KSTP(4,305), ,KSTP(5,305),KSTP(6,305)/4,0, 0,000000,000000, 0/ DATA KSTP(1,306),KSTP(2,306),KSTP(3,306),KSTP(4,306), ,KSTP(5,306),KSTP(6,306)/0,0, 0,4HFI ,4H , 0/ DATA KSTP(1,307),KSTP(2,307),KSTP(3,307),KSTP(4,307), ,KSTP(5,307),KSTP(6,307)/2,0, 0,000000,000004, 5/ DATA KSTP(1,308),KSTP(2,308),KSTP(3,308),KSTP(4,308), ,KSTP(5,308),KSTP(6,308)/6,0, 0,000000,000000, 0/ C ENTRY NO. 56 DATA KSTP(1,309),KSTP(2,309),KSTP(3,309),KSTP(4,309), ,KSTP(5,309),KSTP(6,309)/4,0, 0,000000,000000, 0/ DATA KSTP(1,310),KSTP(2,310),KSTP(3,310),KSTP(4,310), ,KSTP(5,310),KSTP(6,310)/0,0, 0,4HDO ,4H , 0/ DATA KSTP(1,311),KSTP(2,311),KSTP(3,311),KSTP(4,311), ,KSTP(5,311),KSTP(6,311)/2,0, 0,000000,000003, 27/ DATA KSTP(1,312),KSTP(2,312),KSTP(3,312),KSTP(4,312), ,KSTP(5,312),KSTP(6,312)/5,0, 0,000000,000000,145/ DATA KSTP(1,313),KSTP(2,313),KSTP(3,313),KSTP(4,313), ,KSTP(5,313),KSTP(6,313)/3,0, 0,000000,000006, 0/ DATA KSTP(1,314),KSTP(2,314),KSTP(3,314),KSTP(4,314), ,KSTP(5,314),KSTP(6,314)/5,0, 0,000000,000000, 88/ DATA KSTP(1,315),KSTP(2,315),KSTP(3,315),KSTP(4,315), ,KSTP(5,315),KSTP(6,315)/3,0, 0,000000,000007, 0/ DATA KSTP(1,316),KSTP(2,316),KSTP(3,316),KSTP(4,316), ,KSTP(5,316),KSTP(6,316)/5,0, 0,000000,000000, 88/ DATA KSTP(1,317),KSTP(2,317),KSTP(3,317),KSTP(4,317), ,KSTP(5,317),KSTP(6,317)/5,0, 0,000000,000000,319/ DATA KSTP(1,318),KSTP(2,318),KSTP(3,318),KSTP(4,318), ,KSTP(5,318),KSTP(6,318)/6,0, 0,000000,000000, 0/ C ENTRY NO. 57 DATA KSTP(1,319),KSTP(2,319),KSTP(3,319),KSTP(4,319), ,KSTP(5,319),KSTP(6,319)/3,0,322,000000,000007, 0/ DATA KSTP(1,320),KSTP(2,320),KSTP(3,320),KSTP(4,320), ,KSTP(5,320),KSTP(6,320)/5,0,322,000000,000000, 88/ DATA KSTP(1,321),KSTP(2,321),KSTP(3,321),KSTP(4,321), ,KSTP(5,321),KSTP(6,321)/2,0,322,000000,000001, 27/ DATA KSTP(1,322),KSTP(2,322),KSTP(3,322),KSTP(4,322), ,KSTP(5,322),KSTP(6,322)/2,4, 0,000000,000002, 27/ DATA KSTP(1,323),KSTP(2,323),KSTP(3,323),KSTP(4,323), ,KSTP(5,323),KSTP(6,323)/6,0, 0,000000,000000, 0/ C ENTRY NO. 58 DATA KSTP(1,324),KSTP(2,324),KSTP(3,324),KSTP(4,324), ,KSTP(5,324),KSTP(6,324)/2,0,327,000000,000001, 29/ DATA KSTP(1,325),KSTP(2,325),KSTP(3,325),KSTP(4,325), ,KSTP(5,325),KSTP(6,325)/5,0,327,000000,000000, 37/ DATA KSTP(1,326),KSTP(2,326),KSTP(3,326),KSTP(4,326), ,KSTP(5,326),KSTP(6,326)/2,0,327,000000,000002, 29/ DATA KSTP(1,327),KSTP(2,327),KSTP(3,327),KSTP(4,327), ,KSTP(5,327),KSTP(6,327)/2,4,331,000000,000003, 29/ DATA KSTP(1,328),KSTP(2,328),KSTP(3,328),KSTP(4,328), ,KSTP(5,328),KSTP(6,328)/5,0,331,000000,000000,147/ DATA KSTP(1,329),KSTP(2,329),KSTP(3,329),KSTP(4,329), ,KSTP(5,329),KSTP(6,329)/2,0,331,000000,000004, 29/ DATA KSTP(1,330),KSTP(2,330),KSTP(3,330),KSTP(4,330), ,KSTP(5,330),KSTP(6,330)/2,0,331,000000,000002, 13/ DATA KSTP(1,331),KSTP(2,331),KSTP(3,331),KSTP(4,331), ,KSTP(5,331),KSTP(6,331)/2,4,332,000000,000005, 29/ DATA KSTP(1,332),KSTP(2,332),KSTP(3,332),KSTP(4,332), ,KSTP(5,332),KSTP(6,332)/4,4,335,000000,000000, 0/ DATA KSTP(1,333),KSTP(2,333),KSTP(3,333),KSTP(4,333), ,KSTP(5,333),KSTP(6,333)/0,0, 0,4HCALL,4H , 0/ DATA KSTP(1,334),KSTP(2,334),KSTP(3,334),KSTP(4,334), ,KSTP(5,334),KSTP(6,334)/5,0,335,000000,000000,352/ DATA KSTP(1,335),KSTP(2,335),KSTP(3,335),KSTP(4,335), ,KSTP(5,335),KSTP(6,335)/4,4,338,000000,000000, 0/ DATA KSTP(1,336),KSTP(2,336),KSTP(3,336),KSTP(4,336), ,KSTP(5,336),KSTP(6,336)/0,0, 0,8HTRACK ,4H , 0/ DATA KSTP(1,337),KSTP(2,337),KSTP(3,337),KSTP(4,337), ,KSTP(5,337),KSTP(6,337)/2,0,338,000000,000001, 25/ DATA KSTP(1,338),KSTP(2,338),KSTP(3,338),KSTP(4,338), ,KSTP(5,338),KSTP(6,338)/4,4,341,000000,000000, 0/ DATA KSTP(1,339),KSTP(2,339),KSTP(3,339),KSTP(4,339), ,KSTP(5,339),KSTP(6,339)/0,0, 0,4HGOTO,4H , 0/ DATA KSTP(1,340),KSTP(2,340),KSTP(3,340),KSTP(4,340), ,KSTP(5,340),KSTP(6,340)/5,0,341,000000,000000,348/ DATA KSTP(1,341),KSTP(2,341),KSTP(3,341),KSTP(4,341), ,KSTP(5,341),KSTP(6,341)/4,4, 0,000000,000000, 0/ DATA KSTP(1,342),KSTP(2,342),KSTP(3,342),KSTP(4,342), ,KSTP(5,342),KSTP(6,342)/0,0, 0,4HGO ,4H , 0/ DATA KSTP(1,343),KSTP(2,343),KSTP(3,343),KSTP(4,343), ,KSTP(5,343),KSTP(6,343)/4,0, 0,000000,000000, 0/ DATA KSTP(1,344),KSTP(2,344),KSTP(3,344),KSTP(4,344), ,KSTP(5,344),KSTP(6,344)/0,0, 0,4HTO ,4H , 0/ DATA KSTP(1,345),KSTP(2,345),KSTP(3,345),KSTP(4,345), ,KSTP(5,345),KSTP(6,345)/5,0, 0,000000,000000,348/ DATA KSTP(1,346),KSTP(2,346),KSTP(3,346),KSTP(4,346), ,KSTP(5,346),KSTP(6,346)/6,0, 0,000000,000000, 0/ C ENTRY NO. 59 DATA KSTP(1,347),KSTP(2,347),KSTP(3,347),KSTP(4,347), ,KSTP(5,347),KSTP(6,347)/6,0, 0,000000,000000, 0/ C ENTRY NO. 60 DATA KSTP(1,348),KSTP(2,348),KSTP(3,348),KSTP(4,348), ,KSTP(5,348),KSTP(6,348)/2,0,349,000000,000001, 31/ DATA KSTP(1,349),KSTP(2,349),KSTP(3,349),KSTP(4,349), ,KSTP(5,349),KSTP(6,349)/5,4, 0,000000,000000, 88/ DATA KSTP(1,350),KSTP(2,350),KSTP(3,350),KSTP(4,350), ,KSTP(5,350),KSTP(6,350)/2,0, 0,000000,000002, 31/ DATA KSTP(1,351),KSTP(2,351),KSTP(3,351),KSTP(4,351), ,KSTP(5,351),KSTP(6,351)/6,0, 0,000000,000000, 0/ C ENTRY NO. 61 DATA KSTP(1,352),KSTP(2,352),KSTP(3,352),KSTP(4,352), ,KSTP(5,352),KSTP(6,352)/2,0,353,000000,000001, 30/ DATA KSTP(1,353),KSTP(2,353),KSTP(3,353),KSTP(4,353), ,KSTP(5,353),KSTP(6,353)/2,4, 0,000000,000002, 30/ DATA KSTP(1,354),KSTP(2,354),KSTP(3,354),KSTP(4,354), ,KSTP(5,354),KSTP(6,354)/5,0, 0,000000,000000,249/ DATA KSTP(1,355),KSTP(2,355),KSTP(3,355),KSTP(4,355), ,KSTP(5,355),KSTP(6,355)/2,0, 0,000000,000003, 30/ DATA KSTP(1,356),KSTP(2,356),KSTP(3,356),KSTP(4,356), ,KSTP(5,356),KSTP(6,356)/6,0, 0,000000,000000, 0/ C ENTRY NO.*45 DATA KSTP(1,357),KSTP(2,357),KSTP(3,357),KSTP(4,357), ,KSTP(5,357),KSTP(6,357)/7,7,511,000777,000777,511/ C C Extra entry for CT (CLOSE TO) DATA KSTP(1,358),KSTP(2,358),KSTP(3,358),KSTP(4,358), ,KSTP(5,358),KSTP(6,358)/4,4,214,000000,000000, 0/ DATA KSTP(1,359),KSTP(2,359),KSTP(3,359),KSTP(4,359), ,KSTP(5,359),KSTP(6,359)/0,0, 0,8HCT ,4H , 0/ DATA KSTP(1,360),KSTP(2,360),KSTP(3,360),KSTP(4,360), ,KSTP(5,360),KSTP(6,360)/5,0,214,000000,000000,223/ DATA KSTP(1,361),KSTP(2,361),KSTP(3,361),KSTP(4,361), ,KSTP(5,361),KSTP(6,361)/2,0,214,000000,000019, 2/ DATA KSTP(1,362),KSTP(2,362),KSTP(3,362),KSTP(4,362), ,KSTP(5,362),KSTP(6,362)/6,0, 0,000000,000000, 0/ #endif SIDSTP=KSTP(I,J) 999 END