INTEGER*2 LEN,NLET,NVEC,LET,OUT DIMENSION LEN(128),NLET(128),NVEC(128),VECTOR(7,190) DIMENSION LET(288),OUT(12) DIMENSION VEC1(7,19),VEC2(7,19),VEC3(7,19),VEC4(7,19),VEC5(7,19) DIMENSION VEC6(7,19),VEC7(7,19),VEC8(7,19),VEC9(7,19),VEC10(7,19) EQUIVALENCE (VECTOR( 1),VEC1(1)),(VECTOR(134),VEC2(1)) EQUIVALENCE (VECTOR(267),VEC3(1)),(VECTOR(400),VEC4(1)) EQUIVALENCE (VECTOR(533),VEC5(1)),(VECTOR(666),VEC6(1)) EQUIVALENCE (VECTOR(799),VEC7(1)),(VECTOR(932),VEC8(1)) EQUIVALENCE (VECTOR(1065),VEC9(1)),(VECTOR(1198),VEC10(1)) DATA LEN/ 1 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 2, 1, 3, 0, 0, 0, 5, 1, 2, 2, 0, 0, 1, 3, 1, 3, 4 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 0, 3, 0, 4, 5 0, 6, 5, 5, 5, 5, 5, 5, 5, 1, 3, 5, 4, 6, 5, 5, 6 5, 5, 5, 5, 3, 5, 5, 8, 5, 5, 5, 2, 3, 2, 0, 0, 7 0, 4, 4, 4, 4, 4, 3, 4, 4, 1, 2, 4, 2, 7, 4, 4, 8 4, 4, 3, 4, 3, 4, 4, 7, 4, 4, 4, 0, 0, 0, 0, 0/ DATA NLET/ 1 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 1,244,246, 0, 0, 0,278,257,258,261, 0, 0,264,265,266,267, 4 225,194,196,199,236,204,209,214,240,220,268,270, 0,272, 0,274, 5 0, 12, 48, 71, 79, 2, 2, 85, 17, 2, 90, 20, 6, 35, 23, 54, 6 43, 65, 43,229, 8, 60, 10, 39, 26, 29, 32, 0, 0, 0, 0, 0, 7 0, 92,186,100,103,107,112,116,121,124,126,129,132,134,139,142, 8 190,150,154,156,163,167,172,172,176,179,183, 0, 0, 0, 0, 0/ DATA NVEC/ 1 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 1, 2, 2, 0, 0, 0, 11, 1, 3, 3, 0, 0, 1, 1, 1, 1, 4 4, 2, 3, 2, 4, 5, 5, 4, 4, 5, 2, 2, 0, 2, 0, 4, 5 0, 3, 6, 3, 6, 4, 3, 5, 3, 1, 2, 3, 2, 4, 3, 4, 6 4, 6, 5, 7, 2, 3, 2, 4, 3, 3, 3, 0, 0, 0, 0, 0, 7 0, 4, 4, 3, 4, 5, 4, 5, 4, 2, 3, 3, 2, 5, 3, 4, 8 4, 4, 2, 7, 4, 3, 2, 4, 3, 4, 3, 0, 0, 0, 0, 0/ C I =( 2) 2 C F =( 2) 2, 3, 4 C E =( 2) 2, 3, 4, 5 C L =( 6) 2, 6 C T =( 8) 7, 8 C V =( 10) 9, 10 C A =( 12) 11, 12, 13 C =( 15) 14, 15 UMLAUT FUER A. EINLEITUNG : ^A C H =( 17) 2, 16, 17 C K =( 20) 2, 18, 19 C N =( 23) 2, 16, 20 C X =( 26) 21, 22, 23 C Y =( 29) 24, 25, 26 C Z =( 32) 3, 5, 27 C M =( 35) 2, 28, 29, 30 C W =( 39) 31, 32, 33, 34 C P =( 43) 2, 35, 36, 37 C R =( 43) 2, 35, 36, 37, 38 C B =( 48) 2, 35, 36, 37, 39, 40 C O =( 54) 41, 42, 43, 44 C =( 58) 45, 46 UMLAUT FUER O. EINLEITUNG : ^O C U =( 60) 42, 47, 48 C =( 63) 45, 46 UMLAUT FUER U. EINLEITUNG : ^U C Q =( 65) 41, 42, 43, 44, 49, 50 C C =( 71) 43, 51, 52 C S =(229) 154,155,156,157,158,159,160 C D =( 79) 2, 44, 57, 58, 59, 60 C G =( 85) 42, 43, 51, 61, 62 C J =( 90) 63, 64 C a =( 92) 67, 68, 65, 66 C ( 96) 121,122 UMLAUT FUER a. EINLEITUNG : ^a C b =(186) 69, 70, 65, 66 C c =(100) 67, 71, 72 C d =(103) 67, 73, 65, 66 C e =(107) 67, 74, 65, 72, 75 C f =(112) 76, 77, 78, 79 C g =(116) 67, 80, 65, 66, 81 C h =(121) 83, 65, 83 C i =(124) 84, 85 C j =(126) 86, 87, 88 C k =(129) 83, 89, 90 C l =(132) 91, 92 C m =(134) 84, 82, 65, 93, 94 C n =(139) 84, 65, 82 C o =(142) 67, 70, 65, 66 C (146) 121,122 UMLAUT FUER o. EINLEITUNG : ^o C p =(190) 65, 66, 70, 95 C q =(150) 67, 98, 65, 66 C r =(154) 84, 99 C s =(156) 100,101,102,103,104,105,106 C t =(163) 107,108, 78, 79 C u =(167) 68, 66,109 C (170) 121,122 UMLAUT FUER u. EINLEITUNG : ^u C v =(172) 110,111 C w =(172) 110,111,112,113 C x =(176) 114,115,116 C y =(179) 118,117,110,111 C z =(183) 114,119,120 C 1 =(194) 123,124 C 2 =(196) 125,126,127 C 3 =(199) 128,129 C 4 =(236) 132,131,161 C 5 =(204) 133,134,135,136,137 C 6 =(209) 135,139,138,140,141 C 7 =(214) 143,142,144,133 C 8 =(240) 145,146,162,163 C 9 =(220) 147,148,149,150,151 C 0 =(225) 141,149,152,153 C ! =(244) 164,165 C " =(246) 143,166 C & =(278) 169, 92,167,170,171,168,173,174,172,189,190 C ` =(257) 143 C ( =(258) 92,175,176 C ) =(261) 177,178,179 C , =(264) C - =(265) 181 C . =(266) 182 C / =(267) 183 C | =(268) 182,184 C ; =(270) 180,184 C = =(272) 181,185 C ? =(274) 186,187,188,125 C DATA LET/ 1 1, 2, 3, 4, 5, 2, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 2 2, 16, 17, 2, 18, 19, 2, 16, 20, 21, 22, 23, 24, 25, 26, 3, 3 5, 27, 2, 28, 29, 30, 31, 32, 33, 34, 2, 35, 36, 37, 38, 2, 4 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 42, 47, 48, 45, 46, 5 41, 42, 43, 44, 49, 50, 43, 51, 52, 51, 53, 54, 55, 56, 2, 44, 6 57, 58, 59, 60, 42, 43, 51, 61, 62, 63, 64, 67, 68, 65, 66,121, 7 122, 0, 0, 67, 71, 72, 67, 73, 65, 66, 67, 74, 65, 72, 75, 76, 8 77, 78, 79, 67, 80, 65, 66, 81, 83, 65, 82, 84, 85, 86, 87, 88, 9 83, 89, 90, 91, 92, 84, 65, 82, 93, 94, 84, 65, 82, 67, 70, 65, A 66,121,122, 0, 0, 67, 98, 65, 66, 84, 99,100,101,102,103,104, B 105,106,107,108, 78, 79, 68, 66,109,121,122,110,111,112,113,114, C 115,116,118,117,110,111,114,119,120, 69, 70, 65, 66, 95, 70, 65, D 66,123,124,125,126,127,128,129,132,131,130,133,134,135,136,137, E 135,139,138,140,141,143,142,133,144, 0, 0,147,148,149,150,151, F 141,149,152,153,154,155,156,157,158,159,160,132,131,130,161,145, G 146,162,163,164,165,143,166, 0, 0, 0, 0, 0, 0, 0, 0, 0, H 143, 92,175,176,177,178,179,180,181,182,183,182,184,180,184,181, I 185,187,186,188,125,169, 92,167,170,171,168,173,174,172,189,190/ DATA VEC1/ 1 0., 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2 1., 1.0, 1.0, 1.0, 13.0, 1.0, 7.0, 3 1., 1.0, 13.0, 9.0, 13.0, 5.0, 13.0, 4 1., 1.0, 7.0, 7.0, 7.0, 4.0, 7.0, 5 1., 1.0, 1.0, 9.0, 1.0, 5.0, 1.0, 6 1., 1.0, 1.0, 7.0, 1.0, 4.0, 1.0, 7 1., 0.5, 13.0, 5.5, 13.0, 3.0, 13.0, 8 1., 3.0, 1.0, 3.0, 13.0, 3.0, 7.0, 9 1., 1.0, 13.0, 5.0, 1.0, 3.0, 7.0, A 1., 5.0, 1.0, 9.0, 13.0, 7.0, 7.0, B 1., 1.0, 1.0, 6.0, 13.0, 3.5, 7.0, C 1., 6.0, 13.0, 11.0, 1.0, 8.5, 7.0, D 1., 2.9, 4.0, 9.1, 4.0, 6.0, 4.0, E 1., 4.0, 16.0, 4.0, 16.0, 4.0, 16.0, F 1., 8.0, 16.0, 8.0, 16.0, 8.0, 16.0, G 1., 9.0, 1.0, 9.0, 13.0, 9.0, 7.0, H 1., 1.0, 7.0, 9.0, 7.0, 5.0, 7.0, I 1., 1.0, 5.0, 9.0, 13.0, 5.0, 9.0, J 1., 5.0, 9.0, 9.0, 1.0, 7.0, 5.0/ DATA VEC2/ 1 1., 1.0, 13.0, 9.0, 1.0, 5.0, 7.0, 2 1., 1.0, 1.0, 9.0, 13.0, 5.0, 7.0, 3 1., 1.0, 13.0, 5.0, 7.0, 3.0, 10.0, 4 1., 5.0, 7.0, 9.0, 1.0, 7.0, 4.0, 5 1., 1.0, 13.0, 5.0, 6.0, 3.0, 9.5, 6 1., 5.0, 6.0, 9.0, 13.0, 7.0, 9.5, 7 1., 5.0, 6.0, 5.0, 1.0, 5.0, 3.5, 8 1., 1.0, 1.0, 9.0, 13.0, 5.0, 7.0, 9 1., 1.0, 13.0, 6.0, 4.0, 3.5, 8.5, A 1., 6.0, 4.0, 11.0, 13.0, 8.5, 8.5, B 1., 11.0, 13.0, 11.0, 1.0, 11.0, 7.0, C 1., 1.0, 13.0, 4.5, 1.0, 2.75, 7.0, D 1., 4.5, 1.0, 8.0, 13.0, 6.25, 7.0, E 1., 8.0, 13.0, 11.5, 1.0, 9.75, 7.0, F 1., 11.5, 1.0, 15.0, 13.0,13.25, 7.0, G 1., 1.0, 13.0, 6.0, 13.0, 3.5, 13.0, H 1., 1.0, 7.0, 6.0, 7.0, 3.5, 7.0, I 2., 6.0, 10.0, 3.0, 90.0,270.0, 0.0, J 1., 5.0, 7.0, 9.0, 1.0, 7.0, 4.0/ DATA VEC3/ 1 1., 1.0, 1.0, 6.0, 1.0, 3.5, 1.0, 2 2., 6.0, 4.0, 3.0, 90.0,270.0, 0.0, 3 2., 5.0, 9.0, 4.0,180.0, 0.0, 90.0, 4 2., 5.0, 5.0, 4.0, 0.0,180.0,270.0, 5 1., 1.0, 5.0, 1.0, 9.0, 1.0, 7.0, 6 1., 9.0, 5.0, 9.0, 9.0, 9.0, 7.0, 7 1., 3.0, 16.0, 3.0, 16.0, 3.0, 16.0, 8 1., 7.0, 16.0, 7.0, 16.0, 7.0, 16.0, 9 1., 1.0, 5.0, 1.0, 13.0, 1.0, 9.0, A 1., 9.0, 5.0, 9.0, 13.0, 9.0, 9.0, B 1., 7.0, 3.0, 9.0, 1.0, 7.0, 3.0, C 1., 7.0, 3.0, 9.0, 1.0, 9.0, 1.0, D 2., 5.0, 9.0, 4.0,180.0, 30.0,105.0, E 2., 5.0, 5.0, 4.0,330.0,180.0,255.0, F 2., 5.0, 5.0, 4.0, 0.0,210.0,285.0, G 1., 3.0, 7.0, 7.0, 7.0, 5.0, 7.0, H 2., 7.0, 5.0, 2.0, 90.0, 0.0, 45.0, I 2., 3.0, 9.0, 2.0,270.0,180.0,225.0, J 1., 1.0, 13.0, 5.0, 13.0, 3.0, 13.0/ DATA VEC4/ 1 1., 1.0, 1.0, 5.0, 1.0, 3.0, 1.0, 2 2., 5.0, 9.0, 4.0, 90.0, 0.0, 45.0, 3 2., 5.0, 5.0, 4.0, 0.0,270.0,315.0, 4 1., 9.0, 5.0, 9.0, 7.0, 9.0, 7.0, 5 1., 6.0, 7.0, 9.0, 7.0, 7.5, 7.0, 6 1., 5.0, 3.0, 5.0, 13.0, 5.0, 8.0, 7 2., 3.0, 3.0, 2.0, 0.0,210.0,285.0, 8 2., 4.0, 6.0, 3.0,180.0, 0.0, 90.0, 9 2., 4.0, 4.0, 3.0, 0.0,180.0,270.0, A 1., 1.0, 4.0, 1.0, 6.0, 1.0, 5.0, B 1., 7.0, 1.0, 7.0, 9.0, 7.0, 5.0, C 1., 1.0, 1.0, 1.0, 13.0, 1.0, 7.0, D 1., 7.0, 4.0, 7.0, 6.0, 7.0, 5.0, E 2., 4.0, 6.0, 3.0,180.0, 30.0,105.0, F 2., 4.0, 4.0, 3.0,330.0,180.0,255.0, G 1., 7.0, 1.0, 7.0, 13.0, 7.0, 7.0, H 1., 7.0, 5.0, 7.0, 6.0, 7.0, 5.5, I 1., 1.0, 5.0, 7.0, 5.0, 4.0, 5.0, J 1., 3.0, 1.0, 3.0, 11.0, 3.0, 6.0/ DATA VEC5/ 1 2., 5.0, 11.0, 2.0,180.0, 90.0,135.0, 2 1., 1.0, 9.0, 5.0, 9.0, 5.0, 9.0, 3 1., 1.0, 9.0, 5.0, 9.0, 1.0, 9.0, 4 1., 7.0, 9.0, 7.0, 0.0, 7.0, 4.5, 5 2., 4.0, 0.0, 3.0, 0.0,210.0,285.0, 6 1., 7.0, 1.0, 7.0, 6.0, 7.0, 3.5, 7 1., 1.0, 1.0, 1.0, 13.0, 1.0, 7.0, 8 1., 1.0, 1.0, 1.0, 9.0, 1.0, 5.0, 9 1., 1.0, 13.0, 1.0, 13.0, 1.0, 13.0, A 1., 3.0, 13.0, 3.0, 13.0, 3.0, 13.0, B 1., 3.0, -1.0, 3.0, 9.0, 3.0, 4.0, C 2., 1.0, -1.0, 2.0, 0.0,270.0,315.0, D 1., 1.0, 3.0, 7.0, 9.0, 4.0, 6.0, E 1., 4.0, 6.0, 7.0, 1.0, 5.5, 3.5, F 1., 1.0, 3.0, 1.0, 13.0, 1.0, 8.0, G 2., 3.0, 3.0, 2.0,270.0,180.0,225.0, H 2., 10.0, 6.0, 3.0,180.0, 0.0, 90.0, I 1., 13.0, 1.0, 13.0, 6.0, 13.0, 3.5, J 1., 1.0, -3.0, 1.0, 9.0, 1.0, 3.0/ DATA VEC6/ 1 0., 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2 0., 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 3 1., 7.0, -3.0, 7.0, 9.0, 7.0, 3.0, 4 2., 3.0, 7.0, 2.0,180.0, 0.0, 90.0, 5 1., 3.0, 9.0, 5.0, 9.0, 4.0, 9.0, 6 1., 3.0, 5.0, 5.0, 5.0, 4.0, 5.0, 7 1., 3.0, 1.0, 5.0, 1.0, 4.0, 1.0, 8 2., 3.0, 7.0, 2.0,270.0, 90.0,180.0, 9 2., 5.0, 3.0, 2.0, 90.0,270.0, 0.0, A 2., 5.0, 7.0, 2.0, 90.0, 30.0, 60.0, B 2., 3.0, 3.0, 2.0,270.0,210.0,230.0, C 1., 3.0, 13.0, 3.0, 3.0, 3.0, 8.0, D 2., 5.0, 3.0, 2.0,270.0,180.0,225.0, E 1., 1.0, 4.0, 1.0, 9.0, 1.0, 6.5, F 1., 1.0, 9.0, 4.0, 1.0, 2.5, 5.0, G 1., 7.0, 9.0, 4.0, 1.0, 5.5, 5.0, H 1., 7.0, 9.0, 10.0, 1.0, 8.5, 5.0, I 1., 13.0, 9.0, 10.0, 1.0, 11.5, 5.0, J 1., 1.0, 1.0, 7.0, 9.0, 4.0, 5.0/ DATA VEC7/ 1 1., 1.0, 9.0, 4.0, 5.0, 2.5, 7.0, 2 1., 7.0, 1.0, 4.0, 5.0, 5.5, 3.0, 3 1., 4.0, 1.0, 2.5, -3.0, 3.25, -1.0, 4 1., 2.5, -3.0, 1.0, -3.0, 1.75, -3.0, 5 1., 1.0, 9.0, 7.0, 9.0, 4.0, 9.0, 6 1., 1.0, 1.0, 7.0, 1.0, 4.0, 1.0, 7 1., 2.0, 13.0, 2.0, 13.0, 2.0, 13.0, 8 1., 6.0, 13.0, 6.0, 13.0, 6.0, 13.0, 9 1., 3.0, 11.0, 5.0, 13.0, 4.0, 12.0, A 1., 5.0, 1.0, 5.0, 13.0, 5.0, 7.0, B 2., 4.0, 10.0, 3.0,150.0,330.0, 60.0, C 1., 6.6, 8.5, 1.0, 1.0, 3.8, 4.75, D 1., 1.0, 1.0, 7.0, 1.0, 4.0, 1.0, E 2., 4.0, 10.0, 3.0,150.0,270.0, 30.0, F 2., 4.0, 4.0, 3.0, 90.0,210.0,330.0, G 1., 1.0, 3.0, 5.0, 13.0, 3.0, 8.0, H 1., 5.0, 1.0, 5.0, 6.0, 5.0, 5.0, I 1., 1.0, 3.0, 7.0, 3.0, 4.0, 3.0, J 1., 1.0, 13.0, 7.0, 13.0, 4.0, 13.0/ DATA VEC8/ 1 1., 1.0, 7.0, 1.0, 13.0, 1.0, 10.0, 2 1., 7.0, 6.0, 7.0, 4.0, 7.0, 5.0, 3 2., 4.0, 6.0, 3.0,150.0, 0.0, 75.0, 4 2., 4.0, 4.0, 3.0, 0.0,210.0,285.0, 5 2., 4.0, 10.0, 3.0,180.0, 30.0,105.0, 6 1., 1.0, 4.0, 1.0, 10.0, 1.0, 7.0, 7 2., 4.0, 6.0, 3.0,180.0, 0.0, 90.0, 8 2., 4.0, 4.0, 3.0, 0.0,180.0,270.0, 9 1., 7.0, 11.0, 7.0, 13.0, 7.0, 12.0, A 1., 1.0, 11.0, 1.0, 13.0, 1.0, 12.0, B 1., 1.0, 1.0, 7.0, 11.0, 4.0, 6.0, C 2., 4.0, 10.0, 3.0, 90.0,270.0, 0.0, D 2., 4.0, 4.0, 3.0, 90.0,270.0, 0.0, E 1., 7.0, 10.0, 7.0, 4.0, 7.0, 7.0, F 1., 1.0, 8.0, 1.0, 10.0, 1.0, 9.0, G 2., 4.0, 10.0, 3.0,180.0, 0.0, 90.0, H 2., 4.0, 8.0, 3.0, 0.0,180.0,270.0, I 2., 4.0, 4.0, 3.0, 0.0,210.0,285.0, J 1., 1.0, 4.0, 1.0, 10.0, 1.0, 7.0/ DATA VEC9/ 1 1., 7.0, 4.0, 7.0, 10.0, 7.0, 7.0, 2 1., 4.0, 13.0, 5.0, 13.0, 4.5, 13.0, 3 1., 4.0, 7.0, 6.0, 7.0, 5.0, 7.0, 4 1., 5.0, 1.0, 6.0, 1.0, 5.5, 1.0, 5 2., 5.0, 9.0, 4.0, 90.0, 30.0, 60.0, 6 2., 5.0, 5.0, 4.0,270.0,210.0,240.0, 7 2., 4.0, 10.0, 3.0,270.0, 90.0,180.0, 8 2., 6.0, 4.0, 3.0, 90.0,270.0, 0.0, 9 1., 5.0, 1.0, 5.0, 6.0, 5.0, 1.0, A 2., 4.0, 10.0, 3.0,270.0, 90.0,180.0, B 2., 4.0, 4.0, 3.0,270.0, 90.0,180.0, C 1., 1.0, 4.0, 1.0, 13.0, 1.0, 8.5, D 1., 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, E 1., 5.0, 11.0, 5.0, 13.0, 5.0, 12.0, F 1., 4.0, 13.0, 5.0, 13.0, 4.5, 13.0, G 1., 1.0, 3.0, 1.0, 5.0, 1.0, 4.0, H 1., 3.0, 1.0, 5.0, 1.0, 4.0, 1.0, I 2., 5.0, 11.0, 2.0, 90.0,330.0, 30.0, J 2., 4.0, 11.0, 2.0,210.0, 90.0,150.0/ DATA VEC10/ 1 1., 2.3, 10.0, 9.0, 1.0, 5.75, 5.5, 2 1., 1.0, 5.0, 6.8, 10.0, 3.9, 7.5, 3 1., 5.0, 1.0, 9.0, 5.0, 7.0, 3.0, 4 1., 1.0, 3.0, 1.0, 11.0, 1.0, 7.0, 5 2., 3.0, 11.0, 2.0,180.0, 90.0,135.0, 6 2., 1.0, 11.0, 2.0, 90.0, 0.0, 45.0, 7 2., 1.0, 3.0, 2.0, 0.0,270.0,315.0, 8 1., 3.0, 3.0, 3.0, 11.0, 3.0, 7.0, 9 1., 1.0, 1.0, 1.0, -1.0, 1.0, 0.0, A 1., 1.0, 5.0, 5.0, 5.0, 3.0, 5.0, B 1., 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, C 1., 1.0, 1.0, 5.0, 13.0, 3.0, 7.0, D 1., 1.0, 9.0, 1.0, 9.0, 1.0, 9.0, E 1., 1.0, 9.0, 5.0, 9.0, 3.0, 9.0, F 1., 4.0, 6.0, 6.6, 8.5, 5.3, 7.25, G 1., 4.0, 4.0, 4.0, 6.0, 4.0, 5.0, H 1., 4.0, 1.0, 4.0, 1.0, 4.0, 1.0, I 1., 2.3, 10.0, 9.0, 1.0, 8.0, 2.0, J 1., 2.3, 10.0, 9.0, 1.0, 3.0, 9.0/ OPEN (UNIT=50, 1 STATUS='NEW', 2 RECL=28, 3 FORM='FORMATTED', 4 CARRIAGECONTROL='LIST', 5 ACCESS='DIRECT', 6 ASSOCIATEVARIABLE=ID50, 7 FILE='LG8DIN.VEC') ID50=2 DO 20 I=1,128 JEND=NLET(I)+NVEC(I)-1 IF (I.EQ.66) JEND=JEND+2 IF (I.EQ.80) JEND=JEND+2 IF (I.EQ.86) JEND=JEND+2 IF (I.EQ.98) JEND=JEND+2 IF (I.EQ.112) JEND=JEND+2 IF (I.EQ.118) JEND=JEND+2 DO 10 J=1,12 OUT(J)=0 JPOS=NLET(I)+J-1 IF (JPOS.GT.JEND) GO TO 10 OUT(J)=LET(JPOS) 10 CONTINUE WRITE (50'ID50,1000) LEN(I),NVEC(I),OUT 1000 FORMAT (14A2) 20 CONTINUE ILET=ID50-1 DO 30 J=1,190 WRITE (50'ID50,1100) (VECTOR(I,J),I=1,7) 1100 FORMAT (7A4) 30 CONTINUE NUMMAX=ID50-1 ID50=1 WRITE (50'ID50,1200) ILET,NUMMAX 1200 FORMAT (2A4,20X) CLOSE (UNIT=50,DISP='KEEP') STOP END