INTEGER*2 LETTER,LET1,LET2,LET3,LET4,LET5,LET6,LET7,LET8 DIMENSION LETTER(16,128),LET1(16,16),LET2(16,16),LET3(16,16) DIMENSION LET4(16,16),LET5(16,16),LET6(16,16),LET7(16,16) DIMENSION LET8(16,16) DIMENSION VECTOR(4,293),VECTR1(4,56),VECTR2(4,8),VECTR3(4,36) DIMENSION VECTR4(4,51),VECTR5(4,40),VECTR6(4,58),VECTR7(4,44) DIMENSION TSTVEC(4) EQUIVALENCE (LETTER(1,1),LET1(1,1)),(LETTER(1,17),LET2(1,1)) EQUIVALENCE (LETTER(1,33),LET3(1,1)),(LETTER(1,49),LET4(1,1)) EQUIVALENCE (LETTER(1,65),LET5(1,1)),(LETTER(1,81),LET6(1,1)) EQUIVALENCE (LETTER(1,97),LET7(1,1)),(LETTER(1,113),LET8(1,1)) EQUIVALENCE (VECTOR(1,1),VECTR1(1,1)),(VECTOR(1,57),VECTR2(1,1)) EQUIVALENCE (VECTOR(1,65),VECTR3(1,1)),(VECTOR(1,101),VECTR4(1,1)) EQUIVALENCE (VECTOR(1,152),VECTR5(1,1)) EQUIVALENCE (VECTOR(1,192),VECTR6(1,1)) EQUIVALENCE (VECTOR(1,250),VECTR7(1,1)) DATA LET1/65,66,67,68,69, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 65,70,71,72,73,74,75,76,77, 0, 0, 0, 0, 0, 0, 0, 2 65,68,78,79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 65,80,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4 82,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5 65,84,85,86,87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6 65,80,81,84,87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7 66,82,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 66,68,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9 81,88,89, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, A 89,90,91,92,93,94,95,96, 0, 0, 0, 0, 0, 0, 0, 0, B 65,80,81,82,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, C 66,68,82,83, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, D 65,81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, E 78,79,97,98,99, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, F 100,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ DATA LET2/81, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 5, 7,15,17,35,36,248,249,0,0, 0, 0, 0, 0, 0, 0, !SUMM 2 192,193,194,195,196,0,0,0,0,0, 0, 0, 0, 0, 0, 0, !INTR 3 197,198,199,200,201,0,0,0,0,0, 0, 0, 0, 0, 0, 0, !PI 4 15,17,202,203,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !DELT 5 204,205,206,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !.GE. 6 206,207,208,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !.LE. 7 209,210,211,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !.NE. 8 212,213,214,215,216,217,218,219,220,221, * 0, 0, 0, 0, 0, 0, !NEAR 9 222,223,224,225,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !RHT A 226,227,228,229,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !LFT B 230,231,232,233,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !UP C 234,235,236,237,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !DWN D 224,225,226,227,238,239,240,241,242,243, * 0, 0, 0, 0, 0, 0, !INDE E 244,245,246,247,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !KARO F 1, 3, 5, 7, 9,12,15,17, 0, 0, 0, 0, 0, 0, 0, 0/ !SQUR DATA LET3/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !SP 1 115,234,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !! 2 263,264,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !" 3 265,266,267,268,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !# 4 4, 6, 8,13,16,18,21,22,25,27,28,31,271,272, * 0, 0, !$ 5 273,274,275,276,277,278,279,280,281, * 0, 0, 0, 0, 0, 0, 0, !% 6 282,283,284,285,286,287,288,289,290,291,292, * 0, 0, 0, 0, 0, !& 7 144,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !' 8 135,137,139,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !( 9 136,138,140,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !) A 112,124,269,270,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !* B 112,124,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !+ C 250,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !, D 112,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !- E 115,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !. F 145,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ !/ DATA LET4/101,102,103,104,105,106,107,108,0,0,0,0,0,0,0,0, !0 1 15,17,19,20,109,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !1 2 6, 8,15,17,27,28,110,111,0,0, 0, 0, 0, 0, 0, 0, !2 3 6, 8,11,14,16,18,25,27,28,29,30,31,112,0, 0, 0, !3 4 3,19,20,21,22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !4 5 3, 5, 7,14,16,18,21,23,25,30,31, 0, 0, 0, 0, 0, !5 6 2, 4, 6, 8,14,16,18,25,27,28,30,31,114,112,0,0, !6 7 5, 7,116,117,118,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !7 8 11,14,25,26,27,28,29,30,31, * 114,112,119,120,121,122, 0, !8 9 6, 8,10,13,16,18,25,26,27,28,29,31,112,120,0,0, !9 A 115,134,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !: B 250,251,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !; C 252,253,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !< D 209,210,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, != E 254,255,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !> F 115,256,257,258,259,260,261,262, * 0, 0, 0, 0, 0, 0, 0, 0/ !? DATA LET5/42,43,44,45,46,47,48,49,50,51,52,53,54,55,56, 0, !@ 1 1, 4, 6, 8,10,12,21,22,27,28, 0, 0, 0, 0, 0, 0, !A 2 1, 3, 5, 8,11,14,16,17,21,23,28,29,30,31, 0, 0, !B 3 2, 4, 6, 8,16,18,25,27,28,31, 0, 0, 0, 0, 0, 0, !C 4 1, 3, 5, 8,10,13,16,17,28,31, 0, 0, 0, 0, 0, 0, !D 5 1, 3, 5, 7,15,17,21,23, 0, 0, 0, 0, 0, 0, 0, 0, !E 6 1, 3, 5, 7,21,23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !F 7 2, 4, 6, 8,13,16,18,22,25,27,28,31, 0, 0, 0, 0, !G 8 1, 3, 9,12,21,22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !H 9 19,20,58,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !I A 5, 7, 9,13,16,18,25,31,41, 0, 0, 0, 0, 0, 0, 0, !J B 1, 3,37,38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !K C 1, 3,15,17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !L D 1, 3, 9,12,33,35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !M E 1, 3, 9,12,34,35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !N F 2, 4, 6, 8,10,13,16,18,25,27,28,31, 0, 0, 0, 0/ !O DATA LET6/ 1, 3, 5, 8,11,21,23,28,29, 0, 0, 0, 0, 0, 0, 0, !P 1 2, 4, 6, 8,10,13,16,18,25,27,28,31,32, 0, 0, 0, !Q 2 1, 3, 5, 8,11,21,23,28,29,34, 0, 0, 0, 0, 0, 0, !R 3 4, 6, 8,13,16,18,21,22,25,27,28,31, 0, 0, 0, 0, !S 4 5, 7,19,20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !T 5 2, 3, 9,13,16,18,25,31, 0, 0, 0, 0, 0, 0, 0, 0, !U 6 3, 9,39,40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !V 7 1, 3, 9,12,34,36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !W 8 33,34,35,36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !X 9 20,33,35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !Y A 5, 7,15,17,24,33,36, 0, 0, 0, 0, 0, 0, 0, 0, 0, !Z B 57,58,59, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ![ C 60, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !\ D 58,59,61, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !] E 62,63, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !^ F 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ !_ DATA LET7/143,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !` 1 12,25,30,31,112,114,119,122,0,0,0,0, 0, 0, 0, 0, !a 2 1, 3,14,25,30,31,112,114,122,0,0,0, 0, 0, 0, 0, !b 3 25,30,31,112,114,119,122,0,0,0,0, 0, 0, 0, 0, 0, !c 4 9,12,25,30,31,112,114,119,122,0,0,0,0, 0, 0, 0, !d 5 25,30,31,112,114,119,122,125,126,0,0,0,0,0,0, 0, !e 6 135,136,141,142,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !f 7 12,25,30,31,112,114,119,122,129,130,131, * 0, 0, 0, 0, 0, !g 8 1, 3,30,112,114,132,0,0,0, 0, 0, 0, 0, 0, 0, 0, !h 9 20,58,133,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !i A 146,147,148,149,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !j B 1, 3,150,151,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !k C 57,58, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !l D 1,30,114,132,152,153,154,155,156, * 0, 0, 0, 0, 0, 0, 0, !m E 1,30,114,132,157,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, !n F 14,25,30,31,112,114,119,122,0,0,0,0, 0, 0, 0, 0/ !o DATA LET8/14,25,30,31,112,114,122,158,0,0,0,0, 0, 0, 0, 0, !p 1 25,30,31,112,114,119,122,159,0,0,0,0,0, 0, 0, 0, !q 2 1,30,114,157,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !r 3 16,18,25,30,31,114,126,157,160,161,0,0,0,0,0, 0, !s 4 19,20,128,166,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !t 5 2,12,25,31,122,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !u 6 58,162,163,164,165,0,0,0,0, 0, 0, 0, 0, 0, 0, 0, !v 7 2,13,25,31,167,168,169,170,171, * 0, 0, 0, 0, 0, 0, 0, !w 8 172,173,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !x 9 2,12,25,31,122,129,130,131,0,0,0,0, 0, 0, 0, 0, !y A 21,22,64,172,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !z B 174,175,176,177,178,179,0,0,0,0,0,0, 0, 0, 0, 0, !{ C 19,20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, !| D 175,178,180,181,182,183,0,0,0,0,0,0, 0, 0, 0, 0, !} E 184,185,186,187,188,0,0,0,0,0, 0, 0, 0, 0, 0, 0, !~ F 189,190,191,0,0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ !SQRT DATA VECTR1/ 0., 0., 0., 7., 0., 2., 0., 7., 0., 7., 0.,14., ! 1- 3 1 0., 7., 0.,12., 0.,14., 5.,14., 2.,14., 5.,14., ! 4- 6 2 5.,14.,10.,14., 5.,14., 8.,14., 10.,14.,10., 7., ! 7- 9 3 10.,12.,10., 7., 10.,12.,10., 9., 10., 7.,10., 0., ! 10- 12 4 10., 7.,10., 2., 10., 5.,10., 2., 10., 0., 5., 0., ! 13- 15 5 8., 0., 5., 0., 5., 0., 0., 0., 5., 0., 2., 0., ! 16- 18 6 5.,14., 5., 7., 5., 7., 5., 0., 5., 7., 0., 7., ! 19- 21 7 10., 7., 5., 7., 8., 7., 5., 7., 4., 7., 6., 7., ! 22- 24 8 2., 0., 0., 2., 2., 7., 0., 9., 0.,12., 2.,14., ! 25- 27 9 8.,14.,10.,12., 10., 9., 8., 7., 8., 7.,10., 5., ! 28- 30 A 10., 2., 8., 0., 8., 2.,10., 0., 10.,14., 5., 7., ! 31- 33 B 5., 7.,10., 0., 5., 7., 0.,14., 5., 7., 0., 0., ! 34- 36 C 10., 0., 3., 7., 0., 4.,10.,14., 10., 7., 5., 0., ! 37- 39 D 5., 0., 0., 7., 0., 2., 0., 5., 10., 3., 8., 1., ! 40- 42 E 8., 1., 2., 1., 2., 1., 0., 3., 0., 3., 0.,11., ! 43- 45 F 0.,11., 2.,13., 2.,13., 8.,13., 8.,13.,10.,11., ! 46- 48 G 10.,11.,10., 5., 10., 5., 8., 3., 8., 3., 4., 3., ! 49- 51 H 4., 3., 2., 5., 2., 5., 2., 9., 2., 9., 4.,11., ! 52- 54 I 4.,11., 8.,11., 8.,11.,10., 9./ ! 55- 56 DATA VECTR2/ 4., 0., 4.,14., 4., 0., 6., 0., 4.,14., 6.,14., ! 57- 59 1 2.,14., 8., 0., 6., 0., 6.,14., 2., 9., 5.,12., ! 60- 62 2 5.,12., 8., 9., 0., 0.,10., 0./ ! 63- 64 DATA VECTR3/ 0., 0., 0., 4., -4., 4., 4., 4., 4., 4., 4.,-4., ! 65- 67 1 4.,-4.,-4.,-4., -4.,-4.,-4., 4., -2., 4., 2., 4., ! 68- 70 2 2., 4., 4., 2., 4., 2., 4.,-2., 4.,-2., 2.,-4., ! 71- 73 3 2.,-4.,-2.,-4., -2.,-4.,-4.,-2., -4.,-2.,-4., 2., ! 74- 76 4 -4., 2.,-2., 4., 0., 4., 4.,-4., -4.,-4., 0., 4., ! 77- 79 5 -4., 0., 4., 0., 0.,-4., 0., 0., -4., 4., 4.,-4., ! 80- 82 6 -4.,-4., 4., 4., 0., 4., 4., 0., 4., 0., 0.,-4., ! 83- 85 7 0.,-4.,-4., 0., -4., 0., 0., 4., -4., 4., 0., 0., ! 86- 88 8 0., 0., 4., 4., -2., 2., 2., 2., 2., 2., 2.,-2., ! 89- 91 9 2.,-2.,-2.,-2., -2.,-2.,-2., 2., 2.,-2., 4.,-4., ! 92- 94 A -4.,-4.,-2.,-2., -4., 4.,-2., 2., -4., 1., 4., 1., ! 95- 97 B -4., 1., 4.,-4., -4.,-4., 4., 1., 0., 0., 4., 0./ ! 98-100 DATA VECTR4/ 0., 3., 0.,11., 0.,11., 3.,14., 3.,14., 7.,14., !101-103 1 7.,14.,10.,11., 10.,11.,10., 3., 10., 3., 7., 0., !104-106 2 7., 0., 3., 0., 3., 0., 0., 3., 0., 9., 5.,14., !107-109 3 10.,12.,10.,10., 10.,10., 0., 0., 2., 7., 8., 7., !110-112 4 5., 7., 5.,10., 0., 5., 2., 7., 5., 0., 5., 0., !113-115 5 10.,14.,10.,10., 10.,10., 5., 3., 5., 3., 5., 0., !116-118 6 0., 2., 0., 5., 0., 9., 0.,12., 2.,14., 8.,14., !119-121 7 2., 0., 8., 0., 2., 7., 8., 7., 5., 4., 5.,10., !122-124 8 10., 5.,10.,3.5, 10.,3.5, 0.,3.5, 5.,14., 7.,14., !125-127 9 3.,11., 7.,11., 10., 0., 8.,-2., 8.,-2., 2.,-2., !128-130 A 2.,-2., 0., 0., 10., 5.,10., 0., 5.,10., 5.,10., !131-133 B 5., 7., 5., 7., 3.,12., 5.,14., 5.,14., 7.,12., !134-136 C 3., 2., 5., 0., 5., 0., 7., 2., 3., 2., 3.,12., !137-139 D 7., 2., 7.,12., 3., 0., 3.,12., 3., 9., 7., 9., !140-142 E 4.,14., 6.,12., 4.,12., 6.,14., 2., 0., 8.,14., !143-145 F 3., 0., 5.,-2., 5.,-2., 7., 0., 7., 0., 7., 7., !146-148 G 7., 9., 7., 9., 0., 3.,10., 7., 5., 5.,10., 0./ !149-151 DATA VECTR5/ 2., 7., 3., 7., 3., 7., 5., 5., 5., 5., 7., 7., !152-154 1 7., 7., 8., 7., 5., 0., 5., 5., 2., 7., 8., 7., !155-157 2 0.,-2., 0., 7., 10.,-2.,10., 7., 0., 3.5,0., 5., !158-160 3 10., 2.,10.,3.5, 0., 4., 0., 7., 10., 7.,10., 4., !161-163 4 4., 0., 0., 4., 6., 0.,10., 4., 5., 0., 7., 0., !164-166 5 5., 2., 5., 7., 2., 0., 3., 0., 7., 0., 8., 0., !167-169 6 7., 0., 5., 2., 5., 2., 3., 0., 0., 0.,10., 7., !170-172 7 0., 7.,10., 0., 5.,12., 7.,14., 5., 9., 5.,12., !173-175 8 3., 7., 5., 9., 3., 7., 5., 5., 5., 5., 5., 2., !176-178 9 5., 2., 7., 0., 3.,14., 5.,12., 5., 9., 7., 7., !179-181 A 7., 7., 5., 5., 3., 0., 5., 2., 2.,11., 3.,12., !182-184 B 3.,12., 4.,12., 4.,12., 6.,10., 6.,10., 7.,10., !185-187 C 7.,10., 8.,11., 0., 5., 3., 5., 3., 5., 7., 0., !188-190 D 7., 0.,10.,15./ !191 DATA VECTR6/ 8.,15.,10.,15., 6.,12., 8.,15., 4., 2., 6.,12., !192-194 1 2.,-1., 4., 2., 0.,-1., 2.,-1., 0.,12., 1.,13., !195-197 2 1.,13., 9.,13., 9.,13.,10.,14., 2., 0., 4.,13., !198-200 3 6.,13., 8., 0., 0., 0., 5.,14., 5.,14.,10., 0., !201-203 4 0.,12.,10., 8., 0., 4.,10., 8., 0., 2.,10., 2., !204-206 5 0., 8.,10.,12., 0., 8.,10., 4., 1., 9., 9., 9., !207-209 6 1., 5., 9., 5., 1., 1., 9.,13., 0., 8., 2.,10., !210-212 7 2.,10., 3.,10., 3.,10., 7., 6., 7., 6., 8., 6., !213-215 8 8., 6.,10., 8., 0., 4., 2., 6., 2., 6., 3., 6., !216-218 9 3., 6., 7., 2., 7., 2., 8., 2., 8., 2.,10., 4., !219-221 A 0., 7., 8., 7., 8., 5., 8., 9., 8., 9.,10., 7., !222-224 B 8., 5.,10., 7., 0., 7., 2., 9., 0., 7., 2., 5., !225-227 C 2., 5., 2., 9., 2., 7.,10., 7., 5., 0., 5.,12., !228-230 D 3.,12., 7.,12., 3.,12., 5.,14., 5.,14., 7.,12., !231-233 E 5.,14., 5., 2., 3., 2., 7., 2., 5., 0., 3., 2., !234-236 F 5., 0., 7., 2., 2., 9., 3., 9., 2., 5., 3., 5., !237-239 G 7., 9., 8., 9., 7., 5., 8., 5., 3., 9., 7., 5., !240-242 H 3., 5., 7., 9., 1., 7., 5.,11., 5.,11., 9., 7., !243-245 I 9., 7., 5., 3., 5., 3., 1., 7., 10.,12.,10.,14., !246-248 J 10., 0.,10., 2./ !249 DATA VECTR7/ 4.,-1., 6., 1., 6., 3., 6., 3., 0., 7.,10.,11., !250-252 1 0., 7.,10., 3., 0.,11.,10., 7., 0., 3.,10., 7., !253-255 2 1.,11., 1.,12., 1.,12., 3.,14., 3.,14., 7.,14., !256-258 3 7.,14., 9.,12., 9.,12., 9.,10., 9.,10., 5., 6., !259-261 4 5., 6., 5., 2., 3.,12., 5.,14., 5.,12., 7.,14., !262-264 5 3., 2., 3.,12., 7., 2., 7.,12., 1., 3., 9., 5., !265-267 6 1., 9., 9.,11., 2., 4., 8.,10., 2.,10., 8., 4., !268-270 7 4., 0., 4.,14., 6., 0., 6.,14., 1.,12., 3.,12., !271-273 8 3.,12., 3.,10., 3.,10., 1.,10., 1.,10., 1.,12., !274-276 9 7., 4., 9., 4., 9., 4., 9., 2., 9., 2., 7., 2., !277-279 A 7., 2., 7., 4., 1., 2., 9.,12., 9., 1., 1., 9., !280-282 B 1., 9., 1.,10., 1.,10., 2.,11., 2.,11., 3.,11., !283-285 C 3.,11., 4.,10., 4.,10., 4., 9., 4., 9., 1., 6., !286-288 D 1., 6., 1., 3., 1., 3., 3., 1., 3., 1., 6., 1., !289-291 E 6., 1., 9., 4., 0., 0., 0., 0./ !292-293 OPEN (UNIT=50, 1 STATUS='NEW', 2 RECL=16, 3 FORM='FORMATTED', 4 CARRIAGECONTROL='LIST', 5 ACCESS='DIRECT', 6 ASSOCIATEVARIABLE=ID50, 7 FILE='LG8CHR.VEC') ID50=2 DO 10 J=1,128 WRITE (50'ID50,1000) (LETTER(I,J),I=1,8) 1000 FORMAT (8A2) WRITE (50'ID50,1000) (LETTER(I,J),I=9,16) 10 CONTINUE ILET=ID50-1 DO 20 J=1,293 WRITE (50'ID50,1100) (VECTOR(I,J),I=1,4) 1100 FORMAT (4A4) 20 CONTINUE NUMMAX=ID50-1 ID50=1 WRITE (50'ID50,1200) ILET,NUMMAX 1200 FORMAT (2A4,8X) ID50=1 READ (50'ID50,1200) ILET,NUMMAX CLOSE (UNIT=50,DISP='KEEP') STOP END