1 INTEGER A, B, C, D, E 2 PARAMETER (A=1, B=2, C=3, D=4, E=5) 3 4 INTEGER AB, AC, AD, AE, BC, BD, BE, CD, CE, DE 5 PARAMETER (AB=1, AC=2, AD=4, AE=7, 6 & BC=3, BD=5, BE=8, 7 & CD=6, CE=9, 8 & DE=10 ) 9 10 INTEGER ABC, ABD, ACD, BCD, ABE, ACE, ADE, BCE, BDE, CDE 11 PARAMETER (ABC=1, ABD=2, ABE=5, 12 & ACD=3, ACE=6, 13 & BCE=7, 14 & BCD=4, ADE=8, 15 & BDE=9, 16 & CDE=10 ) 17 18 19 INTEGER I1(15), I2(15), I3(15), I4(15), I5(15), IP1(15), IP2(15) 20 21 DATA I1 / A, A, A, B, B, B, C, C, C, D, D, D, E, E, E / 22 23 DATA I2 / B, B, B, A, A, A, A, A, A, A, A, A, A, A, A / 24 DATA I3 / C, D, E, C, D, E, B, D, E, B, C, E, B, C, D / 25 DATA IP1 / BC,BD,BE, AC,AD,AE, AB,AD,AE, AB,AC,AE, AB,AC,AD / 26 27 DATA I4 / D, C, C, D, C, C, D, B, B, C, B, B, C, B, B / 28 DATA I5 / E, E, D, E, E, D, E, E, D, E, E, C, D, D, C / 29 DATA IP2 / DE,CE,CD, DE,CE,CD, DE,BE,BD, CE,BE,BC, CD,BD,BC / 30 31 32 INTEGER J1(5), J2(5), J3(5), J4(5), J5(5), JP1(5), JP2(5) 33 34 DATA J1 / A, B, C, D, E / 35 DATA J2 / B, C, D, E, A / 36 DATA J3 / C, D, E, A, B / 37 DATA J4 / D, E, A, B, C / 38 DATA J5 / E, A, B, C, D / 39 DATA JP1 / AB,BC,CD,DE,AE / 40 DATA JP2 / AC,BD,CE,AD,BE / 41 42