compute lhin eq 0.
if any(cd,36,37,38) lhin eq 1
if any(cd,31,32,34,39,40,41) lhin eq 2
if any(cd,23,30) lhin eq 3
if any(cd,25,26,29) lhin eq 4
if (cd eq 22) lhin eq 5
if any(cd,15,16,18,46) lhin eq 9
if any(cd,10,11,12,13) lhin eq 10
if any(cd,1,2,6,47) lhin eq 11
if any(cd,44) lhin eq 12
if any(cd,48,49,51,52,53,54,56,57) lhin eq 13
if any(cd,58,59) lhin eq 14
if ((cd eq 7) and any(csd,4,6,8,14,15,17,21,24,33,40,42,52)) lhin eq 10
if ((cd eq 7) and any(csd,65)) lhin eq 11
if ((cd eq 9) and any(csd,1,4,10,15,21)) lhin eq 10
if ((cd eq 9) and any(csd,24,28,30,39)) lhin eq 11
if ((cd eq 14) and (csd eq 4)) lhin eq 10
if ((cd eq 14) and any(csd,14,19,20,21,24,27,45)) lhin eq 9
if ((cd eq 19) and any(csd,36,38,44,46,48,49,54,70,76)) lhin eq 8
if ((cd eq 21) and (csd eq 10)) lhin eq 5
if ((cd eq 24) and (csd eq 2)) lhin eq 4
if ((cd eq 24) and any(csd,1,9,15)) lhin eq 6
if ((cd eq 28) and any(csd,18,35,37)) lhin eq 4
if ((cd eq 42) and (csd eq 5)) lhin eq 3
if ((cd eq 42) and any(csd,29,37,47,53,59)) lhin eq 2
if ((cd eq 43) and any(csd,5,9,15,17,19,23,31,42,50,52,64,68,69,70,71,72,74)) lhin eq 12
if ((cd eq 43) and any(csd,7,14)) lhin eq 8
if ((cd eq 60) and any(csd,1,4,5,7,8,10,21,24,27,32,34,42,46,49)) lhin eq 14
if ((cd eq 60) and any(csd,10,51,52)) lhin eq 13
if ((cd eq 60) and any(csd,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69)) lhin eq 14
if ((cd eq 60) and any(csd,70,71,72,74,75,76,77,78,79)) lhin eq 14
if ((cd eq 60) and any(csd,80,81,82,83,84,85,86,87,88,89)) lhin eq 14
if ((cd eq 60) and (csd eq 91)) lhin eq 13
if ((cd eq 60) and any(csd,93,95,96,97,98,100,102,104)) lhin eq 14

if ((dauid ge 35190181) and (dauid le 35190185)) lhin eq 8
if ((dauid ge 35190186) and (dauid le 35190189)) lhin eq 5
if (dauid eq 35190192) lhin eq 8
if ((dauid ge 35190195) and (dauid le 35190209)) lhin eq 5
if ((dauid ge 35190210) and (dauid le 35190229)) lhin eq 8
if ((dauid ge 35190230) and (dauid le 35190235)) lhin eq 5
if ((dauid ge 35190236) and (dauid le 35190258)) lhin eq 8
if ((dauid eq 35190259) or (dauid eq 35190260)) lhin eq 5
if ((dauid ge 35190261) and (dauid le 35190844)) lhin eq 8
if ((dauid ge 35191002) and (dauid le 35191007)) lhin eq 5
if ((dauid eq 35191014)) lhin eq 8
if ((dauid ge 35191015) and (dauid le 35191016)) lhin eq 5
if ((dauid ge 35191036) and (dauid le 35191045)) lhin eq 8
if ((dauid ge 35191052) and (dauid le 35191053)) lhin eq 5
if ((dauid ge 35191054) and (dauid le 35191063)) lhin eq 8
if ((dauid ge 35191070) and (dauid le 35191075)) lhin eq 5
if ((dauid ge 35191097) and (dauid le 35191144)) lhin eq 8
if ((dauid eq 35191145)) lhin eq 5
if ((dauid ge 35191239) and (dauid le 35191265)) lhin eq 8
if ((dauid ge 35191266) and (dauid le 35191271)) lhin eq 5

if ((dauid ge 35201717) and (dauid le 35201728)) lhin eq 5
if ((dauid ge 35201779) and (dauid le 35201864)) lhin eq 5
if ((dauid eq 35201912)) lhin eq 5
if ((dauid ge 35203001) and (dauid le 35203002)) lhin eq 5
if ((dauid ge 35203026) and (dauid le 35203102)) lhin eq 5
if ((dauid ge 35204059) and (dauid le 35204066)) lhin eq 5
if (any(dauid,35204124,35204162,35204163,35204176)) lhin eq 5
if (any(dauid,35204258,35204259,35204268,35204269)) lhin eq 5
if ((dauid ge 35204373) and (dauid le 35204379)) lhin eq 5
if ((dauid ge 35204471) and (dauid le 35204480)) lhin eq 5

if ((dauid eq 35201519)) lhin eq 6
if ((dauid ge 35201563) and (dauid le 35201675)) lhin eq 6
if ((dauid ge 35201691) and (dauid le 35201714)) lhin eq 6
if ((dauid ge 35201730) and (dauid le 35201762)) lhin eq 6
if ((dauid ge 35203003) and (dauid le 35203009)) lhin eq 6
if (any(dauid,35203105,35203107,35203108)) lhin eq 6
if (any(dauid,35203111,35203112,35203113)) lhin eq 6
if (any(dauid,35204067,35204069,35204070,35204098)) lhin eq 6
if (any(dauid,35204100,35204101,35204103,35204125)) lhin eq 6
if ((dauid ge 35204249) and (dauid le 35204253)) lhin eq 6
if ((dauid eq 35204276)) lhin eq 6
if (any(dauid,35204668,35204669)) lhin eq 6
if ((dauid ge 35204672) and (dauid le 35204674)) lhin eq 6

if ((dauid ge 35200472) and (dauid le 35200545)) lhin eq 7
if ((dauid ge 35200561) and (dauid le 35201081)) lhin eq 7
if ((dauid ge 35201104) and (dauid le 35201206)) lhin eq 7
if ((dauid eq 35201228)) lhin eq 7
if ((dauid ge 35201240) and (dauid le 35201298)) lhin eq 7
if ((dauid ge 35201312) and (dauid le 35201518)) lhin eq 7
if ((dauid ge 35201520) and (dauid le 35201526)) lhin eq 7
if ((dauid eq 35201532)) lhin eq 7
if ((dauid ge 35201541) and (dauid le 35201560)) lhin eq 7
if ((dauid eq 35201564)) lhin eq 7
if ((dauid eq 35201666)) lhin eq 7
if ((dauid ge 35201670) and (dauid le 35201676)) lhin eq 7
if ((dauid ge 35201690) and (dauid le 35201700)) lhin eq 7
if ((dauid ge 35202123) and (dauid le 35202151)) lhin eq 7
if ((dauid ge 35202226) and (dauid le 35202237)) lhin eq 7
if ((dauid ge 35202241) and (dauid le 35202281)) lhin eq 7
if ((dauid ge 35202302) and (dauid le 35202316)) lhin eq 7
if ((dauid ge 35202321) and (dauid le 35202398)) lhin eq 7
if ((dauid ge 35202605) and (dauid le 35202608)) lhin eq 7
if (any(dauid,35202611,35202612)) lhin eq 7
if ((dauid ge 35202629) and (dauid le 35202699)) lhin eq 7
if ((dauid ge 35202722) and (dauid le 35202736)) lhin eq 7
if ((dauid ge 35202768) and (dauid le 35202995)) lhin eq 7
if ((dauid ge 35203109) and (dauid le 35203110)) lhin eq 7
if ((dauid ge 35203126) and (dauid le 35203247)) lhin eq 7
if ((dauid ge 35203504) and (dauid le 35203507)) lhin eq 7
if ((dauid ge 35203509) and (dauid le 35203513)) lhin eq 7
if ((dauid ge 35203519) and (dauid le 35203528)) lhin eq 7
if ((dauid ge 35203798) and (dauid le 35203898)) lhin eq 7
if (any(dauid,35203977,35203978,35203981,35203984,35203986,35203987)) lhin eq 7
if (any(dauid,35203990,35203991,35203993,35203995,35203997)) lhin eq 7
if (any(dauid,35204001,35204003,35204004,35204005,35204007,35204009)) lhin eq 7
if ((dauid ge 35204011) and (dauid le 35204024)) lhin eq 7
if (any(dauid,35204039,35204040,35204047)) lhin eq 7
if ((dauid ge 35204054) and (dauid le 35204058)) lhin eq 7
if ((dauid ge 35204071) and (dauid le 35204077)) lhin eq 7
if ((dauid ge 35204087) and (dauid le 35204097)) lhin eq 7
if (any(dauid,35204129,35204134,35204135,35204136)) lhin eq 7
if (any(dauid,35204142,35204147)) lhin eq 7
if ((dauid ge 35204154) and (dauid le 35204161)) lhin eq 7
if (any(dauid,35204169,35204170,35204179)) lhin eq 7
if ((dauid ge 35204186) and (dauid le 35204192)) lhin eq 7
if (any(dauid,35204201,35204202)) lhin eq 7
if ((dauid ge 35204220) and (dauid le 35204248)) lhin eq 7
if (any(dauid,35204262,35204263,35204265,35204275,35204279)) lhin eq 7
if ((dauid ge 35204354) and (dauid le 35204372)) lhin eq 7
if ((dauid ge 35204380) and (dauid le 35204390)) lhin eq 7
if ((dauid ge 35204442) and (dauid le 35204470)) lhin eq 7
if ((dauid ge 35204481) and (dauid le 35204667)) lhin eq 7
if (any(dauid,35204670,35204671)) lhin eq 7
if ((dauid ge 35204675) and (dauid le 35204701)) lhin eq 7

if ((dauid ge 35200181) and (dauid le 35200193)) lhin eq 8
if ((dauid ge 35200260) and (dauid le 35200471)) lhin eq 8
if ((dauid ge 35201209) and (dauid le 35201222)) lhin eq 8
if ((dauid ge 35201868) and (dauid le 35201909)) lhin eq 8
if ((dauid ge 35201913) and (dauid le 35201920)) lhin eq 8
if ((dauid ge 35201935) and (dauid le 35201940)) lhin eq 8
if ((dauid ge 35201950) and (dauid le 35202059)) lhin eq 8
if ((dauid ge 35202065) and (dauid le 35202122)) lhin eq 8
if ((dauid ge 35202137) and (dauid le 35202141)) lhin eq 8
if ((dauid ge 35202152) and (dauid le 35202189)) lhin eq 8
if ((dauid ge 35202210) and (dauid le 35202225)) lhin eq 8
if ((dauid ge 35202238) and (dauid le 35202240)) lhin eq 8
if ((dauid ge 35202282) and (dauid le 35202301)) lhin eq 8
if ((dauid ge 35202399) and (dauid le 35202420)) lhin eq 8
if ((dauid ge 35202430) and (dauid le 35202529)) lhin eq 8
if ((dauid ge 35202534) and (dauid le 35202600)) lhin eq 8
if ((dauid ge 35202613) and (dauid le 35202628)) lhin eq 8
if ((dauid ge 35202700) and (dauid le 35202707)) lhin eq 8
if (any(dauid,35202712,35202739)) lhin eq 8
if ((dauid ge 35202741) and (dauid le 35202767)) lhin eq 8
if ((dauid ge 35202953) and (dauid le 35202955)) lhin eq 8
if ((dauid ge 35202965) and (dauid le 35203000)) lhin eq 8
if (any(dauid,35203015,35203016,35203018)) lhin eq 8
if ((dauid ge 35203584) and (dauid le 35203586)) lhin eq 8
if (any(dauid,35203899,35203912)) lhin eq 8
if ((dauid ge 35203974) and (dauid le 35203982)) lhin eq 8
if (any(dauid,35203989,35203992,35203994,35203998)) lhin eq 8
if (any(dauid,35204006,35204010,35204014,35204020)) lhin eq 8
if ((dauid ge 35204025) and (dauid le 35204038)) lhin eq 8
if ((dauid ge 35204041) and (dauid le 35204045)) lhin eq 8
if ((dauid ge 35204049) and (dauid le 35204053)) lhin eq 8
if (any(dauid,35204063,35204068,35204086,35204093)) lhin eq 8
if ((dauid ge 35204105) and (dauid le 35204121)) lhin eq 8
if (any(dauid,35204143,35204144,35204153)) lhin eq 8
if ((dauid ge 35204164) and (dauid le 35204168)) lhin eq 8
if ((dauid ge 35204171) and (dauid le 35204174)) lhin eq 8
if (any(dauid,35204184,35204185)) lhin eq 8
if ((dauid ge 35204193) and (dauid le 35204200)) lhin eq 8
if ((dauid ge 35204254) and (dauid le 35204257)) lhin eq 8
if (any(dauid,35204271,35204278)) lhin eq 8
if ((dauid ge 35204305) and (dauid le 35204328)) lhin eq 8
if (any(dauid,35204352,35204353)) lhin eq 8
if ((dauid ge 35204391) and (dauid le 35204441)) lhin eq 8
if ((dauid ge 35204454) and (dauid le 35204460)) lhin eq 8
if ((dauid ge 35204487) and (dauid le 35204494)) lhin eq 8

if ((dauid ge 35200001) and (dauid le 35200180)) lhin eq 9
if ((dauid ge 35200196) and (dauid le 35200256)) lhin eq 9
if ((dauid ge 35200422) and (dauid le 35200470)) lhin eq 9
if ((dauid ge 35203248) and (dauid le 35203301)) lhin eq 9
if ((dauid ge 35203314) and (dauid le 35203427)) lhin eq 9
if ((dauid ge 35203433) and (dauid le 35203503)) lhin eq 9
if ((dauid ge 35203508)) lhin eq 9
if ((dauid ge 35203529) and (dauid le 35203548)) lhin eq 9
if (any(dauid,35203552,35203554,35203561)) lhin eq 9
if ((dauid ge 35203566) and (dauid le 35203581)) lhin eq 9
if ((dauid ge 35203587) and (dauid le 35203600)) lhin eq 9
if ((dauid ge 35203604) and (dauid le 35203608)) lhin eq 9
if ((dauid ge 35203610) and (dauid le 35203641)) lhin eq 9
if ((dauid ge 35203649) and (dauid le 35203796)) lhin eq 9
if ((dauid ge 35203908) and (dauid le 35203911)) lhin eq 9
if ((dauid ge 35203913) and (dauid le 35203973)) lhin eq 9
if ((dauid ge 35204078) and (dauid le 35204085)) lhin eq 9
if ((dauid ge 35204126) and (dauid le 35204133)) lhin eq 9
if ((dauid ge 35204137) and (dauid le 35204139)) lhin eq 9
if (any(dauid,35204141,35204145,35204146)) lhin eq 9
if ((dauid ge 35204148) and (dauid le 35204152)) lhin eq 9
if (any(dauid,35204177,35204178)) lhin eq 9
if ((dauid ge 35204180) and (dauid le 35204183)) lhin eq 9
if ((dauid ge 35204204) and (dauid le 35204219)) lhin eq 9
if ((dauid ge 35204224) and (dauid le 35204227)) lhin eq 9
if ((dauid ge 35204234) and (dauid le 35204244)) lhin eq 9
if (any(dauid,35204260,35204261,35204266,35204267)) lhin eq 9
if (any(dauid,35204272,35204273,35204274,35204277)) lhin eq 9
if ((dauid ge 35204280) and (dauid le 35204304)) lhin eq 9
if ((dauid ge 35204329) and (dauid le 35204351)) lhin eq 9

/* The following DAuids need to be split by blocks: 35211716, 35211642 */
/* 35211642: pop 995 in lhin 5, pop 0 in lhin 8 */
/* 35211716: pop 642 in lhin 6 */
                                             
if ((dauid ge 35210239) and (dauid le 35211046)) lhin eq 6
if ((dauid ge 35211052) and (dauid le 35211114)) lhin eq 5
if ((dauid ge 35211336) and (dauid le 35211339)) lhin eq 6
if (any(dauid,35211409,35211410,35211467)) lhin eq 5
if ((dauid ge 35211412) and (dauid le 35211466)) lhin eq 6
if ((dauid ge 35211473) and (dauid le 35211599)) lhin eq 6
if ((dauid ge 35211696) and (dauid le 35211702)) lhin eq 5
if ((dauid ge 35211716) and (dauid le 35211869)) lhin eq 6


if ((dauid ge 35210001) and (dauid le 35210019)) lhin eq 5
if ((dauid eq 35211196)) lhin eq 5
if ((dauid ge 35211205) and (dauid le 35211253)) lhin eq 5
if (any(dauid,35211386,35211393)) lhin eq 5
if ((dauid ge 35211539) and (dauid le 35211545)) lhin eq 5
if ((dauid ge 35211595) and (dauid le 35211647)) lhin eq 5

/* The following DAuids need to be split by blocks: 
35280279,35280282,35280302,35280303,35280347,35280348,35280354 */
/* 35280279: pop 104 in lhin 2, pop 413 in lhin 4, coded to 4 */
/* 35280282: pop 333 in lhin 2, pop 140 in lhin 4, coded to 2 */
/* 35280302: pop 302 in lhin 2, pop 197 in lhin 4, coded to 2 */
/* 35280303: pop 367 in lhin 2, pop 75 in lhin 4, coded to 2 */
/* 35280347: pop 134 in lhin 2, pop 309 in lhin 4, coded to 4 */
/* 35280348: pop 137 in lhin 2, pop 350 in lhin 4, coded to 4 */
/* 35280354: pop 85 in lhin 2, pop 358 in lhin 4,coded to 4 */

if ((dauid ge 35280178) and (dauid le 35280219)) lhin eq 4
if ((dauid eq 35280277)) lhin eq 2
if (any(dauid,35280278,35280279,35280280,35280281)) lhin eq 4
if ((dauid ge 35280282) and (dauid le 35280301)) lhin eq 2
if ((dauid eq 35280302)) lhin eq 2
if ((dauid eq 35280303)) lhin eq 2
if ((dauid ge 35280304) and (dauid le 35280354)) lhin eq 4
if ((dauid ge 35280355) and (dauid le 35280357)) lhin eq 2

/* The following DAuids need to be split by blocks: 35420282,35420285 */
/* 35420282: pop 139 in lhin 2, pop 472 in lhin 3, coded to 3 */
/* 35420285: pop 458 in lhin 2, pop 224 in lhin 3, coded to 2 */

if ((dauid eq 35420215)) lhin eq 2
if ((dauid eq 35420282)) lhin eq 3
if ((dauid eq 35420285)) lhin eq 2
if ((dauid ge 35420286) and (dauid le 35420322)) lhin eq 2

/* The following DAuids need to be split by blocks: 35420221,35420267,35420269 */
/* 35420221: pop 233 in lhin 2, pop 281 in lhin 12, coded to 12 */
/* 35420267: pop 453 in lhin 2, pop 152 in lhin 12, coded to 2 */
/* 35420269: pop 181 in lhin 2, pop 355 in lhin 12, coded to 12 */

if ((dauid ge 35420210) and (dauid le 35420220)) lhin eq 2
if ((dauid ge 35420221) and (dauid le 35420224)) lhin eq 12
if (any(dauid,35420237.35420267,35420268,35420270)) lhin eq 2
if ((dauid eq 35420269)) lhin eq 12

/* The following DAuids need to be split by blocks: 35420226,35420227,35420230 */
/* 35420226: pop 113 in lhin 2, pop 348 in lhin 12, coded to 12 */
/* 35420227: pop 50 in lhin 2, pop 623 in lhin 12, coded to 12 */
/* 35420230: pop 316 in lhin 2, pop 362 in lhin 12, coded to 12 */

if ((dauid ge 35420225) and (dauid le 35420230)) lhin eq 12
if ((dauid ge 35420231) and (dauid le 35420236)) lhin eq 2

/* The following DAuids need to be split by blocks: 
35430850,35430851,35430740,35430742,35430744 */
/* 35430740: pop 175 in lhin 8, pop 386 in lhin 12, coded to 12 */
/* 35430742: pop 180 in lhin 8, pop 340 in lhin 12, coded to 12 */
/* 35430744: pop 485 in lhin 8, pop 265 in lhin 12, coded to 8 */
/* 35430850: pop 519 in lhin 8, pop 0 in lhin 12, coded to 8 */
/* 35430851: pop 490 in lhin 8, pop 0 in lhin 12, coded to 8 */

if ((dauid eq 35430739)) lhin eq 12
if ((dauid ge 35430802) and (dauid le 35430849)) lhin eq 8
if (any(dauid,35430850.35430851)) lhin eq 8
if (any(dauid,35430971.35430972)) lhin eq 8
if ((dauid ge 35430715) and (dauid le 35430738)) lhin eq 12
if ((dauid eq 35430742)) lhin eq 12
if ((dauid eq 35430744)) lhin eq 8
if (any(dauid,35430740.35430741,35430743,35430745,35431327)) lhin eq 12


/* The following DAuids need to be split by blocks: 35600208 */
/* 3560208: pop 0 in lhin 13, pop 383 in lhin 14, coded to 14 */

if (any(dauid,35600206.35600208)) lhin eq 14
if (any(dauid,35600265.35600267)) lhin eq 14
if (any(dauid,35600296.35600298)) lhin eq 14
if (any(dauid,35600322.35600332,35600345,35600346)) lhin eq 14
if (any(dauid,35600351.35600352,35600353)) lhin eq 14
if (any(dauid,35600363.35600371,35600372,35600375)) lhin eq 14