******************************************************** *SPSS syntax to convert the People's Activities and Use* *of Time (conducted by the BBC) - UK 1961 * *into Multinational Time Use Study version 5.53/58/6 * *initial set up by Sally Jones and Jonathan Gershuny * *University of Bath early 1980s * *modified by Tingting Lu and Anne Gauthier, University * *of Calgary , last update 6 July 2004 * *upgraded following the correction of identifier errors* *by Kimberly Fisher, University of Oxford 8 September * * 2009 * ********************************************************. Get file='C:\Documents and Settings\All Users\Documents\time-use-library\UK\1961\cbbc61.sav'. ***************************** *CREATE BACKGROUND VARIABLES* *****************************. missing values all (). recode sex to tvrad (sysmis=-8). recode sun1 to sat35 (sysmis=997). recode age (sysmis=-8). *identifiers are related to regions. *documentation specifies the sample to be Great Britain; *hence no Nothern Ireland; and specifies 6 regions, London/South; *North, Midlands collected in proportion; West, Wales, Scotland *collected in double proportion. Do if id<1000. compute region=4. Else if id>999 and id<2000. compute region=1. Else if id>1999 and id<3000. compute region=2. Else if id>2999 and id<4000. compute region=5. Else if id>3999 and id<5000. compute region=7. Else if id>4999 and id<6000. compute region=7. Else if id>5999 and id<7000. compute region=6. Else if id>6999. compute region=6. End if. var lab region country and English region. val lab region -8 missing 1 North of England 2 English Midlands 3 East of England 4 London and South East 5 South & West of England 6 Wales 7 Scotland 8 Northern Ireland. freq region. *in most cases 1 person sampled per household, but in 345 cases a second person aged 15-20 *additionally interviewed - see if possible to indentify the households. compute test=0. if age1=1 and soclass=lag(soclass) and famtype=lag(famtype) and tvrad=lag(tvrad) and region=lag(region) test=1. freq test. *225 cases where there is a young person next to someone in the same type of household. *these examined, but clusters of such cases appear next to each other, not enough information *to separtately identify households. compute countreg = 37. compute swave = 0. compute msamp = 0. compute persid = id. compute hldid = 0. compute parntid1=-9. compute parntid2=-9. compute partid=-9. compute month = 4. compute year = 1961. compute hhtype = -9. compute hhldsize = -9. compute nchild = -9. recode famtype (1=1) (2=2) (3=-7) (else=-8) into agekidx. *this variable is amended later to note teenage students. cro agekidx by famtype. compute agekid2 = -9. compute incorig = -9. Do if occ=3 and soclass=3. compute income = 1. Else if occ=1 and soclass<3. compute income = 3. Else if soclass=1 and occ<3. compute income = 3. Else if soclass=-8 and occ=-8. compute income =-8. Else. compute income = 2. End if. cro occ soclass by income. compute ownhome = -9. compute urban = -9. compute computer = -9. compute vehicle = -9. *sex already available. recode age (0=-8) (1=20) (2=35) (3=55) (4=65). freq sex age. compute cphome = -9. compute singpar = -9. compute relrefp = -9. compute civstat = -9. compute cohab = -9. compute citizen = -9. compute unemp = -9. compute retired=0. if age>60 retired=1. compute empsp = -9. compute empinclm = -9. Do if occ=1. compute occup=7. Else if occ=2 or soclass=1 or soclass=2. compute occup=9. Else if occ=3 or soclass=3. compute occup=13. Else. compute occup=-8. End if. freq occup. cro occup by soclass occ income. compute sector = -9. compute educa =slvage. recode educa (0,sysmis=-8). recode educa (2,3 = 1) (1 = 2) (else=-8) into edtry. compute rushed=-9. compute health=-9. compute carer=0. compute disab=-9. *no question asking is someone does adult care, however, as there are 7 diaries, *can find many carers by looking for adult care across any of the diaries. compute c=0. Do repeat a= sun1 to sat35. if a=133 or a=433 or a=533 or a=733 c=c+1. end repeat. freq c. if c>0 carer=1. freq carer. cro carer by age. freq slvage. cro slvage by age. *use diary to modify the age, to break out the 20s from the teens. compute ed=0. compute edtrav=0. compute kidcare=0. compute work=0. compute film=0. compute club=0. Do repeat a= sun1 to sat35. if a=20 or a=21 or a=220 or a=221 or a=320 or a=321 or a=620 ed=ed+30. if a=24 or a=25 or a=26 or a=224 or a=225 or a=226 or a=324 or a=325 or a=326 edtrav=edtrav+30. if a=35 or a=235 or a=335 or (a>199 and a<126) or (a>499 and a<426) or (a>599 and a<526) or (a>799 and a<726) kidcare=kidcare+30. if (a>0 and a<14) or (a>200 and a<214) or (a>300 and a<314) or a=170 or a=770 work=work+30. if a=78 or a=278 or a=378 or a=79 or a=279 or a=379 club=club+30. if a=70 or a=270 or a=370 film=film+30. end repeat. means ed edtrav kidcare work film club by age /cells=min max mean median. *many combinations tried to identify markers in activities to separate out *the under 18s from the 18-24 age group. Education (likely secondary *education) is one such marker. Music, driving lessons, playing games, *sport, shopping, driving to work versus commute by other means, tie with *friends, watching films, and attending clubs, but these did not prove *helpful. temp. select if ed>0 or edtrav>0. means ed edtrav kidcare work by age /cells=min max mean median. temp. select if kidcare>0 or work>0. means ed edtrav kidcare work by age /cells=min max mean median. compute student=0. if ed>0 or edtrav>0 student=1. freq student. cro student occ by slvage. cro occ by student. cro occ by student by slvage. *At this point can identify people who are likely to be younger people. Those *who are students and have a younger age leaving school or who have no occupation *and a younger student leaving age are likely to be under age 18. If (student=1 or occ=0) and (slvage=2 or slvage=3) and age=20 age=16. freq age. cro age by age1. if age=16 agekidx=3. freq agekidx. recode slvage (3=15) (2=16) (1=17) (else=-8) into aglftsch. if age=16 and (slvage=0 or slvage=3) aglftsch=0. if age<30 and student=1 aglftsch=0. var lab aglftsch age left formal education. val lab aglftsch -8 missing 0 still in school 15 15 or less 21 21 or older. cro aglftsch by slvage. compute ethnic=-9. compute sexd=sex. compute aged=age. compute incolab=-9. cro occ by slvage. Do if occ=1 and slvage=1. compute educa=1. Else if occ=2 and slvage=1. compute educa=2. Else if slvage=1. compute educa=3. Else if occ=1 and (slvage=2 or slvage=3). compute educa=4. Else if occ=2 and (slvage=2 or slvage=3). compute educa=5. Else if slvage=2. compute educa=6. Else if slvage=3. compute educa=7. Else. compute educa=-8. End if. Recode educa (1=3) (2,3,4=2) (5,6,7=1) (-8=-8) into edtry. val lab educa 1 "professional and left school aged 17+" 2 "skilled and left school aged 17+" 3 "other left school aged 17+" 4 "professional and left school aged <17" 5 "skilled and left school aged <17" 6 other left school aged 15 or 16 7 "other left school age <14" -8 missing. freq educa edtry. cro educa by occ slvage edtry. compute educalab=educa. compute empinlab=-9. val lab sun1 to sat35 1 main work main job 2 overtime main job 3 second job 4 waiting for work activity 5 at work before, after job 6 meal at workplace 7 tea, coffee at work 8 meal, snack at work 9 "travel to/from work by car" 10 "travel to/from work, not by car" 11 "travel to/from work, not know if by car" 12 travel as part of work 13 unspecified activity related to work 20 full-time education course 21 part-time education course 22 occasional lecture 23 political, union information event 24 "travel to/from education by car" 25 "travel to/from education, not by car" 26 "travel to/from education, not know if by car" 27 driving lesson 30 purchase everyday consumer goods 31 purchase durables 32 personal services 33 personal care outside home 34 medical care outside home 35 medical care for children outside the home 36 wait to purchase goods 37 admin, pay bills outside home 38 other shopping 39 travel for shopping 40 travel for personal services 50 attend religious service 51 attend political, union meeting 52 voluntary work for organisation 53 other meetings 54 unpaid collective civic activity 55 religious voluntary work 56 factory council 57 voluntary work for other organisation 58 other civic participation 59 civic travel 60 sport and exercise 61 walking 62 hunting, fishing 63 visit museums, exhibits 64 visit towns, cities 65 visit other places of interest 66 other leisure 67 sport, leisure travel 70 movies 71 theatre, concert, opera 72 circus 73 watch sports 74 passive entertainment travel 75 visit others, food served 76 visit others, no food 77 pub 78 social club 79 night club 80 restaurant 81 tea room 82 other entertainment 83 social travel 90 travel - purpose not clear 95 activity away from home and not work 100 "cook/prepare food" 101 wash up, put away dishes 102 indoor cleaning 103 outdoor cleaning 104 "laundry/ironing" 105 "repair clothes/shoes" 106 other repairs, home operations 107 upkeep heating and water 108 look after pets 109 gardening 110 "other housework (eg paperwork)" 120 care for babies 121 care for older children 122 read, conversation with children 123 indoor games, instruct children 124 outdoor games, walk with children 125 other child care 130 personal care, dressing 131 personal medical care 132 pray at home 133 personal care to adults 136 other personal care 140 meals, snacks at home 141 tea, coffee at home 142 alcohol at home 144 "other eat/drink at home" 150 main sleep, night 151 main sleep, day 152 nap 153 assumed main night sleep 159 unspecified sleep 160 listen to radio 161 watch TV 162 listen to records 163 relax, think 164 other relax at home 165 unspecified media use 170 working at home 171 reading for personal advancement 172 other study 173 read books 174 read periodicals 175 read newspaper 176 technical hobbies 177 arts and crafts 178 knitting, sewing 179 play musical instruments 180 correspondence 181 other past times 190 receive guests, food served 191 receive guests, no food 192 talk, gossip 193 play games 199 other free time 201 main work main job with radio 202 overtime main job with radio 203 second job with radio 204 waiting for work activity with radio 205 at work before, after job with radio 206 meal at workplace with radio 207 tea, coffee at work with radio 208 meal, snack at work with radio 209 "travel to/from work by car with radio" 210 "travel to/from work, not by car with radio" 211 "travel to/from work, not know if by car with radio" 212 travel as part of work with radio 213 unspecified activity related to work with radio 220 full-time education course with radio 221 part-time education course with radio 222 occasional lecture with radio 223 political, union information event with radio 224 "travel to/from education by car with radio" 225 "travel to/from education, not by car with radio" 226 "travel to/from education, not know if by car with radio" 227 driving lesson with radio 230 purchase everyday consumer goods with radio 231 purchase durables with radio 232 personal services with radio 233 personal care outside home with radio 234 medical care outside home with radio 235 medical care for children outside the home with radio 236 wait to purchase goods with radio 237 admin, pay bills outside home with radio 238 other shopping with radio 239 travel for shopping with radio 240 travel for personal services with radio 250 attend religious service with radio 251 attend political, union meeting with radio 252 voluntary work for organisation with radio 253 other meetings with radio 254 unpaid collective civic activity with radio 255 religious voluntary work with radio 256 factory council with radio 257 voluntary work for other organisation with radio 258 other civic participation with radio 259 civic travel with radio 260 sport and exercise with radio 261 walking with radio 262 hunting, fishing with radio 263 visit museums, exhibits with radio 264 visit towns, cities with radio 265 visit other places of interest with radio 266 other leisure with radio 267 sport, leisure travel with radio 270 movies with radio 271 theatre, concert, opera with radio 272 circus with radio 273 watch sports with radio 274 passive entertainment travel with radio 275 visit others, food served with radio 276 visit others, no food with radio 277 pub with radio 278 social club with radio 279 night club with radio 280 restaurant with radio 281 tea room with radio 282 other entertainment with radio 283 social travel with radio 290 travel - purpose not clear with radio 295 activity away from home and not work with radio 301 main work main job with TV 302 overtime main job with TV 303 second job with TV 304 waiting for work activity with TV 305 at work before, after job with TV 306 meal at workplace with TV 307 tea, coffee at work with TV 308 meal, snack at work with TV 309 "travel to/from work by car with TV" 310 "travel to/from work, not by car with TV" 311 "travel to/from work, not know if by car with TV" 312 travel as part of work with TV 313 unspecified activity related to work with TV 320 full-time education course with TV 321 part-time education course with TV 322 occasional lecture with TV 323 political, union information event with TV 324 "travel to/from education by car with TV" 325 "travel to/from education, not by car with TV" 326 "travel to/from education, not know if by car with TV" 327 driving lesson with TV 330 purchase everyday consumer goods with TV 331 purchase durables with TV 332 personal services with TV 333 personal care outside home with TV 334 medical care outside home with TV 335 medical care for children outside the home with TV 336 wait to purchase goods with TV 337 admin, pay bills outside home with TV 338 other shopping with TV 339 travel for shopping with TV 340 travel for personal services with TV 350 attend religious service with TV 351 attend political, union meeting with TV 352 voluntary work for organisation with TV 353 other meetings with TV 354 unpaid collective civic activity with TV 355 religious voluntary work with TV 356 factory council with TV 357 voluntary work for other organisation with TV 358 other civic participation with TV 359 civic travel with TV 360 sport and exercise with TV 361 walking with TV 362 hunting, fishing with TV 363 visit museums, exhibits with TV 364 visit towns, cities with TV 365 visit other places of interest with TV 366 other leisure with TV 367 sport, leisure travel with TV 370 movies with TV 371 theatre, concert, opera with TV 372 circus with TV 373 watch sports with TV 374 passive entertainment travel with TV 375 visit others, food served with TV 376 visit others, no food with TV 377 pub with TV 378 social club with TV 379 night club with TV 380 restaurant with TV 381 tea room with TV 382 other entertainment with TV 383 social travel with TV 390 travel - purpose not clear with TV 395 activity away from home and not work with TV 400 "cook/prepare food with radio" 401 wash up, put away dishes with radio 402 indoor cleaning with radio 403 outdoor cleaning with radio 404 "laundry/ironing with radio" 405 "repair clothes/shoes with radio" 406 other repairs, home operations with radio 407 upkeep heating and water with radio 408 look after pets with radio 409 gardening with radio 410 "other housework (eg paperwork) with radio" 420 care for babies with radio 421 care for older children with radio 422 read, conversation with children with radio 423 indoor games, instruct children with radio 424 outdoor games, walk with children with radio 425 other child care with radio 430 personal care, dressing with radio 431 personal medical care with radio 432 pray at home with radio 433 personal care to adults with radio 436 other personal care with radio 440 meals, snacks at home with radio 441 tea, coffee at home with radio 442 alcohol at home with radio 444 "other eat/drink at home with radio" 450 main sleep, night with radio 451 main sleep, day with radio 452 nap with radio 453 assumed main night sleep with radio 459 unspecified sleep with radio 460 listen to radio with radio 461 watch TV with radio 462 listen to records with radio 463 relax, think with radio 464 other relax at home with radio 465 unspecified media use with radio 470 working at home with radio 471 reading for personal advancement with radio 472 other study with radio 473 read books with radio 474 read periodicals with radio 475 read newspaper with radio 476 technical hobbies with radio 477 arts and crafts with radio 478 knitting, sewing with radio 479 play musical instruments with radio 480 correspondence with radio 481 other past times with radio 490 receive guests, food served with radio 491 receive guests, no food with radio 492 talk, gossip with radio 493 play games with radio 499 other free time with radio 500 "cook/prepare food with TV" 501 wash up, put away dishes with TV 502 indoor cleaning with TV 503 outdoor cleaning with TV 504 "laundry/ironing with TV" 505 "repair clothes/shoes with TV" 506 other repairs, home operations with TV 507 upkeep heating and water with TV 508 look after pets with TV 509 gardening with TV 510 "other housework (eg paperwork) with TV" 520 care for babies with TV 521 care for older children with TV 522 read, conversation with children with TV 523 indoor games, instruct children with TV 524 outdoor games, walk with children with TV 525 other child care with TV 530 personal care, dressing with TV 531 personal medical care with TV 532 pray at home with TV 533 personal care to adults with TV 536 other personal care with TV 540 meals, snacks at home with TV 541 tea, coffee at home with TV 542 alcohol at home with TV 544 "other eat/drink at home with TV" 550 main sleep, night with TV 551 main sleep, day with TV 552 nap with TV 553 assumed main night sleep with TV 559 unspecified sleep with TV 560 listen to radio with TV 561 watch TV with TV 562 listen to records with TV 563 relax, think with TV 564 other relax at home with TV 565 unspecified media use with TV 570 working at home with TV 571 reading for personal advancement with TV 572 other study with TV 573 read books with TV 574 read periodicals with TV 575 read newspaper with TV 576 technical hobbies with TV 577 arts and crafts with TV 578 knitting, sewing with TV 579 play musical instruments with TV 580 correspondence with TV 581 other past times with TV 590 receive guests, food served with TV 591 receive guests, no food with TV 592 talk, gossip with TV 593 play games with TV 599 other free time with TV 601 main work main job at home 603 second job at home 605 at work before, after job at home 607 tea, coffee at work at home 610 "travel to/from work, not by car at home" 612 travel as part of work at home 620 full-time education course at home 630 purchase everyday consumer goods at home 632 personal services at home 633 personal care outside home at home 635 medical care for children outside the home at home 637 admin, pay bills outside home at home 640 travel for personal services at home 650 attend religious service at home 651 attend political, union meeting at home 652 voluntary work for organisation at home 654 unpaid collective civic activity at home 657 voluntary work for other organisation at home 658 other civic participation at home 661 walking at home 682 other entertainment at home 700 "cook/prepare food away from home" 701 wash up, put away dishes away from home 702 indoor cleaning away from home 703 outdoor cleaning away from home 704 "laundry/ironing away from home" 705 "repair clothes/shoes away from home" 706 other repairs, home operations away from home 708 look after pets away from home 709 gardening away from home 710 "other housework (eg paperwork) away from home" 720 care for babies away from home 721 care for older children away from home 723 indoor games, instruct children away from home 724 outdoor games, walk with children away from home 725 other child care away from home 730 personal care, dressing away from home 731 personal medical care 733 personal care to adults away from home 740 meals, snacks at home away from home 741 tea, coffee at home away from home 750 main sleep, night away from home 760 listen to radio away from home 761 watch TV away from home 762 listen to records away from home 763 relax, think away from home 764 other relax at home away from home 765 unspecified media use away from home 770 working at home away from home 773 read books away from home 775 read newspaper away from home 776 technical hobbies away from home 777 arts and crafts away from home 778 knitting, sewing away from home 779 play musical instruments away from home 780 correspondence away from home 781 other past times away from home 792 talk, gossip away from home 793 play games away from home 799 other free time away from home 900 uncoded not at home 901 uncoded at home 997 blank in original file 998 missing 999 missing. *check for radio with radio or tv with tv. compute test=0. do repeat a= sun1 to sat35. if a=460 or a=561 test=a. end repeat. freq test. *34 diarists have radio with radio or tv with tv coded - do not treat these as secondary activity. *check for travel at home. compute test=0. do repeat a= sun1 to sat35. if a=609 or a=610 or a=611 or a=612 or a=624 or a=625 or a=626 or a=627 or a=639 or a=640 or a=659 or a=661 or a=674 or a=683 or a=690 test=a. end repeat. freq test. *44 diarists record time at home while travelling in 4 categories: 610, 612, 640, 661; *treat these cases as . *check for other impossible time away from home at home. compute test=0. do repeat a= sun1 to sat35. if a=605 or a=606 or a=622 or a=633 or a=634 or a=635 or a=637 or a=662 or a=663 or a=664 or a=665 or a=667 or a=670 or a=671 or a=672 or a=673 or a=675 or a=676 or a=677 or a=678 or a=679 or a=680 or a=681 or a=695 test=a. end repeat. freq test. *8 diarists record time at home yet away in 4 categories: 605, 633, 635, 637. *check for other impossible time away from home at home. compute test=0. do repeat a= sun1 to sat35. if a>599 and a<700 test=a. end repeat. freq test. *2 mystery codes, 619 and 692 to amend. *check for other impossible time at home yet away home. compute test=0. do repeat a= sun1 to sat35. if a=731 or a=732 or a=770 or a=790 or a=791 test=a. end repeat. freq test. *4 diarists record time away from home yet away in 4 categories: 605, 633, 635, 637. *check for other impossible time away from home at home. compute test=0. do repeat a= sun1 to sat35. if a>699 and a<800 test=a. end repeat. freq test. *2 mystery codes, 619 and 692 to amend. compute test=0. do repeat a= sun1 to sat35. if a=619 or a=692 test=1. end repeat. freq test. *2 mystery codes fit into patterns which MTUS missing data *procedures can address. *check codes above 700 range. compute test=0. do repeat a= sun1 to sat35. if a>799 test=a. end repeat. freq test. val lab educa educalab 1 'leave school at 17 years old or over' 2 'leave school at 15-16' 3 'leave school at 14 or under'. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\sun.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab sat35 sun1 sun2 sun3 sun4 sun5 sun6 sun7 sun8 sun9 sun10 sun11 sun12 sun13 sun14 sun15 sun16 sun17 sun18 sun19 sun20 sun21 sun22 sun23 sun24 sun25 sun26 sun27 sun28 sun29 sun30 sun31 sun32 sun33 sun34 sun35 mon1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\mon.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab sun35 mon1 mon2 mon3 mon4 mon5 mon6 mon7 mon8 mon9 mon10 mon11 mon12 mon13 mon14 mon15 mon16 mon17 mon18 mon19 mon20 mon21 mon22 mon23 mon24 mon25 mon26 mon27 mon28 mon29 mon30 mon31 mon32 mon33 mon34 mon35 tue1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\tue.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab mon35 tue1 tue2 tue3 tue4 tue5 tue6 tue7 tue8 tue9 tue10 tue11 tue12 tue13 tue14 tue15 tue16 tue17 tue18 tue19 tue20 tue21 tue22 tue23 tue24 tue25 tue26 tue27 tue28 tue29 tue30 tue31 tue32 tue33 tue34 tue35 wed1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\wed.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab tue35 wed1 wed2 wed3 wed4 wed5 wed6 wed7 wed8 wed9 wed10 wed11 wed12 wed13 wed14 wed15 wed16 wed17 wed18 wed19 wed20 wed21 wed22 wed23 wed24 wed25 wed26 wed27 wed28 wed29 wed30 wed31 wed32 wed33 wed34 wed35 thu1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\thu.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab wed35 thu1 thu2 thu3 thu4 thu5 thu6 thu7 thu8 thu9 thu10 thu11 thu12 thu13 thu14 thu15 thu16 thu17 thu18 thu19 thu20 thu21 thu22 thu23 thu24 thu25 thu26 thu27 thu28 thu29 thu30 thu31 thu32 thu33 thu34 thu35 fri1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\fri.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab thu35 fri1 fri2 fri3 fri4 fri5 fri6 fri7 fri8 fri9 fri10 fri11 fri12 fri13 fri14 fri15 fri16 fri17 fri18 fri19 fri20 fri21 fri22 fri23 fri24 fri25 fri26 fri27 fri28 fri29 fri30 fri31 fri32 fri33 fri34 fri35 sat1. save outfile= 'C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\sat.sav' /keep countreg swave msamp hldid persid id parntid1 parntid2 partid month year hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age cphome singpar relrefp civstat cohab citizen unemp retired empsp empinclm occup sector educa edtry rushed health carer disab region aglftsch ethnic sexd aged incolab educalab empinlab fri35 sat1 sat2 sat3 sat4 sat5 sat6 sat7 sat8 sat9 sat10 sat11 sat12 sat13 sat14 sat15 sat16 sat17 sat18 sat19 sat20 sat21 sat22 sat23 sat24 sat25 sat26 sat27 sat28 sat29 sat30 sat31 sat32 sat33 sat34 sat35 sun1. ******** *Sunday* ********. get file='C:\Documents and Settings\Kimberly Fisher\My Documents\Kimberly\time\mtus\mtus data\W553\UK\1961\sun.sav'. compute id = 1. compute day = 1. compute diary = 1. Do if persid<500 or (persid>999 and persid<1500) or (persid>1999 and persid<2500) or (persid>2999 and persid<3600) or (persid>3999 and persid<4200) or (persid>4999 and persid<5500) or (persid>5999 and persid<6501) or (persid>6999 and persid<7100). compute cday = 9. Else. compute cday=16. End if. freq cday. vector xav(144) xmain(144) xsec(144) xeloc(144) xinout(144) xmtrav(144). do repeat a=xav1 to xav144 / b=xmain1 to xmain144 /c=xsec1 to xsec144 /d=xeloc1 to xeloc144 /e=xinout1 to xinout144 /f=xmtrav1 to xmtrav144. compute a=41. compute b=69. compute c=69. compute d=-8. compute e=-8. compute f=-8. End repeat. freq sun1. *70.1% asleep; 23.4% have no recorded activity; 6.5% doing other activities. sort cases by sun1. cro sat35 sun2 by sun1. recode sat35 to sun35 (156=150). *the 2 50 at religious services on Sunday at 6:30AM are mistyped 150 - sleep. Do if (sun1=50 or sun1=150 or sun1=750 or sun1=850) and (sat35=150 or sat35=450 or sat35=550 or sat35=750 or sat35>799). Do repeat a=xav1 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=1. Do repeat a=xav1 to xav12. compute a=1. End repeat. compute xav13=5. compute xav14=5. Do repeat a=xav15 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain12. compute a=7. End repeat. compute xmain13=62. compute xmain14=62. compute xmain40=2. Do repeat a=xmain15 to xmain39. compute a=3. End repeat. Else if sun1=150 and sat35=492. compute xav1=37. compute xav2=37. compute xav3=37. Do repeat a=xav4 to xav40. compute a=16. End repeat. compute xmain1=49. compute xmain2=49. compute xmain3=49. compute xsec1=58. compute xsec2=58. compute xsec3=58. Do repeat a=xmain4 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=191. compute xav1=37. compute xav2=37. compute xav3=37. Do repeat a=xav4 to xav40. compute a=16. End repeat. compute xmain1=49. compute xmain2=49. compute xmain3=49. Do repeat a=xmain4 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=592. compute xav1=37. compute xav2=37. compute xav3=37. Do repeat a=xav4 to xav40. compute a=16. End repeat. compute xmain1=49. compute xmain2=49. compute xmain3=49. compute xsec1=59. compute xsec2=59. compute xsec3=59. Do repeat a=xmain4 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=40. compute xav1=12. compute xav2=12. compute xav3=12. compute xav4=13. compute xav5=13. Do repeat a=xav6 to xav40. compute a=16. End repeat. compute xmain1=67. compute xmain2=67. compute xmain3=67. compute xmain4=1. compute xmain5=1. compute xmain40=2. Do repeat a=xmain6 to xmain39. compute a=3. End repeat. Else if sun1=150 and sat35=71. compute xav1=24. compute xav2=24. compute xav3=24. compute xav4=24. compute xav5=24. compute xav6=24. compute xav7=17. compute xav8=17. Do repeat a=xav9 to xav40. compute a=16. End repeat. compute xmain1=37. compute xmain2=37. compute xmain3=37. compute xmain4=37. compute xmain5=37. compute xmain6=37. compute xmain7=62. compute xmain8=62. compute xmain40=2. Do repeat a=xmain9 to xmain39. compute a=3. End repeat. Else if sun1=150 and sat35=76. compute xav1=38. compute xav2=38. compute xav3=38. Do repeat a=xav4 to xav40. compute a=16. End repeat. compute xmain1=48. compute xmain2=48. compute xmain3=48. Do repeat a=xmain4 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=376. compute xav1=38. compute xav2=38. compute xav3=38. Do repeat a=xav4 to xav40. compute a=16. End repeat. compute xmain1=48. compute xmain2=48. compute xmain3=48. compute xsec1=58. compute xsec2=58. compute xsec3=58. Do repeat a=xmain4 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=82. Do repeat a=xav1 to xav6. compute a=25. End repeat. compute xav7=17. compute xav8=17. Do repeat a=xav9 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6. compute a=40. End repeat. compute xmain7=62. compute xmain8=62. Do repeat a=xmain9 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if sun1=150 and sat35=83. Do repeat a=xav1 to xav3. compute a=17. End repeat. compute xav4=13. compute xav5=13. Do repeat a=xav6 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3. compute a=68. End repeat. compute xmain4=1. compute xmain5=1. compute xmain40=2. Do repeat a=xmain6 to xmain39. compute a=3. End repeat. Else if sun1=150 and sat35=101. compute xav1=6. compute xav2=6. compute xav3=1. compute xav4=1. Do repeat a=xav5 to xav40. compute a=16. End repeat. compute xmain1=19. compute xmain2=19. compute xmain3=1. compute xmain4=1. compute xmain40=2. Do repeat a=xmain5 to xmain39. compute a=3. End repeat. Else if sun1=150 and (sat35=108 or sat35=708). compute xav1=8. compute xav2=8. compute xav3=1. compute xav4=1. Do repeat a=xav5 to xav40. compute a=16. End repeat. compute xmain1=27. compute xmain2=27. compute xmain3=1. compute xmain4=1. compute xmain40=2. Do repeat a=xmain5 to xmain39. compute a=3. End repeat. Else if sun1=150 and sat35=110. compute xav1=8. compute xav2=8. compute xav3=1. compute xav4=1. Do repeat a=xav5 to xav40. compute a=16. End repeat. compute xmain1=23. compute xmain2=23. compute xmain3=1. compute xmain4=1. compute xmain40=2. Do repeat a=xmain5 to xmain39. compute a=3. End repeat. Else if sun1=150 and (sat35=130 or sat35=131 or sat35=731). Do repeat a=xav1 to xav3. compute a=13. End repeat. Do repeat a=xav4 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3. compute a=1. End repeat. Do repeat a=xmain4 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and (sat35=430 or sat35=431). Do repeat a=xav1 to xav3. compute a=13. End repeat. Do repeat a=xav4 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3 /b=xsec1 to xsec3. compute a=1. compute b=58. End repeat. Do repeat a=xmain4 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and (sat35=140 or sat35=141 or sat35=740). Do repeat a=xav1 to xav3. compute a=15. End repeat. Do repeat a=xav4 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3. compute a=6. End repeat. Do repeat a=xmain4 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=440. Do repeat a=xav1 to xav3. compute a=15. End repeat. Do repeat a=xav4 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3 /b=xsec1 to xsec3. compute a=6. compute b=58. End repeat. Do repeat a=xmain4 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=160. Do repeat a=xav1 to xav6. compute a=30. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6. compute a=58. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and (sat35=161 or sat35=561). Do repeat a=xav1 to xav12. compute a=31. End repeat. Do repeat a=xav13 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain12. compute a=59. End repeat. Do repeat a=xmain13 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=463. Do repeat a=xav1 to xav6. compute a=36. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6 /b=xsec1 to xsec6. compute b=58. compute a=55. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=173. Do repeat a=xav1 to xav6. compute a=34. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6. compute a=56. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=473. Do repeat a=xav1 to xav6. compute a=34. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6 / b=xsec1 to xsec6. compute a=56. compute b=58. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=174. Do repeat a=xav1 to xav6. compute a=35. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6. compute a=56. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=180. Do repeat a=xav1 to xav6. compute a=40. End repeat. Do repeat a=xav7 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain6. compute a=53. End repeat. Do repeat a=xmain7 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=190. Do repeat a=xav1 to xav12. compute a=38. End repeat. Do repeat a=xav13 to xav15. compute a=15. End repeat. Do repeat a=xav16 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain12 / b=xsec1 to xsec12. compute a=48. compute b=6. End repeat. Do repeat a=xmain13 to xmain15. compute a=1. End repeat. Do repeat a=xmain16 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=192. Do repeat a=xav1 to xav12. compute a=37. End repeat. Do repeat a=xav13 to xav15. compute a=15. End repeat. Do repeat a=xav16 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain12. compute a=49. End repeat. Do repeat a=xmain13 to xmain15. compute a=1. End repeat. Do repeat a=xmain16 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=193. Do repeat a=xav1 to xav12. compute a=40. End repeat. Do repeat a=xav13 to xav15. compute a=15. End repeat. Do repeat a=xav16 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain12. compute a=50. End repeat. Do repeat a=xmain13 to xmain15. compute a=1. End repeat. Do repeat a=xmain16 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=150 and sat35=525. Do repeat a=xav1 to xav3. compute a=11. End repeat. Do repeat a=xav4 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain3 /b=xsec1 to xsec3. compute a=31. compute b=59. End repeat. Do repeat a=xmain4 to xmain39. compute a=3. End repeat. compute xmain40=2. Else if sun1=801 or sun1=841. Do repeat a=xav1 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain39. compute xmain40=2. compute a=3. End repeat. Else if (sun1=450 or sun1=850) and (sat35=150 or sat35=450 or sat35=550 or sat35=750 or sat35=850 or sat35>899). Do repeat a=xav1 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain39 /b=xsec1 to xsec39. compute xmain40=2. compute a=3. compute xsec40=58. compute b=58. End repeat. Else if sun1=550 and (sat35=150 or sat35=450 or sat35=550 or sat35=750 or sat35=850 or sat35>899). Do repeat a=xav1 to xav40. compute a=16. End repeat. Do repeat a=xmain1 to xmain39 /b=xsec1 to xsec39. compute xmain40=2. compute a=3. compute xsec40=59. compute b=59. End repeat. Else if sun1=1. Do repeat a=xav1 to xav18. compute a=16. End repeat. compute xav19=13. compute xav20=13. compute xav21=13. compute xav22=13. compute xav23=5. compute xav24=5. Do repeat a=xav25 to xav40. compute a=1. End repeat. Do repeat a=xmain1 to xmain18. compute a=3. End repeat. compute xmain19=1. compute xmain20=1. compute xmain21=1. compute xmain22=1. compute xmain23=63. compute xmain24=63. Do repeat a=xmain25 to xmain40. compute a=7. End repeat. Else if sun1=11. Do repeat a=xav1 to xav30. compute a=16. End repeat. Do repeat a=xav31 to xav38. compute a=13. End repeat. compute xav39=5. compute xav40=5. Do repeat a=xmain1 to xmain30. compute a=3. End repeat. Do repeat a=xmain31 to xmain38. compute a=1. End repeat. compute xmain39=63. compute xmain40=63. Else if sun1=54 or sun1=58. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=23. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=33. End repeat. Else if sun1=60. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=19. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=42. End repeat. Else if sun1=62. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=19. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=46. End repeat. Else if sun1=64 or sun1=65. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=18. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=38. End repeat. Else if sun1=76. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=29. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=48. End repeat. Else if sun1=100. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=6. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=18. End repeat. Else if sun1=102. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=7. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=20. End repeat. Else if sun1=106 or sun1=107. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=8. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40. compute a=22. End repeat. Else if sun1=108. do repeat a=xav1 to xav37. compute a=16. End repeat. compute xav38=13. compute xav39=13. compute xav40=8. do repeat a=xmain1 to xmain38. compute a=3. End repeat. compute xmain38=1. compute xmain39=1. compute xmain40=27. Else if sun1=120. do repeat a=xav1 to xav39. compute a=16. End repeat. compute xav40=11. do repeat a=xmain1 to xmain39. compute a=3. End repeat. compute xmain40=28. Else if sun1=130. do repeat a=xav1 to xav39. compute a=16. End repeat. compute xav40=13. do repeat a=xmain1 to xmain39. compute a=3. End repeat. compute xmain40=4. Else if sun1=131 or sun1=731. do repeat a=xav1 to xav39. compute a=16. End repeat. compute xav40=14. do repeat a=xmain1 to xmain39. compute a=3. End repeat. compute xmain40=25. Else if sun1=140 or sun1=141. do repeat a=xav1 to xav38. compute a=16. End repeat. compute xav40=13. compute xav40=15. do repeat a=xmain1 to xmain38. compute a=3. End repeat. compute xmain39=1. compute xmain40=6. Else if sun1=160. do repeat a=xav1 to xav39. compute a=16. End repeat. compute xav40=30. do repeat a=xmain1 to xmain39. compute a=3. End repeat. compute xmain40=58. *this person set to working as awake at 6:30 and working in wee hours other days this week. Else if sun1=163. do repeat a=xav1 to xav37. compute a=1. End repeat. compute xav38=5. compute xav39=5. compute xav40=30. do repeat a=xmain1 to xmain37. compute a=7. End repeat. compute xmain38=62. compute xmain39=62. compute xmain40=55. *these persons set to some sleep then working at home as this is the pattern on next days. Else if sun1=170. do repeat a=xav1 to xav30. compute a=16. End repeat. compute xav31=13. compute xav32=13. do repeat a=xav33 to xav40. compute a=2. End repeat. do repeat a=xmain1 to xmain30. compute a=3. End repeat. compute xmain31=1. compute xmain32=1. do repeat a=xmain33 to xmain40. compute a=8. End repeat. Else if sun1=172. do repeat a=xav1 to xav30. compute a=16. End repeat. compute xav31=13. compute xav32=13. do repeat a=xav33 to xav40. compute a=33. End repeat. do repeat a=xmain1 to xmain30. compute a=3. End repeat. compute xmain31=1. compute xmain32=1. do repeat a=xmain33 to xmain40. compute a=16. End repeat. Else if sun1=402. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=7. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40 / b=xsec25 to xsec40. compute a=20. compute b=58. End repeat. Else if sun1=406 or sun1=407. do repeat a=xav1 to xav21. compute a=16. End repeat. compute xav22=13. compute xav23=13. compute xav24=13. do repeat a=xav25 to xav40. compute a=8. End repeat. do repeat a=xmain1 to xmain21. compute a=3. End repeat. compute xmain22=1. compute xmain23=1. compute xmain24=1. do repeat a=xmain25 to xmain40 / b=xsec25 to xsec40. compute a=22. compute b=58. End repeat. Else if sun1=430. do repeat a=xav1 to xav39. compute a=16. End repeat. compute xav40=13. do repeat a=xmain1 to xmain39. compute a=3. End repeat. compute xmain40=4. compute xsec40=58. *this person has a long spell of travel from work, then ends up at home. Else if sun1=610. do repeat a=xav1 to xav39. compute a=1. End repeat. compute xav40=5. do repeat a=xmain1 to xmain39. compute a=7. End repeat. compute xmain40=63. Else if sun1=900. do repeat a=xmain1 to xmain40. compute a=41. End repeat. Else. compute residual=sun1. End if. recode sun2 to sun7 (801=150) (850=150). freq sun2 to sun7 residual. freq xav40 xmain40 xmain39. compute nodiary=0. compute misslot=0. do repeat a=sun1 to sun35. if a>900 misslot=misslot+1. end repeat. freq misslot. if misslot=35 nodiary=1. if persid=2070 sun28=161. freq nodiary. compute residual=0. Do if sun2=150 or sun2=151 or sun2=152 or sun2=153 or sun2=159 or sun2=750 or sun2=450 or sun2=451 or sun2=452 or sun2=453 or sun2=459 or sun2=550 or sun2=551 or sun2=552 or sun2=553 or sun2=559 or sun2=752. compute xmain43=2. compute xmain44=2. compute xmain45=2. compute xav43=16. compute xav44=16. compute xav45=16. Else if sun2=130 or sun2=136 or sun2=430 or sun2=436 or sun2=530 or sun2=536 or sun2=730 or sun2=619. compute xmain43=4. compute xmain44=4. compute xmain45=4. compute xav43=13. compute xav44=13. compute xav45=13. Else if sun2=6 or sun2=206 or sun2=306. compute xmain43=5. compute xmain44=5. compute xmain45=5. compute xav43=1. compute xav44=1. compute xav45=1. Else if sun2=140 or sun2=141 or sun2=142 or sun2=144 or sun2=440 or sun2=441 or sun2=442 or sun2=444 or sun2=540 or sun2=541 or sun2=542 or sun2=544 or sun2=740 or sun2=741 or sun2=841. compute xmain43=6. compute xmain44=6. compute xmain45=6. compute xav43=15. compute xav44=15. compute xav45=15. Else if sun2=1 or sun2=2 or sun2=13 or sun2=201 or sun2=202 or sun2=213 or sun2=301 or sun2=302 or sun2=313 or sun2=770. compute xmain43=7. compute xmain44=7. compute xmain45=7. compute xav43=1. compute xav44=1. compute xav45=1. Else if sun2=170 or sun2=470 or sun2=570 or sun2=601 or sun2=603 or sun2=605. compute xmain43=8. compute xmain44=8. compute xmain45=8. compute xav43=2. compute xav44=2. compute xav45=2. Else if sun2=3 or sun2=203 or sun2=303. compute xmain43=9. compute xmain44=9. compute xmain45=9. compute xav43=3. compute xav44=3. compute xav45=3. Else if sun2=12 or sun2=212 or sun2=312 or sun2=612. compute xmain43=11. compute xmain44=11. compute xmain45=11. compute xav43=1. compute xav44=1. compute xav45=1. Else if sun2=7 or sun2=207 or sun2=307 or sun2=607. compute xmain43=12. compute xmain44=12. compute xmain45=12. compute xav43=1. compute xav44=1. compute xav45=1. compute xsec43=6. compute xsec44=6. compute xsec45=6. Else if sun2=8 or sun2=208 or sun2=308. compute xmain43=12. compute xmain44=12. compute xmain45=12. compute xav43=1. compute xav44=1. compute xav45=1. Else if sun2=4 or sun2=204 or sun2=304 or sun2=5 or sun2=205 or sun2=305. compute xmain43=13. compute xmain44=13. compute xmain45=13. compute xav43=1. compute xav44=1. compute xav45=1. Else if sun2=20 or sun2=220 or sun2=320 or sun2=21 or sun2=221 or sun2=321 or sun2=620. compute xmain43=15. compute xmain44=15. compute xmain45=15. compute xav43=4. compute xav44=4. compute xav45=4. Else if sun2=171 or sun2=471 or sun2=571 or sun2=172 or sun2=472 or sun2=572. compute xmain43=16. compute xmain44=16. compute xmain45=16. compute xav43=33. compute xav44=33. compute xav45=33. Else if sun2=22 or sun2=222 or sun2=322. compute xmain43=17. compute xmain44=17. compute xmain45=17. compute xav43=4. compute xav44=4. compute xav45=4. Else if sun2=27 or sun2=227 or sun2=327. compute xmain43=17. compute xmain44=17. compute xmain45=17. compute xav43=25. compute xav44=25. compute xav45=25. compute xsec43=64. compute xsec44=64. compute xsec45=64. Else if sun2=100 or sun2=400 or sun2=500 or sun2=700. compute xmain43=18. compute xmain44=18. compute xmain45=18. compute xav43=6. compute xav44=6. compute xav45=6. Else if sun2=101 or sun2=401 or sun2=501 or sun2=701. compute xmain43=19. compute xmain44=19. compute xmain45=19. compute xav43=6. compute xav44=6. compute xav45=6. Else if sun2=102 or sun2=402 or sun2=502 or sun2=702 or sun2=103 or sun2=403 or sun2=503 or sun2=703. compute xmain43=20. compute xmain44=20. compute xmain45=20. compute xav43=7. compute xav44=7. compute xav45=7. Else if sun2=104 or sun2=404 or sun2=504 or sun2=704. compute xmain43=21. compute xmain44=21. compute xmain45=21. compute xav43=7. compute xav44=7. compute xav45=7. Else if sun2=105 or sun2=405 or sun2=505 or sun2=705. compute xmain43=21. compute xmain44=21. compute xmain45=21. compute xav43=8. compute xav44=8. compute xav45=8. Else if sun2=106 or sun2=406 or sun2=506 or sun2=706 or sun2=107 or sun2=407 or sun2=507 or sun2=707. compute xmain43=22. compute xmain44=22. compute xmain45=22. compute xav43=8. compute xav44=8. compute xav45=8. Else if sun2=110 or sun2=410 or sun2=510 or sun2=710. compute xmain43=23. compute xmain44=23. compute xmain45=23. compute xav43=8. compute xav44=8. compute xav45=8. Else if sun2=30 or sun2=230 or sun2=330 or sun2=630 or sun2=31 or sun2=231 or sun2=331 or sun2=36 or sun2=236 or sun2=336 or sun2=38 or sun2=238 or sun2=338. compute xmain43=24. compute xmain44=24. compute xmain45=24. compute xav43=10. compute xav44=10. compute xav45=10. Else if sun2=32 or sun2=232 or sun2=332 or sun2=632 or sun2=33 or sun2=233 or sun2=333 or sun2=633 or sun2=34 or sun2=234 or sun2=334 or sun2=131 or sun2=431 or sun2=531 or sun16=731. compute xmain43=25. compute xmain44=25. compute xmain45=25. compute xav43=14. compute xav44=14. compute xav45=14. Else if sun2=37 or sun2=237 or sun2=337 or sun2=637. compute xmain43=26. compute xmain44=26. compute xmain45=26. compute xav43=10. compute xav44=10. compute xav45=10. Else if sun2=108 or sun2=408 or sun2=508 or sun2=708. compute xmain43=27. compute xmain44=27. compute xmain45=27. compute xav43=8. compute xav44=8. compute xav45=8. Else if sun2=35 or sun2=235 or sun2=335 or sun2=635 or sun2=120 or sun2=420 or sun2=520 or sun2=720 or sun2=121 or sun2=421 or sun2=521 or sun2=721. compute xmain43=28. compute xmain44=28. compute xmain45=28. compute xav43=11. compute xav44=11. compute xav45=11. Else if sun2=123 or sun2=423 or sun2=523 or sun2=723. compute xmain43=29. compute xmain44=29. compute xmain45=29. compute xav43=11. compute xav44=11. compute xav45=11. Else if sun2=122 or sun2=422 or sun2=522. compute xmain43=30. compute xmain44=30. compute xmain45=30. compute xav43=11. compute xav44=11. compute xav45=11. Else if sun2=124 or sun2=424 or sun2=524 or sun2=724. compute xmain43=30. compute xmain44=30. compute xmain45=30. compute xav43=11. compute xav44=11. compute xav45=11. compute xsec43=43. compute xsec44=43. compute xsec45=43. Else if sun2=125 or sun2=425 or sun2=525 or sun2=725. compute xmain43=31. compute xmain44=31. compute xmain45=31. compute xav43=11. compute xav44=11. compute xav45=11. Else if sun2=133 or sun2=433 or sun2=533 or sun2=733. compute xmain43=32. compute xmain44=32. compute xmain45=32. compute xav43=8. compute xav44=8. compute xav45=8. Else if sun2=23 or sun2=223 or sun2=323 or sun2=51 or sun2=251 or sun2=351 or sun2=651 or sun2=52 or sun2=252 or sun2=352 or sun2=652 or sun2=53 or sun2=253 or sun2=353 or sun2=54 or sun2=254 or sun2=354 or sun2=654 or sun2=55 or sun2=255 or sun2=355 or sun2=56 or sun2=256 or sun2=356 or sun2=57 or sun2=257 or sun2=357 or sun2=657 or sun2=58 or sun2=258 or sun2=358 or sun2=658. compute xmain43=33. compute xmain44=33. compute xmain45=33. compute xav43=23. compute xav44=23. compute xav45=23. Else if sun2=50 or sun2=250 or sun2=350 or sun2=650 or sun2=132 or sun2=432 or sun2=532. compute xmain43=34. compute xmain44=34. compute xmain45=34. compute xav43=22. compute xav44=22. compute xav45=22. Else if sun2=66 or sun2=266 or sun2=366. compute xmain43=35. compute xmain44=35. compute xmain45=35. compute xav43=18. compute xav44=18. compute xav45=18. Else if sun2=95 or sun2=295 or sun2=395. compute xmain43=35. compute xmain44=35. compute xmain45=35. compute xav43=25. compute xav44=25. compute xav45=25. Else if sun2=73 or sun2=273 or sun2=373. compute xmain43=36. compute xmain44=36. compute xmain45=36. compute xav43=20. compute xav44=20. compute xav45=20. Else if sun2=70 or sun2=270 or sun2=370 or sun2=71 or sun2=271 or sun2=371 or sun2=72 or sun2=272 or sun2=372. compute xmain43=37. compute xmain44=37. compute xmain45=37. compute xav43=24. compute xav44=24. compute xav45=24. Else if sun2=63 or sun2=263 or sun2=363 or sun2=64 or sun2=264 or sun2=364 or sun2=65 or sun2=265 or sun2=365. compute xmain43=38. compute xmain44=38. compute xmain45=38. compute xav43=18. compute xav44=18. compute xav45=18. Else if sun2=77 or sun2=277 or sun2=377. compute xmain43=39. compute xmain44=39. compute xmain45=39. compute xav43=27. compute xav44=27. compute xav45=27. Else if sun2=80 or sun2=280 or sun2=380 or sun2=81 or sun2=281 or sun2=381. compute xmain43=39. compute xmain44=39. compute xmain45=39. compute xav43=28. compute xav44=28. compute xav45=28. Else if sun2=78 or sun2=278 or sun2=378 or sun2=79 or sun2=279 or sun2=379. compute xmain43=40. compute xmain44=40. compute xmain45=40. compute xav43=26. compute xav44=26. compute xav45=26. Else if sun2=82 or sun2=282 or sun2=382. compute xmain43=40. compute xmain44=40. compute xmain45=40. compute xav43=25. compute xav44=25. compute xav45=25. Else if sun2=900. compute xmain43=41. compute xmain44=41. compute xmain45=41. Else if sun2=60 or sun2=260 or sun2=360. compute xmain43=42. compute xmain44=42. compute xmain45=42. compute xav43=19. compute xav44=19. compute xav45=19. Else if sun2=61 or sun2=261 or sun2=361 or sun2=661. compute xmain43=43. compute xmain44=43. compute xmain45=43. compute xav43=21. compute xav44=21. compute xav45=21. Else if sun2=62 or sun2=262 or sun2=362. compute xmain43=46. compute xmain44=46. compute xmain45=46. compute xav43=19. compute xav44=19. compute xav45=19. Else if sun2=109 or sun2=409 or sun2=509 or sun2=709. compute xmain43=46. compute xmain44=46. compute xmain45=46. compute xav43=9. compute xav44=9. compute xav45=9. Else if sun2=75 or sun2=275 or sun2=375. compute xmain43=48. compute xmain44=48. compute xmain45=48. compute xav43=29. compute xav44=29. compute xav45=29. compute xsec43=6. compute xsec44=6. compute xsec45=6. Else if sun2=76 or sun2=276 or sun2=376. compute xmain43=48. compute xmain44=48. compute xmain45=48. compute xav43=29. compute xav44=29. compute xav45=29. Else if sun2=190 or sun2=490 or sun2=590. compute xmain43=48. compute xmain44=48. compute xmain45=48. compute xav43=38. compute xav44=38. compute xav45=38. compute xsec43=6. compute xsec44=6. compute xsec45=6. Else if sun2=191 or sun2=491 or sun2=591. compute xmain43=48. compute xmain44=48. compute xmain45=48. compute xav43=38. compute xav44=38. compute xav45=38. Else if sun2=192 or sun2=492 or sun2=592 or sun2=792. compute xmain43=49. compute xmain44=49. compute xmain45=49. compute xav43=37. compute xav44=37. compute xav45=37. Else if sun2=193 or sun2=493 or sun2=593 or sun2=793 or sun2=682. compute xmain43=50. compute xmain44=50. compute xmain45=50. compute xav43=40. compute xav44=40. compute xav45=40. Else if sun2=199 or sun2=499 or sun2=599. compute xmain43=51. compute xmain44=51. compute xmain45=51. compute xav43=36. compute xav44=36. compute xav45=36. Else if sun2=177 or sun2=477 or sun2=577 or sun2=777 or sun2=179 or sun2=479 or sun2=579 or sun2=779. compute xmain43=52. compute xmain44=52. compute xmain45=52. compute xav43=40. compute xav44=40. compute xav45=40. Else if sun2=180 or sun2=480 or sun2=580 or sun2=780. compute xmain43=53. compute xmain44=53. compute xmain45=53. compute xav43=40. compute xav44=40. compute xav45=40. Else if sun2=176 or sun2=476 or sun2=576 or sun2=776 or sun2=181 or sun2=481 or sun2=581 or sun2=781. compute xmain43=54. compute xmain44=54. compute xmain45=54. compute xav43=40. compute xav44=40. compute xav45=40. Else if sun2=178 or sun2=478 or sun2=578 or sun2=778. compute xmain43=54. compute xmain44=54. compute xmain45=54. compute xav43=39. compute xav44=39. compute xav45=39. Else if sun2=163 or sun2=463 or sun2=563 or sun2=763 or sun2=164 or sun2=464 or sun2=564 or sun2=764. compute xmain43=55. compute xmain44=55. compute xmain45=55. compute xav43=36. compute xav44=36. compute xav45=36. Else if sun2=173 or sun2=473 or sun2=573 or sun2=773 or sun2=873. compute xmain43=56. compute xmain44=56. compute xmain45=56. compute xav43=34. compute xav44=34. compute xav45=34. Else if sun2=174 or sun2=474 or sun2=574 or sun2=875 or sun2=175 or sun2=475 or sun2=575 or sun2=775. compute xmain43=56. compute xmain44=56. compute xmain45=56. compute xav43=35. compute xav44=35. compute xav45=35. Else if sun2=162 or sun2=462 or sun2=562 or sun2=762. compute xmain43=57. compute xmain44=57. compute xmain45=57. compute xav43=32. compute xav44=32. compute xav45=32. Else if sun2=160 or sun2=460 or sun2=560 or sun2=760. compute xmain43=58. compute xmain44=58. compute xmain45=58. compute xav43=30. compute xav44=30. compute xav45=30. Else if sun2=161 or sun2=461 or sun2=561 or sun2=761 or sun2=165 or sun2=465 or sun2=565 or sun2=765. compute xmain43=59. compute xmain44=59. compute xmain45=59. compute xav43=31. compute xav44=31. compute xav45=31. Else if sun2=692. compute xmain43=62. compute xmain44=62. compute xmain45=62. compute xav43=17. compute xav44=17. compute xav45=17. Else if sun2=9 or sun2=209 or sun2=309 or sun2=10 or sun2=210 or sun2=310 or sun2=610 or sun2=11 or sun2=211 or sun2=311. compute xmain43=63. compute xmain44=63. compute xmain45=63. compute xav43=5. compute xav44=5. compute xav45=5. Else if sun2=24 or sun2=224 or sun2=324 or sun2=25 or sun2=225 or sun2=325 or sun2=26 or sun2=226 or sun2=326. compute xmain43=64. compute xmain44=64. compute xmain45=64. compute xav43=5. compute xav44=5. compute xav45=5. Else if sun2=59 or sun2=259 or sun2=359. compute xmain43=65. compute xmain44=65. compute xmain45=65. compute xav43=17. compute xav44=17. compute xav45=17. Else if sun2=39 or sun2=239 or sun2=339 or sun2=40 or sun2=240 or sun2=340 or sun2=640. compute xmain43=67. compute xmain44=67. compute xmain45=67. compute xav43=12. compute xav44=12. compute xav45=12. Else if sun2=67 or sun2=267 or sun2=367 or sun2=74 or sun2=274 or sun2=374 or sun2=83 or sun2=283 or sun2=383 or sun2=90 or sun2=290 or sun2=390. compute xmain43=68. compute xmain44=68. compute xmain45=68. compute xav43=17. compute xav44=17. compute xav45=17. Else. compute residual=sun2. End if. Do if (sun2>199 and sun2<300) or (sun2>399 and sun2<500). compute xsec43=58. compute xsec44=58. compute xsec45=58. Else if (sun2>299 and sun2<400) or (sun2>499 and sun2<600). compute xsec43=59. compute xsec44=59. compute xsec45=59. End if. freq residual. Do repeat a=sun3 to sun35. if (persid=383 or persid=6320) and a=860 a=150. end repeat. execute. compute residual=0. Do if sun3=150 or sun3=151 or sun3=152 or sun3=153 or sun3=159 or sun3=750 or sun3=450 or sun3=451 or sun3=452 or sun3=453 or sun3=459 or sun3=550 or sun3=551 or sun3=552 or sun3=553 or sun3=559 or sun3=752. compute xmain46=2. compute xmain47=2. compute xmain48=2. compute xav46=16. compute xav47=16. compute xav48=16. Else if sun3=130 or sun3=136 or sun3=430 or sun3=436 or sun3=530 or sun3=536 or sun3=730 or sun3=619. compute xmain46=4. compute xmain47=4. compute xmain48=4. compute xav46=13. compute xav47=13. compute xav48=13. Else if sun3=6 or sun3=206 or sun3=306. compute xmain46=5. compute xmain47=5. compute xmain48=5. compute xav46=1. compute xav47=1. compute xav48=1. Else if sun3=140 or sun3=141 or sun3=142 or sun3=144 or sun3=440 or sun3=441 or sun3=442 or sun3=444 or sun3=540 or sun3=541 or sun3=542 or sun3=544 or sun3=740 or sun3=741 or sun3=841. compute xmain46=6. compute xmain47=6. compute xmain48=6. compute xav46=15. compute xav47=15. compute xav48=15. Else if sun3=1 or sun3=2 or sun3=13 or sun3=201 or sun3=202 or sun3=213 or sun3=301 or sun3=302 or sun3=313 or sun3=770. compute xmain46=7. compute xmain47=7. compute xmain48=7. compute xav46=1. compute xav47=1. compute xav48=1. Else if sun3=170 or sun3=470 or sun3=570 or sun3=601 or sun3=603 or sun3=605. compute xmain46=8. compute xmain47=8. compute xmain48=8. compute xav46=2. compute xav47=2. compute xav48=2. Else if sun3=3 or sun3=203 or sun3=303. compute xmain46=9. compute xmain47=9. compute xmain48=9. compute xav46=3. compute xav47=3. compute xav48=3. Else if sun3=12 or sun3=212 or sun3=312 or sun3=612. compute xmain46=11. compute xmain47=11. compute xmain48=11. compute xav46=1. compute xav47=1. compute xav48=1. Else if sun3=7 or sun3=207 or sun3=307 or sun3=607. compute xmain46=12. compute xmain47=12. compute xmain48=12. compute xav46=1. compute xav47=1. compute xav48=1. compute xsec46=6. compute xsec47=6. compute xsec48=6. Else if sun3=8 or sun3=208 or sun3=308. compute xmain46=12. compute xmain47=12. compute xmain48=12. compute xav46=1. compute xav47=1. compute xav48=1. Else if sun3=4 or sun3=204 or sun3=304 or sun3=5 or sun3=205 or sun3=305. compute xmain46=13. compute xmain47=13. compute xmain48=13. compute xav46=1. compute xav47=1. compute xav48=1. Else if sun3=20 or sun3=220 or sun3=320 or sun3=21 or sun3=221 or sun3=321 or sun3=620. compute xmain46=15. compute xmain47=15. compute xmain48=15. compute xav46=4. compute xav47=4. compute xav48=4. Else if sun3=171 or sun3=471 or sun3=571 or sun3=172 or sun3=472 or sun3=572. compute xmain46=16. compute xmain47=16. compute xmain48=16. compute xav46=33. compute xav47=33. compute xav48=33. Else if sun3=22 or sun3=222 or sun3=322. compute xmain46=17. compute xmain47=17. compute xmain48=17. compute xav46=4. compute xav47=4. compute xav48=4. Else if sun3=27 or sun3=227 or sun3=327. compute xmain46=17. compute xmain47=17. compute xmain48=17. compute xav46=25. compute xav47=25. compute xav48=25. compute xsec46=64. compute xsec47=64. compute xsec48=64. Else if sun3=100 or sun3=400 or sun3=500 or sun3=700. compute xmain46=18. compute xmain47=18. compute xmain48=18. compute xav46=6. compute xav47=6. compute xav48=6. Else if sun3=101 or sun3=401 or sun3=501 or sun3=701. compute xmain46=19. compute xmain47=19. compute xmain48=19. compute xav46=6. compute xav47=6. compute xav48=6. Else if sun3=102 or sun3=402 or sun3=502 or sun3=702 or sun3=103 or sun3=403 or sun3=503 or sun3=703. compute xmain46=20. compute xmain47=20. compute xmain48=20. compute xav46=7. compute xav47=7. compute xav48=7. Else if sun3=104 or sun3=404 or sun3=504 or sun3=704. compute xmain46=21. compute xmain47=21. compute xmain48=21. compute xav46=7. compute xav47=7. compute xav48=7. Else if sun3=105 or sun3=405 or sun3=505 or sun3=705. compute xmain46=21. compute xmain47=21. compute xmain48=21. compute xav46=8. compute xav47=8. compute xav48=8. Else if sun3=106 or sun3=406 or sun3=506 or sun3=706 or sun3=107 or sun3=407 or sun3=507 or sun3=707. compute xmain46=22. compute xmain47=22. compute xmain48=22. compute xav46=8. compute xav47=8. compute xav48=8. Else if sun3=110 or sun3=410 or sun3=510 or sun3=710. compute xmain46=23. compute xmain47=23. compute xmain48=23. compute xav46=8. compute xav47=8. compute xav48=8. Else if sun3=30 or sun3=230 or sun3=330 or sun3=630 or sun3=31 or sun3=231 or sun3=331 or sun3=36 or sun3=236 or sun3=336 or sun3=38 or sun3=238 or sun3=338. compute xmain46=24. compute xmain47=24. compute xmain48=24. compute xav46=10. compute xav47=10. compute xav48=10. Else if sun3=32 or sun3=232 or sun3=332 or sun3=632 or sun3=33 or sun3=233 or sun3=333 or sun3=633 or sun3=34 or sun3=234 or sun3=334 or sun3=131 or sun3=431 or sun3=531 or sun16=731. compute xmain46=25. compute xmain47=25. compute xmain48=25. compute xav46=14. compute xav47=14. compute xav48=14. Else if sun3=37 or sun3=237 or sun3=337 or sun3=637. compute xmain46=26. compute xmain47=26. compute xmain48=26. compute xav46=10. compute xav47=10. compute xav48=10. Else if sun3=108 or sun3=408 or sun3=508 or sun3=708. compute xmain46=27. compute xmain47=27. compute xmain48=27. compute xav46=8. compute xav47=8. compute xav48=8. Else if sun3=35 or sun3=235 or sun3=335 or sun3=635 or sun3=120 or sun3=420 or sun3=520 or sun3=720 or sun3=121 or sun3=421 or sun3=521 or sun3=721. compute xmain46=28. compute xmain47=28. compute xmain48=28. compute xav46=11. compute xav47=11. compute xav48=11. Else if sun3=123 or sun3=423 or sun3=523 or sun3=723. compute xmain46=29. compute xmain47=29. compute xmain48=29. compute xav46=11. compute xav47=11. compute xav48=11. Else if sun3=122 or sun3=422 or sun3=522. compute xmain46=30. compute xmain47=30. compute xmain48=30. compute xav46=11. compute xav47=11. compute xav48=11. Else if sun3=124 or sun3=424 or sun3=524 or sun3=724. compute xmain46=30. compute xmain47=30. compute xmain48=30. compute xav46=11. compute xav47=11. compute xav48=11. compute xsec46=43. compute xsec47=43. compute xsec48=43. Else if sun3=125 or sun3=425 or sun3=525 or sun3=725. compute xmain46=31. compute xmain47=31. compute xmain48=31. compute xav46=11. compute xav47=11. compute xav48=11. Else if sun3=133 or sun3=433 or sun3=533 or sun3=733. compute xmain46=32. compute xmain47=32. compute xmain48=32. compute xav46=8. compute xav47=8. compute xav48=8. Else if sun3=23 or sun3=223 or sun3=323 or sun3=51 or sun3=251 or sun3=351 or sun3=651 or sun3=52 or sun3=252 or sun3=352 or sun3=652 or sun3=53 or sun3=253 or sun3=353 or sun3=54 or sun3=254 or sun3=354 or sun3=654 or sun3=55 or sun3=255 or sun3=355 or sun3=56 or sun3=256 or sun3=356 or sun3=57 or sun3=257 or sun3=357 or sun3=657 or sun3=58 or sun3=258 or sun3=358 or sun3=658. compute xmain46=33. compute xmain47=33. compute xmain48=33. compute xav46=23. compute xav47=23. compute xav48=23. Else if sun3=50 or sun3=250 or sun3=350 or sun3=650 or sun3=132 or sun3=432 or sun3=532. compute xmain46=34. compute xmain47=34. compute xmain48=34. compute xav46=22. compute xav47=22. compute xav48=22. Else if sun3=66 or sun3=266 or sun3=366. compute xmain46=35. compute xmain47=35. compute xmain48=35. compute xav46=18. compute xav47=18. compute xav48=18. Else if sun3=95 or sun3=295 or sun3=395. compute xmain46=35. compute xmain47=35. compute xmain48=35. compute xav46=25. compute xav47=25. compute xav48=25. Else if sun3=73 or sun3=273 or sun3=373. compute xmain46=36. compute xmain47=36. compute xmain48=36. compute xav46=20. compute xav47=20. compute xav48=20. Else if sun3=70 or sun3=270 or sun3=370 or sun3=71 or sun3=271 or sun3=371 or sun3=72 or sun3=272 or sun3=372. compute xmain46=37. compute xmain47=37. compute xmain48=37. compute xav46=24. compute xav47=24. compute xav48=24. Else if sun3=63 or sun3=263 or sun3=363 or sun3=64 or sun3=264 or sun3=364 or sun3=65 or sun3=265 or sun3=365. compute xmain46=38. compute xmain47=38. compute xmain48=38. compute xav46=18. compute xav47=18. compute xav48=18. Else if sun3=77 or sun3=277 or sun3=377. compute xmain46=39. compute xmain47=39. compute xmain48=39. compute xav46=27. compute xav47=27. compute xav48=27. Else if sun3=80 or sun3=280 or sun3=380 or sun3=81 or sun3=281 or sun3=381. compute xmain46=39. compute xmain47=39. compute xmain48=39. compute xav46=28. compute xav47=28. compute xav48=28. Else if sun3=78 or sun3=278 or sun3=378 or sun3=79 or sun3=279 or sun3=379. compute xmain46=40. compute xmain47=40. compute xmain48=40. compute xav46=26. compute xav47=26. compute xav48=26. Else if sun3=82 or sun3=282 or sun3=382. compute xmain46=40. compute xmain47=40. compute xmain48=40. compute xav46=25. compute xav47=25. compute xav48=25. Else if sun3=900. compute xmain46=41. compute xmain47=41. compute xmain48=41. Else if sun3=60 or sun3=260 or sun3=360. compute xmain46=42. compute xmain47=42. compute xmain48=42. compute xav46=19. compute xav47=19. compute xav48=19. Else if sun3=61 or sun3=261 or sun3=361 or sun3=661. compute xmain46=43. compute xmain47=43. compute xmain48=43. compute xav46=21. compute xav47=21. compute xav48=21. Else if sun3=62 or sun3=262 or sun3=362. compute xmain46=46. compute xmain47=46. compute xmain48=46. compute xav46=19. compute xav47=19. compute xav48=19. Else if sun3=109 or sun3=409 or sun3=509 or sun3=709. compute xmain46=46. compute xmain47=46. compute xmain48=46. compute xav46=9. compute xav47=9. compute xav48=9. Else if sun3=75 or sun3=275 or sun3=375. compute xmain46=48. compute xmain47=48. compute xmain48=48. compute xav46=29. compute xav47=29. compute xav48=29. compute xsec46=6. compute xsec47=6. compute xsec48=6. Else if sun3=76 or sun3=276 or sun3=376. compute xmain46=48. compute xmain47=48. compute xmain48=48. compute xav46=29. compute xav47=29. compute xav48=29. Else if sun3=190 or sun3=490 or sun3=590. compute xmain46=48. compute xmain47=48. compute xmain48=48. compute xav46=38. compute xav47=38. compute xav48=38. compute xsec46=6. compute xsec47=6. compute xsec48=6. Else if sun3=191 or sun3=491 or sun3=591. compute xmain46=48. compute xmain47=48. compute xmain48=48. compute xav46=38. compute xav47=38. compute xav48=38. Else if sun3=192 or sun3=492 or sun3=592 or sun3=792. compute xmain46=49. compute xmain47=49. compute xmain48=49. compute xav46=37. compute xav47=37. compute xav48=37. Else if sun3=193 or sun3=493 or sun3=593 or sun3=793 or sun3=682. compute xmain46=50. compute xmain47=50. compute xmain48=50. compute xav46=40. compute xav47=40. compute xav48=40. Else if sun3=199 or sun3=499 or sun3=599. compute xmain46=51. compute xmain47=51. compute xmain48=51. compute xav46=36. compute xav47=36. compute xav48=36. Else if sun3=177 or sun3=477 or sun3=577 or sun3=777 or sun3=179 or sun3=479 or sun3=579 or sun3=779. compute xmain46=52. compute xmain47=52. compute xmain48=52. compute xav46=40. compute xav47=40. compute xav48=40. Else if sun3=180 or sun3=480 or sun3=580 or sun3=780. compute xmain46=53. compute xmain47=53. compute xmain48=53. compute xav46=40. compute xav47=40. compute xav48=40. Else if sun3=176 or sun3=476 or sun3=576 or sun3=776 or sun3=181 or sun3=481 or sun3=581 or sun3=781. compute xmain46=54. compute xmain47=54. compute xmain48=54. compute xav46=40. compute xav47=40. compute xav48=40. Else if sun3=178 or sun3=478 or sun3=578 or sun3=778. compute xmain46=54. compute xmain47=54. compute xmain48=54. compute xav46=39. compute xav47=39. compute xav48=39. Else if sun3=163 or sun3=463 or sun3=563 or sun3=763 or sun3=164 or sun3=464 or sun3=564 or sun3=764. compute xmain46=55. compute xmain47=55. compute xmain48=55. compute xav46=36. compute xav47=36. compute xav48=36. Else if sun3=173 or sun3=473 or sun3=573 or sun3=773 or sun3=873. compute xmain46=56. compute xmain47=56. compute xmain48=56. compute xav46=34. compute xav47=34. compute xav48=34. Else if sun3=174 or sun3=474 or sun3=574 or sun3=875 or sun3=175 or sun3=475 or sun3=575 or sun3=775. compute xmain46=56. compute xmain47=56. compute xmain48=56. compute xav46=35. compute xav47=35. compute xav48=35. Else if sun3=162 or sun3=462 or sun3=562 or sun3=762. compute xmain46=57. compute xmain47=57. compute xmain48=57. compute xav46=32. compute xav47=32. compute xav48=32. Else if sun3=160 or sun3=460 or sun3=560 or sun3=760. compute xmain46=58. compute xmain47=58. compute xmain48=58. compute xav46=30. compute xav47=30. compute xav48=30. Else if sun3=161 or sun3=461 or sun3=561 or sun3=761 or sun3=165 or sun3=465 or sun3=565 or sun3=765. compute xmain46=59. compute xmain47=59. compute xmain48=59. compute xav46=31. compute xav47=31. compute xav48=31. Else if sun3=692. compute xmain46=62. compute xmain47=62. compute xmain48=62. compute xav46=17. compute xav47=17. compute xav48=17. Else if sun3=9 or sun3=209 or sun3=309 or sun3=10 or sun3=210 or sun3=310 or sun3=610 or sun3=11 or sun3=211 or sun3=311. compute xmain46=63. compute xmain47=63. compute xmain48=63. compute xav46=5. compute xav47=5. compute xav48=5. Else if sun3=24 or sun3=224 or sun3=324 or sun3=25 or sun3=225 or sun3=325 or sun3=26 or sun3=226 or sun3=326. compute xmain46=64. compute xmain47=64. compute xmain48=64. compute xav46=5. compute xav47=5. compute xav48=5. Else if sun3=59 or sun3=259 or sun3=359. compute xmain46=65. compute xmain47=65. compute xmain48=65. compute xav46=17. compute xav47=17. compute xav48=17. Else if sun3=39 or sun3=239 or sun3=339 or sun3=40 or sun3=240 or sun3=340 or sun3=640. compute xmain46=67. compute xmain47=67. compute xmain48=67. compute xav46=12. compute xav47=12. compute xav48=12. Else if sun3=67 or sun3=267 or sun3=367 or sun3=74 or sun3=274 or sun3=374 or sun3=83 or sun3=283 or sun3=383 or sun3=90 or sun3=290 or sun3=390. compute xmain46=68. compute xmain47=68. compute xmain48=68. compute xav46=17. compute xav47=17. compute xav48=17. Else. compute residual=sun3. End if. Do if (sun3>199 and sun3<300) or (sun3>399 and sun3<500). compute xsec46=58. compute xsec47=58. compute xsec48=58. Else if (sun3>299 and sun3<400) or (sun3>499 and sun3<600). compute xsec46=59. compute xsec47=59. compute xsec48=59. End if. freq residual. compute residual=0. Do if sun4=150 or sun4=151 or sun4=152 or sun4=153 or sun4=159 or sun4=750 or sun4=450 or sun4=451 or sun4=452 or sun4=453 or sun4=459 or sun4=550 or sun4=551 or sun4=552 or sun4=553 or sun4=559 or sun4=752. compute xmain49=2. compute xmain50=2. compute xmain51=2. compute xav49=16. compute xav50=16. compute xav51=16. Else if sun4=130 or sun4=136 or sun4=430 or sun4=436 or sun4=530 or sun4=536 or sun4=730 or sun4=619. compute xmain49=4. compute xmain50=4. compute xmain51=4. compute xav49=13. compute xav50=13. compute xav51=13. Else if sun4=6 or sun4=206 or sun4=306. compute xmain49=5. compute xmain50=5. compute xmain51=5. compute xav49=1. compute xav50=1. compute xav51=1. Else if sun4=140 or sun4=141 or sun4=142 or sun4=144 or sun4=440 or sun4=441 or sun4=442 or sun4=444 or sun4=540 or sun4=541 or sun4=542 or sun4=544 or sun4=740 or sun4=741 or sun4=840 or sun4=841. compute xmain49=6. compute xmain50=6. compute xmain51=6. compute xav49=15. compute xav50=15. compute xav51=15. Else if sun4=1 or sun4=2 or sun4=13 or sun4=201 or sun4=202 or sun4=213 or sun4=301 or sun4=302 or sun4=313 or sun4=770. compute xmain49=7. compute xmain50=7. compute xmain51=7. compute xav49=1. compute xav50=1. compute xav51=1. Else if sun4=170 or sun4=470 or sun4=570 or sun4=601 or sun4=603 or sun4=605. compute xmain49=8. compute xmain50=8. compute xmain51=8. compute xav49=2. compute xav50=2. compute xav51=2. Else if sun4=3 or sun4=203 or sun4=303. compute xmain49=9. compute xmain50=9. compute xmain51=9. compute xav49=3. compute xav50=3. compute xav51=3. Else if sun4=12 or sun4=212 or sun4=312 or sun4=612. compute xmain49=11. compute xmain50=11. compute xmain51=11. compute xav49=1. compute xav50=1. compute xav51=1. Else if sun4=7 or sun4=207 or sun4=307 or sun4=607. compute xmain49=12. compute xmain50=12. compute xmain51=12. compute xav49=1. compute xav50=1. compute xav51=1. compute xsec49=6. compute xsec50=6. compute xsec51=6. Else if sun4=8 or sun4=208 or sun4=308. compute xmain49=12. compute xmain50=12. compute xmain51=12. compute xav49=1. compute xav50=1. compute xav51=1. Else if sun4=4 or sun4=204 or sun4=304 or sun4=5 or sun4=205 or sun4=305. compute xmain49=13. compute xmain50=13. compute xmain51=13. compute xav49=1. compute xav50=1. compute xav51=1. Else if sun4=20 or sun4=220 or sun4=320 or sun4=21 or sun4=221 or sun4=321 or sun4=620. compute xmain49=15. compute xmain50=15. compute xmain51=15. compute xav49=4. compute xav50=4. compute xav51=4. Else if sun4=171 or sun4=471 or sun4=571 or sun4=172 or sun4=472 or sun4=572. compute xmain49=16. compute xmain50=16. compute xmain51=16. compute xav49=33. compute xav50=33. compute xav51=33. Else if sun4=22 or sun4=222 or sun4=322. compute xmain49=17. compute xmain50=17. compute xmain51=17. compute xav49=4. compute xav50=4. compute xav51=4. Else if sun4=27 or sun4=227 or sun4=327. compute xmain49=17. compute xmain50=17. compute xmain51=17. compute xav49=25. compute xav50=25. compute xav51=25. compute xsec49=64. compute xsec50=64. compute xsec51=64. Else if sun4=100 or sun4=400 or sun4=500 or sun4=700. compute xmain49=18. compute xmain50=18. compute xmain51=18. compute xav49=6. compute xav50=6. compute xav51=6. Else if sun4=101 or sun4=401 or sun4=501 or sun4=701. compute xmain49=19. compute xmain50=19. compute xmain51=19. compute xav49=6. compute xav50=6. compute xav51=6. Else if sun4=102 or sun4=402 or sun4=502 or sun4=702 or sun4=103 or sun4=403 or sun4=503 or sun4=703. compute xmain49=20. compute xmain50=20. compute xmain51=20. compute xav49=7. compute xav50=7. compute xav51=7. Else if sun4=104 or sun4=404 or sun4=504 or sun4=704. compute xmain49=21. compute xmain50=21. compute xmain51=21. compute xav49=7. compute xav50=7. compute xav51=7. Else if sun4=105 or sun4=405 or sun4=505 or sun4=705. compute xmain49=21. compute xmain50=21. compute xmain51=21. compute xav49=8. compute xav50=8. compute xav51=8. Else if sun4=106 or sun4=406 or sun4=506 or sun4=706 or sun4=107 or sun4=407 or sun4=507 or sun4=707. compute xmain49=22. compute xmain50=22. compute xmain51=22. compute xav49=8. compute xav50=8. compute xav51=8. Else if sun4=110 or sun4=410 or sun4=510 or sun4=710. compute xmain49=23. compute xmain50=23. compute xmain51=23. compute xav49=8. compute xav50=8. compute xav51=8. Else if sun4=30 or sun4=230 or sun4=330 or sun4=630 or sun4=31 or sun4=231 or sun4=331 or sun4=36 or sun4=236 or sun4=336 or sun4=38 or sun4=238 or sun4=338. compute xmain49=24. compute xmain50=24. compute xmain51=24. compute xav49=10. compute xav50=10. compute xav51=10. Else if sun4=32 or sun4=232 or sun4=332 or sun4=632 or sun4=33 or sun4=233 or sun4=333 or sun4=633 or sun4=34 or sun4=234 or sun4=334 or sun4=131 or sun4=431 or sun4=531 or sun16=731. compute xmain49=25. compute xmain50=25. compute xmain51=25. compute xav49=14. compute xav50=14. compute xav51=14. Else if sun4=37 or sun4=237 or sun4=337 or sun4=637. compute xmain49=26. compute xmain50=26. compute xmain51=26. compute xav49=10. compute xav50=10. compute xav51=10. Else if sun4=108 or sun4=408 or sun4=508 or sun4=708. compute xmain49=27. compute xmain50=27. compute xmain51=27. compute xav49=8. compute xav50=8. compute xav51=8. Else if sun4=35 or sun4=235 or sun4=335 or sun4=635 or sun4=120 or sun4=420 or sun4=520 or sun4=720 or sun4=121 or sun4=421 or sun4=521 or sun4=721. compute xmain49=28. compute xmain50=28. compute xmain51=28. compute xav49=11. compute xav50=11. compute xav51=11. Else if sun4=123 or sun4=423 or sun4=523 or sun4=723. compute xmain49=29. compute xmain50=29. compute xmain51=29. compute xav49=11. compute xav50=11. compute xav51=11. Else if sun4=122 or sun4=422 or sun4=522. compute xmain49=30. compute xmain50=30. compute xmain51=30. compute xav49=11. compute xav50=11. compute xav51=11. Else if sun4=124 or sun4=424 or sun4=524 or sun4=724. compute xmain49=30. compute xmain50=30. compute xmain51=30. compute xav49=11. compute xav50=11. compute xav51=11. compute xsec49=43. compute xsec50=43. compute xsec51=43. Else if sun4=125 or sun4=425 or sun4=525 or sun4=725. compute xmain49=31. compute xmain50=31. compute xmain51=31. compute xav49=11. compute xav50=11. compute xav51=11. Else if sun4=133 or sun4=433 or sun4=533 or sun4=733. compute xmain49=32. compute xmain50=32. compute xmain51=32. compute xav49=8. compute xav50=8. compute xav51=8. Else if sun4=23 or sun4=223 or sun4=323 or sun4=51 or sun4=251 or sun4=351 or sun4=651 or sun4=52 or sun4=252 or sun4=352 or sun4=652 or sun4=53 or sun4=253 or sun4=353 or sun4=54 or sun4=254 or sun4=354 or sun4=654 or sun4=55 or sun4=255 or sun4=355 or sun4=56 or sun4=256 or sun4=356 or sun4=57 or sun4=257 or sun4=357 or sun4=657 or sun4=58 or sun4=258 or sun4=358 or sun4=658. compute xmain49=33. compute xmain50=33. compute xmain51=33. compute xav49=23. compute xav50=23. compute xav51=23. Else if sun4=50 or sun4=250 or sun4=350 or sun4=650 or sun4=132 or sun4=432 or sun4=532. compute xmain49=34. compute xmain50=34. compute xmain51=34. compute xav49=22. compute xav50=22. compute xav51=22. Else if sun4=66 or sun4=266 or sun4=366. compute xmain49=35. compute xmain50=35. compute xmain51=35. compute xav49=18. compute xav50=18. compute xav51=18. Else if sun4=95 or sun4=295 or sun4=395. compute xmain49=35. compute xmain50=35. compute xmain51=35. compute xav49=25. compute xav50=25. compute xav51=25. Else if sun4=73 or sun4=273 or sun4=373. compute xmain49=36. compute xmain50=36. compute xmain51=36. compute xav49=20. compute xav50=20. compute xav51=20. Else if sun4=70 or sun4=270 or sun4=370 or sun4=71 or sun4=271 or sun4=371 or sun4=72 or sun4=272 or sun4=372. compute xmain49=37. compute xmain50=37. compute xmain51=37. compute xav49=24. compute xav50=24. compute xav51=24. Else if sun4=63 or sun4=263 or sun4=363 or sun4=64 or sun4=264 or sun4=364 or sun4=65 or sun4=265 or sun4=365. compute xmain49=38. compute xmain50=38. compute xmain51=38. compute xav49=18. compute xav50=18. compute xav51=18. Else if sun4=77 or sun4=277 or sun4=377. compute xmain49=39. compute xmain50=39. compute xmain51=39. compute xav49=27. compute xav50=27. compute xav51=27. Else if sun4=80 or sun4=280 or sun4=380 or sun4=81 or sun4=281 or sun4=381. compute xmain49=39. compute xmain50=39. compute xmain51=39. compute xav49=28. compute xav50=28. compute xav51=28. Else if sun4=78 or sun4=278 or sun4=378 or sun4=79 or sun4=279 or sun4=379. compute xmain49=40. compute xmain50=40. compute xmain51=40. compute xav49=26. compute xav50=26. compute xav51=26. Else if sun4=82 or sun4=282 or sun4=382. compute xmain49=40. compute xmain50=40. compute xmain51=40. compute xav49=25. compute xav50=25. compute xav51=25. Else if sun4=900. compute xmain49=41. compute xmain50=41. compute xmain51=41. Else if sun4=60 or sun4=260 or sun4=360. compute xmain49=42. compute xmain50=42. compute xmain51=42. compute xav49=19. compute xav50=19. compute xav51=19. Else if sun4=61 or sun4=261 or sun4=361 or sun4=661. compute xmain49=43. compute xmain50=43. compute xmain51=43. compute xav49=21. compute xav50=21. compute xav51=21. Else if sun4=62 or sun4=262 or sun4=362. compute xmain49=46. compute xmain50=46. compute xmain51=46. compute xav49=19. compute xav50=19. compute xav51=19. Else if sun4=109 or sun4=409 or sun4=509 or sun4=709. compute xmain49=46. compute xmain50=46. compute xmain51=46. compute xav49=9. compute xav50=9. compute xav51=9. Else if sun4=75 or sun4=275 or sun4=375. compute xmain49=48. compute xmain50=48. compute xmain51=48. compute xav49=29. compute xav50=29. compute xav51=29. compute xsec49=6. compute xsec50=6. compute xsec51=6. Else if sun4=76 or sun4=276 or sun4=376. compute xmain49=48. compute xmain50=48. compute xmain51=48. compute xav49=29. compute xav50=29. compute xav51=29. Else if sun4=190 or sun4=490 or sun4=590. compute xmain49=48. compute xmain50=48. compute xmain51=48. compute xav49=38. compute xav50=38. compute xav51=38. compute xsec49=6. compute xsec50=6. compute xsec51=6. Else if sun4=191 or sun4=491 or sun4=591. compute xmain49=48. compute xmain50=48. compute xmain51=48. compute xav49=38. compute xav50=38. compute xav51=38. Else if sun4=192 or sun4=492 or sun4=592 or sun4=792. compute xmain49=49. compute xmain50=49. compute xmain51=49. compute xav49=37. compute xav50=37. compute xav51=37. Else if sun4=193 or sun4=493 or sun4=593 or sun4=793 or sun4=682. compute xmain49=50. compute xmain50=50. compute xmain51=50. compute xav49=40. compute xav50=40. compute xav51=40. Else if sun4=199 or sun4=499 or sun4=599. compute xmain49=51. compute xmain50=51. compute xmain51=51. compute xav49=36. compute xav50=36. compute xav51=36. Else if sun4=177 or sun4=477 or sun4=577 or sun4=777 or sun4=179 or sun4=479 or sun4=579 or sun4=779. compute xmain49=52. compute xmain50=52. compute xmain51=52. compute xav49=40. compute xav50=40. compute xav51=40. Else if sun4=180 or sun4=480 or sun4=580 or sun4=780. compute xmain49=53. compute xmain50=53. compute xmain51=53. compute xav49=40. compute xav50=40. compute xav51=40. Else if sun4=176 or sun4=476 or sun4=576 or sun4=776 or sun4=181 or sun4=481 or sun4=581 or sun4=781. compute xmain49=54. compute xmain50=54. compute xmain51=54. compute xav49=40. compute xav50=40. compute xav51=40. Else if sun4=178 or sun4=478 or sun4=578 or sun4=778. compute xmain49=54. compute xmain50=54. compute xmain51=54. compute xav49=39. compute xav50=39. compute xav51=39. Else if sun4=163 or sun4=463 or sun4=563 or sun4=763 or sun4=164 or sun4=464 or sun4=564 or sun4=764. compute xmain49=55. compute xmain50=55. compute xmain51=55. compute xav49=36. compute xav50=36. compute xav51=36. Else if sun4=173 or sun4=473 or sun4=573 or sun4=773 or sun4=873. compute xmain49=56. compute xmain50=56. compute xmain51=56. compute xav49=34. compute xav50=34. compute xav51=34. Else if sun4=174 or sun4=474 or sun4=574 or sun4=875 or sun4=175 or sun4=475 or sun4=575 or sun4=775. compute xmain49=56. compute xmain50=56. compute xmain51=56. compute xav49=35. compute xav50=35. compute xav51=35. Else if sun4=162 or sun4=462 or sun4=562 or sun4=762. compute xmain49=57. compute xmain50=57. compute xmain51=57. compute xav49=32. compute xav50=32. compute xav51=32. Else if sun4=160 or sun4=460 or sun4=560 or sun4=760. compute xmain49=58. compute xmain50=58. compute xmain51=58. compute xav49=30. compute xav50=30. compute xav51=30. Else if sun4=161 or sun4=461 or sun4=561 or sun4=761 or sun4=165 or sun4=465 or sun4=565 or sun4=765. compute xmain49=59. compute xmain50=59. compute xmain51=59. compute xav49=31. compute xav50=31. compute xav51=31. Else if sun4=692. compute xmain49=62. compute xmain50=62. compute xmain51=62. compute xav49=17. compute xav50=17. compute xav51=17. Else if sun4=9 or sun4=209 or sun4=309 or sun4=10 or sun4=210 or sun4=310 or sun4=610 or sun4=11 or sun4=211 or sun4=311. compute xmain49=63. compute xmain50=63. compute xmain51=63. compute xav49=5. compute xav50=5. compute xav51=5. Else if sun4=24 or sun4=224 or sun4=324 or sun4=25 or sun4=225 or sun4=325 or sun4=26 or sun4=226 or sun4=326. compute xmain49=64. compute xmain50=64. compute xmain51=64. compute xav49=5. compute xav50=5. compute xav51=5. Else if sun4=59 or sun4=259 or sun4=359. compute xmain49=65. compute xmain50=65. compute xmain51=65. compute xav49=17. compute xav50=17. compute xav51=17. Else if sun4=39 or sun4=239 or sun4=339 or sun4=40 or sun4=240 or sun4=340 or sun4=640. compute xmain49=67. compute xmain50=67. compute xmain51=67. compute xav49=12. compute xav50=12. compute xav51=12. Else if sun4=67 or sun4=267 or sun4=367 or sun4=74 or sun4=274 or sun4=374 or sun4=83 or sun4=283 or sun4=383 or sun4=90 or sun4=290 or sun4=390. compute xmain49=68. compute xmain50=68. compute xmain51=68. compute xav49=17. compute xav50=17. compute xav51=17. Else. compute residual=sun4. End if. Do if (sun4>199 and sun4<300) or (sun4>399 and sun4<500). compute xsec49=58. compute xsec50=58. compute xsec51=58. Else if (sun4>299 and sun4<400) or (sun4>499 and sun4<600). compute xsec49=59. compute xsec50=59. compute xsec51=59. End if. freq residual. compute residual=0. Do if sun5=150 or sun5=151 or sun5=152 or sun5=153 or sun5=159 or sun5=750 or sun5=450 or sun5=451 or sun5=452 or sun5=453 or sun5=459 or sun5=550 or sun5=551 or sun5=552 or sun5=553 or sun5=559 or sun5=752. compute xmain52=2. compute xmain53=2. compute xmain54=2. compute xav52=16. compute xav53=16. compute xav54=16. Else if sun5=130 or sun5=136 or sun5=430 or sun5=436 or sun5=530 or sun5=536 or sun5=730 or sun5=619. compute xmain52=4. compute xmain53=4. compute xmain54=4. compute xav52=13. compute xav53=13. compute xav54=13. Else if sun5=6 or sun5=206 or sun5=306. compute xmain52=5. compute xmain53=5. compute xmain54=5. compute xav52=1. compute xav53=1. compute xav54=1. Else if sun5=140 or sun5=141 or sun5=142 or sun5=144 or sun5=440 or sun5=441 or sun5=442 or sun5=444 or sun5=540 or sun5=541 or sun5=542 or sun5=544 or sun5=740 or sun5=741 or sun5=840 or sun5=841. compute xmain52=6. compute xmain53=6. compute xmain54=6. compute xav52=15. compute xav53=15. compute xav54=15. Else if sun5=1 or sun5=2 or sun5=13 or sun5=201 or sun5=202 or sun5=213 or sun5=301 or sun5=302 or sun5=313 or sun5=770. compute xmain52=7. compute xmain53=7. compute xmain54=7. compute xav52=1. compute xav53=1. compute xav54=1. Else if sun5=170 or sun5=470 or sun5=570 or sun5=601 or sun5=603 or sun5=605. compute xmain52=8. compute xmain53=8. compute xmain54=8. compute xav52=2. compute xav53=2. compute xav54=2. Else if sun5=3 or sun5=203 or sun5=303. compute xmain52=9. compute xmain53=9. compute xmain54=9. compute xav52=3. compute xav53=3. compute xav54=3. Else if sun5=12 or sun5=212 or sun5=312 or sun5=612. compute xmain52=11. compute xmain53=11. compute xmain54=11. compute xav52=1. compute xav53=1. compute xav54=1. Else if sun5=7 or sun5=207 or sun5=307 or sun5=607. compute xmain52=12. compute xmain53=12. compute xmain54=12. compute xav52=1. compute xav53=1. compute xav54=1. compute xsec52=6. compute xsec53=6. compute xsec54=6. Else if sun5=8 or sun5=208 or sun5=308. compute xmain52=12. compute xmain53=12. compute xmain54=12. compute xav52=1. compute xav53=1. compute xav54=1. Else if sun5=4 or sun5=204 or sun5=304 or sun5=5 or sun5=205 or sun5=305. compute xmain52=13. compute xmain53=13. compute xmain54=13. compute xav52=1. compute xav53=1. compute xav54=1. Else if sun5=20 or sun5=220 or sun5=320 or sun5=21 or sun5=221 or sun5=321 or sun5=620. compute xmain52=15. compute xmain53=15. compute xmain54=15. compute xav52=4. compute xav53=4. compute xav54=4. Else if sun5=171 or sun5=471 or sun5=571 or sun5=172 or sun5=472 or sun5=572. compute xmain52=16. compute xmain53=16. compute xmain54=16. compute xav52=33. compute xav53=33. compute xav54=33. Else if sun5=22 or sun5=222 or sun5=322. compute xmain52=17. compute xmain53=17. compute xmain54=17. compute xav52=4. compute xav53=4. compute xav54=4. Else if sun5=27 or sun5=227 or sun5=327. compute xmain52=17. compute xmain53=17. compute xmain54=17. compute xav52=25. compute xav53=25. compute xav54=25. compute xsec52=64. compute xsec53=64. compute xsec54=64. Else if sun5=100 or sun5=400 or sun5=500 or sun5=700. compute xmain52=18. compute xmain53=18. compute xmain54=18. compute xav52=6. compute xav53=6. compute xav54=6. Else if sun5=101 or sun5=401 or sun5=501 or sun5=701. compute xmain52=19. compute xmain53=19. compute xmain54=19. compute xav52=6. compute xav53=6. compute xav54=6. Else if sun5=102 or sun5=402 or sun5=502 or sun5=702 or sun5=103 or sun5=403 or sun5=503 or sun5=703. compute xmain52=20. compute xmain53=20. compute xmain54=20. compute xav52=7. compute xav53=7. compute xav54=7. Else if sun5=104 or sun5=404 or sun5=504 or sun5=704. compute xmain52=21. compute xmain53=21. compute xmain54=21. compute xav52=7. compute xav53=7. compute xav54=7. Else if sun5=105 or sun5=405 or sun5=505 or sun5=705. compute xmain52=21. compute xmain53=21. compute xmain54=21. compute xav52=8. compute xav53=8. compute xav54=8. Else if sun5=106 or sun5=406 or sun5=506 or sun5=706 or sun5=107 or sun5=407 or sun5=507 or sun5=707. compute xmain52=22. compute xmain53=22. compute xmain54=22. compute xav52=8. compute xav53=8. compute xav54=8. Else if sun5=110 or sun5=410 or sun5=510 or sun5=710. compute xmain52=23. compute xmain53=23. compute xmain54=23. compute xav52=8. compute xav53=8. compute xav54=8. Else if sun5=30 or sun5=230 or sun5=330 or sun5=630 or sun5=31 or sun5=231 or sun5=331 or sun5=36 or sun5=236 or sun5=336 or sun5=38 or sun5=238 or sun5=338. compute xmain52=24. compute xmain53=24. compute xmain54=24. compute xav52=10. compute xav53=10. compute xav54=10. Else if sun5=32 or sun5=232 or sun5=332 or sun5=632 or sun5=33 or sun5=233 or sun5=333 or sun5=633 or sun5=34 or sun5=234 or sun5=334 or sun5=131 or sun5=431 or sun5=531 or sun16=731. compute xmain52=25. compute xmain53=25. compute xmain54=25. compute xav52=14. compute xav53=14. compute xav54=14. Else if sun5=37 or sun5=237 or sun5=337 or sun5=637. compute xmain52=26. compute xmain53=26. compute xmain54=26. compute xav52=10. compute xav53=10. compute xav54=10. Else if sun5=108 or sun5=408 or sun5=508 or sun5=708. compute xmain52=27. compute xmain53=27. compute xmain54=27. compute xav52=8. compute xav53=8. compute xav54=8. Else if sun5=35 or sun5=235 or sun5=335 or sun5=635 or sun5=120 or sun5=420 or sun5=520 or sun5=720 or sun5=121 or sun5=421 or sun5=521 or sun5=721. compute xmain52=28. compute xmain53=28. compute xmain54=28. compute xav52=11. compute xav53=11. compute xav54=11. Else if sun5=123 or sun5=423 or sun5=523 or sun5=723. compute xmain52=29. compute xmain53=29. compute xmain54=29. compute xav52=11. compute xav53=11. compute xav54=11. Else if sun5=122 or sun5=422 or sun5=522. compute xmain52=30. compute xmain53=30. compute xmain54=30. compute xav52=11. compute xav53=11. compute xav54=11. Else if sun5=124 or sun5=424 or sun5=524 or sun5=724. compute xmain52=30. compute xmain53=30. compute xmain54=30. compute xav52=11. compute xav53=11. compute xav54=11. compute xsec52=43. compute xsec53=43. compute xsec54=43. Else if sun5=125 or sun5=425 or sun5=525 or sun5=725. compute xmain52=31. compute xmain53=31. compute xmain54=31. compute xav52=11. compute xav53=11. compute xav54=11. Else if sun5=133 or sun5=433 or sun5=533 or sun5=733. compute xmain52=32. compute xmain53=32. compute xmain54=32. compute xav52=8. compute xav53=8. compute xav54=8. Else if sun5=23 or sun5=223 or sun5=323 or sun5=51 or sun5=251 or sun5=351 or sun5=651 or sun5=52 or sun5=252 or sun5=352 or sun5=652 or sun5=53 or sun5=253 or sun5=353 or sun5=54 or sun5=254 or sun5=354 or sun5=654 or sun5=55 or sun5=255 or sun5=355 or sun5=56 or sun5=256 or sun5=356 or sun5=57 or sun5=257 or sun5=357 or sun5=657 or sun5=58 or sun5=258 or sun5=358 or sun5=658. compute xmain52=33. compute xmain53=33. compute xmain54=33. compute xav52=23. compute xav53=23. compute xav54=23. Else if sun5=50 or sun5=250 or sun5=350 or sun5=650 or sun5=132 or sun5=432 or sun5=532. compute xmain52=34. compute xmain53=34. compute xmain54=34. compute xav52=22. compute xav53=22. compute xav54=22. Else if sun5=66 or sun5=266 or sun5=366. compute xmain52=35. compute xmain53=35. compute xmain54=35. compute xav52=18. compute xav53=18. compute xav54=18. Else if sun5=95 or sun5=295 or sun5=395. compute xmain52=35. compute xmain53=35. compute xmain54=35. compute xav52=25. compute xav53=25. compute xav54=25. Else if sun5=73 or sun5=273 or sun5=373. compute xmain52=36. compute xmain53=36. compute xmain54=36. compute xav52=20. compute xav53=20. compute xav54=20. Else if sun5=70 or sun5=270 or sun5=370 or sun5=71 or sun5=271 or sun5=371 or sun5=72 or sun5=272 or sun5=372. compute xmain52=37. compute xmain53=37. compute xmain54=37. compute xav52=24. compute xav53=24. compute xav54=24. Else if sun5=63 or sun5=263 or sun5=363 or sun5=64 or sun5=264 or sun5=364 or sun5=65 or sun5=265 or sun5=365. compute xmain52=38. compute xmain53=38. compute xmain54=38. compute xav52=18. compute xav53=18. compute xav54=18. Else if sun5=77 or sun5=277 or sun5=377. compute xmain52=39. compute xmain53=39. compute xmain54=39. compute xav52=27. compute xav53=27. compute xav54=27. Else if sun5=80 or sun5=280 or sun5=380 or sun5=81 or sun5=281 or sun5=381. compute xmain52=39. compute xmain53=39. compute xmain54=39. compute xav52=28. compute xav53=28. compute xav54=28. Else if sun5=78 or sun5=278 or sun5=378 or sun5=79 or sun5=279 or sun5=379. compute xmain52=40. compute xmain53=40. compute xmain54=40. compute xav52=26. compute xav53=26. compute xav54=26. Else if sun5=82 or sun5=282 or sun5=382. compute xmain52=40. compute xmain53=40. compute xmain54=40. compute xav52=25. compute xav53=25. compute xav54=25. Else if sun5=900. compute xmain52=41. compute xmain53=41. compute xmain54=41. Else if sun5=60 or sun5=260 or sun5=360. compute xmain52=42. compute xmain53=42. compute xmain54=42. compute xav52=19. compute xav53=19. compute xav54=19. Else if sun5=61 or sun5=261 or sun5=361 or sun5=661. compute xmain52=43. compute xmain53=43. compute xmain54=43. compute xav52=21. compute xav53=21. compute xav54=21. Else if sun5=62 or sun5=262 or sun5=362. compute xmain52=46. compute xmain53=46. compute xmain54=46. compute xav52=19. compute xav53=19. compute xav54=19. Else if sun5=109 or sun5=409 or sun5=509 or sun5=709. compute xmain52=46. compute xmain53=46. compute xmain54=46. compute xav52=9. compute xav53=9. compute xav54=9. Else if sun5=75 or sun5=275 or sun5=375. compute xmain52=48. compute xmain53=48. compute xmain54=48. compute xav52=29. compute xav53=29. compute xav54=29. compute xsec52=6. compute xsec53=6. compute xsec54=6. Else if sun5=76 or sun5=276 or sun5=376. compute xmain52=48. compute xmain53=48. compute xmain54=48. compute xav52=29. compute xav53=29. compute xav54=29. Else if sun5=190 or sun5=490 or sun5=590. compute xmain52=48. compute xmain53=48. compute xmain54=48. compute xav52=38. compute xav53=38. compute xav54=38. compute xsec52=6. compute xsec53=6. compute xsec54=6. Else if sun5=191 or sun5=491 or sun5=591. compute xmain52=48. compute xmain53=48. compute xmain54=48. compute xav52=38. compute xav53=38. compute xav54=38. Else if sun5=192 or sun5=492 or sun5=592 or sun5=792. compute xmain52=49. compute xmain53=49. compute xmain54=49. compute xav52=37. compute xav53=37. compute xav54=37. Else if sun5=193 or sun5=493 or sun5=593 or sun5=793 or sun5=682. compute xmain52=50. compute xmain53=50. compute xmain54=50. compute xav52=40. compute xav53=40. compute xav54=40. Else if sun5=199 or sun5=499 or sun5=599. compute xmain52=51. compute xmain53=51. compute xmain54=51. compute xav52=36. compute xav53=36. compute xav54=36. Else if sun5=177 or sun5=477 or sun5=577 or sun5=777 or sun5=179 or sun5=479 or sun5=579 or sun5=779. compute xmain52=52. compute xmain53=52. compute xmain54=52. compute xav52=40. compute xav53=40. compute xav54=40. Else if sun5=180 or sun5=480 or sun5=580 or sun5=780. compute xmain52=53. compute xmain53=53. compute xmain54=53. compute xav52=40. compute xav53=40. compute xav54=40. Else if sun5=176 or sun5=476 or sun5=576 or sun5=776 or sun5=181 or sun5=481 or sun5=581 or sun5=781. compute xmain52=54. compute xmain53=54. compute xmain54=54. compute xav52=40. compute xav53=40. compute xav54=40. Else if sun5=178 or sun5=478 or sun5=578 or sun5=778. compute xmain52=54. compute xmain53=54. compute xmain54=54. compute xav52=39. compute xav53=39. compute xav54=39. Else if sun5=163 or sun5=463 or sun5=563 or sun5=763 or sun5=164 or sun5=464 or sun5=564 or sun5=764. compute xmain52=55. compute xmain53=55. compute xmain54=55. compute xav52=36. compute xav53=36. compute xav54=36. Else if sun5=173 or sun5=473 or sun5=573 or sun5=773 or sun5=873. compute xmain52=56. compute xmain53=56. compute xmain54=56. compute xav52=34. compute xav53=34. compute xav54=34. Else if sun5=174 or sun5=474 or sun5=574 or sun5=875 or sun5=175 or sun5=475 or sun5=575 or sun5=775. compute xmain52=56. compute xmain53=56. compute xmain54=56. compute xav52=35. compute xav53=35. compute xav54=35. Else if sun5=162 or sun5=462 or sun5=562 or sun5=762. compute xmain52=57. compute xmain53=57. compute xmain54=57. compute xav52=32. compute xav53=32. compute xav54=32. Else if sun5=160 or sun5=460 or sun5=560 or sun5=760. compute xmain52=58. compute xmain53=58. compute xmain54=58. compute xav52=30. compute xav53=30. compute xav54=30. Else if sun5=161 or sun5=461 or sun5=561 or sun5=761 or sun5=165 or sun5=465 or sun5=565 or sun5=765. compute xmain52=59. compute xmain53=59. compute xmain54=59. compute xav52=31. compute xav53=31. compute xav54=31. Else if sun5=692. compute xmain52=62. compute xmain53=62. compute xmain54=62. compute xav52=17. compute xav53=17. compute xav54=17. Else if sun5=9 or sun5=209 or sun5=309 or sun5=10 or sun5=210 or sun5=310 or sun5=610 or sun5=11 or sun5=211 or sun5=311. compute xmain52=63. compute xmain53=63. compute xmain54=63. compute xav52=5. compute xav53=5. compute xav54=5. Else if sun5=24 or sun5=224 or sun5=324 or sun5=25 or sun5=225 or sun5=325 or sun5=26 or sun5=226 or sun5=326. compute xmain52=64. compute xmain53=64. compute xmain54=64. compute xav52=5. compute xav53=5. compute xav54=5. Else if sun5=59 or sun5=259 or sun5=359. compute xmain52=65. compute xmain53=65. compute xmain54=65. compute xav52=17. compute xav53=17. compute xav54=17. Else if sun5=39 or sun5=239 or sun5=339 or sun5=40 or sun5=240 or sun5=340 or sun5=640. compute xmain52=67. compute xmain53=67. compute xmain54=67. compute xav52=12. compute xav53=12. compute xav54=12. Else if sun5=67 or sun5=267 or sun5=367 or sun5=74 or sun5=274 or sun5=374 or sun5=83 or sun5=283 or sun5=383 or sun5=90 or sun5=290 or sun5=390. compute xmain52=68. compute xmain53=68. compute xmain54=68. compute xav52=17. compute xav53=17. compute xav54=17. Else. compute residual=sun5. End if. Do if (sun5>199 and sun5<300) or (sun5>399 and sun5<500). compute xsec52=58. compute xsec53=58. compute xsec54=58. Else if (sun5>299 and sun5<400) or (sun5>499 and sun5<600). compute xsec52=59. compute xsec53=59. compute xsec54=59. End if. freq residual. compute residual=0. Do if sun6=150 or sun6=151 or sun6=152 or sun6=153 or sun6=159 or sun6=750 or sun6=450 or sun6=451 or sun6=452 or sun6=453 or sun6=459 or sun6=550 or sun6=551 or sun6=552 or sun6=553 or sun6=559 or sun6=752. compute xmain55=2. compute xmain56=2. compute xmain57=2. compute xav55=16. compute xav56=16. compute xav57=16. Else if sun6=130 or sun6=136 or sun6=430 or sun6=436 or sun6=530 or sun6=536 or sun6=730 or sun6=619. compute xmain55=4. compute xmain56=4. compute xmain57=4. compute xav55=13. compute xav56=13. compute xav57=13. Else if sun6=6 or sun6=206 or sun6=306. compute xmain55=5. compute xmain56=5. compute xmain57=5. compute xav55=1. compute xav56=1. compute xav57=1. Else if sun6=140 or sun6=141 or sun6=142 or sun6=144 or sun6=440 or sun6=441 or sun6=442 or sun6=444 or sun6=540 or sun6=541 or sun6=542 or sun6=544 or sun6=740 or sun6=741 or sun6=840 or sun6=841. compute xmain55=6. compute xmain56=6. compute xmain57=6. compute xav55=15. compute xav56=15. compute xav57=15. Else if sun6=1 or sun6=2 or sun6=13 or sun6=201 or sun6=202 or sun6=213 or sun6=301 or sun6=302 or sun6=313 or sun6=770. compute xmain55=7. compute xmain56=7. compute xmain57=7. compute xav55=1. compute xav56=1. compute xav57=1. Else if sun6=170 or sun6=470 or sun6=570 or sun6=601 or sun6=603 or sun6=605. compute xmain55=8. compute xmain56=8. compute xmain57=8. compute xav55=2. compute xav56=2. compute xav57=2. Else if sun6=3 or sun6=203 or sun6=303. compute xmain55=9. compute xmain56=9. compute xmain57=9. compute xav55=3. compute xav56=3. compute xav57=3. Else if sun6=12 or sun6=212 or sun6=312 or sun6=612. compute xmain55=11. compute xmain56=11. compute xmain57=11. compute xav55=1. compute xav56=1. compute xav57=1. Else if sun6=7 or sun6=207 or sun6=307 or sun6=607. compute xmain55=12. compute xmain56=12. compute xmain57=12. compute xav55=1. compute xav56=1. compute xav57=1. compute xsec55=6. compute xsec56=6. compute xsec57=6. Else if sun6=8 or sun6=208 or sun6=308. compute xmain55=12. compute xmain56=12. compute xmain57=12. compute xav55=1. compute xav56=1. compute xav57=1. Else if sun6=4 or sun6=204 or sun6=304 or sun6=5 or sun6=205 or sun6=305. compute xmain55=13. compute xmain56=13. compute xmain57=13. compute xav55=1. compute xav56=1. compute xav57=1. Else if sun6=20 or sun6=220 or sun6=320 or sun6=21 or sun6=221 or sun6=321 or sun6=620. compute xmain55=15. compute xmain56=15. compute xmain57=15. compute xav55=4. compute xav56=4. compute xav57=4. Else if sun6=171 or sun6=471 or sun6=571 or sun6=172 or sun6=472 or sun6=572. compute xmain55=16. compute xmain56=16. compute xmain57=16. compute xav55=33. compute xav56=33. compute xav57=33. Else if sun6=22 or sun6=222 or sun6=322. compute xmain55=17. compute xmain56=17. compute xmain57=17. compute xav55=4. compute xav56=4. compute xav57=4. Else if sun6=27 or sun6=227 or sun6=327. compute xmain55=17. compute xmain56=17. compute xmain57=17. compute xav55=25. compute xav56=25. compute xav57=25. compute xsec55=64. compute xsec56=64. compute xsec57=64. Else if sun6=100 or sun6=400 or sun6=500 or sun6=700. compute xmain55=18. compute xmain56=18. compute xmain57=18. compute xav55=6. compute xav56=6. compute xav57=6. Else if sun6=101 or sun6=401 or sun6=501 or sun6=701. compute xmain55=19. compute xmain56=19. compute xmain57=19. compute xav55=6. compute xav56=6. compute xav57=6. Else if sun6=102 or sun6=402 or sun6=502 or sun6=702 or sun6=103 or sun6=403 or sun6=503 or sun6=703. compute xmain55=20. compute xmain56=20. compute xmain57=20. compute xav55=7. compute xav56=7. compute xav57=7. Else if sun6=104 or sun6=404 or sun6=504 or sun6=704. compute xmain55=21. compute xmain56=21. compute xmain57=21. compute xav55=7. compute xav56=7. compute xav57=7. Else if sun6=105 or sun6=405 or sun6=505 or sun6=705. compute xmain55=21. compute xmain56=21. compute xmain57=21. compute xav55=8. compute xav56=8. compute xav57=8. Else if sun6=106 or sun6=406 or sun6=506 or sun6=706 or sun6=107 or sun6=407 or sun6=507 or sun6=707. compute xmain55=22. compute xmain56=22. compute xmain57=22. compute xav55=8. compute xav56=8. compute xav57=8. Else if sun6=110 or sun6=410 or sun6=510 or sun6=710. compute xmain55=23. compute xmain56=23. compute xmain57=23. compute xav55=8. compute xav56=8. compute xav57=8. Else if sun6=30 or sun6=230 or sun6=330 or sun6=630 or sun6=31 or sun6=231 or sun6=331 or sun6=36 or sun6=236 or sun6=336 or sun6=38 or sun6=238 or sun6=338. compute xmain55=24. compute xmain56=24. compute xmain57=24. compute xav55=10. compute xav56=10. compute xav57=10. Else if sun6=32 or sun6=232 or sun6=332 or sun6=632 or sun6=33 or sun6=233 or sun6=333 or sun6=633 or sun6=34 or sun6=234 or sun6=334 or sun6=131 or sun6=431 or sun6=531 or sun16=731. compute xmain55=25. compute xmain56=25. compute xmain57=25. compute xav55=14. compute xav56=14. compute xav57=14. Else if sun6=37 or sun6=237 or sun6=337 or sun6=637. compute xmain55=26. compute xmain56=26. compute xmain57=26. compute xav55=10. compute xav56=10. compute xav57=10. Else if sun6=108 or sun6=408 or sun6=508 or sun6=708. compute xmain55=27. compute xmain56=27. compute xmain57=27. compute xav55=8. compute xav56=8. compute xav57=8. Else if sun6=35 or sun6=235 or sun6=335 or sun6=635 or sun6=120 or sun6=420 or sun6=520 or sun6=720 or sun6=121 or sun6=421 or sun6=521 or sun6=721. compute xmain55=28. compute xmain56=28. compute xmain57=28. compute xav55=11. compute xav56=11. compute xav57=11. Else if sun6=123 or sun6=423 or sun6=523 or sun6=723. compute xmain55=29. compute xmain56=29. compute xmain57=29. compute xav55=11. compute xav56=11. compute xav57=11. Else if sun6=122 or sun6=422 or sun6=522. compute xmain55=30. compute xmain56=30. compute xmain57=30. compute xav55=11. compute xav56=11. compute xav57=11. Else if sun6=124 or sun6=424 or sun6=524 or sun6=724. compute xmain55=30. compute xmain56=30. compute xmain57=30. compute xav55=11. compute xav56=11. compute xav57=11. compute xsec55=43. compute xsec56=43. compute xsec57=43. Else if sun6=125 or sun6=425 or sun6=525 or sun6=725. compute xmain55=31. compute xmain56=31. compute xmain57=31. compute xav55=11. compute xav56=11. compute xav57=11. Else if sun6=133 or sun6=433 or sun6=533 or sun6=733. compute xmain55=32. compute xmain56=32. compute xmain57=32. compute xav55=8. compute xav56=8. compute xav57=8. Else if sun6=23 or sun6=223 or sun6=323 or sun6=51 or sun6=251 or sun6=351 or sun6=651 or sun6=52 or sun6=252 or sun6=352 or sun6=652 or sun6=53 or sun6=253 or sun6=353 or sun6=54 or sun6=254 or sun6=354 or sun6=654 or sun6=55 or sun6=255 or sun6=355 or sun6=56 or sun6=256 or sun6=356 or sun6=57 or sun6=257 or sun6=357 or sun6=657 or sun6=58 or sun6=258 or sun6=358 or sun6=658. compute xmain55=33. compute xmain56=33. compute xmain57=33. compute xav55=23. compute xav56=23. compute xav57=23. Else if sun6=50 or sun6=250 or sun6=350 or sun6=650 or sun6=132 or sun6=432 or sun6=532. compute xmain55=34. compute xmain56=34. compute xmain57=34. compute xav55=22. compute xav56=22. compute xav57=22. Else if sun6=66 or sun6=266 or sun6=366. compute xmain55=35. compute xmain56=35. compute xmain57=35. compute xav55=18. compute xav56=18. compute xav57=18. Else if sun6=95 or sun6=295 or sun6=395. compute xmain55=35. compute xmain56=35. compute xmain57=35. compute xav55=25. compute xav56=25. compute xav57=25. Else if sun6=73 or sun6=273 or sun6=373. compute xmain55=36. compute xmain56=36. compute xmain57=36. compute xav55=20. compute xav56=20. compute xav57=20. Else if sun6=70 or sun6=270 or sun6=370 or sun6=71 or sun6=271 or sun6=371 or sun6=72 or sun6=272 or sun6=372. compute xmain55=37. compute xmain56=37. compute xmain57=37. compute xav55=24. compute xav56=24. compute xav57=24. Else if sun6=63 or sun6=263 or sun6=363 or sun6=64 or sun6=264 or sun6=364 or sun6=65 or sun6=265 or sun6=365. compute xmain55=38. compute xmain56=38. compute xmain57=38. compute xav55=18. compute xav56=18. compute xav57=18. Else if sun6=77 or sun6=277 or sun6=377. compute xmain55=39. compute xmain56=39. compute xmain57=39. compute xav55=27. compute xav56=27. compute xav57=27. Else if sun6=80 or sun6=280 or sun6=380 or sun6=81 or sun6=281 or sun6=381. compute xmain55=39. compute xmain56=39. compute xmain57=39. compute xav55=28. compute xav56=28. compute xav57=28. Else if sun6=78 or sun6=278 or sun6=378 or sun6=79 or sun6=279 or sun6=379. compute xmain55=40. compute xmain56=40. compute xmain57=40. compute xav55=26. compute xav56=26. compute xav57=26. Else if sun6=82 or sun6=282 or sun6=382. compute xmain55=40. compute xmain56=40. compute xmain57=40. compute xav55=25. compute xav56=25. compute xav57=25. Else if sun6=900. compute xmain55=41. compute xmain56=41. compute xmain57=41. Else if sun6=60 or sun6=260 or sun6=360. compute xmain55=42. compute xmain56=42. compute xmain57=42. compute xav55=19. compute xav56=19. compute xav57=19. Else if sun6=61 or sun6=261 or sun6=361 or sun6=661. compute xmain55=43. compute xmain56=43. compute xmain57=43. compute xav55=21. compute xav56=21. compute xav57=21. Else if sun6=62 or sun6=262 or sun6=362. compute xmain55=46. compute xmain56=46. compute xmain57=46. compute xav55=19. compute xav56=19. compute xav57=19. Else if sun6=109 or sun6=409 or sun6=509 or sun6=709. compute xmain55=46. compute xmain56=46. compute xmain57=46. compute xav55=9. compute xav56=9. compute xav57=9. Else if sun6=75 or sun6=275 or sun6=375. compute xmain55=48. compute xmain56=48. compute xmain57=48. compute xav55=29. compute xav56=29. compute xav57=29. compute xsec55=6. compute xsec56=6. compute xsec57=6. Else if sun6=76 or sun6=276 or sun6=376. compute xmain55=48. compute xmain56=48. compute xmain57=48. compute xav55=29. compute xav56=29. compute xav57=29. Else if sun6=190 or sun6=490 or sun6=590. compute xmain55=48. compute xmain56=48. compute xmain57=48. compute xav55=38. compute xav56=38. compute xav57=38. compute xsec55=6. compute xsec56=6. compute xsec57=6. Else if sun6=191 or sun6=491 or sun6=591. compute xmain55=48. compute xmain56=48. compute xmain57=48. compute xav55=38. compute xav56=38. compute xav57=38. Else if sun6=192 or sun6=492 or sun6=592 or sun6=792. compute xmain55=49. compute xmain56=49. compute xmain57=49. compute xav55=37. compute xav56=37. compute xav57=37. Else if sun6=193 or sun6=493 or sun6=593 or sun6=793 or sun6=682. compute xmain55=50. compute xmain56=50. compute xmain57=50. compute xav55=40. compute xav56=40. compute xav57=40. Else if sun6=199 or sun6=499 or sun6=599. compute xmain55=51. compute xmain56=51. compute xmain57=51. compute xav55=36. compute xav56=36. compute xav57=36. Else if sun6=177 or sun6=477 or sun6=577 or sun6=777 or sun6=179 or sun6=479 or sun6=579 or sun6=779. compute xmain55=52. compute xmain56=52. compute xmain57=52. compute xav55=40. compute xav56=40. compute xav57=40. Else if sun6=180 or sun6=480 or sun6=580 or sun6=780. compute xmain55=53. compute xmain56=53. compute xmain57=53. compute xav55=40. compute xav56=40. compute xav57=40. Else if sun6=176 or sun6=476 or sun6=576 or sun6=776 or sun6=181 or sun6=481 or sun6=581 or sun6=781. compute xmain55=54. compute xmain56=54. compute xmain57=54. compute xav55=40. compute xav56=40. compute xav57=40. Else if sun6=178 or sun6=478 or sun6=578 or sun6=778. compute xmain55=54. compute xmain56=54. compute xmain57=54. compute xav55=39. compute xav56=39. compute xav57=39. Else if sun6=163 or sun6=463 or sun6=563 or sun6=763 or sun6=164 or sun6=464 or sun6=564 or sun6=764. compute xmain55=55. compute xmain56=55. compute xmain57=55. compute xav55=36. compute xav56=36. compute xav57=36. Else if sun6=173 or sun6=473 or sun6=573 or sun6=773 or sun6=873. compute xmain55=56. compute xmain56=56. compute xmain57=56. compute xav55=34. compute xav56=34. compute xav57=34. Else if sun6=174 or sun6=474 or sun6=574 or sun6=875 or sun6=175 or sun6=475 or sun6=575 or sun6=775. compute xmain55=56. compute xmain56=56. compute xmain57=56. compute xav55=35. compute xav56=35. compute xav57=35. Else if sun6=162 or sun6=462 or sun6=562 or sun6=762. compute xmain55=57. compute xmain56=57. compute xmain57=57. compute xav55=32. compute xav56=32. compute xav57=32. Else if sun6=160 or sun6=460 or sun6=560 or sun6=760. compute xmain55=58. compute xmain56=58. compute xmain57=58. compute xav55=30. compute xav56=30. compute xav57=30. Else if sun6=161 or sun6=461 or sun6=561 or sun6=761 or sun6=165 or sun6=465 or sun6=565 or sun6=765. compute xmain55=59. compute xmain56=59. compute xmain57=59. compute xav55=31. compute xav56=31. compute xav57=31. Else if sun6=692. compute xmain55=62. compute xmain56=62. compute xmain57=62. compute xav55=17. compute xav56=17. compute xav57=17. Else if sun6=9 or sun6=209 or sun6=309 or sun6=10 or sun6=210 or sun6=310 or sun6=610 or sun6=11 or sun6=211 or sun6=311. compute xmain55=63. compute xmain56=63. compute xmain57=63. compute xav55=5. compute xav56=5. compute xav57=5. Else if sun6=24 or sun6=224 or sun6=324 or sun6=25 or sun6=225 or sun6=325 or sun6=26 or sun6=226 or sun6=326. compute xmain55=64. compute xmain56=64. compute xmain57=64. compute xav55=5. compute xav56=5. compute xav57=5. Else if sun6=59 or sun6=259 or sun6=359. compute xmain55=65. compute xmain56=65. compute xmain57=65. compute xav55=17. compute xav56=17. compute xav57=17. Else if sun6=39 or sun6=239 or sun6=339 or sun6=40 or sun6=240 or sun6=340 or sun6=640. compute xmain55=67. compute xmain56=67. compute xmain57=67. compute xav55=12. compute xav56=12. compute xav57=12. Else if sun6=67 or sun6=267 or sun6=367 or sun6=74 or sun6=274 or sun6=374 or sun6=83 or sun6=283 or sun6=383 or sun6=90 or sun6=290 or sun6=390. compute xmain55=68. compute xmain56=68. compute xmain57=68. compute xav55=17. compute xav56=17. compute xav57=17. Else. compute residual=sun6. End if. Do if (sun6>199 and sun6<300) or (sun6>399 and sun6<500). compute xsec55=58. compute xsec56=58. compute xsec57=58. Else if (sun6>299 and sun6<400) or (sun6>499 and sun6<600). compute xsec55=59. compute xsec56=59. compute xsec57=59. End if. freq residual. compute residual=0. Do if sun7=150 or sun7=151 or sun7=152 or sun7=153 or sun7=159 or sun7=750 or sun7=450 or sun7=451 or sun7=452 or sun7=453 or sun7=459 or sun7=550 or sun7=551 or sun7=552 or sun7=553 or sun7=559 or sun7=752. compute xmain58=2. compute xmain59=2. compute xmain60=2. compute xav58=16. compute xav59=16. compute xav60=16. Else if sun7=130 or sun7=136 or sun7=430 or sun7=436 or sun7=530 or sun7=536 or sun7=730 or sun7=619. compute xmain58=4. compute xmain59=4. compute xmain60=4. compute xav58=13. compute xav59=13. compute xav60=13. Else if sun7=6 or sun7=206 or sun7=306. compute xmain58=5. compute xmain59=5. compute xmain60=5. compute xav58=1. compute xav59=1. compute xav60=1. Else if sun7=140 or sun7=141 or sun7=142 or sun7=144 or sun7=440 or sun7=441 or sun7=442 or sun7=444 or sun7=540 or sun7=541 or sun7=542 or sun7=544 or sun7=740 or sun7=741 or sun7=840 or sun7=841. compute xmain58=6. compute xmain59=6. compute xmain60=6. compute xav58=15. compute xav59=15. compute xav60=15. Else if sun7=1 or sun7=2 or sun7=13 or sun7=201 or sun7=202 or sun7=213 or sun7=301 or sun7=302 or sun7=313 or sun7=770 or sun7=200. compute xmain58=7. compute xmain59=7. compute xmain60=7. compute xav58=1. compute xav59=1. compute xav60=1. Else if sun7=170 or sun7=470 or sun7=570 or sun7=601 or sun7=603 or sun7=605. compute xmain58=8. compute xmain59=8. compute xmain60=8. compute xav58=2. compute xav59=2. compute xav60=2. Else if sun7=3 or sun7=203 or sun7=303. compute xmain58=9. compute xmain59=9. compute xmain60=9. compute xav58=3. compute xav59=3. compute xav60=3. Else if sun7=12 or sun7=212 or sun7=312 or sun7=612. compute xmain58=11. compute xmain59=11. compute xmain60=11. compute xav58=1. compute xav59=1. compute xav60=1. Else if sun7=7 or sun7=207 or sun7=307 or sun7=607. compute xmain58=12. compute xmain59=12. compute xmain60=12. compute xav58=1. compute xav59=1. compute xav60=1. compute xsec58=6. compute xsec59=6. compute xsec60=6. Else if sun7=8 or sun7=208 or sun7=308. compute xmain58=12. compute xmain59=12. compute xmain60=12. compute xav58=1. compute xav59=1. compute xav60=1. Else if sun7=4 or sun7=204 or sun7=304 or sun7=5 or sun7=205 or sun7=305. compute xmain58=13. compute xmain59=13. compute xmain60=13. compute xav58=1. compute xav59=1. compute xav60=1. Else if sun7=20 or sun7=220 or sun7=320 or sun7=21 or sun7=221 or sun7=321 or sun7=620. compute xmain58=15. compute xmain59=15. compute xmain60=15. compute xav58=4. compute xav59=4. compute xav60=4. Else if sun7=171 or sun7=471 or sun7=571 or sun7=172 or sun7=472 or sun7=572. compute xmain58=16. compute xmain59=16. compute xmain60=16. compute xav58=33. compute xav59=33. compute xav60=33. Else if sun7=22 or sun7=222 or sun7=322. compute xmain58=17. compute xmain59=17. compute xmain60=17. compute xav58=4. compute xav59=4. compute xav60=4. Else if sun7=27 or sun7=227 or sun7=327. compute xmain58=17. compute xmain59=17. compute xmain60=17. compute xav58=25. compute xav59=25. compute xav60=25. compute xsec58=64. compute xsec59=64. compute xsec60=64. Else if sun7=100 or sun7=400 or sun7=500 or sun7=700. compute xmain58=18. compute xmain59=18. compute xmain60=18. compute xav58=6. compute xav59=6. compute xav60=6. Else if sun7=101 or sun7=401 or sun7=501 or sun7=701. compute xmain58=19. compute xmain59=19. compute xmain60=19. compute xav58=6. compute xav59=6. compute xav60=6. Else if sun7=102 or sun7=402 or sun7=502 or sun7=702 or sun7=103 or sun7=403 or sun7=503 or sun7=703. compute xmain58=20. compute xmain59=20. compute xmain60=20. compute xav58=7. compute xav59=7. compute xav60=7. Else if sun7=104 or sun7=404 or sun7=504 or sun7=704. compute xmain58=21. compute xmain59=21. compute xmain60=21. compute xav58=7. compute xav59=7. compute xav60=7. Else if sun7=105 or sun7=405 or sun7=505 or sun7=705. compute xmain58=21. compute xmain59=21. compute xmain60=21. compute xav58=8. compute xav59=8. compute xav60=8. Else if sun7=106 or sun7=406 or sun7=506 or sun7=706 or sun7=107 or sun7=407 or sun7=507 or sun7=707. compute xmain58=22. compute xmain59=22. compute xmain60=22. compute xav58=8. compute xav59=8. compute xav60=8. Else if sun7=110 or sun7=410 or sun7=510 or sun7=710. compute xmain58=23. compute xmain59=23. compute xmain60=23. compute xav58=8. compute xav59=8. compute xav60=8. Else if sun7=30 or sun7=230 or sun7=330 or sun7=630 or sun7=31 or sun7=231 or sun7=331 or sun7=36 or sun7=236 or sun7=336 or sun7=38 or sun7=238 or sun7=338. compute xmain58=24. compute xmain59=24. compute xmain60=24. compute xav58=10. compute xav59=10. compute xav60=10. Else if sun7=32 or sun7=232 or sun7=332 or sun7=632 or sun7=33 or sun7=233 or sun7=333 or sun7=633 or sun7=34 or sun7=234 or sun7=334 or sun7=131 or sun7=431 or sun7=531 or sun16=731. compute xmain58=25. compute xmain59=25. compute xmain60=25. compute xav58=14. compute xav59=14. compute xav60=14. Else if sun7=37 or sun7=237 or sun7=337 or sun7=637. compute xmain58=26. compute xmain59=26. compute xmain60=26. compute xav58=10. compute xav59=10. compute xav60=10. Else if sun7=108 or sun7=408 or sun7=508 or sun7=708. compute xmain58=27. compute xmain59=27. compute xmain60=27. compute xav58=8. compute xav59=8. compute xav60=8. Else if sun7=35 or sun7=235 or sun7=335 or sun7=635 or sun7=120 or sun7=420 or sun7=520 or sun7=720 or sun7=121 or sun7=421 or sun7=521 or sun7=721. compute xmain58=28. compute xmain59=28. compute xmain60=28. compute xav58=11. compute xav59=11. compute xav60=11. Else if sun7=123 or sun7=423 or sun7=523 or sun7=723. compute xmain58=29. compute xmain59=29. compute xmain60=29. compute xav58=11. compute xav59=11. compute xav60=11. Else if sun7=122 or sun7=422 or sun7=522. compute xmain58=30. compute xmain59=30. compute xmain60=30. compute xav58=11. compute xav59=11. compute xav60=11. Else if sun7=124 or sun7=424 or sun7=524 or sun7=724. compute xmain58=30. compute xmain59=30. compute xmain60=30. compute xav58=11. compute xav59=11. compute xav60=11. compute xsec58=43. compute xsec59=43. compute xsec60=43. Else if sun7=125 or sun7=425 or sun7=525 or sun7=725. compute xmain58=31. compute xmain59=31. compute xmain60=31. compute xav58=11. compute xav59=11. compute xav60=11. Else if sun7=133 or sun7=433 or sun7=533 or sun7=733. compute xmain58=32. compute xmain59=32. compute xmain60=32. compute xav58=8. compute xav59=8. compute xav60=8. Else if sun7=23 or sun7=223 or sun7=323 or sun7=51 or sun7=251 or sun7=351 or sun7=651 or sun7=52 or sun7=252 or sun7=352 or sun7=652 or sun7=53 or sun7=253 or sun7=353 or sun7=54 or sun7=254 or sun7=354 or sun7=654 or sun7=55 or sun7=255 or sun7=355 or sun7=56 or sun7=256 or sun7=356 or sun7=57 or sun7=257 or sun7=357 or sun7=657 or sun7=58 or sun7=258 or sun7=358 or sun7=658. compute xmain58=33. compute xmain59=33. compute xmain60=33. compute xav58=23. compute xav59=23. compute xav60=23. Else if sun7=50 or sun7=250 or sun7=350 or sun7=650 or sun7=132 or sun7=432 or sun7=532. compute xmain58=34. compute xmain59=34. compute xmain60=34. compute xav58=22. compute xav59=22. compute xav60=22. Else if sun7=66 or sun7=266 or sun7=366. compute xmain58=35. compute xmain59=35. compute xmain60=35. compute xav58=18. compute xav59=18. compute xav60=18. Else if sun7=95 or sun7=295 or sun7=395. compute xmain58=35. compute xmain59=35. compute xmain60=35. compute xav58=25. compute xav59=25. compute xav60=25. Else if sun7=73 or sun7=273 or sun7=373. compute xmain58=36. compute xmain59=36. compute xmain60=36. compute xav58=20. compute xav59=20. compute xav60=20. Else if sun7=70 or sun7=270 or sun7=370 or sun7=71 or sun7=271 or sun7=371 or sun7=72 or sun7=272 or sun7=372. compute xmain58=37. compute xmain59=37. compute xmain60=37. compute xav58=24. compute xav59=24. compute xav60=24. Else if sun7=63 or sun7=263 or sun7=363 or sun7=64 or sun7=264 or sun7=364 or sun7=65 or sun7=265 or sun7=365. compute xmain58=38. compute xmain59=38. compute xmain60=38. compute xav58=18. compute xav59=18. compute xav60=18. Else if sun7=77 or sun7=277 or sun7=377. compute xmain58=39. compute xmain59=39. compute xmain60=39. compute xav58=27. compute xav59=27. compute xav60=27. Else if sun7=80 or sun7=280 or sun7=380 or sun7=81 or sun7=281 or sun7=381. compute xmain58=39. compute xmain59=39. compute xmain60=39. compute xav58=28. compute xav59=28. compute xav60=28. Else if sun7=78 or sun7=278 or sun7=378 or sun7=79 or sun7=279 or sun7=379. compute xmain58=40. compute xmain59=40. compute xmain60=40. compute xav58=26. compute xav59=26. compute xav60=26. Else if sun7=82 or sun7=282 or sun7=382. compute xmain58=40. compute xmain59=40. compute xmain60=40. compute xav58=25. compute xav59=25. compute xav60=25. Else if sun7=900. compute xmain58=41. compute xmain59=41. compute xmain60=41. Else if sun7=60 or sun7=260 or sun7=360. compute xmain58=42. compute xmain59=42. compute xmain60=42. compute xav58=19. compute xav59=19. compute xav60=19. Else if sun7=61 or sun7=261 or sun7=361 or sun7=661. compute xmain58=43. compute xmain59=43. compute xmain60=43. compute xav58=21. compute xav59=21. compute xav60=21. Else if sun7=62 or sun7=262 or sun7=362. compute xmain58=46. compute xmain59=46. compute xmain60=46. compute xav58=19. compute xav59=19. compute xav60=19. Else if sun7=109 or sun7=409 or sun7=509 or sun7=709. compute xmain58=46. compute xmain59=46. compute xmain60=46. compute xav58=9. compute xav59=9. compute xav60=9. Else if sun7=75 or sun7=275 or sun7=375. compute xmain58=48. compute xmain59=48. compute xmain60=48. compute xav58=29. compute xav59=29. compute xav60=29. compute xsec58=6. compute xsec59=6. compute xsec60=6. Else if sun7=76 or sun7=276 or sun7=376. compute xmain58=48. compute xmain59=48. compute xmain60=48. compute xav58=29. compute xav59=29. compute xav60=29. Else if sun7=190 or sun7=490 or sun7=590. compute xmain58=48. compute xmain59=48. compute xmain60=48. compute xav58=38. compute xav59=38. compute xav60=38. compute xsec58=6. compute xsec59=6. compute xsec60=6. Else if sun7=191 or sun7=491 or sun7=591 or sun7=91. compute xmain58=48. compute xmain59=48. compute xmain60=48. compute xav58=38. compute xav59=38. compute xav60=38. Else if sun7=192 or sun7=492 or sun7=592 or sun7=792. compute xmain58=49. compute xmain59=49. compute xmain60=49. compute xav58=37. compute xav59=37. compute xav60=37. Else if sun7=193 or sun7=493 or sun7=593 or sun7=793 or sun7=682. compute xmain58=50. compute xmain59=50. compute xmain60=50. compute xav58=40. compute xav59=40. compute xav60=40. Else if sun7=199 or sun7=499 or sun7=599. compute xmain58=51. compute xmain59=51. compute xmain60=51. compute xav58=36. compute xav59=36. compute xav60=36. Else if sun7=177 or sun7=477 or sun7=577 or sun7=777 or sun7=179 or sun7=479 or sun7=579 or sun7=779. compute xmain58=52. compute xmain59=52. compute xmain60=52. compute xav58=40. compute xav59=40. compute xav60=40. Else if sun7=180 or sun7=480 or sun7=580 or sun7=780. compute xmain58=53. compute xmain59=53. compute xmain60=53. compute xav58=40. compute xav59=40. compute xav60=40. Else if sun7=176 or sun7=476 or sun7=576 or sun7=776 or sun7=181 or sun7=481 or sun7=581 or sun7=781. compute xmain58=54. compute xmain59=54. compute xmain60=54. compute xav58=40. compute xav59=40. compute xav60=40. Else if sun7=178 or sun7=478 or sun7=578 or sun7=778. compute xmain58=54. compute xmain59=54. compute xmain60=54. compute xav58=39. compute xav59=39. compute xav60=39. Else if sun7=163 or sun7=463 or sun7=563 or sun7=763 or sun7=164 or sun7=464 or sun7=564 or sun7=764. compute xmain58=55. compute xmain59=55. compute xmain60=55. compute xav58=36. compute xav59=36. compute xav60=36. Else if sun7=173 or sun7=473 or sun7=573 or sun7=773 or sun7=873. compute xmain58=56. compute xmain59=56. compute xmain60=56. compute xav58=34. compute xav59=34. compute xav60=34. Else if sun7=174 or sun7=474 or sun7=574 or sun7=875 or sun7=175 or sun7=475 or sun7=575 or sun7=775. compute xmain58=56. compute xmain59=56. compute xmain60=56. compute xav58=35. compute xav59=35. compute xav60=35. Else if sun7=162 or sun7=462 or sun7=562 or sun7=762. compute xmain58=57. compute xmain59=57. compute xmain60=57. compute xav58=32. compute xav59=32. compute xav60=32. Else if sun7=160 or sun7=460 or sun7=560 or sun7=760. compute xmain58=58. compute xmain59=58. compute xmain60=58. compute xav58=30. compute xav59=30. compute xav60=30. Else if sun7=161 or sun7=461 or sun7=561 or sun7=761 or sun7=165 or sun7=465 or sun7=565 or sun7=765. compute xmain58=59. compute xmain59=59. compute xmain60=59. compute xav58=31. compute xav59=31. compute xav60=31. Else if sun7=692. compute xmain58=62. compute xmain59=62. compute xmain60=62. compute xav58=17. compute xav59=17. compute xav60=17. Else if sun7=9 or sun7=209 or sun7=309 or sun7=10 or sun7=210 or sun7=310 or sun7=610 or sun7=11 or sun7=211 or sun7=311. compute xmain58=63. compute xmain59=63. compute xmain60=63. compute xav58=5. compute xav59=5. compute xav60=5. Else if sun7=24 or sun7=224 or sun7=324 or sun7=25 or sun7=225 or sun7=325 or sun7=26 or sun7=226 or sun7=326. compute xmain58=64. compute xmain59=64. compute xmain60=64. compute xav58=5. compute xav59=5. compute xav60=5. Else if sun7=59 or sun7=259 or sun7=359. compute xmain58=65. compute xmain59=65. compute xmain60=65. compute xav58=17. compute xav59=17. compute xav60=17. Else if sun7=39 or sun7=239 or sun7=339 or sun7=40 or sun7=240 or sun7=340 or sun7=640. compute xmain58=67. compute xmain59=67. compute xmain60=67. compute xav58=12. compute xav59=12. compute xav60=12. Else if sun7=67 or sun7=267 or sun7=367 or sun7=74 or sun7=274 or sun7=374 or sun7=83 or sun7=283 or sun7=383 or sun7=90 or sun7=290 or sun7=390. compute xmain58=68. compute xmain59=68. compute xmain60=68. compute xav58=17. compute xav59=17. compute xav60=17. Else. compute residual=sun7. End if. Do if (sun7>199 and sun7<300) or (sun7>399 and sun7<500). compute xsec58=58. compute xsec59=58. compute xsec60=58. Else if (sun7>299 and sun7<400) or (sun7>499 and sun7<600). compute xsec58=59. compute xsec59=59. compute xsec60=59. End if. freq residual. compute residual=0. Do if sun8=150 or sun8=151 or sun8=152 or sun8=153 or sun8=159 or sun8=750 or sun8=450 or sun8=451 or sun8=452 or sun8=453 or sun8=459 or sun8=550 or sun8=551 or sun8=552 or sun8=553 or sun8=559 or sun8=752. compute xmain61=2. compute xmain62=2. compute xmain63=2. compute xav61=16. compute xav62=16. compute xav63=16. Else if sun8=130 or sun8=136 or sun8=430 or sun8=436 or sun8=530 or sun8=536 or sun8=730 or sun8=619. compute xmain61=4. compute xmain62=4. compute xmain63=4. compute xav61=13. compute xav62=13. compute xav63=13. Else if sun8=6 or sun8=206 or sun8=306. compute xmain61=5. compute xmain62=5. compute xmain63=5. compute xav61=1. compute xav62=1. compute xav63=1. Else if sun8=140 or sun8=141 or sun8=142 or sun8=144 or sun8=440 or sun8=441 or sun8=442 or sun8=444 or sun8=540 or sun8=541 or sun8=542 or sun8=544 or sun8=740 or sun8=741 or sun8=840 or sun8=841. compute xmain61=6. compute xmain62=6. compute xmain63=6. compute xav61=15. compute xav62=15. compute xav63=15. Else if sun8=1 or sun8=2 or sun8=13 or sun8=201 or sun8=202 or sun8=213 or sun8=301 or sun8=302 or sun8=313 or sun8=770 or sun8=200. compute xmain61=7. compute xmain62=7. compute xmain63=7. compute xav61=1. compute xav62=1. compute xav63=1. Else if sun8=170 or sun8=470 or sun8=570 or sun8=601 or sun8=603 or sun8=605. compute xmain61=8. compute xmain62=8. compute xmain63=8. compute xav61=2. compute xav62=2. compute xav63=2. Else if sun8=3 or sun8=203 or sun8=303. compute xmain61=9. compute xmain62=9. compute xmain63=9. compute xav61=3. compute xav62=3. compute xav63=3. Else if sun8=12 or sun8=212 or sun8=312 or sun8=612. compute xmain61=11. compute xmain62=11. compute xmain63=11. compute xav61=1. compute xav62=1. compute xav63=1. Else if sun8=7 or sun8=207 or sun8=307 or sun8=607. compute xmain61=12. compute xmain62=12. compute xmain63=12. compute xav61=1. compute xav62=1. compute xav63=1. compute xsec61=6. compute xsec62=6. compute xsec63=6. Else if sun8=8 or sun8=208 or sun8=308. compute xmain61=12. compute xmain62=12. compute xmain63=12. compute xav61=1. compute xav62=1. compute xav63=1. Else if sun8=4 or sun8=204 or sun8=304 or sun8=5 or sun8=205 or sun8=305. compute xmain61=13. compute xmain62=13. compute xmain63=13. compute xav61=1. compute xav62=1. compute xav63=1. Else if sun8=20 or sun8=220 or sun8=320 or sun8=21 or sun8=221 or sun8=321 or sun8=620. compute xmain61=15. compute xmain62=15. compute xmain63=15. compute xav61=4. compute xav62=4. compute xav63=4. Else if sun8=171 or sun8=471 or sun8=571 or sun8=172 or sun8=472 or sun8=572. compute xmain61=16. compute xmain62=16. compute xmain63=16. compute xav61=33. compute xav62=33. compute xav63=33. Else if sun8=22 or sun8=222 or sun8=322. compute xmain61=17. compute xmain62=17. compute xmain63=17. compute xav61=4. compute xav62=4. compute xav63=4. Else if sun8=27 or sun8=227 or sun8=327. compute xmain61=17. compute xmain62=17. compute xmain63=17. compute xav61=25. compute xav62=25. compute xav63=25. compute xsec61=64. compute xsec62=64. compute xsec63=64. Else if sun8=100 or sun8=400 or sun8=500 or sun8=700. compute xmain61=18. compute xmain62=18. compute xmain63=18. compute xav61=6. compute xav62=6. compute xav63=6. Else if sun8=101 or sun8=401 or sun8=501 or sun8=701 or sun8=801. compute xmain61=19. compute xmain62=19. compute xmain63=19. compute xav61=6. compute xav62=6. compute xav63=6. Else if sun8=102 or sun8=402 or sun8=502 or sun8=702 or sun8=103 or sun8=403 or sun8=503 or sun8=703. compute xmain61=20. compute xmain62=20. compute xmain63=20. compute xav61=7. compute xav62=7. compute xav63=7. Else if sun8=104 or sun8=404 or sun8=504 or sun8=704. compute xmain61=21. compute xmain62=21. compute xmain63=21. compute xav61=7. compute xav62=7. compute xav63=7. Else if sun8=105 or sun8=405 or sun8=505 or sun8=705. compute xmain61=21. compute xmain62=21. compute xmain63=21. compute xav61=8. compute xav62=8. compute xav63=8. Else if sun8=106 or sun8=406 or sun8=506 or sun8=706 or sun8=107 or sun8=407 or sun8=507 or sun8=707. compute xmain61=22. compute xmain62=22. compute xmain63=22. compute xav61=8. compute xav62=8. compute xav63=8. Else if sun8=110 or sun8=410 or sun8=510 or sun8=710. compute xmain61=23. compute xmain62=23. compute xmain63=23. compute xav61=8. compute xav62=8. compute xav63=8. Else if sun8=30 or sun8=230 or sun8=330 or sun8=630 or sun8=31 or sun8=231 or sun8=331 or sun8=36 or sun8=236 or sun8=336 or sun8=38 or sun8=238 or sun8=338. compute xmain61=24. compute xmain62=24. compute xmain63=24. compute xav61=10. compute xav62=10. compute xav63=10. Else if sun8=32 or sun8=232 or sun8=332 or sun8=632 or sun8=33 or sun8=233 or sun8=333 or sun8=633 or sun8=34 or sun8=234 or sun8=334 or sun8=131 or sun8=431 or sun8=531 or sun16=731. compute xmain61=25. compute xmain62=25. compute xmain63=25. compute xav61=14. compute xav62=14. compute xav63=14. Else if sun8=37 or sun8=237 or sun8=337 or sun8=637. compute xmain61=26. compute xmain62=26. compute xmain63=26. compute xav61=10. compute xav62=10. compute xav63=10. Else if sun8=108 or sun8=408 or sun8=508 or sun8=708. compute xmain61=27. compute xmain62=27. compute xmain63=27. compute xav61=8. compute xav62=8. compute xav63=8. Else if sun8=35 or sun8=235 or sun8=335 or sun8=635 or sun8=120 or sun8=420 or sun8=520 or sun8=720 or sun8=121 or sun8=421 or sun8=521 or sun8=721. compute xmain61=28. compute xmain62=28. compute xmain63=28. compute xav61=11. compute xav62=11. compute xav63=11. Else if sun8=123 or sun8=423 or sun8=523 or sun8=723. compute xmain61=29. compute xmain62=29. compute xmain63=29. compute xav61=11. compute xav62=11. compute xav63=11. Else if sun8=122 or sun8=422 or sun8=522. compute xmain61=30. compute xmain62=30. compute xmain63=30. compute xav61=11. compute xav62=11. compute xav63=11. Else if sun8=124 or sun8=424 or sun8=524 or sun8=724. compute xmain61=30. compute xmain62=30. compute xmain63=30. compute xav61=11. compute xav62=11. compute xav63=11. compute xsec61=43. compute xsec62=43. compute xsec63=43. Else if sun8=125 or sun8=425 or sun8=525 or sun8=725. compute xmain61=31. compute xmain62=31. compute xmain63=31. compute xav61=11. compute xav62=11. compute xav63=11. Else if sun8=133 or sun8=433 or sun8=533 or sun8=733. compute xmain61=32. compute xmain62=32. compute xmain63=32. compute xav61=8. compute xav62=8. compute xav63=8. Else if sun8=23 or sun8=223 or sun8=323 or sun8=51 or sun8=251 or sun8=351 or sun8=651 or sun8=52 or sun8=252 or sun8=352 or sun8=652 or sun8=53 or sun8=253 or sun8=353 or sun8=54 or sun8=254 or sun8=354 or sun8=654 or sun8=55 or sun8=255 or sun8=355 or sun8=56 or sun8=256 or sun8=356 or sun8=57 or sun8=257 or sun8=357 or sun8=657 or sun8=58 or sun8=258 or sun8=358 or sun8=658. compute xmain61=33. compute xmain62=33. compute xmain63=33. compute xav61=23. compute xav62=23. compute xav63=23. Else if sun8=50 or sun8=250 or sun8=350 or sun8=650 or sun8=132 or sun8=432 or sun8=532. compute xmain61=34. compute xmain62=34. compute xmain63=34. compute xav61=22. compute xav62=22. compute xav63=22. Else if sun8=66 or sun8=266 or sun8=366. compute xmain61=35. compute xmain62=35. compute xmain63=35. compute xav61=18. compute xav62=18. compute xav63=18. Else if sun8=95 or sun8=295 or sun8=395. compute xmain61=35. compute xmain62=35. compute xmain63=35. compute xav61=25. compute xav62=25. compute xav63=25. Else if sun8=73 or sun8=273 or sun8=373. compute xmain61=36. compute xmain62=36. compute xmain63=36. compute xav61=20. compute xav62=20. compute xav63=20. Else if sun8=70 or sun8=270 or sun8=370 or sun8=71 or sun8=271 or sun8=371 or sun8=72 or sun8=272 or sun8=372. compute xmain61=37. compute xmain62=37. compute xmain63=37. compute xav61=24. compute xav62=24. compute xav63=24. Else if sun8=63 or sun8=263 or sun8=363 or sun8=64 or sun8=264 or sun8=364 or sun8=65 or sun8=265 or sun8=365. compute xmain61=38. compute xmain62=38. compute xmain63=38. compute xav61=18. compute xav62=18. compute xav63=18. Else if sun8=77 or sun8=277 or sun8=377. compute xmain61=39. compute xmain62=39. compute xmain63=39. compute xav61=27. compute xav62=27. compute xav63=27. Else if sun8=80 or sun8=280 or sun8=380 or sun8=81 or sun8=281 or sun8=381. compute xmain61=39. compute xmain62=39. compute xmain63=39. compute xav61=28. compute xav62=28. compute xav63=28. Else if sun8=78 or sun8=278 or sun8=378 or sun8=79 or sun8=279 or sun8=379. compute xmain61=40. compute xmain62=40. compute xmain63=40. compute xav61=26. compute xav62=26. compute xav63=26. Else if sun8=82 or sun8=282 or sun8=382. compute xmain61=40. compute xmain62=40. compute xmain63=40. compute xav61=25. compute xav62=25. compute xav63=25. Else if sun8=900. compute xmain61=41. compute xmain62=41. compute xmain63=41. Else if sun8=60 or sun8=260 or sun8=360. compute xmain61=42. compute xmain62=42. compute xmain63=42. compute xav61=19. compute xav62=19. compute xav63=19. Else if sun8=61 or sun8=261 or sun8=361 or sun8=661. compute xmain61=43. compute xmain62=43. compute xmain63=43. compute xav61=21. compute xav62=21. compute xav63=21. Else if sun8=62 or sun8=262 or sun8=362. compute xmain61=46. compute xmain62=46. compute xmain63=46. compute xav61=19. compute xav62=19. compute xav63=19. Else if sun8=109 or sun8=409 or sun8=509 or sun8=709. compute xmain61=46. compute xmain62=46. compute xmain63=46. compute xav61=9. compute xav62=9. compute xav63=9. Else if sun8=75 or sun8=275 or sun8=375. compute xmain61=48. compute xmain62=48. compute xmain63=48. compute xav61=29. compute xav62=29. compute xav63=29. compute xsec61=6. compute xsec62=6. compute xsec63=6. Else if sun8=76 or sun8=276 or sun8=376. compute xmain61=48. compute xmain62=48. compute xmain63=48. compute xav61=29. compute xav62=29. compute xav63=29. Else if sun8=190 or sun8=490 or sun8=590. compute xmain61=48. compute xmain62=48. compute xmain63=48. compute xav61=38. compute xav62=38. compute xav63=38. compute xsec61=6. compute xsec62=6. compute xsec63=6. Else if sun8=191 or sun8=491 or sun8=591 or sun8=91. compute xmain61=48. compute xmain62=48. compute xmain63=48. compute xav61=38. compute xav62=38. compute xav63=38. Else if sun8=192 or sun8=492 or sun8=592 or sun8=792 or sun8=92. compute xmain61=49. compute xmain62=49. compute xmain63=49. compute xav61=37. compute xav62=37. compute xav63=37. Else if sun8=193 or sun8=493 or sun8=593 or sun8=793 or sun8=682. compute xmain61=50. compute xmain62=50. compute xmain63=50. compute xav61=40. compute xav62=40. compute xav63=40. Else if sun8=199 or sun8=499 or sun8=599. compute xmain61=51. compute xmain62=51. compute xmain63=51. compute xav61=36. compute xav62=36. compute xav63=36. Else if sun8=177 or sun8=477 or sun8=577 or sun8=777 or sun8=179 or sun8=479 or sun8=579 or sun8=779. compute xmain61=52. compute xmain62=52. compute xmain63=52. compute xav61=40. compute xav62=40. compute xav63=40. Else if sun8=180 or sun8=480 or sun8=580 or sun8=780. compute xmain61=53. compute xmain62=53. compute xmain63=53. compute xav61=40. compute xav62=40. compute xav63=40. Else if sun8=176 or sun8=476 or sun8=576 or sun8=776 or sun8=181 or sun8=481 or sun8=581 or sun8=781 or sun8=485. compute xmain61=54. compute xmain62=54. compute xmain63=54. compute xav61=40. compute xav62=40. compute xav63=40. Else if sun8=178 or sun8=478 or sun8=578 or sun8=778. compute xmain61=54. compute xmain62=54. compute xmain63=54. compute xav61=39. compute xav62=39. compute xav63=39. Else if sun8=163 or sun8=463 or sun8=563 or sun8=763 or sun8=164 or sun8=464 or sun8=564 or sun8=764. compute xmain61=55. compute xmain62=55. compute xmain63=55. compute xav61=36. compute xav62=36. compute xav63=36. Else if sun8=173 or sun8=473 or sun8=573 or sun8=773 or sun8=873. compute xmain61=56. compute xmain62=56. compute xmain63=56. compute xav61=34. compute xav62=34. compute xav63=34. Else if sun8=174 or sun8=474 or sun8=574 or sun8=875 or sun8=175 or sun8=475 or sun8=575 or sun8=775. compute xmain61=56. compute xmain62=56. compute xmain63=56. compute xav61=35. compute xav62=35. compute xav63=35. Else if sun8=162 or sun8=462 or sun8=562 or sun8=762. compute xmain61=57. compute xmain62=57. compute xmain63=57. compute xav61=32. compute xav62=32. compute xav63=32. Else if sun8=160 or sun8=460 or sun8=560 or sun8=760. compute xmain61=58. compute xmain62=58. compute xmain63=58. compute xav61=30. compute xav62=30. compute xav63=30. Else if sun8=161 or sun8=461 or sun8=561 or sun8=761 or sun8=165 or sun8=465 or sun8=565 or sun8=765. compute xmain61=59. compute xmain62=59. compute xmain63=59. compute xav61=31. compute xav62=31. compute xav63=31. Else if sun8=692. compute xmain61=62. compute xmain62=62. compute xmain63=62. compute xav61=17. compute xav62=17. compute xav63=17. Else if sun8=9 or sun8=209 or sun8=309 or sun8=10 or sun8=210 or sun8=310 or sun8=610 or sun8=11 or sun8=211 or sun8=311. compute xmain61=63. compute xmain62=63. compute xmain63=63. compute xav61=5. compute xav62=5. compute xav63=5. Else if sun8=24 or sun8=224 or sun8=324 or sun8=25 or sun8=225 or sun8=325 or sun8=26 or sun8=226 or sun8=326. compute xmain61=64. compute xmain62=64. compute xmain63=64. compute xav61=5. compute xav62=5. compute xav63=5. Else if sun8=59 or sun8=259 or sun8=359. compute xmain61=65. compute xmain62=65. compute xmain63=65. compute xav61=17. compute xav62=17. compute xav63=17. Else if sun8=39 or sun8=239 or sun8=339 or sun8=40 or sun8=240 or sun8=340 or sun8=640. compute xmain61=67. compute xmain62=67. compute xmain63=67. compute xav61=12. compute xav62=12. compute xav63=12. Else if sun8=67 or sun8=267 or sun8=367 or sun8=74 or sun8=274 or sun8=374 or sun8=83 or sun8=283 or sun8=383 or sun8=90 or sun8=290 or sun8=390. compute xmain61=68. compute xmain62=68. compute xmain63=68. compute xav61=17. compute xav62=17. compute xav63=17. Else. compute residual=sun8. End if. Do if (sun8>199 and sun8<300) or (sun8>399 and sun8<500). compute xsec61=58. compute xsec62=58. compute xsec63=58. Else if (sun8>299 and sun8<400) or (sun8>499 and sun8<600). compute xsec61=59. compute xsec62=59. compute xsec63=59. End if. freq residual. compute residual=0. Do if sun9=150 or sun9=151 or sun9=152 or sun9=153 or sun9=159 or sun9=750 or sun9=450 or sun9=451 or sun9=452 or sun9=453 or sun9=459 or sun9=550 or sun9=551 or sun9=552 or sun9=553 or sun9=559 or sun9=752. compute xmain64=2. compute xmain65=2. compute xmain66=2. compute xav64=16. compute xav65=16. compute xav66=16. Else if sun9=130 or sun9=136 or sun9=430 or sun9=436 or sun9=530 or sun9=536 or sun9=730 or sun9=619. compute xmain64=4. compute xmain65=4. compute xmain66=4. compute xav64=13. compute xav65=13. compute xav66=13. Else if sun9=6 or sun9=206 or sun9=306. compute xmain64=5. compute xmain65=5. compute xmain66=5. compute xav64=1. compute xav65=1. compute xav66=1. Else if sun9=140 or sun9=141 or sun9=142 or sun9=144 or sun9=440 or sun9=441 or sun9=442 or sun9=444 or sun9=540 or sun9=541 or sun9=542 or sun9=544 or sun9=740 or sun9=741 or sun9=840 or sun9=841. compute xmain64=6. compute xmain65=6. compute xmain66=6. compute xav64=15. compute xav65=15. compute xav66=15. Else if sun9=1 or sun9=2 or sun9=13 or sun9=201 or sun9=202 or sun9=213 or sun9=301 or sun9=302 or sun9=313 or sun9=770 or sun9=200. compute xmain64=7. compute xmain65=7. compute xmain66=7. compute xav64=1. compute xav65=1. compute xav66=1. Else if sun9=170 or sun9=470 or sun9=570 or sun9=601 or sun9=603 or sun9=605. compute xmain64=8. compute xmain65=8. compute xmain66=8. compute xav64=2. compute xav65=2. compute xav66=2. Else if sun9=3 or sun9=203 or sun9=303. compute xmain64=9. compute xmain65=9. compute xmain66=9. compute xav64=3. compute xav65=3. compute xav66=3. Else if sun9=12 or sun9=212 or sun9=312 or sun9=612. compute xmain64=11. compute xmain65=11. compute xmain66=11. compute xav64=1. compute xav65=1. compute xav66=1. Else if sun9=7 or sun9=207 or sun9=307 or sun9=607. compute xmain64=12. compute xmain65=12. compute xmain66=12. compute xav64=1. compute xav65=1. compute xav66=1. compute xsec64=6. compute xsec65=6. compute xsec66=6. Else if sun9=8 or sun9=208 or sun9=308. compute xmain64=12. compute xmain65=12. compute xmain66=12. compute xav64=1. compute xav65=1. compute xav66=1. Else if sun9=4 or sun9=204 or sun9=304 or sun9=5 or sun9=205 or sun9=305. compute xmain64=13. compute xmain65=13. compute xmain66=13. compute xav64=1. compute xav65=1. compute xav66=1. Else if sun9=20 or sun9=220 or sun9=320 or sun9=21 or sun9=221 or sun9=321 or sun9=620. compute xmain64=15. compute xmain65=15. compute xmain66=15. compute xav64=4. compute xav65=4. compute xav66=4. Else if sun9=171 or sun9=471 or sun9=571 or sun9=172 or sun9=472 or sun9=572. compute xmain64=16. compute xmain65=16. compute xmain66=16. compute xav64=33. compute xav65=33. compute xav66=33. Else if sun9=22 or sun9=222 or sun9=322. compute xmain64=17. compute xmain65=17. compute xmain66=17. compute xav64=4. compute xav65=4. compute xav66=4. Else if sun9=27 or sun9=227 or sun9=327. compute xmain64=17. compute xmain65=17. compute xmain66=17. compute xav64=25. compute xav65=25. compute xav66=25. compute xsec64=64. compute xsec65=64. compute xsec66=64. Else if sun9=100 or sun9=400 or sun9=500 or sun9=700. compute xmain64=18. compute xmain65=18. compute xmain66=18. compute xav64=6. compute xav65=6. compute xav66=6. Else if sun9=101 or sun9=401 or sun9=501 or sun9=701 or sun9=801. compute xmain64=19. compute xmain65=19. compute xmain66=19. compute xav64=6. compute xav65=6. compute xav66=6. Else if sun9=102 or sun9=402 or sun9=502 or sun9=702 or sun9=103 or sun9=403 or sun9=503 or sun9=703. compute xmain64=20. compute xmain65=20. compute xmain66=20. compute xav64=7. compute xav65=7. compute xav66=7. Else if sun9=104 or sun9=404 or sun9=504 or sun9=704. compute xmain64=21. compute xmain65=21. compute xmain66=21. compute xav64=7. compute xav65=7. compute xav66=7. Else if sun9=105 or sun9=405 or sun9=505 or sun9=705. compute xmain64=21. compute xmain65=21. compute xmain66=21. compute xav64=8. compute xav65=8. compute xav66=8. Else if sun9=106 or sun9=406 or sun9=506 or sun9=706 or sun9=107 or sun9=407 or sun9=507 or sun9=707. compute xmain64=22. compute xmain65=22. compute xmain66=22. compute xav64=8. compute xav65=8. compute xav66=8. Else if sun9=110 or sun9=410 or sun9=510 or sun9=710. compute xmain64=23. compute xmain65=23. compute xmain66=23. compute xav64=8. compute xav65=8. compute xav66=8. Else if sun9=30 or sun9=230 or sun9=330 or sun9=630 or sun9=31 or sun9=231 or sun9=331 or sun9=36 or sun9=236 or sun9=336 or sun9=38 or sun9=238 or sun9=338. compute xmain64=24. compute xmain65=24. compute xmain66=24. compute xav64=10. compute xav65=10. compute xav66=10. Else if sun9=32 or sun9=232 or sun9=332 or sun9=632 or sun9=33 or sun9=233 or sun9=333 or sun9=633 or sun9=34 or sun9=234 or sun9=334 or sun9=131 or sun9=431 or sun9=531 or sun16=731. compute xmain64=25. compute xmain65=25. compute xmain66=25. compute xav64=14. compute xav65=14. compute xav66=14. Else if sun9=37 or sun9=237 or sun9=337 or sun9=637. compute xmain64=26. compute xmain65=26. compute xmain66=26. compute xav64=10. compute xav65=10. compute xav66=10. Else if sun9=108 or sun9=408 or sun9=508 or sun9=708. compute xmain64=27. compute xmain65=27. compute xmain66=27. compute xav64=8. compute xav65=8. compute xav66=8. Else if sun9=35 or sun9=235 or sun9=335 or sun9=635 or sun9=120 or sun9=420 or sun9=520 or sun9=720 or sun9=121 or sun9=421 or sun9=521 or sun9=721. compute xmain64=28. compute xmain65=28. compute xmain66=28. compute xav64=11. compute xav65=11. compute xav66=11. Else if sun9=123 or sun9=423 or sun9=523 or sun9=723. compute xmain64=29. compute xmain65=29. compute xmain66=29. compute xav64=11. compute xav65=11. compute xav66=11. Else if sun9=122 or sun9=422 or sun9=522. compute xmain64=30. compute xmain65=30. compute xmain66=30. compute xav64=11. compute xav65=11. compute xav66=11. Else if sun9=124 or sun9=424 or sun9=524 or sun9=724. compute xmain64=30. compute xmain65=30. compute xmain66=30. compute xav64=11. compute xav65=11. compute xav66=11. compute xsec64=43. compute xsec65=43. compute xsec66=43. Else if sun9=125 or sun9=425 or sun9=525 or sun9=725. compute xmain64=31. compute xmain65=31. compute xmain66=31. compute xav64=11. compute xav65=11. compute xav66=11. Else if sun9=133 or sun9=433 or sun9=533 or sun9=733. compute xmain64=32. compute xmain65=32. compute xmain66=32. compute xav64=8. compute xav65=8. compute xav66=8. Else if sun9=23 or sun9=223 or sun9=323 or sun9=51 or sun9=251 or sun9=351 or sun9=651 or sun9=52 or sun9=252 or sun9=352 or sun9=652 or sun9=53 or sun9=253 or sun9=353 or sun9=54 or sun9=254 or sun9=354 or sun9=654 or sun9=55 or sun9=255 or sun9=355 or sun9=56 or sun9=256 or sun9=356 or sun9=57 or sun9=257 or sun9=357 or sun9=657 or sun9=58 or sun9=258 or sun9=358 or sun9=658. compute xmain64=33. compute xmain65=33. compute xmain66=33. compute xav64=23. compute xav65=23. compute xav66=23. Else if sun9=50 or sun9=250 or sun9=350 or sun9=650 or sun9=132 or sun9=432 or sun9=532. compute xmain64=34. compute xmain65=34. compute xmain66=34. compute xav64=22. compute xav65=22. compute xav66=22. Else if sun9=66 or sun9=266 or sun9=366. compute xmain64=35. compute xmain65=35. compute xmain66=35. compute xav64=18. compute xav65=18. compute xav66=18. Else if sun9=95 or sun9=295 or sun9=395. compute xmain64=35. compute xmain65=35. compute xmain66=35. compute xav64=25. compute xav65=25. compute xav66=25. Else if sun9=73 or sun9=273 or sun9=373. compute xmain64=36. compute xmain65=36. compute xmain66=36. compute xav64=20. compute xav65=20. compute xav66=20. Else if sun9=70 or sun9=270 or sun9=370 or sun9=71 or sun9=271 or sun9=371 or sun9=72 or sun9=272 or sun9=372. compute xmain64=37. compute xmain65=37. compute xmain66=37. compute xav64=24. compute xav65=24. compute xav66=24. Else if sun9=63 or sun9=263 or sun9=363 or sun9=64 or sun9=264 or sun9=364 or sun9=65 or sun9=265 or sun9=365. compute xmain64=38. compute xmain65=38. compute xmain66=38. compute xav64=18. compute xav65=18. compute xav66=18. Else if sun9=77 or sun9=277 or sun9=377. compute xmain64=39. compute xmain65=39. compute xmain66=39. compute xav64=27. compute xav65=27. compute xav66=27. Else if sun9=80 or sun9=280 or sun9=380 or sun9=81 or sun9=281 or sun9=381. compute xmain64=39. compute xmain65=39. compute xmain66=39. compute xav64=28. compute xav65=28. compute xav66=28. Else if sun9=78 or sun9=278 or sun9=378 or sun9=79 or sun9=279 or sun9=379. compute xmain64=40. compute xmain65=40. compute xmain66=40. compute xav64=26. compute xav65=26. compute xav66=26. Else if sun9=82 or sun9=282 or sun9=382. compute xmain64=40. compute xmain65=40. compute xmain66=40. compute xav64=25. compute xav65=25. compute xav66=25. Else if sun9=900. compute xmain64=41. compute xmain65=41. compute xmain66=41. Else if sun9=60 or sun9=260 or sun9=360. compute xmain64=42. compute xmain65=42. compute xmain66=42. compute xav64=19. compute xav65=19. compute xav66=19. Else if sun9=61 or sun9=261 or sun9=361 or sun9=661. compute xmain64=43. compute xmain65=43. compute xmain66=43. compute xav64=21. compute xav65=21. compute xav66=21. Else if sun9=62 or sun9=262 or sun9=362. compute xmain64=46. compute xmain65=46. compute xmain66=46. compute xav64=19. compute xav65=19. compute xav66=19. Else if sun9=109 or sun9=409 or sun9=509 or sun9=709. compute xmain64=46. compute xmain65=46. compute xmain66=46. compute xav64=9. compute xav65=9. compute xav66=9. Else if sun9=75 or sun9=275 or sun9=375. compute xmain64=48. compute xmain65=48. compute xmain66=48. compute xav64=29. compute xav65=29. compute xav66=29. compute xsec64=6. compute xsec65=6. compute xsec66=6. Else if sun9=76 or sun9=276 or sun9=376. compute xmain64=48. compute xmain65=48. compute xmain66=48. compute xav64=29. compute xav65=29. compute xav66=29. Else if sun9=190 or sun9=490 or sun9=590. compute xmain64=48. compute xmain65=48. compute xmain66=48. compute xav64=38. compute xav65=38. compute xav66=38. compute xsec64=6. compute xsec65=6. compute xsec66=6. Else if sun9=191 or sun9=491 or sun9=591 or sun9=91. compute xmain64=48. compute xmain65=48. compute xmain66=48. compute xav64=38. compute xav65=38. compute xav66=38. Else if sun9=192 or sun9=492 or sun9=592 or sun9=792 or sun9=92. compute xmain64=49. compute xmain65=49. compute xmain66=49. compute xav64=37. compute xav65=37. compute xav66=37. Else if sun9=193 or sun9=493 or sun9=593 or sun9=793 or sun9=682. compute xmain64=50. compute xmain65=50. compute xmain66=50. compute xav64=40. compute xav65=40. compute xav66=40. Else if sun9=199 or sun9=499 or sun9=599. compute xmain64=51. compute xmain65=51. compute xmain66=51. compute xav64=36. compute xav65=36. compute xav66=36. Else if sun9=177 or sun9=477 or sun9=577 or sun9=777 or sun9=179 or sun9=479 or sun9=579 or sun9=779. compute xmain64=52. compute xmain65=52. compute xmain66=52. compute xav64=40. compute xav65=40. compute xav66=40. Else if sun9=180 or sun9=480 or sun9=580 or sun9=780. compute xmain64=53. compute xmain65=53. compute xmain66=53. compute xav64=40. compute xav65=40. compute xav66=40. Else if sun9=176 or sun9=476 or sun9=576 or sun9=776 or sun9=181 or sun9=481 or sun9=581 or sun9=781 or sun9=485. compute xmain64=54. compute xmain65=54. compute xmain66=54. compute xav64=40. compute xav65=40. compute xav66=40. Else if sun9=178 or sun9=478 or sun9=578 or sun9=778. compute xmain64=54. compute xmain65=54. compute xmain66=54. compute xav64=39. compute xav65=39. compute xav66=39. Else if sun9=163 or sun9=463 or sun9=563 or sun9=763 or sun9=164 or sun9=464 or sun9=564 or sun9=764. compute xmain64=55. compute xmain65=55. compute xmain66=55. compute xav64=36. compute xav65=36. compute xav66=36. Else if sun9=173 or sun9=473 or sun9=573 or sun9=773 or sun9=873. compute xmain64=56. compute xmain65=56. compute xmain66=56. compute xav64=34. compute xav65=34. compute xav66=34. Else if sun9=174 or sun9=474 or sun9=574 or sun9=875 or sun9=175 or sun9=475 or sun9=575 or sun9=775. compute xmain64=56. compute xmain65=56. compute xmain66=56. compute xav64=35. compute xav65=35. compute xav66=35. Else if sun9=162 or sun9=462 or sun9=562 or sun9=762. compute xmain64=57. compute xmain65=57. compute xmain66=57. compute xav64=32. compute xav65=32. compute xav66=32. Else if sun9=160 or sun9=460 or sun9=560 or sun9=760. compute xmain64=58. compute xmain65=58. compute xmain66=58. compute xav64=30. compute xav65=30. compute xav66=30. Else if sun9=161 or sun9=461 or sun9=561 or sun9=761 or sun9=165 or sun9=465 or sun9=565 or sun9=765. compute xmain64=59. compute xmain65=59. compute xmain66=59. compute xav64=31. compute xav65=31. compute xav66=31. Else if sun9=692. compute xmain64=62. compute xmain65=62. compute xmain66=62. compute xav64=17. compute xav65=17. compute xav66=17. Else if sun9=9 or sun9=209 or sun9=309 or sun9=10 or sun9=210 or sun9=310 or sun9=610 or sun9=11 or sun9=211 or sun9=311. compute xmain64=63. compute xmain65=63. compute xmain66=63. compute xav64=5. compute xav65=5. compute xav66=5. Else if sun9=24 or sun9=224 or sun9=324 or sun9=25 or sun9=225 or sun9=325 or sun9=26 or sun9=226 or sun9=326. compute xmain64=64. compute xmain65=64. compute xmain66=64. compute xav64=5. compute xav65=5. compute xav66=5. Else if sun9=59 or sun9=259 or sun9=359. compute xmain64=65. compute xmain65=65. compute xmain66=65. compute xav64=17. compute xav65=17. compute xav66=17. Else if sun9=39 or sun9=239 or sun9=339 or sun9=40 or sun9=240 or sun9=340 or sun9=640. compute xmain64=67. compute xmain65=67. compute xmain66=67. compute xav64=12. compute xav65=12. compute xav66=12. Else if sun9=67 or sun9=267 or sun9=367 or sun9=74 or sun9=274 or sun9=374 or sun9=83 or sun9=283 or sun9=383 or sun9=90 or sun9=290 or sun9=390. compute xmain64=68. compute xmain65=68. compute xmain66=68. compute xav64=17. compute xav65=17. compute xav66=17. Else. compute residual=sun9. End if. Do if (sun9>199 and sun9<300) or (sun9>399 and sun9<500). compute xsec64=58. compute xsec65=58. compute xsec66=58. Else if (sun9>299 and sun9<400) or (sun9>499 and sun9<600). compute xsec64=59. compute xsec65=59. compute xsec66=59. End if. freq residual. compute residual=0. Do if sun10=150 or sun10=151 or sun10=152 or sun10=153 or sun10=159 or sun10=750 or sun10=450 or sun10=451 or sun10=452 or sun10=453 or sun10=459 or sun10=550 or sun10=551 or sun10=552 or sun10=553 or sun10=559 or sun10=752. compute xmain67=2. compute xmain68=2. compute xmain69=2. compute xav67=16. compute xav68=16. compute xav69=16. Else if sun10=130 or sun10=136 or sun10=430 or sun10=436 or sun10=530 or sun10=536 or sun10=730 or sun10=619. compute xmain67=4. compute xmain68=4. compute xmain69=4. compute xav67=13. compute xav68=13. compute xav69=13. Else if sun10=6 or sun10=206 or sun10=306. compute xmain67=5. compute xmain68=5. compute xmain69=5. compute xav67=1. compute xav68=1. compute xav69=1. Else if sun10=140 or sun10=141 or sun10=142 or sun10=144 or sun10=440 or sun10=441 or sun10=442 or sun10=444 or sun10=540 or sun10=541 or sun10=542 or sun10=544 or sun10=740 or sun10=741 or sun10=840 or sun10=841. compute xmain67=6. compute xmain68=6. compute xmain69=6. compute xav67=15. compute xav68=15. compute xav69=15. Else if sun10=1 or sun10=2 or sun10=13 or sun10=201 or sun10=202 or sun10=213 or sun10=301 or sun10=302 or sun10=313 or sun10=770 or sun10=200. compute xmain67=7. compute xmain68=7. compute xmain69=7. compute xav67=1. compute xav68=1. compute xav69=1. Else if sun10=170 or sun10=470 or sun10=570 or sun10=601 or sun10=603 or sun10=605. compute xmain67=8. compute xmain68=8. compute xmain69=8. compute xav67=2. compute xav68=2. compute xav69=2. Else if sun10=3 or sun10=203 or sun10=303. compute xmain67=9. compute xmain68=9. compute xmain69=9. compute xav67=3. compute xav68=3. compute xav69=3. Else if sun10=12 or sun10=212 or sun10=312 or sun10=612. compute xmain67=11. compute xmain68=11. compute xmain69=11. compute xav67=1. compute xav68=1. compute xav69=1. Else if sun10=7 or sun10=207 or sun10=307 or sun10=607. compute xmain67=12. compute xmain68=12. compute xmain69=12. compute xav67=1. compute xav68=1. compute xav69=1. compute xsec67=6. compute xsec68=6. compute xsec69=6. Else if sun10=8 or sun10=208 or sun10=308. compute xmain67=12. compute xmain68=12. compute xmain69=12. compute xav67=1. compute xav68=1. compute xav69=1. Else if sun10=4 or sun10=204 or sun10=304 or sun10=5 or sun10=205 or sun10=305. compute xmain67=13. compute xmain68=13. compute xmain69=13. compute xav67=1. compute xav68=1. compute xav69=1. Else if sun10=20 or sun10=220 or sun10=320 or sun10=21 or sun10=221 or sun10=321 or sun10=620. compute xmain67=15. compute xmain68=15. compute xmain69=15. compute xav67=4. compute xav68=4. compute xav69=4. Else if sun10=171 or sun10=471 or sun10=571 or sun10=172 or sun10=472 or sun10=572. compute xmain67=16. compute xmain68=16. compute xmain69=16. compute xav67=33. compute xav68=33. compute xav69=33. Else if sun10=22 or sun10=222 or sun10=322. compute xmain67=17. compute xmain68=17. compute xmain69=17. compute xav67=4. compute xav68=4. compute xav69=4. Else if sun10=27 or sun10=227 or sun10=327. compute xmain67=17. compute xmain68=17. compute xmain69=17. compute xav67=25. compute xav68=25. compute xav69=25. compute xsec67=64. compute xsec68=64. compute xsec69=64. Else if sun10=100 or sun10=400 or sun10=500 or sun10=700. compute xmain67=18. compute xmain68=18. compute xmain69=18. compute xav67=6. compute xav68=6. compute xav69=6. Else if sun10=101 or sun10=401 or sun10=501 or sun10=701 or sun10=801. compute xmain67=19. compute xmain68=19. compute xmain69=19. compute xav67=6. compute xav68=6. compute xav69=6. Else if sun10=102 or sun10=402 or sun10=502 or sun10=702 or sun10=103 or sun10=403 or sun10=503 or sun10=703. compute xmain67=20. compute xmain68=20. compute xmain69=20. compute xav67=7. compute xav68=7. compute xav69=7. Else if sun10=104 or sun10=404 or sun10=504 or sun10=704. compute xmain67=21. compute xmain68=21. compute xmain69=21. compute xav67=7. compute xav68=7. compute xav69=7. Else if sun10=105 or sun10=405 or sun10=505 or sun10=705. compute xmain67=21. compute xmain68=21. compute xmain69=21. compute xav67=8. compute xav68=8. compute xav69=8. Else if sun10=106 or sun10=406 or sun10=506 or sun10=706 or sun10=107 or sun10=407 or sun10=507 or sun10=707. compute xmain67=22. compute xmain68=22. compute xmain69=22. compute xav67=8. compute xav68=8. compute xav69=8. Else if sun10=110 or sun10=410 or sun10=510 or sun10=710. compute xmain67=23. compute xmain68=23. compute xmain69=23. compute xav67=8. compute xav68=8. compute xav69=8. Else if sun10=30 or sun10=230 or sun10=330 or sun10=630 or sun10=31 or sun10=231 or sun10=331 or sun10=36 or sun10=236 or sun10=336 or sun10=38 or sun10=238 or sun10=338. compute xmain67=24. compute xmain68=24. compute xmain69=24. compute xav67=10. compute xav68=10. compute xav69=10. Else if sun10=32 or sun10=232 or sun10=332 or sun10=632 or sun10=33 or sun10=233 or sun10=333 or sun10=633 or sun10=34 or sun10=234 or sun10=334 or sun10=131 or sun10=431 or sun10=531 or sun16=731. compute xmain67=25. compute xmain68=25. compute xmain69=25. compute xav67=14. compute xav68=14. compute xav69=14. Else if sun10=37 or sun10=237 or sun10=337 or sun10=637. compute xmain67=26. compute xmain68=26. compute xmain69=26. compute xav67=10. compute xav68=10. compute xav69=10. Else if sun10=108 or sun10=408 or sun10=508 or sun10=708. compute xmain67=27. compute xmain68=27. compute xmain69=27. compute xav67=8. compute xav68=8. compute xav69=8. Else if sun10=35 or sun10=235 or sun10=335 or sun10=635 or sun10=120 or sun10=420 or sun10=520 or sun10=720 or sun10=121 or sun10=421 or sun10=521 or sun10=721. compute xmain67=28. compute xmain68=28. compute xmain69=28. compute xav67=11. compute xav68=11. compute xav69=11. Else if sun10=123 or sun10=423 or sun10=523 or sun10=723. compute xmain67=29. compute xmain68=29. compute xmain69=29. compute xav67=11. compute xav68=11. compute xav69=11. Else if sun10=122 or sun10=422 or sun10=522. compute xmain67=30. compute xmain68=30. compute xmain69=30. compute xav67=11. compute xav68=11. compute xav69=11. Else if sun10=124 or sun10=424 or sun10=524 or sun10=724. compute xmain67=30. compute xmain68=30. compute xmain69=30. compute xav67=11. compute xav68=11. compute xav69=11. compute xsec67=43. compute xsec68=43. compute xsec69=43. Else if sun10=125 or sun10=425 or sun10=525 or sun10=725. compute xmain67=31. compute xmain68=31. compute xmain69=31. compute xav67=11. compute xav68=11. compute xav69=11. Else if sun10=133 or sun10=433 or sun10=533 or sun10=733. compute xmain67=32. compute xmain68=32. compute xmain69=32. compute xav67=8. compute xav68=8. compute xav69=8. Else if sun10=23 or sun10=223 or sun10=323 or sun10=51 or sun10=251 or sun10=351 or sun10=651 or sun10=52 or sun10=252 or sun10=352 or sun10=652 or sun10=53 or sun10=253 or sun10=353 or sun10=54 or sun10=254 or sun10=354 or sun10=654 or sun10=55 or sun10=255 or sun10=355 or sun10=56 or sun10=256 or sun10=356 or sun10=57 or sun10=257 or sun10=357 or sun10=657 or sun10=58 or sun10=258 or sun10=358 or sun10=658. compute xmain67=33. compute xmain68=33. compute xmain69=33. compute xav67=23. compute xav68=23. compute xav69=23. Else if sun10=50 or sun10=250 or sun10=350 or sun10=650 or sun10=132 or sun10=432 or sun10=532. compute xmain67=34. compute xmain68=34. compute xmain69=34. compute xav67=22. compute xav68=22. compute xav69=22. Else if sun10=66 or sun10=266 or sun10=366. compute xmain67=35. compute xmain68=35. compute xmain69=35. compute xav67=18. compute xav68=18. compute xav69=18. Else if sun10=95 or sun10=295 or sun10=395. compute xmain67=35. compute xmain68=35. compute xmain69=35. compute xav67=25. compute xav68=25. compute xav69=25. Else if sun10=73 or sun10=273 or sun10=373. compute xmain67=36. compute xmain68=36. compute xmain69=36. compute xav67=20. compute xav68=20. compute xav69=20. Else if sun10=70 or sun10=270 or sun10=370 or sun10=71 or sun10=271 or sun10=371 or sun10=72 or sun10=272 or sun10=372. compute xmain67=37. compute xmain68=37. compute xmain69=37. compute xav67=24. compute xav68=24. compute xav69=24. Else if sun10=63 or sun10=263 or sun10=363 or sun10=64 or sun10=264 or sun10=364 or sun10=65 or sun10=265 or sun10=365. compute xmain67=38. compute xmain68=38. compute xmain69=38. compute xav67=18. compute xav68=18. compute xav69=18. Else if sun10=77 or sun10=277 or sun10=377. compute xmain67=39. compute xmain68=39. compute xmain69=39. compute xav67=27. compute xav68=27. compute xav69=27. Else if sun10=80 or sun10=280 or sun10=380 or sun10=81 or sun10=281 or sun10=381. compute xmain67=39. compute xmain68=39. compute xmain69=39. compute xav67=28. compute xav68=28. compute xav69=28. Else if sun10=78 or sun10=278 or sun10=378 or sun10=79 or sun10=279 or sun10=379. compute xmain67=40. compute xmain68=40. compute xmain69=40. compute xav67=26. compute xav68=26. compute xav69=26. Else if sun10=82 or sun10=282 or sun10=382. compute xmain67=40. compute xmain68=40. compute xmain69=40. compute xav67=25. compute xav68=25. compute xav69=25. Else if sun10=900. compute xmain67=41. compute xmain68=41. compute xmain69=41. Else if sun10=60 or sun10=260 or sun10=360. compute xmain67=42. compute xmain68=42. compute xmain69=42. compute xav67=19. compute xav68=19. compute xav69=19. Else if sun10=61 or sun10=261 or sun10=361 or sun10=661. compute xmain67=43. compute xmain68=43. compute xmain69=43. compute xav67=21. compute xav68=21. compute xav69=21. Else if sun10=62 or sun10=262 or sun10=362. compute xmain67=46. compute xmain68=46. compute xmain69=46. compute xav67=19. compute xav68=19. compute xav69=19. Else if sun10=109 or sun10=409 or sun10=509 or sun10=709. compute xmain67=46. compute xmain68=46. compute xmain69=46. compute xav67=9. compute xav68=9. compute xav69=9. Else if sun10=75 or sun10=275 or sun10=375. compute xmain67=48. compute xmain68=48. compute xmain69=48. compute xav67=29. compute xav68=29. compute xav69=29. compute xsec67=6. compute xsec68=6. compute xsec69=6. Else if sun10=76 or sun10=276 or sun10=376. compute xmain67=48. compute xmain68=48. compute xmain69=48. compute xav67=29. compute xav68=29. compute xav69=29. Else if sun10=190 or sun10=490 or sun10=590. compute xmain67=48. compute xmain68=48. compute xmain69=48. compute xav67=38. compute xav68=38. compute xav69=38. compute xsec67=6. compute xsec68=6. compute xsec69=6. Else if sun10=191 or sun10=491 or sun10=591 or sun10=91. compute xmain67=48. compute xmain68=48. compute xmain69=48. compute xav67=38. compute xav68=38. compute xav69=38. Else if sun10=192 or sun10=492 or sun10=592 or sun10=792 or sun10=92. compute xmain67=49. compute xmain68=49. compute xmain69=49. compute xav67=37. compute xav68=37. compute xav69=37. Else if sun10=193 or sun10=493 or sun10=593 or sun10=793 or sun10=682. compute xmain67=50. compute xmain68=50. compute xmain69=50. compute xav67=40. compute xav68=40. compute xav69=40. Else if sun10=199 or sun10=499 or sun10=599. compute xmain67=51. compute xmain68=51. compute xmain69=51. compute xav67=36. compute xav68=36. compute xav69=36. Else if sun10=177 or sun10=477 or sun10=577 or sun10=777 or sun10=179 or sun10=479 or sun10=579 or sun10=779. compute xmain67=52. compute xmain68=52. compute xmain69=52. compute xav67=40. compute xav68=40. compute xav69=40. Else if sun10=180 or sun10=480 or sun10=580 or sun10=780. compute xmain67=53. compute xmain68=53. compute xmain69=53. compute xav67=40. compute xav68=40. compute xav69=40. Else if sun10=176 or sun10=476 or sun10=576 or sun10=776 or sun10=181 or sun10=481 or sun10=581 or sun10=781 or sun10=485. compute xmain67=54. compute xmain68=54. compute xmain69=54. compute xav67=40. compute xav68=40. compute xav69=40. Else if sun10=178 or sun10=478 or sun10=578 or sun10=778. compute xmain67=54. compute xmain68=54. compute xmain69=54. compute xav67=39. compute xav68=39. compute xav69=39. Else if sun10=163 or sun10=463 or sun10=563 or sun10=763 or sun10=164 or sun10=464 or sun10=564 or sun10=764. compute xmain67=55. compute xmain68=55. compute xmain69=55. compute xav67=36. compute xav68=36. compute xav69=36. Else if sun10=173 or sun10=473 or sun10=573 or sun10=773 or sun10=873. compute xmain67=56. compute xmain68=56. compute xmain69=56. compute xav67=34. compute xav68=34. compute xav69=34. Else if sun10=174 or sun10=474 or sun10=574 or sun10=875 or sun10=175 or sun10=475 or sun10=575 or sun10=775. compute xmain67=56. compute xmain68=56. compute xmain69=56. compute xav67=35. compute xav68=35. compute xav69=35. Else if sun10=162 or sun10=462 or sun10=562 or sun10=762. compute xmain67=57. compute xmain68=57. compute xmain69=57. compute xav67=32. compute xav68=32. compute xav69=32. Else if sun10=160 or sun10=460 or sun10=560 or sun10=760. compute xmain67=58. compute xmain68=58. compute xmain69=58. compute xav67=30. compute xav68=30. compute xav69=30. Else if sun10=161 or sun10=461 or sun10=561 or sun10=761 or sun10=165 or sun10=465 or sun10=565 or sun10=765. compute xmain67=59. compute xmain68=59. compute xmain69=59. compute xav67=31. compute xav68=31. compute xav69=31. Else if sun10=692. compute xmain67=62. compute xmain68=62. compute xmain69=62. compute xav67=17. compute xav68=17. compute xav69=17. Else if sun10=9 or sun10=209 or sun10=309 or sun10=10 or sun10=210 or sun10=310 or sun10=610 or sun10=11 or sun10=211 or sun10=311. compute xmain67=63. compute xmain68=63. compute xmain69=63. compute xav67=5. compute xav68=5. compute xav69=5. Else if sun10=24 or sun10=224 or sun10=324 or sun10=25 or sun10=225 or sun10=325 or sun10=26 or sun10=226 or sun10=326. compute xmain67=64. compute xmain68=64. compute xmain69=64. compute xav67=5. compute xav68=5. compute xav69=5. Else if sun10=59 or sun10=259 or sun10=359. compute xmain67=65. compute xmain68=65. compute xmain69=65. compute xav67=17. compute xav68=17. compute xav69=17. Else if sun10=39 or sun10=239 or sun10=339 or sun10=40 or sun10=240 or sun10=340 or sun10=640. compute xmain67=67. compute xmain68=67. compute xmain69=67. compute xav67=12. compute xav68=12. compute xav69=12. Else if sun10=67 or sun10=267 or sun10=367 or sun10=74 or sun10=274 or sun10=374 or sun10=83 or sun10=283 or sun10=383 or sun10=90 or sun10=290 or sun10=390. compute xmain67=68. compute xmain68=68. compute xmain69=68. compute xav67=17. compute xav68=17. compute xav69=17. Else. compute residual=sun10. End if. Do if (sun10>199 and sun10<300) or (sun10>399 and sun10<500). compute xsec67=58. compute xsec68=58. compute xsec69=58. Else if (sun10>299 and sun10<400) or (sun10>499 and sun10<600). compute xsec67=59. compute xsec68=59. compute xsec69=59. End if. freq residual. compute residual=0. Do if sun11=150 or sun11=151 or sun11=152 or sun11=153 or sun11=159 or sun11=750 or sun11=450 or sun11=451 or sun11=452 or sun11=453 or sun11=459 or sun11=550 or sun11=551 or sun11=552 or sun11=553 or sun11=559 or sun11=752. compute xmain70=2. compute xmain71=2. compute xmain72=2. compute xav70=16. compute xav71=16. compute xav72=16. Else if sun11=130 or sun11=136 or sun11=430 or sun11=436 or sun11=530 or sun11=536 or sun11=730 or sun11=619. compute xmain70=4. compute xmain71=4. compute xmain72=4. compute xav70=13. compute xav71=13. compute xav72=13. Else if sun11=6 or sun11=206 or sun11=306. compute xmain70=5. compute xmain71=5. compute xmain72=5. compute xav70=1. compute xav71=1. compute xav72=1. Else if sun11=140 or sun11=141 or sun11=142 or sun11=144 or sun11=440 or sun11=441 or sun11=442 or sun11=444 or sun11=540 or sun11=541 or sun11=542 or sun11=544 or sun11=740 or sun11=741 or sun11=840 or sun11=841. compute xmain70=6. compute xmain71=6. compute xmain72=6. compute xav70=15. compute xav71=15. compute xav72=15. Else if sun11=1 or sun11=2 or sun11=13 or sun11=201 or sun11=202 or sun11=213 or sun11=301 or sun11=302 or sun11=313 or sun11=770 or sun11=200. compute xmain70=7. compute xmain71=7. compute xmain72=7. compute xav70=1. compute xav71=1. compute xav72=1. Else if sun11=170 or sun11=470 or sun11=570 or sun11=601 or sun11=603 or sun11=605. compute xmain70=8. compute xmain71=8. compute xmain72=8. compute xav70=2. compute xav71=2. compute xav72=2. Else if sun11=3 or sun11=203 or sun11=303. compute xmain70=9. compute xmain71=9. compute xmain72=9. compute xav70=3. compute xav71=3. compute xav72=3. Else if sun11=12 or sun11=212 or sun11=312 or sun11=612. compute xmain70=11. compute xmain71=11. compute xmain72=11. compute xav70=1. compute xav71=1. compute xav72=1. Else if sun11=7 or sun11=207 or sun11=307 or sun11=607. compute xmain70=12. compute xmain71=12. compute xmain72=12. compute xav70=1. compute xav71=1. compute xav72=1. compute xsec70=6. compute xsec71=6. compute xsec72=6. Else if sun11=8 or sun11=208 or sun11=308. compute xmain70=12. compute xmain71=12. compute xmain72=12. compute xav70=1. compute xav71=1. compute xav72=1. Else if sun11=4 or sun11=204 or sun11=304 or sun11=5 or sun11=205 or sun11=305. compute xmain70=13. compute xmain71=13. compute xmain72=13. compute xav70=1. compute xav71=1. compute xav72=1. Else if sun11=20 or sun11=220 or sun11=320 or sun11=21 or sun11=221 or sun11=321 or sun11=620. compute xmain70=15. compute xmain71=15. compute xmain72=15. compute xav70=4. compute xav71=4. compute xav72=4. Else if sun11=171 or sun11=471 or sun11=571 or sun11=172 or sun11=472 or sun11=572. compute xmain70=16. compute xmain71=16. compute xmain72=16. compute xav70=33. compute xav71=33. compute xav72=33. Else if sun11=22 or sun11=222 or sun11=322. compute xmain70=17. compute xmain71=17. compute xmain72=17. compute xav70=4. compute xav71=4. compute xav72=4. Else if sun11=27 or sun11=227 or sun11=327. compute xmain70=17. compute xmain71=17. compute xmain72=17. compute xav70=25. compute xav71=25. compute xav72=25. compute xsec70=64. compute xsec71=64. compute xsec72=64. Else if sun11=100 or sun11=400 or sun11=500 or sun11=700. compute xmain70=18. compute xmain71=18. compute xmain72=18. compute xav70=6. compute xav71=6. compute xav72=6. Else if sun11=101 or sun11=401 or sun11=501 or sun11=701 or sun11=801. compute xmain70=19. compute xmain71=19. compute xmain72=19. compute xav70=6. compute xav71=6. compute xav72=6. Else if sun11=102 or sun11=402 or sun11=502 or sun11=702 or sun11=103 or sun11=403 or sun11=503 or sun11=703. compute xmain70=20. compute xmain71=20. compute xmain72=20. compute xav70=7. compute xav71=7. compute xav72=7. Else if sun11=104 or sun11=404 or sun11=504 or sun11=704. compute xmain70=21. compute xmain71=21. compute xmain72=21. compute xav70=7. compute xav71=7. compute xav72=7. Else if sun11=105 or sun11=405 or sun11=505 or sun11=705. compute xmain70=21. compute xmain71=21. compute xmain72=21. compute xav70=8. compute xav71=8. compute xav72=8. Else if sun11=106 or sun11=406 or sun11=506 or sun11=706 or sun11=107 or sun11=407 or sun11=507 or sun11=707. compute xmain70=22. compute xmain71=22. compute xmain72=22. compute xav70=8. compute xav71=8. compute xav72=8. Else if sun11=110 or sun11=410 or sun11=510 or sun11=710. compute xmain70=23. compute xmain71=23. compute xmain72=23. compute xav70=8. compute xav71=8. compute xav72=8. Else if sun11=30 or sun11=230 or sun11=330 or sun11=630 or sun11=31 or sun11=231 or sun11=331 or sun11=36 or sun11=236 or sun11=336 or sun11=38 or sun11=238 or sun11=338. compute xmain70=24. compute xmain71=24. compute xmain72=24. compute xav70=10. compute xav71=10. compute xav72=10. Else if sun11=32 or sun11=232 or sun11=332 or sun11=632 or sun11=33 or sun11=233 or sun11=333 or sun11=633 or sun11=34 or sun11=234 or sun11=334 or sun11=131 or sun11=431 or sun11=531 or sun16=731. compute xmain70=25. compute xmain71=25. compute xmain72=25. compute xav70=14. compute xav71=14. compute xav72=14. Else if sun11=37 or sun11=237 or sun11=337 or sun11=637. compute xmain70=26. compute xmain71=26. compute xmain72=26. compute xav70=10. compute xav71=10. compute xav72=10. Else if sun11=108 or sun11=408 or sun11=508 or sun11=708. compute xmain70=27. compute xmain71=27. compute xmain72=27. compute xav70=8. compute xav71=8. compute xav72=8. Else if sun11=35 or sun11=235 or sun11=335 or sun11=635 or sun11=120 or sun11=420 or sun11=520 or sun11=720 or sun11=121 or sun11=421 or sun11=521 or sun11=721. compute xmain70=28. compute xmain71=28. compute xmain72=28. compute xav70=11. compute xav71=11. compute xav72=11. Else if sun11=123 or sun11=423 or sun11=523 or sun11=723. compute xmain70=29. compute xmain71=29. compute xmain72=29. compute xav70=11. compute xav71=11. compute xav72=11. Else if sun11=122 or sun11=422 or sun11=522. compute xmain70=30. compute xmain71=30. compute xmain72=30. compute xav70=11. compute xav71=11. compute xav72=11. Else if sun11=124 or sun11=424 or sun11=524 or sun11=724. compute xmain70=30. compute xmain71=30. compute xmain72=30. compute xav70=11. compute xav71=11. compute xav72=11. compute xsec70=43. compute xsec71=43. compute xsec72=43. Else if sun11=125 or sun11=425 or sun11=525 or sun11=725. compute xmain70=31. compute xmain71=31. compute xmain72=31. compute xav70=11. compute xav71=11. compute xav72=11. Else if sun11=133 or sun11=433 or sun11=533 or sun11=733. compute xmain70=32. compute xmain71=32. compute xmain72=32. compute xav70=8. compute xav71=8. compute xav72=8. Else if sun11=23 or sun11=223 or sun11=323 or sun11=51 or sun11=251 or sun11=351 or sun11=651 or sun11=52 or sun11=252 or sun11=352 or sun11=652 or sun11=53 or sun11=253 or sun11=353 or sun11=54 or sun11=254 or sun11=354 or sun11=654 or sun11=55 or sun11=255 or sun11=355 or sun11=56 or sun11=256 or sun11=356 or sun11=57 or sun11=257 or sun11=357 or sun11=657 or sun11=58 or sun11=258 or sun11=358 or sun11=658. compute xmain70=33. compute xmain71=33. compute xmain72=33. compute xav70=23. compute xav71=23. compute xav72=23. Else if sun11=50 or sun11=250 or sun11=350 or sun11=650 or sun11=132 or sun11=432 or sun11=532. compute xmain70=34. compute xmain71=34. compute xmain72=34. compute xav70=22. compute xav71=22. compute xav72=22. Else if sun11=66 or sun11=266 or sun11=366. compute xmain70=35. compute xmain71=35. compute xmain72=35. compute xav70=18. compute xav71=18. compute xav72=18. Else if sun11=95 or sun11=295 or sun11=395. compute xmain70=35. compute xmain71=35. compute xmain72=35. compute xav70=25. compute xav71=25. compute xav72=25. Else if sun11=73 or sun11=273 or sun11=373. compute xmain70=36. compute xmain71=36. compute xmain72=36. compute xav70=20. compute xav71=20. compute xav72=20. Else if sun11=70 or sun11=270 or sun11=370 or sun11=71 or sun11=271 or sun11=371 or sun11=72 or sun11=272 or sun11=372. compute xmain70=37. compute xmain71=37. compute xmain72=37. compute xav70=24. compute xav71=24. compute xav72=24. Else if sun11=63 or sun11=263 or sun11=363 or sun11=64 or sun11=264 or sun11=364 or sun11=65 or sun11=265 or sun11=365. compute xmain70=38. compute xmain71=38. compute xmain72=38. compute xav70=18. compute xav71=18. compute xav72=18. Else if sun11=77 or sun11=277 or sun11=377. compute xmain70=39. compute xmain71=39. compute xmain72=39. compute xav70=27. compute xav71=27. compute xav72=27. Else if sun11=80 or sun11=280 or sun11=380 or sun11=81 or sun11=281 or sun11=381. compute xmain70=39. compute xmain71=39. compute xmain72=39. compute xav70=28. compute xav71=28. compute xav72=28. Else if sun11=78 or sun11=278 or sun11=378 or sun11=79 or sun11=279 or sun11=379. compute xmain70=40. compute xmain71=40. compute xmain72=40. compute xav70=26. compute xav71=26. compute xav72=26. Else if sun11=82 or sun11=282 or sun11=382. compute xmain70=40. compute xmain71=40. compute xmain72=40. compute xav70=25. compute xav71=25. compute xav72=25. Else if sun11=900. compute xmain70=41. compute xmain71=41. compute xmain72=41. Else if sun11=60 or sun11=260 or sun11=360. compute xmain70=42. compute xmain71=42. compute xmain72=42. compute xav70=19. compute xav71=19. compute xav72=19. Else if sun11=61 or sun11=261 or sun11=361 or sun11=661. compute xmain70=43. compute xmain71=43. compute xmain72=43. compute xav70=21. compute xav71=21. compute xav72=21. Else if sun11=62 or sun11=262 or sun11=362. compute xmain70=46. compute xmain71=46. compute xmain72=46. compute xav70=19. compute xav71=19. compute xav72=19. Else if sun11=109 or sun11=409 or sun11=509 or sun11=709. compute xmain70=46. compute xmain71=46. compute xmain72=46. compute xav70=9. compute xav71=9. compute xav72=9. Else if sun11=75 or sun11=275 or sun11=375. compute xmain70=48. compute xmain71=48. compute xmain72=48. compute xav70=29. compute xav71=29. compute xav72=29. compute xsec70=6. compute xsec71=6. compute xsec72=6. Else if sun11=76 or sun11=276 or sun11=376. compute xmain70=48. compute xmain71=48. compute xmain72=48. compute xav70=29. compute xav71=29. compute xav72=29. Else if sun11=190 or sun11=490 or sun11=590. compute xmain70=48. compute xmain71=48. compute xmain72=48. compute xav70=38. compute xav71=38. compute xav72=38. compute xsec70=6. compute xsec71=6. compute xsec72=6. Else if sun11=191 or sun11=491 or sun11=591 or sun11=91. compute xmain70=48. compute xmain71=48. compute xmain72=48. compute xav70=38. compute xav71=38. compute xav72=38. Else if sun11=192 or sun11=492 or sun11=592 or sun11=792 or sun11=92. compute xmain70=49. compute xmain71=49. compute xmain72=49. compute xav70=37. compute xav71=37. compute xav72=37. Else if sun11=193 or sun11=493 or sun11=593 or sun11=793 or sun11=682. compute xmain70=50. compute xmain71=50. compute xmain72=50. compute xav70=40. compute xav71=40. compute xav72=40. Else if sun11=199 or sun11=499 or sun11=599. compute xmain70=51. compute xmain71=51. compute xmain72=51. compute xav70=36. compute xav71=36. compute xav72=36. Else if sun11=177 or sun11=477 or sun11=577 or sun11=777 or sun11=179 or sun11=479 or sun11=579 or sun11=779. compute xmain70=52. compute xmain71=52. compute xmain72=52. compute xav70=40. compute xav71=40. compute xav72=40. Else if sun11=180 or sun11=480 or sun11=580 or sun11=780. compute xmain70=53. compute xmain71=53. compute xmain72=53. compute xav70=40. compute xav71=40. compute xav72=40. Else if sun11=176 or sun11=476 or sun11=576 or sun11=776 or sun11=181 or sun11=481 or sun11=581 or sun11=781 or sun11=485. compute xmain70=54. compute xmain71=54. compute xmain72=54. compute xav70=40. compute xav71=40. compute xav72=40. Else if sun11=178 or sun11=478 or sun11=578 or sun11=778. compute xmain70=54. compute xmain71=54. compute xmain72=54. compute xav70=39. compute xav71=39. compute xav72=39. Else if sun11=163 or sun11=463 or sun11=563 or sun11=763 or sun11=164 or sun11=464 or sun11=564 or sun11=764. compute xmain70=55. compute xmain71=55. compute xmain72=55. compute xav70=36. compute xav71=36. compute xav72=36. Else if sun11=173 or sun11=473 or sun11=573 or sun11=773 or sun11=873. compute xmain70=56. compute xmain71=56. compute xmain72=56. compute xav70=34. compute xav71=34. compute xav72=34. Else if sun11=174 or sun11=474 or sun11=574 or sun11=875 or sun11=175 or sun11=475 or sun11=575 or sun11=775. compute xmain70=56. compute xmain71=56. compute xmain72=56. compute xav70=35. compute xav71=35. compute xav72=35. Else if sun11=162 or sun11=462 or sun11=562 or sun11=762. compute xmain70=57. compute xmain71=57. compute xmain72=57. compute xav70=32. compute xav71=32. compute xav72=32. Else if sun11=160 or sun11=460 or sun11=560 or sun11=760. compute xmain70=58. compute xmain71=58. compute xmain72=58. compute xav70=30. compute xav71=30. compute xav72=30. Else if sun11=161 or sun11=461 or sun11=561 or sun11=761 or sun11=165 or sun11=465 or sun11=565 or sun11=765. compute xmain70=59. compute xmain71=59. compute xmain72=59. compute xav70=31. compute xav71=31. compute xav72=31. Else if sun11=692. compute xmain70=62. compute xmain71=62. compute xmain72=62. compute xav70=17. compute xav71=17. compute xav72=17. Else if sun11=9 or sun11=209 or sun11=309 or sun11=10 or sun11=210 or sun11=310 or sun11=610 or sun11=11 or sun11=211 or sun11=311. compute xmain70=63. compute xmain71=63. compute xmain72=63. compute xav70=5. compute xav71=5. compute xav72=5. Else if sun11=24 or sun11=224 or sun11=324 or sun11=25 or sun11=225 or sun11=325 or sun11=26 or sun11=226 or sun11=326. compute xmain70=64. compute xmain71=64. compute xmain72=64. compute xav70=5. compute xav71=5. compute xav72=5. Else if sun11=59 or sun11=259 or sun11=359. compute xmain70=65. compute xmain71=65. compute xmain72=65. compute xav70=17. compute xav71=17. compute xav72=17. Else if sun11=39 or sun11=239 or sun11=339 or sun11=40 or sun11=240 or sun11=340 or sun11=640. compute xmain70=67. compute xmain71=67. compute xmain72=67. compute xav70=12. compute xav71=12. compute xav72=12. Else if sun11=67 or sun11=267 or sun11=367 or sun11=74 or sun11=274 or sun11=374 or sun11=83 or sun11=283 or sun11=383 or sun11=90 or sun11=290 or sun11=390. compute xmain70=68. compute xmain71=68. compute xmain72=68. compute xav70=17. compute xav71=17. compute xav72=17. Else. compute residual=sun11. End if. Do if (sun11>199 and sun11<300) or (sun11>399 and sun11<500). compute xsec70=58. compute xsec71=58. compute xsec72=58. Else if (sun11>299 and sun11<400) or (sun11>499 and sun11<600). compute xsec70=59. compute xsec71=59. compute xsec72=59. End if. freq residual. compute residual=0. Do if sun12=150 or sun12=151 or sun12=152 or sun12=153 or sun12=159 or sun12=750 or sun12=450 or sun12=451 or sun12=452 or sun12=453 or sun12=459 or sun12=550 or sun12=551 or sun12=552 or sun12=553 or sun12=559 or sun12=752. compute xmain73=2. compute xmain74=2. compute xmain75=2. compute xav73=16. compute xav74=16. compute xav75=16. Else if sun12=130 or sun12=136 or sun12=430 or sun12=436 or sun12=530 or sun12=536 or sun12=730 or sun12=619. compute xmain73=4. compute xmain74=4. compute xmain75=4. compute xav73=13. compute xav74=13. compute xav75=13. Else if sun12=6 or sun12=206 or sun12=306. compute xmain73=5. compute xmain74=5. compute xmain75=5. compute xav73=1. compute xav74=1. compute xav75=1. Else if sun12=140 or sun12=141 or sun12=142 or sun12=144 or sun12=440 or sun12=441 or sun12=442 or sun12=444 or sun12=540 or sun12=541 or sun12=542 or sun12=544 or sun12=740 or sun12=741 or sun12=840 or sun12=841. compute xmain73=6. compute xmain74=6. compute xmain75=6. compute xav73=15. compute xav74=15. compute xav75=15. Else if sun12=1 or sun12=2 or sun12=13 or sun12=201 or sun12=202 or sun12=213 or sun12=301 or sun12=302 or sun12=313 or sun12=770 or sun12=200. compute xmain73=7. compute xmain74=7. compute xmain75=7. compute xav73=1. compute xav74=1. compute xav75=1. Else if sun12=170 or sun12=470 or sun12=570 or sun12=601 or sun12=603 or sun12=605. compute xmain73=8. compute xmain74=8. compute xmain75=8. compute xav73=2. compute xav74=2. compute xav75=2. Else if sun12=3 or sun12=203 or sun12=303. compute xmain73=9. compute xmain74=9. compute xmain75=9. compute xav73=3. compute xav74=3. compute xav75=3. Else if sun12=12 or sun12=212 or sun12=312 or sun12=612. compute xmain73=11. compute xmain74=11. compute xmain75=11. compute xav73=1. compute xav74=1. compute xav75=1. Else if sun12=7 or sun12=207 or sun12=307 or sun12=607. compute xmain73=12. compute xmain74=12. compute xmain75=12. compute xav73=1. compute xav74=1. compute xav75=1. compute xsec73=6. compute xsec74=6. compute xsec75=6. Else if sun12=8 or sun12=208 or sun12=308. compute xmain73=12. compute xmain74=12. compute xmain75=12. compute xav73=1. compute xav74=1. compute xav75=1. Else if sun12=4 or sun12=204 or sun12=304 or sun12=5 or sun12=205 or sun12=305. compute xmain73=13. compute xmain74=13. compute xmain75=13. compute xav73=1. compute xav74=1. compute xav75=1. Else if sun12=20 or sun12=220 or sun12=320 or sun12=21 or sun12=221 or sun12=321 or sun12=620. compute xmain73=15. compute xmain74=15. compute xmain75=15. compute xav73=4. compute xav74=4. compute xav75=4. Else if sun12=171 or sun12=471 or sun12=571 or sun12=172 or sun12=472 or sun12=572. compute xmain73=16. compute xmain74=16. compute xmain75=16. compute xav73=33. compute xav74=33. compute xav75=33. Else if sun12=22 or sun12=222 or sun12=322. compute xmain73=17. compute xmain74=17. compute xmain75=17. compute xav73=4. compute xav74=4. compute xav75=4. Else if sun12=27 or sun12=227 or sun12=327. compute xmain73=17. compute xmain74=17. compute xmain75=17. compute xav73=25. compute xav74=25. compute xav75=25. compute xsec73=64. compute xsec74=64. compute xsec75=64. Else if sun12=100 or sun12=400 or sun12=500 or sun12=700. compute xmain73=18. compute xmain74=18. compute xmain75=18. compute xav73=6. compute xav74=6. compute xav75=6. Else if sun12=101 or sun12=401 or sun12=501 or sun12=701 or sun12=801. compute xmain73=19. compute xmain74=19. compute xmain75=19. compute xav73=6. compute xav74=6. compute xav75=6. Else if sun12=102 or sun12=402 or sun12=502 or sun12=702 or sun12=103 or sun12=403 or sun12=503 or sun12=703. compute xmain73=20. compute xmain74=20. compute xmain75=20. compute xav73=7. compute xav74=7. compute xav75=7. Else if sun12=104 or sun12=404 or sun12=504 or sun12=704. compute xmain73=21. compute xmain74=21. compute xmain75=21. compute xav73=7. compute xav74=7. compute xav75=7. Else if sun12=105 or sun12=405 or sun12=505 or sun12=705. compute xmain73=21. compute xmain74=21. compute xmain75=21. compute xav73=8. compute xav74=8. compute xav75=8. Else if sun12=106 or sun12=406 or sun12=506 or sun12=706 or sun12=107 or sun12=407 or sun12=507 or sun12=707. compute xmain73=22. compute xmain74=22. compute xmain75=22. compute xav73=8. compute xav74=8. compute xav75=8. Else if sun12=110 or sun12=410 or sun12=510 or sun12=710. compute xmain73=23. compute xmain74=23. compute xmain75=23. compute xav73=8. compute xav74=8. compute xav75=8. Else if sun12=30 or sun12=230 or sun12=330 or sun12=630 or sun12=31 or sun12=231 or sun12=331 or sun12=36 or sun12=236 or sun12=336 or sun12=38 or sun12=238 or sun12=338. compute xmain73=24. compute xmain74=24. compute xmain75=24. compute xav73=10. compute xav74=10. compute xav75=10. Else if sun12=32 or sun12=232 or sun12=332 or sun12=632 or sun12=33 or sun12=233 or sun12=333 or sun12=633 or sun12=34 or sun12=234 or sun12=334 or sun12=131 or sun12=431 or sun12=531 or sun16=731. compute xmain73=25. compute xmain74=25. compute xmain75=25. compute xav73=14. compute xav74=14. compute xav75=14. Else if sun12=37 or sun12=237 or sun12=337 or sun12=637. compute xmain73=26. compute xmain74=26. compute xmain75=26. compute xav73=10. compute xav74=10. compute xav75=10. Else if sun12=108 or sun12=408 or sun12=508 or sun12=708. compute xmain73=27. compute xmain74=27. compute xmain75=27. compute xav73=8. compute xav74=8. compute xav75=8. Else if sun12=35 or sun12=235 or sun12=335 or sun12=635 or sun12=120 or sun12=420 or sun12=520 or sun12=720 or sun12=121 or sun12=421 or sun12=521 or sun12=721. compute xmain73=28. compute xmain74=28. compute xmain75=28. compute xav73=11. compute xav74=11. compute xav75=11. Else if sun12=123 or sun12=423 or sun12=523 or sun12=723. compute xmain73=29. compute xmain74=29. compute xmain75=29. compute xav73=11. compute xav74=11. compute xav75=11. Else if sun12=122 or sun12=422 or sun12=522. compute xmain73=30. compute xmain74=30. compute xmain75=30. compute xav73=11. compute xav74=11. compute xav75=11. Else if sun12=124 or sun12=424 or sun12=524 or sun12=724. compute xmain73=30. compute xmain74=30. compute xmain75=30. compute xav73=11. compute xav74=11. compute xav75=11. compute xsec73=43. compute xsec74=43. compute xsec75=43. Else if sun12=125 or sun12=425 or sun12=525 or sun12=725. compute xmain73=31. compute xmain74=31. compute xmain75=31. compute xav73=11. compute xav74=11. compute xav75=11. Else if sun12=133 or sun12=433 or sun12=533 or sun12=733. compute xmain73=32. compute xmain74=32. compute xmain75=32. compute xav73=8. compute xav74=8. compute xav75=8. Else if sun12=23 or sun12=223 or sun12=323 or sun12=51 or sun12=251 or sun12=351 or sun12=651 or sun12=52 or sun12=252 or sun12=352 or sun12=652 or sun12=53 or sun12=253 or sun12=353 or sun12=54 or sun12=254 or sun12=354 or sun12=654 or sun12=55 or sun12=255 or sun12=355 or sun12=56 or sun12=256 or sun12=356 or sun12=57 or sun12=257 or sun12=357 or sun12=657 or sun12=58 or sun12=258 or sun12=358 or sun12=658. compute xmain73=33. compute xmain74=33. compute xmain75=33. compute xav73=23. compute xav74=23. compute xav75=23. Else if sun12=50 or sun12=250 or sun12=350 or sun12=650 or sun12=132 or sun12=432 or sun12=532. compute xmain73=34. compute xmain74=34. compute xmain75=34. compute xav73=22. compute xav74=22. compute xav75=22. Else if sun12=66 or sun12=266 or sun12=366. compute xmain73=35. compute xmain74=35. compute xmain75=35. compute xav73=18. compute xav74=18. compute xav75=18. Else if sun12=95 or sun12=295 or sun12=395. compute xmain73=35. compute xmain74=35. compute xmain75=35. compute xav73=25. compute xav74=25. compute xav75=25. Else if sun12=73 or sun12=273 or sun12=373. compute xmain73=36. compute xmain74=36. compute xmain75=36. compute xav73=20. compute xav74=20. compute xav75=20. Else if sun12=70 or sun12=270 or sun12=370 or sun12=71 or sun12=271 or sun12=371 or sun12=72 or sun12=272 or sun12=372. compute xmain73=37. compute xmain74=37. compute xmain75=37. compute xav73=24. compute xav74=24. compute xav75=24. Else if sun12=63 or sun12=263 or sun12=363 or sun12=64 or sun12=264 or sun12=364 or sun12=65 or sun12=265 or sun12=365. compute xmain73=38. compute xmain74=38. compute xmain75=38. compute xav73=18. compute xav74=18. compute xav75=18. Else if sun12=77 or sun12=277 or sun12=377. compute xmain73=39. compute xmain74=39. compute xmain75=39. compute xav73=27. compute xav74=27. compute xav75=27. Else if sun12=80 or sun12=280 or sun12=380 or sun12=81 or sun12=281 or sun12=381. compute xmain73=39. compute xmain74=39. compute xmain75=39. compute xav73=28. compute xav74=28. compute xav75=28. Else if sun12=78 or sun12=278 or sun12=378 or sun12=79 or sun12=279 or sun12=379. compute xmain73=40. compute xmain74=40. compute xmain75=40. compute xav73=26. compute xav74=26. compute xav75=26. Else if sun12=82 or sun12=282 or sun12=382. compute xmain73=40. compute xmain74=40. compute xmain75=40. compute xav73=25. compute xav74=25. compute xav75=25. Else if sun12=900. compute xmain73=41. compute xmain74=41. compute xmain75=41. Else if sun12=60 or sun12=260 or sun12=360. compute xmain73=42. compute xmain74=42. compute xmain75=42. compute xav73=19. compute xav74=19. compute xav75=19. Else if sun12=61 or sun12=261 or sun12=361 or sun12=661. compute xmain73=43. compute xmain74=43. compute xmain75=43. compute xav73=21. compute xav74=21. compute xav75=21. Else if sun12=62 or sun12=262 or sun12=362. compute xmain73=46. compute xmain74=46. compute xmain75=46. compute xav73=19. compute xav74=19. compute xav75=19. Else if sun12=109 or sun12=409 or sun12=509 or sun12=709. compute xmain73=46. compute xmain74=46. compute xmain75=46. compute xav73=9. compute xav74=9. compute xav75=9. Else if sun12=75 or sun12=275 or sun12=375. compute xmain73=48. compute xmain74=48. compute xmain75=48. compute xav73=29. compute xav74=29. compute xav75=29. compute xsec73=6. compute xsec74=6. compute xsec75=6. Else if sun12=76 or sun12=276 or sun12=376. compute xmain73=48. compute xmain74=48. compute xmain75=48. compute xav73=29. compute xav74=29. compute xav75=29. Else if sun12=190 or sun12=490 or sun12=590. compute xmain73=48. compute xmain74=48. compute xmain75=48. compute xav73=38. compute xav74=38. compute xav75=38. compute xsec73=6. compute xsec74=6. compute xsec75=6. Else if sun12=191 or sun12=491 or sun12=591 or sun12=91. compute xmain73=48. compute xmain74=48. compute xmain75=48. compute xav73=38. compute xav74=38. compute xav75=38. Else if sun12=192 or sun12=492 or sun12=592 or sun12=792 or sun12=92. compute xmain73=49. compute xmain74=49. compute xmain75=49. compute xav73=37. compute xav74=37. compute xav75=37. Else if sun12=193 or sun12=493 or sun12=593 or sun12=793 or sun12=682. compute xmain73=50. compute xmain74=50. compute xmain75=50. compute xav73=40. compute xav74=40. compute xav75=40. Else if sun12=199 or sun12=499 or sun12=599. compute xmain73=51. compute xmain74=51. compute xmain75=51. compute xav73=36. compute xav74=36. compute xav75=36. Else if sun12=177 or sun12=477 or sun12=577 or sun12=777 or sun12=179 or sun12=479 or sun12=579 or sun12=779. compute xmain73=52. compute xmain74=52. compute xmain75=52. compute xav73=40. compute xav74=40. compute xav75=40. Else if sun12=180 or sun12=480 or sun12=580 or sun12=780. compute xmain73=53. compute xmain74=53. compute xmain75=53. compute xav73=40. compute xav74=40. compute xav75=40. Else if sun12=176 or sun12=476 or sun12=576 or sun12=776 or sun12=181 or sun12=481 or sun12=581 or sun12=781 or sun12=485. compute xmain73=54. compute xmain74=54. compute xmain75=54. compute xav73=40. compute xav74=40. compute xav75=40. Else if sun12=178 or sun12=478 or sun12=578 or sun12=778. compute xmain73=54. compute xmain74=54. compute xmain75=54. compute xav73=39. compute xav74=39. compute xav75=39. Else if sun12=163 or sun12=463 or sun12=563 or sun12=763 or sun12=164 or sun12=464 or sun12=564 or sun12=764. compute xmain73=55. compute xmain74=55. compute xmain75=55. compute xav73=36. compute xav74=36. compute xav75=36. Else if sun12=173 or sun12=473 or sun12=573 or sun12=773 or sun12=873. compute xmain73=56. compute xmain74=56. compute xmain75=56. compute xav73=34. compute xav74=34. compute xav75=34. Else if sun12=174 or sun12=474 or sun12=574 or sun12=875 or sun12=175 or sun12=475 or sun12=575 or sun12=775. compute xmain73=56. compute xmain74=56. compute xmain75=56. compute xav73=35. compute xav74=35. compute xav75=35. Else if sun12=162 or sun12=462 or sun12=562 or sun12=762 or sun12=862. compute xmain73=57. compute xmain74=57. compute xmain75=57. compute xav73=32. compute xav74=32. compute xav75=32. Else if sun12=160 or sun12=460 or sun12=560 or sun12=760. compute xmain73=58. compute xmain74=58. compute xmain75=58. compute xav73=30. compute xav74=30. compute xav75=30. Else if sun12=161 or sun12=461 or sun12=561 or sun12=761 or sun12=165 or sun12=465 or sun12=565 or sun12=765. compute xmain73=59. compute xmain74=59. compute xmain75=59. compute xav73=31. compute xav74=31. compute xav75=31. Else if sun12=692. compute xmain73=62. compute xmain74=62. compute xmain75=62. compute xav73=17. compute xav74=17. compute xav75=17. Else if sun12=9 or sun12=209 or sun12=309 or sun12=10 or sun12=210 or sun12=310 or sun12=610 or sun12=11 or sun12=211 or sun12=311. compute xmain73=63. compute xmain74=63. compute xmain75=63. compute xav73=5. compute xav74=5. compute xav75=5. Else if sun12=24 or sun12=224 or sun12=324 or sun12=25 or sun12=225 or sun12=325 or sun12=26 or sun12=226 or sun12=326. compute xmain73=64. compute xmain74=64. compute xmain75=64. compute xav73=5. compute xav74=5. compute xav75=5. Else if sun12=59 or sun12=259 or sun12=359. compute xmain73=65. compute xmain74=65. compute xmain75=65. compute xav73=17. compute xav74=17. compute xav75=17. Else if sun12=39 or sun12=239 or sun12=339 or sun12=40 or sun12=240 or sun12=340 or sun12=640. compute xmain73=67. compute xmain74=67. compute xmain75=67. compute xav73=12. compute xav74=12. compute xav75=12. Else if sun12=67 or sun12=267 or sun12=367 or sun12=74 or sun12=274 or sun12=374 or sun12=83 or sun12=283 or sun12=383 or sun12=90 or sun12=290 or sun12=390. compute xmain73=68. compute xmain74=68. compute xmain75=68. compute xav73=17. compute xav74=17. compute xav75=17. Else. compute residual=sun12. End if. Do if (sun12>199 and sun12<300) or (sun12>399 and sun12<500). compute xsec73=58. compute xsec74=58. compute xsec75=58. Else if (sun12>299 and sun12<400) or (sun12>499 and sun12<600). compute xsec73=59. compute xsec74=59. compute xsec75=59. End if. freq residual. compute residual=0. Do if sun13=150 or sun13=151 or sun13=152 or sun13=153 or sun13=159 or sun13=750 or sun13=450 or sun13=451 or sun13=452 or sun13=453 or sun13=459 or sun13=550 or sun13=551 or sun13=552 or sun13=553 or sun13=559 or sun13=752. compute xmain76=2. compute xmain77=2. compute xmain78=2. compute xav76=16. compute xav77=16. compute xav78=16. Else if sun13=130 or sun13=136 or sun13=430 or sun13=436 or sun13=530 or sun13=536 or sun13=730 or sun13=619. compute xmain76=4. compute xmain77=4. compute xmain78=4. compute xav76=13. compute xav77=13. compute xav78=13. Else if sun13=6 or sun13=206 or sun13=306. compute xmain76=5. compute xmain77=5. compute xmain78=5. compute xav76=1. compute xav77=1. compute xav78=1. Else if sun13=140 or sun13=141 or sun13=142 or sun13=144 or sun13=440 or sun13=441 or sun13=442 or sun13=444 or sun13=540 or sun13=541 or sun13=542 or sun13=544 or sun13=740 or sun13=741 or sun13=840 or sun13=841. compute xmain76=6. compute xmain77=6. compute xmain78=6. compute xav76=15. compute xav77=15. compute xav78=15. Else if sun13=1 or sun13=2 or sun13=13 or sun13=201 or sun13=202 or sun13=213 or sun13=301 or sun13=302 or sun13=313 or sun13=770 or sun13=200. compute xmain76=7. compute xmain77=7. compute xmain78=7. compute xav76=1. compute xav77=1. compute xav78=1. Else if sun13=170 or sun13=470 or sun13=570 or sun13=601 or sun13=603 or sun13=605. compute xmain76=8. compute xmain77=8. compute xmain78=8. compute xav76=2. compute xav77=2. compute xav78=2. Else if sun13=3 or sun13=203 or sun13=303. compute xmain76=9. compute xmain77=9. compute xmain78=9. compute xav76=3. compute xav77=3. compute xav78=3. Else if sun13=12 or sun13=212 or sun13=312 or sun13=612. compute xmain76=11. compute xmain77=11. compute xmain78=11. compute xav76=1. compute xav77=1. compute xav78=1. Else if sun13=7 or sun13=207 or sun13=307 or sun13=607. compute xmain76=12. compute xmain77=12. compute xmain78=12. compute xav76=1. compute xav77=1. compute xav78=1. compute xsec76=6. compute xsec77=6. compute xsec78=6. Else if sun13=8 or sun13=208 or sun13=308. compute xmain76=12. compute xmain77=12. compute xmain78=12. compute xav76=1. compute xav77=1. compute xav78=1. Else if sun13=4 or sun13=204 or sun13=304 or sun13=5 or sun13=205 or sun13=305. compute xmain76=13. compute xmain77=13. compute xmain78=13. compute xav76=1. compute xav77=1. compute xav78=1. Else if sun13=20 or sun13=220 or sun13=320 or sun13=21 or sun13=221 or sun13=321 or sun13=620. compute xmain76=15. compute xmain77=15. compute xmain78=15. compute xav76=4. compute xav77=4. compute xav78=4. Else if sun13=171 or sun13=471 or sun13=571 or sun13=172 or sun13=472 or sun13=572. compute xmain76=16. compute xmain77=16. compute xmain78=16. compute xav76=33. compute xav77=33. compute xav78=33. Else if sun13=22 or sun13=222 or sun13=322. compute xmain76=17. compute xmain77=17. compute xmain78=17. compute xav76=4. compute xav77=4. compute xav78=4. Else if sun13=27 or sun13=227 or sun13=327. compute xmain76=17. compute xmain77=17. compute xmain78=17. compute xav76=25. compute xav77=25. compute xav78=25. compute xsec76=64. compute xsec77=64. compute xsec78=64. Else if sun13=100 or sun13=400 or sun13=500 or sun13=700. compute xmain76=18. compute xmain77=18. compute xmain78=18. compute xav76=6. compute xav77=6. compute xav78=6. Else if sun13=101 or sun13=401 or sun13=501 or sun13=701 or sun13=801. compute xmain76=19. compute xmain77=19. compute xmain78=19. compute xav76=6. compute xav77=6. compute xav78=6. Else if sun13=102 or sun13=402 or sun13=502 or sun13=702 or sun13=103 or sun13=403 or sun13=503 or sun13=703. compute xmain76=20. compute xmain77=20. compute xmain78=20. compute xav76=7. compute xav77=7. compute xav78=7. Else if sun13=104 or sun13=404 or sun13=504 or sun13=704. compute xmain76=21. compute xmain77=21. compute xmain78=21. compute xav76=7. compute xav77=7. compute xav78=7. Else if sun13=105 or sun13=405 or sun13=505 or sun13=705. compute xmain76=21. compute xmain77=21. compute xmain78=21. compute xav76=8. compute xav77=8. compute xav78=8. Else if sun13=106 or sun13=406 or sun13=506 or sun13=706 or sun13=107 or sun13=407 or sun13=507 or sun13=707. compute xmain76=22. compute xmain77=22. compute xmain78=22. compute xav76=8. compute xav77=8. compute xav78=8. Else if sun13=110 or sun13=410 or sun13=510 or sun13=710. compute xmain76=23. compute xmain77=23. compute xmain78=23. compute xav76=8. compute xav77=8. compute xav78=8. Else if sun13=30 or sun13=230 or sun13=330 or sun13=630 or sun13=31 or sun13=231 or sun13=331 or sun13=36 or sun13=236 or sun13=336 or sun13=38 or sun13=238 or sun13=338. compute xmain76=24. compute xmain77=24. compute xmain78=24. compute xav76=10. compute xav77=10. compute xav78=10. Else if sun13=32 or sun13=232 or sun13=332 or sun13=632 or sun13=33 or sun13=233 or sun13=333 or sun13=633 or sun13=34 or sun13=234 or sun13=334 or sun13=131 or sun13=431 or sun13=531 or sun16=731. compute xmain76=25. compute xmain77=25. compute xmain78=25. compute xav76=14. compute xav77=14. compute xav78=14. Else if sun13=37 or sun13=237 or sun13=337 or sun13=637. compute xmain76=26. compute xmain77=26. compute xmain78=26. compute xav76=10. compute xav77=10. compute xav78=10. Else if sun13=108 or sun13=408 or sun13=508 or sun13=708. compute xmain76=27. compute xmain77=27. compute xmain78=27. compute xav76=8. compute xav77=8. compute xav78=8. Else if sun13=35 or sun13=235 or sun13=335 or sun13=635 or sun13=120 or sun13=420 or sun13=520 or sun13=720 or sun13=121 or sun13=421 or sun13=521 or sun13=721. compute xmain76=28. compute xmain77=28. compute xmain78=28. compute xav76=11. compute xav77=11. compute xav78=11. Else if sun13=123 or sun13=423 or sun13=523 or sun13=723. compute xmain76=29. compute xmain77=29. compute xmain78=29. compute xav76=11. compute xav77=11. compute xav78=11. Else if sun13=122 or sun13=422 or sun13=522. compute xmain76=30. compute xmain77=30. compute xmain78=30. compute xav76=11. compute xav77=11. compute xav78=11. Else if sun13=124 or sun13=424 or sun13=524 or sun13=724. compute xmain76=30. compute xmain77=30. compute xmain78=30. compute xav76=11. compute xav77=11. compute xav78=11. compute xsec76=43. compute xsec77=43. compute xsec78=43. Else if sun13=125 or sun13=425 or sun13=525 or sun13=725. compute xmain76=31. compute xmain77=31. compute xmain78=31. compute xav76=11. compute xav77=11. compute xav78=11. Else if sun13=133 or sun13=433 or sun13=533 or sun13=733. compute xmain76=32. compute xmain77=32. compute xmain78=32. compute xav76=8. compute xav77=8. compute xav78=8. Else if sun13=23 or sun13=223 or sun13=323 or sun13=51 or sun13=251 or sun13=351 or sun13=651 or sun13=52 or sun13=252 or sun13=352 or sun13=652 or sun13=53 or sun13=253 or sun13=353 or sun13=54 or sun13=254 or sun13=354 or sun13=654 or sun13=55 or sun13=255 or sun13=355 or sun13=56 or sun13=256 or sun13=356 or sun13=57 or sun13=257 or sun13=357 or sun13=657 or sun13=58 or sun13=258 or sun13=358 or sun13=658. compute xmain76=33. compute xmain77=33. compute xmain78=33. compute xav76=23. compute xav77=23. compute xav78=23. Else if sun13=50 or sun13=250 or sun13=350 or sun13=650 or sun13=132 or sun13=432 or sun13=532. compute xmain76=34. compute xmain77=34. compute xmain78=34. compute xav76=22. compute xav77=22. compute xav78=22. Else if sun13=66 or sun13=266 or sun13=366. compute xmain76=35. compute xmain77=35. compute xmain78=35. compute xav76=18. compute xav77=18. compute xav78=18. Else if sun13=95 or sun13=295 or sun13=395. compute xmain76=35. compute xmain77=35. compute xmain78=35. compute xav76=25. compute xav77=25. compute xav78=25. Else if sun13=73 or sun13=273 or sun13=373. compute xmain76=36. compute xmain77=36. compute xmain78=36. compute xav76=20. compute xav77=20. compute xav78=20. Else if sun13=70 or sun13=270 or sun13=370 or sun13=71 or sun13=271 or sun13=371 or sun13=72 or sun13=272 or sun13=372. compute xmain76=37. compute xmain77=37. compute xmain78=37. compute xav76=24. compute xav77=24. compute xav78=24. Else if sun13=63 or sun13=263 or sun13=363 or sun13=64 or sun13=264 or sun13=364 or sun13=65 or sun13=265 or sun13=365. compute xmain76=38. compute xmain77=38. compute xmain78=38. compute xav76=18. compute xav77=18. compute xav78=18. Else if sun13=77 or sun13=277 or sun13=377. compute xmain76=39. compute xmain77=39. compute xmain78=39. compute xav76=27. compute xav77=27. compute xav78=27. Else if sun13=80 or sun13=280 or sun13=380 or sun13=81 or sun13=281 or sun13=381. compute xmain76=39. compute xmain77=39. compute xmain78=39. compute xav76=28. compute xav77=28. compute xav78=28. Else if sun13=78 or sun13=278 or sun13=378 or sun13=79 or sun13=279 or sun13=379. compute xmain76=40. compute xmain77=40. compute xmain78=40. compute xav76=26. compute xav77=26. compute xav78=26. Else if sun13=82 or sun13=282 or sun13=382. compute xmain76=40. compute xmain77=40. compute xmain78=40. compute xav76=25. compute xav77=25. compute xav78=25. Else if sun13=900. compute xmain76=41. compute xmain77=41. compute xmain78=41. Else if sun13=60 or sun13=260 or sun13=360. compute xmain76=42. compute xmain77=42. compute xmain78=42. compute xav76=19. compute xav77=19. compute xav78=19. Else if sun13=61 or sun13=261 or sun13=361 or sun13=661. compute xmain76=43. compute xmain77=43. compute xmain78=43. compute xav76=21. compute xav77=21. compute xav78=21. Else if sun13=62 or sun13=262 or sun13=362. compute xmain76=46. compute xmain77=46. compute xmain78=46. compute xav76=19. compute xav77=19. compute xav78=19. Else if sun13=109 or sun13=409 or sun13=509 or sun13=709. compute xmain76=46. compute xmain77=46. compute xmain78=46. compute xav76=9. compute xav77=9. compute xav78=9. Else if sun13=75 or sun13=275 or sun13=375. compute xmain76=48. compute xmain77=48. compute xmain78=48. compute xav76=29. compute xav77=29. compute xav78=29. compute xsec76=6. compute xsec77=6. compute xsec78=6. Else if sun13=76 or sun13=276 or sun13=376. compute xmain76=48. compute xmain77=48. compute xmain78=48. compute xav76=29. compute xav77=29. compute xav78=29. Else if sun13=190 or sun13=490 or sun13=590. compute xmain76=48. compute xmain77=48. compute xmain78=48. compute xav76=38. compute xav77=38. compute xav78=38. compute xsec76=6. compute xsec77=6. compute xsec78=6. Else if sun13=191 or sun13=491 or sun13=591 or sun13=91. compute xmain76=48. compute xmain77=48. compute xmain78=48. compute xav76=38. compute xav77=38. compute xav78=38. Else if sun13=192 or sun13=492 or sun13=592 or sun13=792 or sun13=92. compute xmain76=49. compute xmain77=49. compute xmain78=49. compute xav76=37. compute xav77=37. compute xav78=37. Else if sun13=193 or sun13=493 or sun13=593 or sun13=793 or sun13=682. compute xmain76=50. compute xmain77=50. compute xmain78=50. compute xav76=40. compute xav77=40. compute xav78=40. Else if sun13=199 or sun13=499 or sun13=599. compute xmain76=51. compute xmain77=51. compute xmain78=51. compute xav76=36. compute xav77=36. compute xav78=36. Else if sun13=177 or sun13=477 or sun13=577 or sun13=777 or sun13=179 or sun13=479 or sun13=579 or sun13=779. compute xmain76=52. compute xmain77=52. compute xmain78=52. compute xav76=40. compute xav77=40. compute xav78=40. Else if sun13=180 or sun13=480 or sun13=580 or sun13=780. compute xmain76=53. compute xmain77=53. compute xmain78=53. compute xav76=40. compute xav77=40. compute xav78=40. Else if sun13=176 or sun13=476 or sun13=576 or sun13=776 or sun13=181 or sun13=481 or sun13=581 or sun13=781 or sun13=485. compute xmain76=54. compute xmain77=54. compute xmain78=54. compute xav76=40. compute xav77=40. compute xav78=40. Else if sun13=178 or sun13=478 or sun13=578 or sun13=778. compute xmain76=54. compute xmain77=54. compute xmain78=54. compute xav76=39. compute xav77=39. compute xav78=39. Else if sun13=163 or sun13=463 or sun13=563 or sun13=763 or sun13=164 or sun13=464 or sun13=564 or sun13=764. compute xmain76=55. compute xmain77=55. compute xmain78=55. compute xav76=36. compute xav77=36. compute xav78=36. Else if sun13=173 or sun13=473 or sun13=573 or sun13=773 or sun13=873. compute xmain76=56. compute xmain77=56. compute xmain78=56. compute xav76=34. compute xav77=34. compute xav78=34. Else if sun13=174 or sun13=474 or sun13=574 or sun13=875 or sun13=175 or sun13=475 or sun13=575 or sun13=775. compute xmain76=56. compute xmain77=56. compute xmain78=56. compute xav76=35. compute xav77=35. compute xav78=35. Else if sun13=162 or sun13=462 or sun13=562 or sun13=762 or sun13=862. compute xmain76=57. compute xmain77=57. compute xmain78=57. compute xav76=32. compute xav77=32. compute xav78=32. Else if sun13=160 or sun13=460 or sun13=560 or sun13=760. compute xmain76=58. compute xmain77=58. compute xmain78=58. compute xav76=30. compute xav77=30. compute xav78=30. Else if sun13=161 or sun13=461 or sun13=561 or sun13=761 or sun13=165 or sun13=465 or sun13=565 or sun13=765. compute xmain76=59. compute xmain77=59. compute xmain78=59. compute xav76=31. compute xav77=31. compute xav78=31. Else if sun13=692. compute xmain76=62. compute xmain77=62. compute xmain78=62. compute xav76=17. compute xav77=17. compute xav78=17. Else if sun13=9 or sun13=209 or sun13=309 or sun13=10 or sun13=210 or sun13=310 or sun13=610 or sun13=11 or sun13=211 or sun13=311. compute xmain76=63. compute xmain77=63. compute xmain78=63. compute xav76=5. compute xav77=5. compute xav78=5. Else if sun13=24 or sun13=224 or sun13=324 or sun13=25 or sun13=225 or sun13=325 or sun13=26 or sun13=226 or sun13=326. compute xmain76=64. compute xmain77=64. compute xmain78=64. compute xav76=5. compute xav77=5. compute xav78=5. Else if sun13=59 or sun13=259 or sun13=359. compute xmain76=65. compute xmain77=65. compute xmain78=65. compute xav76=17. compute xav77=17. compute xav78=17. Else if sun13=39 or sun13=239 or sun13=339 or sun13=40 or sun13=240 or sun13=340 or sun13=640. compute xmain76=67. compute xmain77=67. compute xmain78=67. compute xav76=12. compute xav77=12. compute xav78=12. Else if sun13=67 or sun13=267 or sun13=367 or sun13=74 or sun13=274 or sun13=374 or sun13=83 or sun13=283 or sun13=383 or sun13=90 or sun13=290 or sun13=390. compute xmain76=68. compute xmain77=68. compute xmain78=68. compute xav76=17. compute xav77=17. compute xav78=17. Else. compute residual=sun13. End if. Do if (sun13>199 and sun13<300) or (sun13>399 and sun13<500). compute xsec76=58. compute xsec77=58. compute xsec78=58. Else if (sun13>299 and sun13<400) or (sun13>499 and sun13<600). compute xsec76=59. compute xsec77=59. compute xsec78=59. End if. freq residual. if persid=1878 sun14=431. if persid=421 sun14=464. compute residual=0. Do if sun14=150 or sun14=151 or sun14=152 or sun14=153 or sun14=159 or sun14=750 or sun14=450 or sun14=451 or sun14=452 or sun14=453 or sun14=459 or sun14=550 or sun14=551 or sun14=552 or sun14=553 or sun14=559 or sun14=752. compute xmain79=2. compute xmain80=2. compute xmain81=2. compute xav79=16. compute xav80=16. compute xav81=16. Else if sun14=130 or sun14=136 or sun14=430 or sun14=436 or sun14=530 or sun14=536 or sun14=730 or sun14=619. compute xmain79=4. compute xmain80=4. compute xmain81=4. compute xav79=13. compute xav80=13. compute xav81=13. Else if sun14=6 or sun14=206 or sun14=306. compute xmain79=5. compute xmain80=5. compute xmain81=5. compute xav79=1. compute xav80=1. compute xav81=1. Else if sun14=140 or sun14=141 or sun14=142 or sun14=144 or sun14=440 or sun14=441 or sun14=442 or sun14=444 or sun14=540 or sun14=541 or sun14=542 or sun14=544 or sun14=740 or sun14=741 or sun14=840 or sun14=841. compute xmain79=6. compute xmain80=6. compute xmain81=6. compute xav79=15. compute xav80=15. compute xav81=15. Else if sun14=1 or sun14=2 or sun14=13 or sun14=201 or sun14=202 or sun14=213 or sun14=301 or sun14=302 or sun14=313 or sun14=770 or sun14=200. compute xmain79=7. compute xmain80=7. compute xmain81=7. compute xav79=1. compute xav80=1. compute xav81=1. Else if sun14=170 or sun14=470 or sun14=570 or sun14=601 or sun14=603 or sun14=605. compute xmain79=8. compute xmain80=8. compute xmain81=8. compute xav79=2. compute xav80=2. compute xav81=2. Else if sun14=3 or sun14=203 or sun14=303. compute xmain79=9. compute xmain80=9. compute xmain81=9. compute xav79=3. compute xav80=3. compute xav81=3. Else if sun14=12 or sun14=212 or sun14=312 or sun14=612. compute xmain79=11. compute xmain80=11. compute xmain81=11. compute xav79=1. compute xav80=1. compute xav81=1. Else if sun14=7 or sun14=207 or sun14=307 or sun14=607. compute xmain79=12. compute xmain80=12. compute xmain81=12. compute xav79=1. compute xav80=1. compute xav81=1. compute xsec79=6. compute xsec80=6. compute xsec81=6. Else if sun14=8 or sun14=208 or sun14=308. compute xmain79=12. compute xmain80=12. compute xmain81=12. compute xav79=1. compute xav80=1. compute xav81=1. Else if sun14=4 or sun14=204 or sun14=304 or sun14=5 or sun14=205 or sun14=305. compute xmain79=13. compute xmain80=13. compute xmain81=13. compute xav79=1. compute xav80=1. compute xav81=1. Else if sun14=20 or sun14=220 or sun14=320 or sun14=21 or sun14=221 or sun14=321 or sun14=620. compute xmain79=15. compute xmain80=15. compute xmain81=15. compute xav79=4. compute xav80=4. compute xav81=4. Else if sun14=171 or sun14=471 or sun14=571 or sun14=172 or sun14=472 or sun14=572. compute xmain79=16. compute xmain80=16. compute xmain81=16. compute xav79=33. compute xav80=33. compute xav81=33. Else if sun14=22 or sun14=222 or sun14=322. compute xmain79=17. compute xmain80=17. compute xmain81=17. compute xav79=4. compute xav80=4. compute xav81=4. Else if sun14=27 or sun14=227 or sun14=327. compute xmain79=17. compute xmain80=17. compute xmain81=17. compute xav79=25. compute xav80=25. compute xav81=25. compute xsec79=64. compute xsec80=64. compute xsec81=64. Else if sun14=100 or sun14=400 or sun14=500 or sun14=700. compute xmain79=18. compute xmain80=18. compute xmain81=18. compute xav79=6. compute xav80=6. compute xav81=6. Else if sun14=101 or sun14=401 or sun14=501 or sun14=701 or sun14=801. compute xmain79=19. compute xmain80=19. compute xmain81=19. compute xav79=6. compute xav80=6. compute xav81=6. Else if sun14=102 or sun14=402 or sun14=502 or sun14=702 or sun14=103 or sun14=403 or sun14=503 or sun14=703. compute xmain79=20. compute xmain80=20. compute xmain81=20. compute xav79=7. compute xav80=7. compute xav81=7. Else if sun14=104 or sun14=404 or sun14=504 or sun14=704. compute xmain79=21. compute xmain80=21. compute xmain81=21. compute xav79=7. compute xav80=7. compute xav81=7. Else if sun14=105 or sun14=405 or sun14=505 or sun14=705. compute xmain79=21. compute xmain80=21. compute xmain81=21. compute xav79=8. compute xav80=8. compute xav81=8. Else if sun14=106 or sun14=406 or sun14=506 or sun14=706 or sun14=107 or sun14=407 or sun14=507 or sun14=707. compute xmain79=22. compute xmain80=22. compute xmain81=22. compute xav79=8. compute xav80=8. compute xav81=8. Else if sun14=110 or sun14=410 or sun14=510 or sun14=710. compute xmain79=23. compute xmain80=23. compute xmain81=23. compute xav79=8. compute xav80=8. compute xav81=8. Else if sun14=30 or sun14=230 or sun14=330 or sun14=630 or sun14=31 or sun14=231 or sun14=331 or sun14=36 or sun14=236 or sun14=336 or sun14=38 or sun14=238 or sun14=338. compute xmain79=24. compute xmain80=24. compute xmain81=24. compute xav79=10. compute xav80=10. compute xav81=10. Else if sun14=32 or sun14=232 or sun14=332 or sun14=632 or sun14=33 or sun14=233 or sun14=333 or sun14=633 or sun14=34 or sun14=234 or sun14=334 or sun14=131 or sun14=431 or sun14=531 or sun16=731. compute xmain79=25. compute xmain80=25. compute xmain81=25. compute xav79=14. compute xav80=14. compute xav81=14. Else if sun14=37 or sun14=237 or sun14=337 or sun14=637. compute xmain79=26. compute xmain80=26. compute xmain81=26. compute xav79=10. compute xav80=10. compute xav81=10. Else if sun14=108 or sun14=408 or sun14=508 or sun14=708. compute xmain79=27. compute xmain80=27. compute xmain81=27. compute xav79=8. compute xav80=8. compute xav81=8. Else if sun14=35 or sun14=235 or sun14=335 or sun14=635 or sun14=120 or sun14=420 or sun14=520 or sun14=720 or sun14=121 or sun14=421 or sun14=521 or sun14=721. compute xmain79=28. compute xmain80=28. compute xmain81=28. compute xav79=11. compute xav80=11. compute xav81=11. Else if sun14=123 or sun14=423 or sun14=523 or sun14=723. compute xmain79=29. compute xmain80=29. compute xmain81=29. compute xav79=11. compute xav80=11. compute xav81=11. Else if sun14=122 or sun14=422 or sun14=522. compute xmain79=30. compute xmain80=30. compute xmain81=30. compute xav79=11. compute xav80=11. compute xav81=11. Else if sun14=124 or sun14=424 or sun14=524 or sun14=724. compute xmain79=30. compute xmain80=30. compute xmain81=30. compute xav79=11. compute xav80=11. compute xav81=11. compute xsec79=43. compute xsec80=43. compute xsec81=43. Else if sun14=125 or sun14=425 or sun14=525 or sun14=725. compute xmain79=31. compute xmain80=31. compute xmain81=31. compute xav79=11. compute xav80=11. compute xav81=11. Else if sun14=133 or sun14=433 or sun14=533 or sun14=733. compute xmain79=32. compute xmain80=32. compute xmain81=32. compute xav79=8. compute xav80=8. compute xav81=8. Else if sun14=23 or sun14=223 or sun14=323 or sun14=51 or sun14=251 or sun14=351 or sun14=651 or sun14=52 or sun14=252 or sun14=352 or sun14=652 or sun14=53 or sun14=253 or sun14=353 or sun14=54 or sun14=254 or sun14=354 or sun14=654 or sun14=55 or sun14=255 or sun14=355 or sun14=56 or sun14=256 or sun14=356 or sun14=57 or sun14=257 or sun14=357 or sun14=657 or sun14=58 or sun14=258 or sun14=358 or sun14=658. compute xmain79=33. compute xmain80=33. compute xmain81=33. compute xav79=23. compute xav80=23. compute xav81=23. Else if sun14=50 or sun14=250 or sun14=350 or sun14=650 or sun14=132 or sun14=432 or sun14=532. compute xmain79=34. compute xmain80=34. compute xmain81=34. compute xav79=22. compute xav80=22. compute xav81=22. Else if sun14=66 or sun14=266 or sun14=366. compute xmain79=35. compute xmain80=35. compute xmain81=35. compute xav79=18. compute xav80=18. compute xav81=18. Else if sun14=95 or sun14=295 or sun14=395. compute xmain79=35. compute xmain80=35. compute xmain81=35. compute xav79=25. compute xav80=25. compute xav81=25. Else if sun14=73 or sun14=273 or sun14=373. compute xmain79=36. compute xmain80=36. compute xmain81=36. compute xav79=20. compute xav80=20. compute xav81=20. Else if sun14=70 or sun14=270 or sun14=370 or sun14=71 or sun14=271 or sun14=371 or sun14=72 or sun14=272 or sun14=372. compute xmain79=37. compute xmain80=37. compute xmain81=37. compute xav79=24. compute xav80=24. compute xav81=24. Else if sun14=63 or sun14=263 or sun14=363 or sun14=64 or sun14=264 or sun14=364 or sun14=65 or sun14=265 or sun14=365. compute xmain79=38. compute xmain80=38. compute xmain81=38. compute xav79=18. compute xav80=18. compute xav81=18. Else if sun14=77 or sun14=277 or sun14=377. compute xmain79=39. compute xmain80=39. compute xmain81=39. compute xav79=27. compute xav80=27. compute xav81=27. Else if sun14=80 or sun14=280 or sun14=380 or sun14=81 or sun14=281 or sun14=381. compute xmain79=39. compute xmain80=39. compute xmain81=39. compute xav79=28. compute xav80=28. compute xav81=28. Else if sun14=78 or sun14=278 or sun14=378 or sun14=79 or sun14=279 or sun14=379. compute xmain79=40. compute xmain80=40. compute xmain81=40. compute xav79=26. compute xav80=26. compute xav81=26. Else if sun14=82 or sun14=282 or sun14=382. compute xmain79=40. compute xmain80=40. compute xmain81=40. compute xav79=25. compute xav80=25. compute xav81=25. Else if sun14=900. compute xmain79=41. compute xmain80=41. compute xmain81=41. Else if sun14=60 or sun14=260 or sun14=360. compute xmain79=42. compute xmain80=42. compute xmain81=42. compute xav79=19. compute xav80=19. compute xav81=19. Else if sun14=61 or sun14=261 or sun14=361 or sun14=661. compute xmain79=43. compute xmain80=43. compute xmain81=43. compute xav79=21. compute xav80=21. compute xav81=21. Else if sun14=62 or sun14=262 or sun14=362. compute xmain79=46. compute xmain80=46. compute xmain81=46. compute xav79=19. compute xav80=19. compute xav81=19. Else if sun14=109 or sun14=409 or sun14=509 or sun14=709. compute xmain79=46. compute xmain80=46. compute xmain81=46. compute xav79=9. compute xav80=9. compute xav81=9. Else if sun14=75 or sun14=275 or sun14=375. compute xmain79=48. compute xmain80=48. compute xmain81=48. compute xav79=29. compute xav80=29. compute xav81=29. compute xsec79=6. compute xsec80=6. compute xsec81=6. Else if sun14=76 or sun14=276 or sun14=376. compute xmain79=48. compute xmain80=48. compute xmain81=48. compute xav79=29. compute xav80=29. compute xav81=29. Else if sun14=190 or sun14=490 or sun14=590. compute xmain79=48. compute xmain80=48. compute xmain81=48. compute xav79=38. compute xav80=38. compute xav81=38. compute xsec79=6. compute xsec80=6. compute xsec81=6. Else if sun14=191 or sun14=491 or sun14=591 or sun14=91. compute xmain79=48. compute xmain80=48. compute xmain81=48. compute xav79=38. compute xav80=38. compute xav81=38. Else if sun14=192 or sun14=492 or sun14=592 or sun14=792 or sun14=92. compute xmain79=49. compute xmain80=49. compute xmain81=49. compute xav79=37. compute xav80=37. compute xav81=37. Else if sun14=193 or sun14=493 or sun14=593 or sun14=793 or sun14=682. compute xmain79=50. compute xmain80=50. compute xmain81=50. compute xav79=40. compute xav80=40. compute xav81=40. Else if sun14=199 or sun14=499 or sun14=599. compute xmain79=51. compute xmain80=51. compute xmain81=51. compute xav79=36. compute xav80=36. compute xav81=36. Else if sun14=177 or sun14=477 or sun14=577 or sun14=777 or sun14=179 or sun14=479 or sun14=579 or sun14=779. compute xmain79=52. compute xmain80=52. compute xmain81=52. compute xav79=40. compute xav80=40. compute xav81=40. Else if sun14=180 or sun14=480 or sun14=580 or sun14=780. compute xmain79=53. compute xmain80=53. compute xmain81=53. compute xav79=40. compute xav80=40. compute xav81=40. Else if sun14=176 or sun14=476 or sun14=576 or sun14=776 or sun14=181 or sun14=481 or sun14=581 or sun14=781 or sun14=485. compute xmain79=54. compute xmain80=54. compute xmain81=54. compute xav79=40. compute xav80=40. compute xav81=40. Else if sun14=178 or sun14=478 or sun14=578 or sun14=778. compute xmain79=54. compute xmain80=54. compute xmain81=54. compute xav79=39. compute xav80=39. compute xav81=39. Else if sun14=163 or sun14=463 or sun14=563 or sun14=763 or sun14=164 or sun14=464 or sun14=564 or sun14=764. compute xmain79=55. compute xmain80=55. compute xmain81=55. compute xav79=36. compute xav80=36. compute xav81=36. Else if sun14=173 or sun14=473 or sun14=573 or sun14=773 or sun14=873. compute xmain79=56. compute xmain80=56. compute xmain81=56. compute xav79=34. compute xav80=34. compute xav81=34. Else if sun14=174 or sun14=474 or sun14=574 or sun14=875 or sun14=175 or sun14=475 or sun14=575 or sun14=775. compute xmain79=56. compute xmain80=56. compute xmain81=56. compute xav79=35. compute xav80=35. compute xav81=35. Else if sun14=162 or sun14=462 or sun14=562 or sun14=762 or sun14=862. compute xmain79=57. compute xmain80=57. compute xmain81=57. compute xav79=32. compute xav80=32. compute xav81=32. Else if sun14=160 or sun14=460 or sun14=560 or sun14=760. compute xmain79=58. compute xmain80=58. compute xmain81=58. compute xav79=30. compute xav80=30. compute xav81=30. Else if sun14=161 or sun14=461 or sun14=561 or sun14=761 or sun14=165 or sun14=465 or sun14=565 or sun14=765. compute xmain79=59. compute xmain80=59. compute xmain81=59. compute xav79=31. compute xav80=31. compute xav81=31. Else if sun14=692. compute xmain79=62. compute xmain80=62. compute xmain81=62. compute xav79=17. compute xav80=17. compute xav81=17. Else if sun14=9 or sun14=209 or sun14=309 or sun14=10 or sun14=210 or sun14=310 or sun14=610 or sun14=11 or sun14=211 or sun14=311. compute xmain79=63. compute xmain80=63. compute xmain81=63. compute xav79=5. compute xav80=5. compute xav81=5. Else if sun14=24 or sun14=224 or sun14=324 or sun14=25 or sun14=225 or sun14=325 or sun14=26 or sun14=226 or sun14=326. compute xmain79=64. compute xmain80=64. compute xmain81=64. compute xav79=5. compute xav80=5. compute xav81=5. Else if sun14=59 or sun14=259 or sun14=359. compute xmain79=65. compute xmain80=65. compute xmain81=65. compute xav79=17. compute xav80=17. compute xav81=17. Else if sun14=39 or sun14=239 or sun14=339 or sun14=40 or sun14=240 or sun14=340 or sun14=640. compute xmain79=67. compute xmain80=67. compute xmain81=67. compute xav79=12. compute xav80=12. compute xav81=12. Else if sun14=67 or sun14=267 or sun14=367 or sun14=74 or sun14=274 or sun14=374 or sun14=83 or sun14=283 or sun14=383 or sun14=90 or sun14=290 or sun14=390. compute xmain79=68. compute xmain80=68. compute xmain81=68. compute xav79=17. compute xav80=17. compute xav81=17. Else. compute residual=sun14. End if. Do if (sun14>199 and sun14<300) or (sun14>399 and sun14<500). compute xsec79=58. compute xsec80=58. compute xsec81=58. Else if (sun14>299 and sun14<400) or (sun14>499 and sun14<600). compute xsec79=59. compute xsec80=59. compute xsec81=59. End if. freq residual. compute residual=0. Do if sun15=150 or sun15=151 or sun15=152 or sun15=153 or sun15=159 or sun15=750 or sun15=450 or sun15=451 or sun15=452 or sun15=453 or sun15=459 or sun15=550 or sun15=551 or sun15=552 or sun15=553 or sun15=559 or sun15=752. compute xmain82=2. compute xmain83=2. compute xmain84=2. compute xav82=16. compute xav83=16. compute xav84=16. Else if sun15=130 or sun15=136 or sun15=430 or sun15=436 or sun15=530 or sun15=536 or sun15=730 or sun15=619. compute xmain82=4. compute xmain83=4. compute xmain84=4. compute xav82=13. compute xav83=13. compute xav84=13. Else if sun15=6 or sun15=206 or sun15=306. compute xmain82=5. compute xmain83=5. compute xmain84=5. compute xav82=1. compute xav83=1. compute xav84=1. Else if sun15=140 or sun15=141 or sun15=142 or sun15=144 or sun15=440 or sun15=441 or sun15=442 or sun15=444 or sun15=540 or sun15=541 or sun15=542 or sun15=544 or sun15=740 or sun15=741 or sun15=840 or sun15=841. compute xmain82=6. compute xmain83=6. compute xmain84=6. compute xav82=15. compute xav83=15. compute xav84=15. Else if sun15=1 or sun15=2 or sun15=13 or sun15=201 or sun15=202 or sun15=213 or sun15=301 or sun15=302 or sun15=313 or sun15=770 or sun15=200. compute xmain82=7. compute xmain83=7. compute xmain84=7. compute xav82=1. compute xav83=1. compute xav84=1. Else if sun15=170 or sun15=470 or sun15=570 or sun15=601 or sun15=603 or sun15=605. compute xmain82=8. compute xmain83=8. compute xmain84=8. compute xav82=2. compute xav83=2. compute xav84=2. Else if sun15=3 or sun15=203 or sun15=303. compute xmain82=9. compute xmain83=9. compute xmain84=9. compute xav82=3. compute xav83=3. compute xav84=3. Else if sun15=12 or sun15=212 or sun15=312 or sun15=612. compute xmain82=11. compute xmain83=11. compute xmain84=11. compute xav82=1. compute xav83=1. compute xav84=1. Else if sun15=7 or sun15=207 or sun15=307 or sun15=607. compute xmain82=12. compute xmain83=12. compute xmain84=12. compute xav82=1. compute xav83=1. compute xav84=1. compute xsec82=6. compute xsec83=6. compute xsec84=6. Else if sun15=8 or sun15=208 or sun15=308. compute xmain82=12. compute xmain83=12. compute xmain84=12. compute xav82=1. compute xav83=1. compute xav84=1. Else if sun15=4 or sun15=204 or sun15=304 or sun15=5 or sun15=205 or sun15=305. compute xmain82=13. compute xmain83=13. compute xmain84=13. compute xav82=1. compute xav83=1. compute xav84=1. Else if sun15=20 or sun15=220 or sun15=320 or sun15=21 or sun15=221 or sun15=321 or sun15=620. compute xmain82=15. compute xmain83=15. compute xmain84=15. compute xav82=4. compute xav83=4. compute xav84=4. Else if sun15=171 or sun15=471 or sun15=571 or sun15=172 or sun15=472 or sun15=572. compute xmain82=16. compute xmain83=16. compute xmain84=16. compute xav82=33. compute xav83=33. compute xav84=33. Else if sun15=22 or sun15=222 or sun15=322. compute xmain82=17. compute xmain83=17. compute xmain84=17. compute xav82=4. compute xav83=4. compute xav84=4. Else if sun15=27 or sun15=227 or sun15=327. compute xmain82=17. compute xmain83=17. compute xmain84=17. compute xav82=25. compute xav83=25. compute xav84=25. compute xsec82=64. compute xsec83=64. compute xsec84=64. Else if sun15=100 or sun15=400 or sun15=500 or sun15=700. compute xmain82=18. compute xmain83=18. compute xmain84=18. compute xav82=6. compute xav83=6. compute xav84=6. Else if sun15=101 or sun15=401 or sun15=501 or sun15=701 or sun15=801. compute xmain82=19. compute xmain83=19. compute xmain84=19. compute xav82=6. compute xav83=6. compute xav84=6. Else if sun15=102 or sun15=402 or sun15=502 or sun15=702 or sun15=103 or sun15=403 or sun15=503 or sun15=703. compute xmain82=20. compute xmain83=20. compute xmain84=20. compute xav82=7. compute xav83=7. compute xav84=7. Else if sun15=104 or sun15=404 or sun15=504 or sun15=704. compute xmain82=21. compute xmain83=21. compute xmain84=21. compute xav82=7. compute xav83=7. compute xav84=7. Else if sun15=105 or sun15=405 or sun15=505 or sun15=705. compute xmain82=21. compute xmain83=21. compute xmain84=21. compute xav82=8. compute xav83=8. compute xav84=8. Else if sun15=106 or sun15=406 or sun15=506 or sun15=706 or sun15=107 or sun15=407 or sun15=507 or sun15=707. compute xmain82=22. compute xmain83=22. compute xmain84=22. compute xav82=8. compute xav83=8. compute xav84=8. Else if sun15=110 or sun15=410 or sun15=510 or sun15=710. compute xmain82=23. compute xmain83=23. compute xmain84=23. compute xav82=8. compute xav83=8. compute xav84=8. Else if sun15=30 or sun15=230 or sun15=330 or sun15=630 or sun15=31 or sun15=231 or sun15=331 or sun15=36 or sun15=236 or sun15=336 or sun15=38 or sun15=238 or sun15=338. compute xmain82=24. compute xmain83=24. compute xmain84=24. compute xav82=10. compute xav83=10. compute xav84=10. Else if sun15=32 or sun15=232 or sun15=332 or sun15=632 or sun15=33 or sun15=233 or sun15=333 or sun15=633 or sun15=34 or sun15=234 or sun15=334 or sun15=131 or sun15=431 or sun15=531 or sun16=731. compute xmain82=25. compute xmain83=25. compute xmain84=25. compute xav82=14. compute xav83=14. compute xav84=14. Else if sun15=37 or sun15=237 or sun15=337 or sun15=637. compute xmain82=26. compute xmain83=26. compute xmain84=26. compute xav82=10. compute xav83=10. compute xav84=10. Else if sun15=108 or sun15=408 or sun15=508 or sun15=708. compute xmain82=27. compute xmain83=27. compute xmain84=27. compute xav82=8. compute xav83=8. compute xav84=8. Else if sun15=35 or sun15=235 or sun15=335 or sun15=635 or sun15=120 or sun15=420 or sun15=520 or sun15=720 or sun15=121 or sun15=421 or sun15=521 or sun15=721. compute xmain82=28. compute xmain83=28. compute xmain84=28. compute xav82=11. compute xav83=11. compute xav84=11. Else if sun15=123 or sun15=423 or sun15=523 or sun15=723. compute xmain82=29. compute xmain83=29. compute xmain84=29. compute xav82=11. compute xav83=11. compute xav84=11. Else if sun15=122 or sun15=422 or sun15=522. compute xmain82=30. compute xmain83=30. compute xmain84=30. compute xav82=11. compute xav83=11. compute xav84=11. Else if sun15=124 or sun15=424 or sun15=524 or sun15=724. compute xmain82=30. compute xmain83=30. compute xmain84=30. compute xav82=11. compute xav83=11. compute xav84=11. compute xsec82=43. compute xsec83=43. compute xsec84=43. Else if sun15=125 or sun15=425 or sun15=525 or sun15=725. compute xmain82=31. compute xmain83=31. compute xmain84=31. compute xav82=11. compute xav83=11. compute xav84=11. Else if sun15=133 or sun15=433 or sun15=533 or sun15=733. compute xmain82=32. compute xmain83=32. compute xmain84=32. compute xav82=8. compute xav83=8. compute xav84=8. Else if sun15=23 or sun15=223 or sun15=323 or sun15=51 or sun15=251 or sun15=351 or sun15=651 or sun15=52 or sun15=252 or sun15=352 or sun15=652 or sun15=53 or sun15=253 or sun15=353 or sun15=54 or sun15=254 or sun15=354 or sun15=654 or sun15=55 or sun15=255 or sun15=355 or sun15=56 or sun15=256 or sun15=356 or sun15=57 or sun15=257 or sun15=357 or sun15=657 or sun15=58 or sun15=258 or sun15=358 or sun15=658. compute xmain82=33. compute xmain83=33. compute xmain84=33. compute xav82=23. compute xav83=23. compute xav84=23. Else if sun15=50 or sun15=250 or sun15=350 or sun15=650 or sun15=132 or sun15=432 or sun15=532. compute xmain82=34. compute xmain83=34. compute xmain84=34. compute xav82=22. compute xav83=22. compute xav84=22. Else if sun15=66 or sun15=266 or sun15=366. compute xmain82=35. compute xmain83=35. compute xmain84=35. compute xav82=18. compute xav83=18. compute xav84=18. Else if sun15=95 or sun15=295 or sun15=395. compute xmain82=35. compute xmain83=35. compute xmain84=35. compute xav82=25. compute xav83=25. compute xav84=25. Else if sun15=73 or sun15=273 or sun15=373. compute xmain82=36. compute xmain83=36. compute xmain84=36. compute xav82=20. compute xav83=20. compute xav84=20. Else if sun15=70 or sun15=270 or sun15=370 or sun15=71 or sun15=271 or sun15=371 or sun15=72 or sun15=272 or sun15=372. compute xmain82=37. compute xmain83=37. compute xmain84=37. compute xav82=24. compute xav83=24. compute xav84=24. Else if sun15=63 or sun15=263 or sun15=363 or sun15=64 or sun15=264 or sun15=364 or sun15=65 or sun15=265 or sun15=365. compute xmain82=38. compute xmain83=38. compute xmain84=38. compute xav82=18. compute xav83=18. compute xav84=18. Else if sun15=77 or sun15=277 or sun15=377. compute xmain82=39. compute xmain83=39. compute xmain84=39. compute xav82=27. compute xav83=27. compute xav84=27. Else if sun15=80 or sun15=280 or sun15=380 or sun15=81 or sun15=281 or sun15=381. compute xmain82=39. compute xmain83=39. compute xmain84=39. compute xav82=28. compute xav83=28. compute xav84=28. Else if sun15=78 or sun15=278 or sun15=378 or sun15=79 or sun15=279 or sun15=379. compute xmain82=40. compute xmain83=40. compute xmain84=40. compute xav82=26. compute xav83=26. compute xav84=26. Else if sun15=82 or sun15=282 or sun15=382. compute xmain82=40. compute xmain83=40. compute xmain84=40. compute xav82=25. compute xav83=25. compute xav84=25. Else if sun15=900. compute xmain82=41. compute xmain83=41. compute xmain84=41. Else if sun15=60 or sun15=260 or sun15=360. compute xmain82=42. compute xmain83=42. compute xmain84=42. compute xav82=19. compute xav83=19. compute xav84=19. Else if sun15=61 or sun15=261 or sun15=361 or sun15=661. compute xmain82=43. compute xmain83=43. compute xmain84=43. compute xav82=21. compute xav83=21. compute xav84=21. Else if sun15=62 or sun15=262 or sun15=362. compute xmain82=46. compute xmain83=46. compute xmain84=46. compute xav82=19. compute xav83=19. compute xav84=19. Else if sun15=109 or sun15=409 or sun15=509 or sun15=709. compute xmain82=46. compute xmain83=46. compute xmain84=46. compute xav82=9. compute xav83=9. compute xav84=9. Else if sun15=75 or sun15=275 or sun15=375. compute xmain82=48. compute xmain83=48. compute xmain84=48. compute xav82=29. compute xav83=29. compute xav84=29. compute xsec82=6. compute xsec83=6. compute xsec84=6. Else if sun15=76 or sun15=276 or sun15=376. compute xmain82=48. compute xmain83=48. compute xmain84=48. compute xav82=29. compute xav83=29. compute xav84=29. Else if sun15=190 or sun15=490 or sun15=590. compute xmain82=48. compute xmain83=48. compute xmain84=48. compute xav82=38. compute xav83=38. compute xav84=38. compute xsec82=6. compute xsec83=6. compute xsec84=6. Else if sun15=191 or sun15=491 or sun15=591 or sun15=91. compute xmain82=48. compute xmain83=48. compute xmain84=48. compute xav82=38. compute xav83=38. compute xav84=38. Else if sun15=192 or sun15=492 or sun15=592 or sun15=792 or sun15=92. compute xmain82=49. compute xmain83=49. compute xmain84=49. compute xav82=37. compute xav83=37. compute xav84=37. Else if sun15=193 or sun15=493 or sun15=593 or sun15=793 or sun15=682. compute xmain82=50. compute xmain83=50. compute xmain84=50. compute xav82=40. compute xav83=40. compute xav84=40. Else if sun15=199 or sun15=499 or sun15=599. compute xmain82=51. compute xmain83=51. compute xmain84=51. compute xav82=36. compute xav83=36. compute xav84=36. Else if sun15=177 or sun15=477 or sun15=577 or sun15=777 or sun15=179 or sun15=479 or sun15=579 or sun15=779. compute xmain82=52. compute xmain83=52. compute xmain84=52. compute xav82=40. compute xav83=40. compute xav84=40. Else if sun15=180 or sun15=480 or sun15=580 or sun15=780. compute xmain82=53. compute xmain83=53. compute xmain84=53. compute xav82=40. compute xav83=40. compute xav84=40. Else if sun15=176 or sun15=476 or sun15=576 or sun15=776 or sun15=181 or sun15=481 or sun15=581 or sun15=781 or sun15=485. compute xmain82=54. compute xmain83=54. compute xmain84=54. compute xav82=40. compute xav83=40. compute xav84=40. Else if sun15=178 or sun15=478 or sun15=578 or sun15=778. compute xmain82=54. compute xmain83=54. compute xmain84=54. compute xav82=39. compute xav83=39. compute xav84=39. Else if sun15=163 or sun15=463 or sun15=563 or sun15=763 or sun15=164 or sun15=464 or sun15=564 or sun15=764. compute xmain82=55. compute xmain83=55. compute xmain84=55. compute xav82=36. compute xav83=36. compute xav84=36. Else if sun15=173 or sun15=473 or sun15=573 or sun15=773 or sun15=873. compute xmain82=56. compute xmain83=56. compute xmain84=56. compute xav82=34. compute xav83=34. compute xav84=34. Else if sun15=174 or sun15=474 or sun15=574 or sun15=875 or sun15=175 or sun15=475 or sun15=575 or sun15=775. compute xmain82=56. compute xmain83=56. compute xmain84=56. compute xav82=35. compute xav83=35. compute xav84=35. Else if sun15=162 or sun15=462 or sun15=562 or sun15=762 or sun15=862. compute xmain82=57. compute xmain83=57. compute xmain84=57. compute xav82=32. compute xav83=32. compute xav84=32. Else if sun15=160 or sun15=460 or sun15=560 or sun15=760. compute xmain82=58. compute xmain83=58. compute xmain84=58. compute xav82=30. compute xav83=30. compute xav84=30. Else if sun15=161 or sun15=461 or sun15=561 or sun15=761 or sun15=165 or sun15=465 or sun15=565 or sun15=765. compute xmain82=59. compute xmain83=59. compute xmain84=59. compute xav82=31. compute xav83=31. compute xav84=31. Else if sun15=692. compute xmain82=62. compute xmain83=62. compute xmain84=62. compute xav82=17. compute xav83=17. compute xav84=17. Else if sun15=9 or sun15=209 or sun15=309 or sun15=10 or sun15=210 or sun15=310 or sun15=610 or sun15=11 or sun15=211 or sun15=311. compute xmain82=63. compute xmain83=63. compute xmain84=63. compute xav82=5. compute xav83=5. compute xav84=5. Else if sun15=24 or sun15=224 or sun15=324 or sun15=25 or sun15=225 or sun15=325 or sun15=26 or sun15=226 or sun15=326. compute xmain82=64. compute xmain83=64. compute xmain84=64. compute xav82=5. compute xav83=5. compute xav84=5. Else if sun15=59 or sun15=259 or sun15=359. compute xmain82=65. compute xmain83=65. compute xmain84=65. compute xav82=17. compute xav83=17. compute xav84=17. Else if sun15=39 or sun15=239 or sun15=339 or sun15=40 or sun15=240 or sun15=340 or sun15=640. compute xmain82=67. compute xmain83=67. compute xmain84=67. compute xav82=12. compute xav83=12. compute xav84=12. Else if sun15=67 or sun15=267 or sun15=367 or sun15=74 or sun15=274 or sun15=374 or sun15=83 or sun15=283 or sun15=383 or sun15=90 or sun15=290 or sun15=390. compute xmain82=68. compute xmain83=68. compute xmain84=68. compute xav82=17. compute xav83=17. compute xav84=17. Else. compute residual=sun15. End if. Do if (sun15>199 and sun15<300) or (sun15>399 and sun15<500). compute xsec82=58. compute xsec83=58. compute xsec84=58. Else if (sun15>299 and sun15<400) or (sun15>499 and sun15<600). compute xsec82=59. compute xsec83=59. compute xsec84=59. End if. freq residual. compute residual=0. Do if sun16=150 or sun16=151 or sun16=152 or sun16=153 or sun16=159 or sun16=750 or sun16=450 or sun16=451 or sun16=452 or sun16=453 or sun16=459 or sun16=550 or sun16=551 or sun16=552 or sun16=553 or sun16=559 or sun16=752. compute xmain85=2. compute xmain86=2. compute xmain87=2. compute xav85=16. compute xav86=16. compute xav87=16. Else if sun16=130 or sun16=136 or sun16=430 or sun16=436 or sun16=530 or sun16=536 or sun16=730 or sun16=619. compute xmain85=4. compute xmain86=4. compute xmain87=4. compute xav85=13. compute xav86=13. compute xav87=13. Else if sun16=6 or sun16=206 or sun16=306. compute xmain85=5. compute xmain86=5. compute xmain87=5. compute xav85=1. compute xav86=1. compute xav87=1. Else if sun16=140 or sun16=141 or sun16=142 or sun16=144 or sun16=440 or sun16=441 or sun16=442 or sun16=444 or sun16=540 or sun16=541 or sun16=542 or sun16=544 or sun16=740 or sun16=741 or sun16=840 or sun16=841. compute xmain85=6. compute xmain86=6. compute xmain87=6. compute xav85=15. compute xav86=15. compute xav87=15. Else if sun16=1 or sun16=2 or sun16=13 or sun16=201 or sun16=202 or sun16=213 or sun16=301 or sun16=302 or sun16=313 or sun16=770 or sun16=200. compute xmain85=7. compute xmain86=7. compute xmain87=7. compute xav85=1. compute xav86=1. compute xav87=1. Else if sun16=170 or sun16=470 or sun16=570 or sun16=601 or sun16=603 or sun16=605. compute xmain85=8. compute xmain86=8. compute xmain87=8. compute xav85=2. compute xav86=2. compute xav87=2. Else if sun16=3 or sun16=203 or sun16=303. compute xmain85=9. compute xmain86=9. compute xmain87=9. compute xav85=3. compute xav86=3. compute xav87=3. Else if sun16=12 or sun16=212 or sun16=312 or sun16=612. compute xmain85=11. compute xmain86=11. compute xmain87=11. compute xav85=1. compute xav86=1. compute xav87=1. Else if sun16=7 or sun16=207 or sun16=307 or sun16=607. compute xmain85=12. compute xmain86=12. compute xmain87=12. compute xav85=1. compute xav86=1. compute xav87=1. compute xsec85=6. compute xsec86=6. compute xsec87=6. Else if sun16=8 or sun16=208 or sun16=308. compute xmain85=12. compute xmain86=12. compute xmain87=12. compute xav85=1. compute xav86=1. compute xav87=1. Else if sun16=4 or sun16=204 or sun16=304 or sun16=5 or sun16=205 or sun16=305. compute xmain85=13. compute xmain86=13. compute xmain87=13. compute xav85=1. compute xav86=1. compute xav87=1. Else if sun16=20 or sun16=220 or sun16=320 or sun16=21 or sun16=221 or sun16=321 or sun16=620. compute xmain85=15. compute xmain86=15. compute xmain87=15. compute xav85=4. compute xav86=4. compute xav87=4. Else if sun16=171 or sun16=471 or sun16=571 or sun16=172 or sun16=472 or sun16=572. compute xmain85=16. compute xmain86=16. compute xmain87=16. compute xav85=33. compute xav86=33. compute xav87=33. Else if sun16=22 or sun16=222 or sun16=322. compute xmain85=17. compute xmain86=17. compute xmain87=17. compute xav85=4. compute xav86=4. compute xav87=4. Else if sun16=27 or sun16=227 or sun16=327. compute xmain85=17. compute xmain86=17. compute xmain87=17. compute xav85=25. compute xav86=25. compute xav87=25. compute xsec85=64. compute xsec86=64. compute xsec87=64. Else if sun16=100 or sun16=400 or sun16=500 or sun16=700. compute xmain85=18. compute xmain86=18. compute xmain87=18. compute xav85=6. compute xav86=6. compute xav87=6. Else if sun16=101 or sun16=401 or sun16=501 or sun16=701 or sun16=801. compute xmain85=19. compute xmain86=19. compute xmain87=19. compute xav85=6. compute xav86=6. compute xav87=6. Else if sun16=102 or sun16=402 or sun16=502 or sun16=702 or sun16=103 or sun16=403 or sun16=503 or sun16=703. compute xmain85=20. compute xmain86=20. compute xmain87=20. compute xav85=7. compute xav86=7. compute xav87=7. Else if sun16=104 or sun16=404 or sun16=504 or sun16=704. compute xmain85=21. compute xmain86=21. compute xmain87=21. compute xav85=7. compute xav86=7. compute xav87=7. Else if sun16=105 or sun16=405 or sun16=505 or sun16=705. compute xmain85=21. compute xmain86=21. compute xmain87=21. compute xav85=8. compute xav86=8. compute xav87=8. Else if sun16=106 or sun16=406 or sun16=506 or sun16=706 or sun16=107 or sun16=407 or sun16=507 or sun16=707. compute xmain85=22. compute xmain86=22. compute xmain87=22. compute xav85=8. compute xav86=8. compute xav87=8. Else if sun16=110 or sun16=410 or sun16=510 or sun16=710. compute xmain85=23. compute xmain86=23. compute xmain87=23. compute xav85=8. compute xav86=8. compute xav87=8. Else if sun16=30 or sun16=230 or sun16=330 or sun16=630 or sun16=31 or sun16=231 or sun16=331 or sun16=36 or sun16=236 or sun16=336 or sun16=38 or sun16=238 or sun16=338. compute xmain85=24. compute xmain86=24. compute xmain87=24. compute xav85=10. compute xav86=10. compute xav87=10. Else if sun16=32 or sun16=232 or sun16=332 or sun16=632 or sun16=33 or sun16=233 or sun16=333 or sun16=633 or sun16=34 or sun16=234 or sun16=334 or sun16=131 or sun16=431 or sun16=531 or sun16=731. compute xmain85=25. compute xmain86=25. compute xmain87=25. compute xav85=14. compute xav86=14. compute xav87=14. Else if sun16=37 or sun16=237 or sun16=337 or sun16=637. compute xmain85=26. compute xmain86=26. compute xmain87=26. compute xav85=10. compute xav86=10. compute xav87=10. Else if sun16=108 or sun16=408 or sun16=508 or sun16=708. compute xmain85=27. compute xmain86=27. compute xmain87=27. compute xav85=8. compute xav86=8. compute xav87=8. Else if sun16=35 or sun16=235 or sun16=335 or sun16=635 or sun16=120 or sun16=420 or sun16=520 or sun16=720 or sun16=121 or sun16=421 or sun16=521 or sun16=721. compute xmain85=28. compute xmain86=28. compute xmain87=28. compute xav85=11. compute xav86=11. compute xav87=11. Else if sun16=123 or sun16=423 or sun16=523 or sun16=723. compute xmain85=29. compute xmain86=29. compute xmain87=29. compute xav85=11. compute xav86=11. compute xav87=11. Else if sun16=122 or sun16=422 or sun16=522. compute xmain85=30. compute xmain86=30. compute xmain87=30. compute xav85=11. compute xav86=11. compute xav87=11. Else if sun16=124 or sun16=424 or sun16=524 or sun16=724. compute xmain85=30. compute xmain86=30. compute xmain87=30. compute xav85=11. compute xav86=11. compute xav87=11. compute xsec85=43. compute xsec86=43. compute xsec87=43. Else if sun16=125 or sun16=425 or sun16=525 or sun16=725. compute xmain85=31. compute xmain86=31. compute xmain87=31. compute xav85=11. compute xav86=11. compute xav87=11. Else if sun16=133 or sun16=433 or sun16=533 or sun16=733. compute xmain85=32. compute xmain86=32. compute xmain87=32. compute xav85=8. compute xav86=8. compute xav87=8. Else if sun16=23 or sun16=223 or sun16=323 or sun16=51 or sun16=251 or sun16=351 or sun16=651 or sun16=52 or sun16=252 or sun16=352 or sun16=652 or sun16=53 or sun16=253 or sun16=353 or sun16=54 or sun16=254 or sun16=354 or sun16=654 or sun16=55 or sun16=255 or sun16=355 or sun16=56 or sun16=256 or sun16=356 or sun16=57 or sun16=257 or sun16=357 or sun16=657 or sun16=58 or sun16=258 or sun16=358 or sun16=658. compute xmain85=33. compute xmain86=33. compute xmain87=33. compute xav85=23. compute xav86=23. compute xav87=23. Else if sun16=50 or sun16=250 or sun16=350 or sun16=650 or sun16=132 or sun16=432 or sun16=532. compute xmain85=34. compute xmain86=34. compute xmain87=34. compute xav85=22. compute xav86=22. compute xav87=22. Else if sun16=66 or sun16=266 or sun16=366. compute xmain85=35. compute xmain86=35. compute xmain87=35. compute xav85=18. compute xav86=18. compute xav87=18. Else if sun16=95 or sun16=295 or sun16=395. compute xmain85=35. compute xmain86=35. compute xmain87=35. compute xav85=25. compute xav86=25. compute xav87=25. Else if sun16=73 or sun16=273 or sun16=373. compute xmain85=36. compute xmain86=36. compute xmain87=36. compute xav85=20. compute xav86=20. compute xav87=20. Else if sun16=70 or sun16=270 or sun16=370 or sun16=71 or sun16=271 or sun16=371 or sun16=72 or sun16=272 or sun16=372. compute xmain85=37. compute xmain86=37. compute xmain87=37. compute xav85=24. compute xav86=24. compute xav87=24. Else if sun16=63 or sun16=263 or sun16=363 or sun16=64 or sun16=264 or sun16=364 or sun16=65 or sun16=265 or sun16=365. compute xmain85=38. compute xmain86=38. compute xmain87=38. compute xav85=18. compute xav86=18. compute xav87=18. Else if sun16=77 or sun16=277 or sun16=377. compute xmain85=39. compute xmain86=39. compute xmain87=39. compute xav85=27. compute xav86=27. compute xav87=27. Else if sun16=80 or sun16=280 or sun16=380 or sun16=81 or sun16=281 or sun16=381. compute xmain85=39. compute xmain86=39. compute xmain87=39. compute xav85=28. compute xav86=28. compute xav87=28. Else if sun16=78 or sun16=278 or sun16=378 or sun16=79 or sun16=279 or sun16=379. compute xmain85=40. compute xmain86=40. compute xmain87=40. compute xav85=26. compute xav86=26. compute xav87=26. Else if sun16=82 or sun16=282 or sun16=382. compute xmain85=40. compute xmain86=40. compute xmain87=40. compute xav85=25. compute xav86=25. compute xav87=25. Else if sun16=900. compute xmain85=41. compute xmain86=41. compute xmain87=41. Else if sun16=60 or sun16=260 or sun16=360. compute xmain85=42. compute xmain86=42. compute xmain87=42. compute xav85=19. compute xav86=19. compute xav87=19. Else if sun16=61 or sun16=261 or sun16=361 or sun16=661. compute xmain85=43. compute xmain86=43. compute xmain87=43. compute xav85=21. compute xav86=21. compute xav87=21. Else if sun16=62 or sun16=262 or sun16=362. compute xmain85=46. compute xmain86=46. compute xmain87=46. compute xav85=19. compute xav86=19. compute xav87=19. Else if sun16=109 or sun16=409 or sun16=509 or sun16=709. compute xmain85=46. compute xmain86=46. compute xmain87=46. compute xav85=9. compute xav86=9. compute xav87=9. Else if sun16=75 or sun16=275 or sun16=375. compute xmain85=48. compute xmain86=48. compute xmain87=48. compute xav85=29. compute xav86=29. compute xav87=29. compute xsec85=6. compute xsec86=6. compute xsec87=6. Else if sun16=76 or sun16=276 or sun16=376. compute xmain85=48. compute xmain86=48. compute xmain87=48. compute xav85=29. compute xav86=29. compute xav87=29. Else if sun16=190 or sun16=490 or sun16=590. compute xmain85=48. compute xmain86=48. compute xmain87=48. compute xav85=38. compute xav86=38. compute xav87=38. compute xsec85=6. compute xsec86=6. compute xsec87=6. Else if sun16=191 or sun16=491 or sun16=591 or sun16=91. compute xmain85=48. compute xmain86=48. compute xmain87=48. compute xav85=38. compute xav86=38. compute xav87=38. Else if sun16=192 or sun16=492 or sun16=592 or sun16=792 or sun16=92. compute xmain85=49. compute xmain86=49. compute xmain87=49. compute xav85=37. compute xav86=37. compute xav87=37. Else if sun16=193 or sun16=493 or sun16=593 or sun16=793 or sun16=682. compute xmain85=50. compute xmain86=50. compute xmain87=50. compute xav85=40. compute xav86=40. compute xav87=40. Else if sun16=199 or sun16=499 or sun16=599. compute xmain85=51. compute xmain86=51. compute xmain87=51. compute xav85=36. compute xav86=36. compute xav87=36. Else if sun16=177 or sun16=477 or sun16=577 or sun16=777 or sun16=179 or sun16=479 or sun16=579 or sun16=779. compute xmain85=52. compute xmain86=52. compute xmain87=52. compute xav85=40. compute xav86=40. compute xav87=40. Else if sun16=180 or sun16=480 or sun16=580 or sun16=780. compute xmain85=53. compute xmain86=53. compute xmain87=53. compute xav85=40. compute xav86=40. compute xav87=40. Else if sun16=176 or sun16=476 or sun16=576 or sun16=776 or sun16=181 or sun16=481 or sun16=581 or sun16=781 or sun16=485. compute xmain85=54. compute xmain86=54. compute xmain87=54. compute xav85=40. compute xav86=40. compute xav87=40. Else if sun16=178 or sun16=478 or sun16=578 or sun16=778. compute xmain85=54. compute xmain86=54. compute xmain87=54. compute xav85=39. compute xav86=39. compute xav87=39. Else if sun16=163 or sun16=463 or sun16=563 or sun16=763 or sun16=164 or sun16=464 or sun16=564 or sun16=764. compute xmain85=55. compute xmain86=55. compute xmain87=55. compute xav85=36. compute xav86=36. compute xav87=36. Else if sun16=173 or sun16=473 or sun16=573 or sun16=773 or sun16=873. compute xmain85=56. compute xmain86=56. compute xmain87=56. compute xav85=34. compute xav86=34. compute xav87=34. Else if sun16=174 or sun16=474 or sun16=574 or sun16=875 or sun16=175 or sun16=475 or sun16=575 or sun16=775. compute xmain85=56. compute xmain86=56. compute xmain87=56. compute xav85=35. compute xav86=35. compute xav87=35. Else if sun16=162 or sun16=462 or sun16=562 or sun16=762 or sun16=862. compute xmain85=57. compute xmain86=57. compute xmain87=57. compute xav85=32. compute xav86=32. compute xav87=32. Else if sun16=160 or sun16=460 or sun16=560 or sun16=760. compute xmain85=58. compute xmain86=58. compute xmain87=58. compute xav85=30. compute xav86=30. compute xav87=30. Else if sun16=161 or sun16=461 or sun16=561 or sun16=761 or sun16=165 or sun16=465 or sun16=565 or sun16=765. compute xmain85=59. compute xmain86=59. compute xmain87=59. compute xav85=31. compute xav86=31. compute xav87=31. Else if sun16=692. compute xmain85=62. compute xmain86=62. compute xmain87=62. compute xav85=17. compute xav86=17. compute xav87=17. Else if sun16=9 or sun16=209 or sun16=309 or sun16=10 or sun16=210 or sun16=310 or sun16=610 or sun16=11 or sun16=211 or sun16=311. compute xmain85=63. compute xmain86=63. compute xmain87=63. compute xav85=5. compute xav86=5. compute xav87=5. Else if sun16=24 or sun16=224 or sun16=324 or sun16=25 or sun16=225 or sun16=325 or sun16=26 or sun16=226 or sun16=326. compute xmain85=64. compute xmain86=64. compute xmain87=64. compute xav85=5. compute xav86=5. compute xav87=5. Else if sun16=59 or sun16=259 or sun16=359. compute xmain85=65. compute xmain86=65. compute xmain87=65. compute xav85=17. compute xav86=17. compute xav87=17. Else if sun16=39 or sun16=239 or sun16=339 or sun16=40 or sun16=240 or sun16=340 or sun16=640. compute xmain85=67. compute xmain86=67. compute xmain87=67. compute xav85=12. compute xav86=12. compute xav87=12. Else if sun16=67 or sun16=267 or sun16=367 or sun16=74 or sun16=274 or sun16=374 or sun16=83 or sun16=283 or sun16=383 or sun16=90 or sun16=290 or sun16=390. compute xmain85=68. compute xmain86=68. compute xmain87=68. compute xav85=17. compute xav86=17. compute xav87=17. Else. compute residual=sun16. End if. Do if (sun16>199 and sun16<300) or (sun16>399 and sun16<500). compute xsec85=58. compute xsec86=58. compute xsec87=58. Else if (sun16>299 and sun16<400) or (sun16>499 and sun16<600). compute xsec85=59. compute xsec86=59. compute xsec87=59. End if. freq residual. compute residual=0. Do if sun17=150 or sun17=151 or sun17=152 or sun17=153 or sun17=159 or sun17=750 or sun17=450 or sun17=451 or sun17=452 or sun17=453 or sun17=459 or sun17=550 or sun17=551 or sun17=552 or sun17=553 or sun17=559 or sun17=752. compute xmain88=2. compute xmain89=2. compute xmain90=2. compute xav88=16. compute xav89=16. compute xav90=16. Else if sun17=130 or sun17=136 or sun17=430 or sun17=436 or sun17=530 or sun17=536 or sun17=730 or sun17=619. compute xmain88=4. compute xmain89=4. compute xmain90=4. compute xav88=13. compute xav89=13. compute xav90=13. Else if sun17=6 or sun17=206 or sun17=306. compute xmain88=5. compute xmain89=5. compute xmain90=5. compute xav88=1. compute xav89=1. compute xav90=1. Else if sun17=140 or sun17=141 or sun17=142 or sun17=144 or sun17=440 or sun17=441 or sun17=442 or sun17=444 or sun17=540 or sun17=541 or sun17=542 or sun17=544 or sun17=740 or sun17=741 or sun17=840 or sun17=841. compute xmain88=6. compute xmain89=6. compute xmain90=6. compute xav88=15. compute xav89=15. compute xav90=15. Else if sun17=1 or sun17=2 or sun17=13 or sun17=201 or sun17=202 or sun17=213 or sun17=301 or sun17=302 or sun17=313 or sun17=770 or sun17=200. compute xmain88=7. compute xmain89=7. compute xmain90=7. compute xav88=1. compute xav89=1. compute xav90=1. Else if sun17=170 or sun17=470 or sun17=570 or sun17=601 or sun17=603 or sun17=605. compute xmain88=8. compute xmain89=8. compute xmain90=8. compute xav88=2. compute xav89=2. compute xav90=2. Else if sun17=3 or sun17=203 or sun17=303. compute xmain88=9. compute xmain89=9. compute xmain90=9. compute xav88=3. compute xav89=3. compute xav90=3. Else if sun17=12 or sun17=212 or sun17=312 or sun17=612. compute xmain88=11. compute xmain89=11. compute xmain90=11. compute xav88=1. compute xav89=1. compute xav90=1. Else if sun17=7 or sun17=207 or sun17=307 or sun17=607. compute xmain88=12. compute xmain89=12. compute xmain90=12. compute xav88=1. compute xav89=1. compute xav90=1. compute xsec88=6. compute xsec89=6. compute xsec90=6. Else if sun17=8 or sun17=208 or sun17=308. compute xmain88=12. compute xmain89=12. compute xmain90=12. compute xav88=1. compute xav89=1. compute xav90=1. Else if sun17=4 or sun17=204 or sun17=304 or sun17=5 or sun17=205 or sun17=305. compute xmain88=13. compute xmain89=13. compute xmain90=13. compute xav88=1. compute xav89=1. compute xav90=1. Else if sun17=20 or sun17=220 or sun17=320 or sun17=21 or sun17=221 or sun17=321 or sun17=620. compute xmain88=15. compute xmain89=15. compute xmain90=15. compute xav88=4. compute xav89=4. compute xav90=4. Else if sun17=171 or sun17=471 or sun17=571 or sun17=172 or sun17=472 or sun17=572. compute xmain88=16. compute xmain89=16. compute xmain90=16. compute xav88=33. compute xav89=33. compute xav90=33. Else if sun17=22 or sun17=222 or sun17=322. compute xmain88=17. compute xmain89=17. compute xmain90=17. compute xav88=4. compute xav89=4. compute xav90=4. Else if sun17=27 or sun17=227 or sun17=327. compute xmain88=17. compute xmain89=17. compute xmain90=17. compute xav88=25. compute xav89=25. compute xav90=25. compute xsec88=64. compute xsec89=64. compute xsec90=64. Else if sun17=100 or sun17=400 or sun17=500 or sun17=700. compute xmain88=18. compute xmain89=18. compute xmain90=18. compute xav88=6. compute xav89=6. compute xav90=6. Else if sun17=101 or sun17=401 or sun17=501 or sun17=701 or sun17=801. compute xmain88=19. compute xmain89=19. compute xmain90=19. compute xav88=6. compute xav89=6. compute xav90=6. Else if sun17=102 or sun17=402 or sun17=502 or sun17=702 or sun17=103 or sun17=403 or sun17=503 or sun17=703. compute xmain88=20. compute xmain89=20. compute xmain90=20. compute xav88=7. compute xav89=7. compute xav90=7. Else if sun17=104 or sun17=404 or sun17=504 or sun17=704. compute xmain88=21. compute xmain89=21. compute xmain90=21. compute xav88=7. compute xav89=7. compute xav90=7. Else if sun17=105 or sun17=405 or sun17=505 or sun17=705. compute xmain88=21. compute xmain89=21. compute xmain90=21. compute xav88=8. compute xav89=8. compute xav90=8. Else if sun17=106 or sun17=406 or sun17=506 or sun17=706 or sun17=107 or sun17=407 or sun17=507 or sun17=707. compute xmain88=22. compute xmain89=22. compute xmain90=22. compute xav88=8. compute xav89=8. compute xav90=8. Else if sun17=110 or sun17=410 or sun17=510 or sun17=710. compute xmain88=23. compute xmain89=23. compute xmain90=23. compute xav88=8. compute xav89=8. compute xav90=8. Else if sun17=30 or sun17=230 or sun17=330 or sun17=630 or sun17=31 or sun17=231 or sun17=331 or sun17=36 or sun17=236 or sun17=336 or sun17=38 or sun17=238 or sun17=338. compute xmain88=24. compute xmain89=24. compute xmain90=24. compute xav88=10. compute xav89=10. compute xav90=10. Else if sun17=32 or sun17=232 or sun17=332 or sun17=632 or sun17=33 or sun17=233 or sun17=333 or sun17=633 or sun17=34 or sun17=234 or sun17=334 or sun17=131 or sun17=431 or sun17=531 or sun17=731. compute xmain88=25. compute xmain89=25. compute xmain90=25. compute xav88=14. compute xav89=14. compute xav90=14. Else if sun17=37 or sun17=237 or sun17=337 or sun17=637. compute xmain88=26. compute xmain89=26. compute xmain90=26. compute xav88=10. compute xav89=10. compute xav90=10. Else if sun17=108 or sun17=408 or sun17=508 or sun17=708. compute xmain88=27. compute xmain89=27. compute xmain90=27. compute xav88=8. compute xav89=8. compute xav90=8. Else if sun17=35 or sun17=235 or sun17=335 or sun17=635 or sun17=120 or sun17=420 or sun17=520 or sun17=720 or sun17=121 or sun17=421 or sun17=521 or sun17=721. compute xmain88=28. compute xmain89=28. compute xmain90=28. compute xav88=11. compute xav89=11. compute xav90=11. Else if sun17=123 or sun17=423 or sun17=523 or sun17=723. compute xmain88=29. compute xmain89=29. compute xmain90=29. compute xav88=11. compute xav89=11. compute xav90=11. Else if sun17=122 or sun17=422 or sun17=522. compute xmain88=30. compute xmain89=30. compute xmain90=30. compute xav88=11. compute xav89=11. compute xav90=11. Else if sun17=124 or sun17=424 or sun17=524 or sun17=724. compute xmain88=30. compute xmain89=30. compute xmain90=30. compute xav88=11. compute xav89=11. compute xav90=11. compute xsec88=43. compute xsec89=43. compute xsec90=43. Else if sun17=125 or sun17=425 or sun17=525 or sun17=725. compute xmain88=31. compute xmain89=31. compute xmain90=31. compute xav88=11. compute xav89=11. compute xav90=11. Else if sun17=133 or sun17=433 or sun17=533 or sun17=733. compute xmain88=32. compute xmain89=32. compute xmain90=32. compute xav88=8. compute xav89=8. compute xav90=8. Else if sun17=23 or sun17=223 or sun17=323 or sun17=51 or sun17=251 or sun17=351 or sun17=651 or sun17=52 or sun17=252 or sun17=352 or sun17=652 or sun17=53 or sun17=253 or sun17=353 or sun17=54 or sun17=254 or sun17=354 or sun17=654 or sun17=55 or sun17=255 or sun17=355 or sun17=56 or sun17=256 or sun17=356 or sun17=57 or sun17=257 or sun17=357 or sun17=657 or sun17=58 or sun17=258 or sun17=358 or sun17=658. compute xmain88=33. compute xmain89=33. compute xmain90=33. compute xav88=23. compute xav89=23. compute xav90=23. Else if sun17=50 or sun17=250 or sun17=350 or sun17=650 or sun17=132 or sun17=432 or sun17=532. compute xmain88=34. compute xmain89=34. compute xmain90=34. compute xav88=22. compute xav89=22. compute xav90=22. Else if sun17=66 or sun17=266 or sun17=366. compute xmain88=35. compute xmain89=35. compute xmain90=35. compute xav88=18. compute xav89=18. compute xav90=18. Else if sun17=95 or sun17=295 or sun17=395. compute xmain88=35. compute xmain89=35. compute xmain90=35. compute xav88=25. compute xav89=25. compute xav90=25. Else if sun17=73 or sun17=273 or sun17=373. compute xmain88=36. compute xmain89=36. compute xmain90=36. compute xav88=20. compute xav89=20. compute xav90=20. Else if sun17=70 or sun17=270 or sun17=370 or sun17=71 or sun17=271 or sun17=371 or sun17=72 or sun17=272 or sun17=372. compute xmain88=37. compute xmain89=37. compute xmain90=37. compute xav88=24. compute xav89=24. compute xav90=24. Else if sun17=63 or sun17=263 or sun17=363 or sun17=64 or sun17=264 or sun17=364 or sun17=65 or sun17=265 or sun17=365. compute xmain88=38. compute xmain89=38. compute xmain90=38. compute xav88=18. compute xav89=18. compute xav90=18. Else if sun17=77 or sun17=277 or sun17=377. compute xmain88=39. compute xmain89=39. compute xmain90=39. compute xav88=27. compute xav89=27. compute xav90=27. Else if sun17=80 or sun17=280 or sun17=380 or sun17=81 or sun17=281 or sun17=381. compute xmain88=39. compute xmain89=39. compute xmain90=39. compute xav88=28. compute xav89=28. compute xav90=28. Else if sun17=78 or sun17=278 or sun17=378 or sun17=79 or sun17=279 or sun17=379. compute xmain88=40. compute xmain89=40. compute xmain90=40. compute xav88=26. compute xav89=26. compute xav90=26. Else if sun17=82 or sun17=282 or sun17=382. compute xmain88=40. compute xmain89=40. compute xmain90=40. compute xav88=25. compute xav89=25. compute xav90=25. Else if sun17=900. compute xmain88=41. compute xmain89=41. compute xmain90=41. Else if sun17=60 or sun17=260 or sun17=360. compute xmain88=42. compute xmain89=42. compute xmain90=42. compute xav88=19. compute xav89=19. compute xav90=19. Else if sun17=61 or sun17=261 or sun17=361 or sun17=661. compute xmain88=43. compute xmain89=43. compute xmain90=43. compute xav88=21. compute xav89=21. compute xav90=21. Else if sun17=62 or sun17=262 or sun17=362. compute xmain88=46. compute xmain89=46. compute xmain90=46. compute xav88=19. compute xav89=19. compute xav90=19. Else if sun17=109 or sun17=409 or sun17=509 or sun17=709. compute xmain88=46. compute xmain89=46. compute xmain90=46. compute xav88=9. compute xav89=9. compute xav90=9. Else if sun17=75 or sun17=275 or sun17=375. compute xmain88=48. compute xmain89=48. compute xmain90=48. compute xav88=29. compute xav89=29. compute xav90=29. compute xsec88=6. compute xsec89=6. compute xsec90=6. Else if sun17=76 or sun17=276 or sun17=376. compute xmain88=48. compute xmain89=48. compute xmain90=48. compute xav88=29. compute xav89=29. compute xav90=29. Else if sun17=190 or sun17=490 or sun17=590. compute xmain88=48. compute xmain89=48. compute xmain90=48. compute xav88=38. compute xav89=38. compute xav90=38. compute xsec88=6. compute xsec89=6. compute xsec90=6. Else if sun17=191 or sun17=491 or sun17=591 or sun17=91. compute xmain88=48. compute xmain89=48. compute xmain90=48. compute xav88=38. compute xav89=38. compute xav90=38. Else if sun17=192 or sun17=492 or sun17=592 or sun17=792 or sun17=92. compute xmain88=49. compute xmain89=49. compute xmain90=49. compute xav88=37. compute xav89=37. compute xav90=37. Else if sun17=193 or sun17=493 or sun17=593 or sun17=793 or sun17=682. compute xmain88=50. compute xmain89=50. compute xmain90=50. compute xav88=40. compute xav89=40. compute xav90=40. Else if sun17=199 or sun17=499 or sun17=599. compute xmain88=51. compute xmain89=51. compute xmain90=51. compute xav88=36. compute xav89=36. compute xav90=36. Else if sun17=177 or sun17=477 or sun17=577 or sun17=777 or sun17=179 or sun17=479 or sun17=579 or sun17=779. compute xmain88=52. compute xmain89=52. compute xmain90=52. compute xav88=40. compute xav89=40. compute xav90=40. Else if sun17=180 or sun17=480 or sun17=580 or sun17=780. compute xmain88=53. compute xmain89=53. compute xmain90=53. compute xav88=40. compute xav89=40. compute xav90=40. Else if sun17=176 or sun17=476 or sun17=576 or sun17=776 or sun17=181 or sun17=481 or sun17=581 or sun17=781 or sun17=485. compute xmain88=54. compute xmain89=54. compute xmain90=54. compute xav88=40. compute xav89=40. compute xav90=40. Else if sun17=178 or sun17=478 or sun17=578 or sun17=778. compute xmain88=54. compute xmain89=54. compute xmain90=54. compute xav88=39. compute xav89=39. compute xav90=39. Else if sun17=163 or sun17=463 or sun17=563 or sun17=763 or sun17=164 or sun17=464 or sun17=564 or sun17=764. compute xmain88=55. compute xmain89=55. compute xmain90=55. compute xav88=36. compute xav89=36. compute xav90=36. Else if sun17=173 or sun17=473 or sun17=573 or sun17=773 or sun17=873. compute xmain88=56. compute xmain89=56. compute xmain90=56. compute xav88=34. compute xav89=34. compute xav90=34. Else if sun17=174 or sun17=474 or sun17=574 or sun17=875 or sun17=175 or sun17=475 or sun17=575 or sun17=775. compute xmain88=56. compute xmain89=56. compute xmain90=56. compute xav88=35. compute xav89=35. compute xav90=35. Else if sun17=162 or sun17=462 or sun17=562 or sun17=762 or sun17=862. compute xmain88=57. compute xmain89=57. compute xmain90=57. compute xav88=32. compute xav89=32. compute xav90=32. Else if sun17=160 or sun17=460 or sun17=560 or sun17=760. compute xmain88=58. compute xmain89=58. compute xmain90=58. compute xav88=30. compute xav89=30. compute xav90=30. Else if sun17=161 or sun17=461 or sun17=561 or sun17=761 or sun17=167 or sun17=165 or sun17=465 or sun17=565 or sun17=765. compute xmain88=59. compute xmain89=59. compute xmain90=59. compute xav88=31. compute xav89=31. compute xav90=31. Else if sun17=692. compute xmain88=62. compute xmain89=62. compute xmain90=62. compute xav88=17. compute xav89=17. compute xav90=17. Else if sun17=9 or sun17=209 or sun17=309 or sun17=10 or sun17=210 or sun17=310 or sun17=610 or sun17=11 or sun17=211 or sun17=311. compute xmain88=63. compute xmain89=63. compute xmain90=63. compute xav88=5. compute xav89=5. compute xav90=5. Else if sun17=24 or sun17=224 or sun17=324 or sun17=25 or sun17=225 or sun17=325 or sun17=26 or sun17=226 or sun17=326. compute xmain88=64. compute xmain89=64. compute xmain90=64. compute xav88=5. compute xav89=5. compute xav90=5. Else if sun17=59 or sun17=259 or sun17=359. compute xmain88=65. compute xmain89=65. compute xmain90=65. compute xav88=17. compute xav89=17. compute xav90=17. Else if sun17=39 or sun17=239 or sun17=339 or sun17=40 or sun17=240 or sun17=340 or sun17=640. compute xmain88=67. compute xmain89=67. compute xmain90=67. compute xav88=12. compute xav89=12. compute xav90=12. Else if sun17=67 or sun17=267 or sun17=367 or sun17=74 or sun17=274 or sun17=374 or sun17=83 or sun17=283 or sun17=383 or sun17=90 or sun17=290 or sun17=390. compute xmain88=68. compute xmain89=68. compute xmain90=68. compute xav88=17. compute xav89=17. compute xav90=17. Else. compute residual=sun17. End if. Do if (sun17>199 and sun17<300) or (sun17>399 and sun17<500). compute xsec88=58. compute xsec89=58. compute xsec90=58. Else if (sun17>299 and sun17<400) or (sun17>499 and sun17<600). compute xsec88=59. compute xsec89=59. compute xsec90=59. End if. freq residual. compute residual=0. Do if sun18=150 or sun18=151 or sun18=152 or sun18=153 or sun18=159 or sun18=750 or sun18=450 or sun18=451 or sun18=452 or sun18=453 or sun18=459 or sun18=550 or sun18=551 or sun18=552 or sun18=553 or sun18=559 or sun18=752. compute xmain91=2. compute xmain92=2. compute xmain93=2. compute xav91=16. compute xav92=16. compute xav93=16. Else if sun18=130 or sun18=136 or sun18=430 or sun18=436 or sun18=530 or sun18=536 or sun18=730 or sun18=619. compute xmain91=4. compute xmain92=4. compute xmain93=4. compute xav91=13. compute xav92=13. compute xav93=13. Else if sun18=6 or sun18=206 or sun18=306. compute xmain91=5. compute xmain92=5. compute xmain93=5. compute xav91=1. compute xav92=1. compute xav93=1. Else if sun18=140 or sun18=141 or sun18=142 or sun18=144 or sun18=440 or sun18=441 or sun18=442 or sun18=444 or sun18=540 or sun18=541 or sun18=542 or sun18=544 or sun18=740 or sun18=741 or sun18=840 or sun18=841. compute xmain91=6. compute xmain92=6. compute xmain93=6. compute xav91=15. compute xav92=15. compute xav93=15. Else if sun18=1 or sun18=2 or sun18=13 or sun18=201 or sun18=202 or sun18=213 or sun18=301 or sun18=302 or sun18=313 or sun18=770 or sun18=200. compute xmain91=7. compute xmain92=7. compute xmain93=7. compute xav91=1. compute xav92=1. compute xav93=1. Else if sun18=170 or sun18=470 or sun18=570 or sun18=601 or sun18=603 or sun18=605. compute xmain91=8. compute xmain92=8. compute xmain93=8. compute xav91=2. compute xav92=2. compute xav93=2. Else if sun18=3 or sun18=203 or sun18=303. compute xmain91=9. compute xmain92=9. compute xmain93=9. compute xav91=3. compute xav92=3. compute xav93=3. Else if sun18=12 or sun18=212 or sun18=312 or sun18=612. compute xmain91=11. compute xmain92=11. compute xmain93=11. compute xav91=1. compute xav92=1. compute xav93=1. Else if sun18=7 or sun18=207 or sun18=307 or sun18=607. compute xmain91=12. compute xmain92=12. compute xmain93=12. compute xav91=1. compute xav92=1. compute xav93=1. compute xsec91=6. compute xsec92=6. compute xsec93=6. Else if sun18=8 or sun18=208 or sun18=308. compute xmain91=12. compute xmain92=12. compute xmain93=12. compute xav91=1. compute xav92=1. compute xav93=1. Else if sun18=4 or sun18=204 or sun18=304 or sun18=5 or sun18=205 or sun18=305. compute xmain91=13. compute xmain92=13. compute xmain93=13. compute xav91=1. compute xav92=1. compute xav93=1. Else if sun18=20 or sun18=220 or sun18=320 or sun18=21 or sun18=221 or sun18=321 or sun18=620. compute xmain91=15. compute xmain92=15. compute xmain93=15. compute xav91=4. compute xav92=4. compute xav93=4. Else if sun18=171 or sun18=471 or sun18=571 or sun18=172 or sun18=472 or sun18=572. compute xmain91=16. compute xmain92=16. compute xmain93=16. compute xav91=33. compute xav92=33. compute xav93=33. Else if sun18=22 or sun18=222 or sun18=322. compute xmain91=17. compute xmain92=17. compute xmain93=17. compute xav91=4. compute xav92=4. compute xav93=4. Else if sun18=27 or sun18=227 or sun18=327. compute xmain91=17. compute xmain92=17. compute xmain93=17. compute xav91=25. compute xav92=25. compute xav93=25. compute xsec91=64. compute xsec92=64. compute xsec93=64. Else if sun18=100 or sun18=400 or sun18=500 or sun18=700. compute xmain91=18. compute xmain92=18. compute xmain93=18. compute xav91=6. compute xav92=6. compute xav93=6. Else if sun18=101 or sun18=401 or sun18=501 or sun18=701 or sun18=801. compute xmain91=19. compute xmain92=19. compute xmain93=19. compute xav91=6. compute xav92=6. compute xav93=6. Else if sun18=102 or sun18=402 or sun18=502 or sun18=702 or sun18=103 or sun18=403 or sun18=503 or sun18=703. compute xmain91=20. compute xmain92=20. compute xmain93=20. compute xav91=7. compute xav92=7. compute xav93=7. Else if sun18=104 or sun18=404 or sun18=504 or sun18=704. compute xmain91=21. compute xmain92=21. compute xmain93=21. compute xav91=7. compute xav92=7. compute xav93=7. Else if sun18=105 or sun18=405 or sun18=505 or sun18=705. compute xmain91=21. compute xmain92=21. compute xmain93=21. compute xav91=8. compute xav92=8. compute xav93=8. Else if sun18=106 or sun18=406 or sun18=506 or sun18=706 or sun18=107 or sun18=407 or sun18=507 or sun18=707. compute xmain91=22. compute xmain92=22. compute xmain93=22. compute xav91=8. compute xav92=8. compute xav93=8. Else if sun18=110 or sun18=410 or sun18=510 or sun18=710. compute xmain91=23. compute xmain92=23. compute xmain93=23. compute xav91=8. compute xav92=8. compute xav93=8. Else if sun18=30 or sun18=230 or sun18=330 or sun18=630 or sun18=31 or sun18=231 or sun18=331 or sun18=36 or sun18=236 or sun18=336 or sun18=38 or sun18=238 or sun18=338. compute xmain91=24. compute xmain92=24. compute xmain93=24. compute xav91=10. compute xav92=10. compute xav93=10. Else if sun18=32 or sun18=232 or sun18=332 or sun18=632 or sun18=33 or sun18=233 or sun18=333 or sun18=633 or sun18=34 or sun18=234 or sun18=334 or sun18=131 or sun18=431 or sun18=531 or sun18=731. compute xmain91=25. compute xmain92=25. compute xmain93=25. compute xav91=14. compute xav92=14. compute xav93=14. Else if sun18=37 or sun18=237 or sun18=337 or sun18=637. compute xmain91=26. compute xmain92=26. compute xmain93=26. compute xav91=10. compute xav92=10. compute xav93=10. Else if sun18=108 or sun18=408 or sun18=508 or sun18=708. compute xmain91=27. compute xmain92=27. compute xmain93=27. compute xav91=8. compute xav92=8. compute xav93=8. Else if sun18=35 or sun18=235 or sun18=335 or sun18=635 or sun18=120 or sun18=420 or sun18=520 or sun18=720 or sun18=121 or sun18=421 or sun18=521 or sun18=721. compute xmain91=28. compute xmain92=28. compute xmain93=28. compute xav91=11. compute xav92=11. compute xav93=11. Else if sun18=123 or sun18=423 or sun18=523 or sun18=723. compute xmain91=29. compute xmain92=29. compute xmain93=29. compute xav91=11. compute xav92=11. compute xav93=11. Else if sun18=122 or sun18=422 or sun18=522. compute xmain91=30. compute xmain92=30. compute xmain93=30. compute xav91=11. compute xav92=11. compute xav93=11. Else if sun18=124 or sun18=424 or sun18=524 or sun18=724. compute xmain91=30. compute xmain92=30. compute xmain93=30. compute xav91=11. compute xav92=11. compute xav93=11. compute xsec91=43. compute xsec92=43. compute xsec93=43. Else if sun18=125 or sun18=425 or sun18=525 or sun18=725. compute xmain91=31. compute xmain92=31. compute xmain93=31. compute xav91=11. compute xav92=11. compute xav93=11. Else if sun18=133 or sun18=433 or sun18=533 or sun18=733. compute xmain91=32. compute xmain92=32. compute xmain93=32. compute xav91=8. compute xav92=8. compute xav93=8. Else if sun18=23 or sun18=223 or sun18=323 or sun18=51 or sun18=251 or sun18=351 or sun18=651 or sun18=52 or sun18=252 or sun18=352 or sun18=652 or sun18=53 or sun18=253 or sun18=353 or sun18=54 or sun18=254 or sun18=354 or sun18=654 or sun18=55 or sun18=255 or sun18=355 or sun18=56 or sun18=256 or sun18=356 or sun18=57 or sun18=257 or sun18=357 or sun18=657 or sun18=58 or sun18=258 or sun18=358 or sun18=658. compute xmain91=33. compute xmain92=33. compute xmain93=33. compute xav91=23. compute xav92=23. compute xav93=23. Else if sun18=50 or sun18=250 or sun18=350 or sun18=650 or sun18=132 or sun18=432 or sun18=532. compute xmain91=34. compute xmain92=34. compute xmain93=34. compute xav91=22. compute xav92=22. compute xav93=22. Else if sun18=66 or sun18=266 or sun18=366. compute xmain91=35. compute xmain92=35. compute xmain93=35. compute xav91=18. compute xav92=18. compute xav93=18. Else if sun18=95 or sun18=295 or sun18=395. compute xmain91=35. compute xmain92=35. compute xmain93=35. compute xav91=25. compute xav92=25. compute xav93=25. Else if sun18=73 or sun18=273 or sun18=373. compute xmain91=36. compute xmain92=36. compute xmain93=36. compute xav91=20. compute xav92=20. compute xav93=20. Else if sun18=70 or sun18=270 or sun18=370 or sun18=71 or sun18=271 or sun18=371 or sun18=72 or sun18=272 or sun18=372. compute xmain91=37. compute xmain92=37. compute xmain93=37. compute xav91=24. compute xav92=24. compute xav93=24. Else if sun18=63 or sun18=263 or sun18=363 or sun18=64 or sun18=264 or sun18=364 or sun18=65 or sun18=265 or sun18=365. compute xmain91=38. compute xmain92=38. compute xmain93=38. compute xav91=18. compute xav92=18. compute xav93=18. Else if sun18=77 or sun18=277 or sun18=377. compute xmain91=39. compute xmain92=39. compute xmain93=39. compute xav91=27. compute xav92=27. compute xav93=27. Else if sun18=80 or sun18=280 or sun18=380 or sun18=81 or sun18=281 or sun18=381. compute xmain91=39. compute xmain92=39. compute xmain93=39. compute xav91=28. compute xav92=28. compute xav93=28. Else if sun18=78 or sun18=278 or sun18=378 or sun18=79 or sun18=279 or sun18=379. compute xmain91=40. compute xmain92=40. compute xmain93=40. compute xav91=26. compute xav92=26. compute xav93=26. Else if sun18=82 or sun18=282 or sun18=382. compute xmain91=40. compute xmain92=40. compute xmain93=40. compute xav91=25. compute xav92=25. compute xav93=25. Else if sun18=900. compute xmain91=41. compute xmain92=41. compute xmain93=41. Else if sun18=60 or sun18=260 or sun18=360. compute xmain91=42. compute xmain92=42. compute xmain93=42. compute xav91=19. compute xav92=19. compute xav93=19. Else if sun18=61 or sun18=261 or sun18=361 or sun18=661. compute xmain91=43. compute xmain92=43. compute xmain93=43. compute xav91=21. compute xav92=21. compute xav93=21. Else if sun18=62 or sun18=262 or sun18=362. compute xmain91=46. compute xmain92=46. compute xmain93=46. compute xav91=19. compute xav92=19. compute xav93=19. Else if sun18=109 or sun18=409 or sun18=509 or sun18=709. compute xmain91=46. compute xmain92=46. compute xmain93=46. compute xav91=9. compute xav92=9. compute xav93=9. Else if sun18=75 or sun18=275 or sun18=375. compute xmain91=48. compute xmain92=48. compute xmain93=48. compute xav91=29. compute xav92=29. compute xav93=29. compute xsec91=6. compute xsec92=6. compute xsec93=6. Else if sun18=76 or sun18=276 or sun18=376. compute xmain91=48. compute xmain92=48. compute xmain93=48. compute xav91=29. compute xav92=29. compute xav93=29. Else if sun18=190 or sun18=490 or sun18=590. compute xmain91=48. compute xmain92=48. compute xmain93=48. compute xav91=38. compute xav92=38. compute xav93=38. compute xsec91=6. compute xsec92=6. compute xsec93=6. Else if sun18=191 or sun18=491 or sun18=591 or sun18=91. compute xmain91=48. compute xmain92=48. compute xmain93=48. compute xav91=38. compute xav92=38. compute xav93=38. Else if sun18=192 or sun18=492 or sun18=592 or sun18=792 or sun18=92. compute xmain91=49. compute xmain92=49. compute xmain93=49. compute xav91=37. compute xav92=37. compute xav93=37. Else if sun18=193 or sun18=493 or sun18=593 or sun18=793 or sun18=682. compute xmain91=50. compute xmain92=50. compute xmain93=50. compute xav91=40. compute xav92=40. compute xav93=40. Else if sun18=199 or sun18=499 or sun18=599. compute xmain91=51. compute xmain92=51. compute xmain93=51. compute xav91=36. compute xav92=36. compute xav93=36. Else if sun18=177 or sun18=477 or sun18=577 or sun18=777 or sun18=179 or sun18=479 or sun18=579 or sun18=779. compute xmain91=52. compute xmain92=52. compute xmain93=52. compute xav91=40. compute xav92=40. compute xav93=40. Else if sun18=180 or sun18=480 or sun18=580 or sun18=780. compute xmain91=53. compute xmain92=53. compute xmain93=53. compute xav91=40. compute xav92=40. compute xav93=40. Else if sun18=176 or sun18=476 or sun18=576 or sun18=776 or sun18=181 or sun18=481 or sun18=581 or sun18=781 or sun18=485. compute xmain91=54. compute xmain92=54. compute xmain93=54. compute xav91=40. compute xav92=40. compute xav93=40. Else if sun18=178 or sun18=478 or sun18=578 or sun18=778. compute xmain91=54. compute xmain92=54. compute xmain93=54. compute xav91=39. compute xav92=39. compute xav93=39. Else if sun18=163 or sun18=463 or sun18=563 or sun18=763 or sun18=164 or sun18=464 or sun18=564 or sun18=764. compute xmain91=55. compute xmain92=55. compute xmain93=55. compute xav91=36. compute xav92=36. compute xav93=36. Else if sun18=173 or sun18=473 or sun18=573 or sun18=773 or sun18=873. compute xmain91=56. compute xmain92=56. compute xmain93=56. compute xav91=34. compute xav92=34. compute xav93=34. Else if sun18=174 or sun18=474 or sun18=574 or sun18=875 or sun18=175 or sun18=475 or sun18=575 or sun18=775. compute xmain91=56. compute xmain92=56. compute xmain93=56. compute xav91=35. compute xav92=35. compute xav93=35. Else if sun18=162 or sun18=462 or sun18=562 or sun18=762 or sun18=862. compute xmain91=57. compute xmain92=57. compute xmain93=57. compute xav91=32. compute xav92=32. compute xav93=32. Else if sun18=160 or sun18=460 or sun18=560 or sun18=760. compute xmain91=58. compute xmain92=58. compute xmain93=58. compute xav91=30. compute xav92=30. compute xav93=30. Else if sun18=161 or sun18=461 or sun18=561 or sun18=761 or sun18=167 or sun18=165 or sun18=465 or sun18=565 or sun18=765. compute xmain91=59. compute xmain92=59. compute xmain93=59. compute xav91=31. compute xav92=31. compute xav93=31. Else if sun18=692. compute xmain91=62. compute xmain92=62. compute xmain93=62. compute xav91=17. compute xav92=17. compute xav93=17. Else if sun18=9 or sun18=209 or sun18=309 or sun18=10 or sun18=210 or sun18=310 or sun18=610 or sun18=11 or sun18=211 or sun18=311. compute xmain91=63. compute xmain92=63. compute xmain93=63. compute xav91=5. compute xav92=5. compute xav93=5. Else if sun18=24 or sun18=224 or sun18=324 or sun18=25 or sun18=225 or sun18=325 or sun18=26 or sun18=226 or sun18=326. compute xmain91=64. compute xmain92=64. compute xmain93=64. compute xav91=5. compute xav92=5. compute xav93=5. Else if sun18=59 or sun18=259 or sun18=359. compute xmain91=65. compute xmain92=65. compute xmain93=65. compute xav91=17. compute xav92=17. compute xav93=17. Else if sun18=39 or sun18=239 or sun18=339 or sun18=40 or sun18=240 or sun18=340 or sun18=640. compute xmain91=67. compute xmain92=67. compute xmain93=67. compute xav91=12. compute xav92=12. compute xav93=12. Else if sun18=67 or sun18=267 or sun18=367 or sun18=74 or sun18=274 or sun18=374 or sun18=83 or sun18=283 or sun18=383 or sun18=90 or sun18=290 or sun18=390. compute xmain91=68. compute xmain92=68. compute xmain93=68. compute xav91=17. compute xav92=17. compute xav93=17. Else. compute residual=sun18. End if. Do if (sun18>199 and sun18<300) or (sun18>399 and sun18<500). compute xsec91=58. compute xsec92=58. compute xsec93=58. Else if (sun18>299 and sun18<400) or (sun18>499 and sun18<600). compute xsec91=59. compute xsec92=59. compute xsec93=59. End if. freq residual. if persid=3086 sun19=76. compute residual=0. Do if sun19=150 or sun19=151 or sun19=152 or sun19=153 or sun19=159 or sun19=750 or sun19=450 or sun19=451 or sun19=452 or sun19=453 or sun19=459 or sun19=550 or sun19=551 or sun19=552 or sun19=553 or sun19=559 or sun19=752. compute xmain94=2. compute xmain95=2. compute xmain96=2. compute xav94=16. compute xav95=16. compute xav96=16. Else if sun19=130 or sun19=136 or sun19=430 or sun19=436 or sun19=530 or sun19=536 or sun19=730 or sun19=619. compute xmain94=4. compute xmain95=4. compute xmain96=4. compute xav94=13. compute xav95=13. compute xav96=13. Else if sun19=6 or sun19=206 or sun19=306. compute xmain94=5. compute xmain95=5. compute xmain96=5. compute xav94=1. compute xav95=1. compute xav96=1. Else if sun19=140 or sun19=141 or sun19=142 or sun19=144 or sun19=440 or sun19=441 or sun19=442 or sun19=444 or sun19=540 or sun19=541 or sun19=542 or sun19=544 or sun19=740 or sun19=741 or sun19=840 or sun19=841. compute xmain94=6. compute xmain95=6. compute xmain96=6. compute xav94=15. compute xav95=15. compute xav96=15. Else if sun19=1 or sun19=2 or sun19=13 or sun19=201 or sun19=202 or sun19=213 or sun19=301 or sun19=302 or sun19=313 or sun19=770 or sun19=200. compute xmain94=7. compute xmain95=7. compute xmain96=7. compute xav94=1. compute xav95=1. compute xav96=1. Else if sun19=170 or sun19=470 or sun19=570 or sun19=601 or sun19=603 or sun19=605. compute xmain94=8. compute xmain95=8. compute xmain96=8. compute xav94=2. compute xav95=2. compute xav96=2. Else if sun19=3 or sun19=203 or sun19=303. compute xmain94=9. compute xmain95=9. compute xmain96=9. compute xav94=3. compute xav95=3. compute xav96=3. Else if sun19=12 or sun19=212 or sun19=312 or sun19=612. compute xmain94=11. compute xmain95=11. compute xmain96=11. compute xav94=1. compute xav95=1. compute xav96=1. Else if sun19=7 or sun19=207 or sun19=307 or sun19=607. compute xmain94=12. compute xmain95=12. compute xmain96=12. compute xav94=1. compute xav95=1. compute xav96=1. compute xsec94=6. compute xsec95=6. compute xsec96=6. Else if sun19=8 or sun19=208 or sun19=308. compute xmain94=12. compute xmain95=12. compute xmain96=12. compute xav94=1. compute xav95=1. compute xav96=1. Else if sun19=4 or sun19=204 or sun19=304 or sun19=5 or sun19=205 or sun19=305. compute xmain94=13. compute xmain95=13. compute xmain96=13. compute xav94=1. compute xav95=1. compute xav96=1. Else if sun19=20 or sun19=220 or sun19=320 or sun19=21 or sun19=221 or sun19=321 or sun19=620. compute xmain94=15. compute xmain95=15. compute xmain96=15. compute xav94=4. compute xav95=4. compute xav96=4. Else if sun19=171 or sun19=471 or sun19=571 or sun19=172 or sun19=472 or sun19=572. compute xmain94=16. compute xmain95=16. compute xmain96=16. compute xav94=33. compute xav95=33. compute xav96=33. Else if sun19=22 or sun19=222 or sun19=322. compute xmain94=17. compute xmain95=17. compute xmain96=17. compute xav94=4. compute xav95=4. compute xav96=4. Else if sun19=27 or sun19=227 or sun19=327. compute xmain94=17. compute xmain95=17. compute xmain96=17. compute xav94=25. compute xav95=25. compute xav96=25. compute xsec94=64. compute xsec95=64. compute xsec96=64. Else if sun19=100 or sun19=400 or sun19=500 or sun19=700. compute xmain94=18. compute xmain95=18. compute xmain96=18. compute xav94=6. compute xav95=6. compute xav96=6. Else if sun19=101 or sun19=401 or sun19=501 or sun19=701 or sun19=801. compute xmain94=19. compute xmain95=19. compute xmain96=19. compute xav94=6. compute xav95=6. compute xav96=6. Else if sun19=102 or sun19=402 or sun19=502 or sun19=702 or sun19=103 or sun19=403 or sun19=503 or sun19=703. compute xmain94=20. compute xmain95=20. compute xmain96=20. compute xav94=7. compute xav95=7. compute xav96=7. Else if sun19=104 or sun19=404 or sun19=504 or sun19=704. compute xmain94=21. compute xmain95=21. compute xmain96=21. compute xav94=7. compute xav95=7. compute xav96=7. Else if sun19=105 or sun19=405 or sun19=505 or sun19=705. compute xmain94=21. compute xmain95=21. compute xmain96=21. compute xav94=8. compute xav95=8. compute xav96=8. Else if sun19=106 or sun19=406 or sun19=506 or sun19=706 or sun19=107 or sun19=407 or sun19=507 or sun19=707. compute xmain94=22. compute xmain95=22. compute xmain96=22. compute xav94=8. compute xav95=8. compute xav96=8. Else if sun19=110 or sun19=410 or sun19=510 or sun19=710. compute xmain94=23. compute xmain95=23. compute xmain96=23. compute xav94=8. compute xav95=8. compute xav96=8. Else if sun19=30 or sun19=230 or sun19=330 or sun19=630 or sun19=31 or sun19=231 or sun19=331 or sun19=36 or sun19=236 or sun19=336 or sun19=38 or sun19=238 or sun19=338. compute xmain94=24. compute xmain95=24. compute xmain96=24. compute xav94=10. compute xav95=10. compute xav96=10. Else if sun19=32 or sun19=232 or sun19=332 or sun19=632 or sun19=33 or sun19=233 or sun19=333 or sun19=633 or sun19=34 or sun19=234 or sun19=334 or sun19=131 or sun19=431 or sun19=531 or sun19=731. compute xmain94=25. compute xmain95=25. compute xmain96=25. compute xav94=14. compute xav95=14. compute xav96=14. Else if sun19=37 or sun19=237 or sun19=337 or sun19=637. compute xmain94=26. compute xmain95=26. compute xmain96=26. compute xav94=10. compute xav95=10. compute xav96=10. Else if sun19=108 or sun19=408 or sun19=508 or sun19=708. compute xmain94=27. compute xmain95=27. compute xmain96=27. compute xav94=8. compute xav95=8. compute xav96=8. Else if sun19=35 or sun19=235 or sun19=335 or sun19=635 or sun19=120 or sun19=420 or sun19=520 or sun19=720 or sun19=121 or sun19=421 or sun19=521 or sun19=721. compute xmain94=28. compute xmain95=28. compute xmain96=28. compute xav94=11. compute xav95=11. compute xav96=11. Else if sun19=123 or sun19=423 or sun19=523 or sun19=723. compute xmain94=29. compute xmain95=29. compute xmain96=29. compute xav94=11. compute xav95=11. compute xav96=11. Else if sun19=122 or sun19=422 or sun19=522. compute xmain94=30. compute xmain95=30. compute xmain96=30. compute xav94=11. compute xav95=11. compute xav96=11. Else if sun19=124 or sun19=424 or sun19=524 or sun19=724. compute xmain94=30. compute xmain95=30. compute xmain96=30. compute xav94=11. compute xav95=11. compute xav96=11. compute xsec94=43. compute xsec95=43. compute xsec96=43. Else if sun19=125 or sun19=425 or sun19=525 or sun19=725. compute xmain94=31. compute xmain95=31. compute xmain96=31. compute xav94=11. compute xav95=11. compute xav96=11. Else if sun19=133 or sun19=433 or sun19=533 or sun19=733. compute xmain94=32. compute xmain95=32. compute xmain96=32. compute xav94=8. compute xav95=8. compute xav96=8. Else if sun19=23 or sun19=223 or sun19=323 or sun19=51 or sun19=251 or sun19=351 or sun19=651 or sun19=52 or sun19=252 or sun19=352 or sun19=652 or sun19=53 or sun19=253 or sun19=353 or sun19=54 or sun19=254 or sun19=354 or sun19=654 or sun19=55 or sun19=255 or sun19=355 or sun19=56 or sun19=256 or sun19=356 or sun19=57 or sun19=257 or sun19=357 or sun19=657 or sun19=58 or sun19=258 or sun19=358 or sun19=658. compute xmain94=33. compute xmain95=33. compute xmain96=33. compute xav94=23. compute xav95=23. compute xav96=23. Else if sun19=50 or sun19=250 or sun19=350 or sun19=650 or sun19=132 or sun19=432 or sun19=532. compute xmain94=34. compute xmain95=34. compute xmain96=34. compute xav94=22. compute xav95=22. compute xav96=22. Else if sun19=66 or sun19=266 or sun19=366. compute xmain94=35. compute xmain95=35. compute xmain96=35. compute xav94=18. compute xav95=18. compute xav96=18. Else if sun19=95 or sun19=295 or sun19=395. compute xmain94=35. compute xmain95=35. compute xmain96=35. compute xav94=25. compute xav95=25. compute xav96=25. Else if sun19=73 or sun19=273 or sun19=373. compute xmain94=36. compute xmain95=36. compute xmain96=36. compute xav94=20. compute xav95=20. compute xav96=20. Else if sun19=70 or sun19=270 or sun19=370 or sun19=71 or sun19=271 or sun19=371 or sun19=72 or sun19=272 or sun19=372. compute xmain94=37. compute xmain95=37. compute xmain96=37. compute xav94=24. compute xav95=24. compute xav96=24. Else if sun19=63 or sun19=263 or sun19=363 or sun19=64 or sun19=264 or sun19=364 or sun19=65 or sun19=265 or sun19=365. compute xmain94=38. compute xmain95=38. compute xmain96=38. compute xav94=18. compute xav95=18. compute xav96=18. Else if sun19=77 or sun19=277 or sun19=377. compute xmain94=39. compute xmain95=39. compute xmain96=39. compute xav94=27. compute xav95=27. compute xav96=27. Else if sun19=80 or sun19=280 or sun19=380 or sun19=81 or sun19=281 or sun19=381. compute xmain94=39. compute xmain95=39. compute xmain96=39. compute xav94=28. compute xav95=28. compute xav96=28. Else if sun19=78 or sun19=278 or sun19=378 or sun19=79 or sun19=279 or sun19=379. compute xmain94=40. compute xmain95=40. compute xmain96=40. compute xav94=26. compute xav95=26. compute xav96=26. Else if sun19=82 or sun19=282 or sun19=382. compute xmain94=40. compute xmain95=40. compute xmain96=40. compute xav94=25. compute xav95=25. compute xav96=25. Else if sun19=900. compute xmain94=41. compute xmain95=41. compute xmain96=41. Else if sun19=60 or sun19=260 or sun19=360. compute xmain94=42. compute xmain95=42. compute xmain96=42. compute xav94=19. compute xav95=19. compute xav96=19. Else if sun19=61 or sun19=261 or sun19=361 or sun19=661. compute xmain94=43. compute xmain95=43. compute xmain96=43. compute xav94=21. compute xav95=21. compute xav96=21. Else if sun19=62 or sun19=262 or sun19=362. compute xmain94=46. compute xmain95=46. compute xmain96=46. compute xav94=19. compute xav95=19. compute xav96=19. Else if sun19=109 or sun19=409 or sun19=509 or sun19=709. compute xmain94=46. compute xmain95=46. compute xmain96=46. compute xav94=9. compute xav95=9. compute xav96=9. Else if sun19=75 or sun19=275 or sun19=375. compute xmain94=48. compute xmain95=48. compute xmain96=48. compute xav94=29. compute xav95=29. compute xav96=29. compute xsec94=6. compute xsec95=6. compute xsec96=6. Else if sun19=76 or sun19=276 or sun19=376. compute xmain94=48. compute xmain95=48. compute xmain96=48. compute xav94=29. compute xav95=29. compute xav96=29. Else if sun19=190 or sun19=490 or sun19=590. compute xmain94=48. compute xmain95=48. compute xmain96=48. compute xav94=38. compute xav95=38. compute xav96=38. compute xsec94=6. compute xsec95=6. compute xsec96=6. Else if sun19=191 or sun19=491 or sun19=591 or sun19=91. compute xmain94=48. compute xmain95=48. compute xmain96=48. compute xav94=38. compute xav95=38. compute xav96=38. Else if sun19=192 or sun19=492 or sun19=592 or sun19=792 or sun19=92. compute xmain94=49. compute xmain95=49. compute xmain96=49. compute xav94=37. compute xav95=37. compute xav96=37. Else if sun19=193 or sun19=493 or sun19=593 or sun19=793 or sun19=682. compute xmain94=50. compute xmain95=50. compute xmain96=50. compute xav94=40. compute xav95=40. compute xav96=40. Else if sun19=199 or sun19=499 or sun19=599. compute xmain94=51. compute xmain95=51. compute xmain96=51. compute xav94=36. compute xav95=36. compute xav96=36. Else if sun19=177 or sun19=477 or sun19=577 or sun19=777 or sun19=179 or sun19=479 or sun19=579 or sun19=779. compute xmain94=52. compute xmain95=52. compute xmain96=52. compute xav94=40. compute xav95=40. compute xav96=40. Else if sun19=180 or sun19=480 or sun19=580 or sun19=780. compute xmain94=53. compute xmain95=53. compute xmain96=53. compute xav94=40. compute xav95=40. compute xav96=40. Else if sun19=176 or sun19=476 or sun19=576 or sun19=776 or sun19=181 or sun19=481 or sun19=581 or sun19=781 or sun19=485. compute xmain94=54. compute xmain95=54. compute xmain96=54. compute xav94=40. compute xav95=40. compute xav96=40. Else if sun19=178 or sun19=478 or sun19=578 or sun19=778. compute xmain94=54. compute xmain95=54. compute xmain96=54. compute xav94=39. compute xav95=39. compute xav96=39. Else if sun19=163 or sun19=463 or sun19=563 or sun19=763 or sun19=164 or sun19=464 or sun19=564 or sun19=764. compute xmain94=55. compute xmain95=55. compute xmain96=55. compute xav94=36. compute xav95=36. compute xav96=36. Else if sun19=173 or sun19=473 or sun19=573 or sun19=773 or sun19=873. compute xmain94=56. compute xmain95=56. compute xmain96=56. compute xav94=34. compute xav95=34. compute xav96=34. Else if sun19=174 or sun19=474 or sun19=574 or sun19=875 or sun19=175 or sun19=475 or sun19=575 or sun19=775. compute xmain94=56. compute xmain95=56. compute xmain96=56. compute xav94=35. compute xav95=35. compute xav96=35. Else if sun19=162 or sun19=462 or sun19=562 or sun19=762 or sun19=862. compute xmain94=57. compute xmain95=57. compute xmain96=57. compute xav94=32. compute xav95=32. compute xav96=32. Else if sun19=160 or sun19=460 or sun19=560 or sun19=760. compute xmain94=58. compute xmain95=58. compute xmain96=58. compute xav94=30. compute xav95=30. compute xav96=30. Else if sun19=161 or sun19=461 or sun19=561 or sun19=761 or sun19=167 or sun19=165 or sun19=465 or sun19=565 or sun19=765. compute xmain94=59. compute xmain95=59. compute xmain96=59. compute xav94=31. compute xav95=31. compute xav96=31. Else if sun19=692. compute xmain94=62. compute xmain95=62. compute xmain96=62. compute xav94=17. compute xav95=17. compute xav96=17. Else if sun19=9 or sun19=209 or sun19=309 or sun19=10 or sun19=210 or sun19=310 or sun19=610 or sun19=11 or sun19=211 or sun19=311. compute xmain94=63. compute xmain95=63. compute xmain96=63. compute xav94=5. compute xav95=5. compute xav96=5. Else if sun19=24 or sun19=224 or sun19=324 or sun19=25 or sun19=225 or sun19=325 or sun19=26 or sun19=226 or sun19=326. compute xmain94=64. compute xmain95=64. compute xmain96=64. compute xav94=5. compute xav95=5. compute xav96=5. Else if sun19=59 or sun19=259 or sun19=359. compute xmain94=65. compute xmain95=65. compute xmain96=65. compute xav94=17. compute xav95=17. compute xav96=17. Else if sun19=39 or sun19=239 or sun19=339 or sun19=40 or sun19=240 or sun19=340 or sun19=640. compute xmain94=67. compute xmain95=67. compute xmain96=67. compute xav94=12. compute xav95=12. compute xav96=12. Else if sun19=67 or sun19=267 or sun19=367 or sun19=74 or sun19=274 or sun19=374 or sun19=83 or sun19=283 or sun19=383 or sun19=90 or sun19=290 or sun19=390. compute xmain94=68. compute xmain95=68. compute xmain96=68. compute xav94=17. compute xav95=17. compute xav96=17. Else. compute residual=sun19. End if. Do if (sun19>199 and sun19<300) or (sun19>399 and sun19<500). compute xsec94=58. compute xsec95=58. compute xsec96=58. Else if (sun19>299 and sun19<400) or (sun19>499 and sun19<600). compute xsec94=59. compute xsec95=59. compute xsec96=59. End if. freq residual. compute residual=0. Do if sun20=150 or sun20=151 or sun20=152 or sun20=153 or sun20=159 or sun20=750 or sun20=450 or sun20=451 or sun20=452 or sun20=453 or sun20=459 or sun20=550 or sun20=551 or sun20=552 or sun20=553 or sun20=559 or sun20=752. compute xmain97=2. compute xmain98=2. compute xmain99=2. compute xav97=16. compute xav98=16. compute xav99=16. Else if sun20=130 or sun20=136 or sun20=430 or sun20=436 or sun20=530 or sun20=536 or sun20=730 or sun20=619. compute xmain97=4. compute xmain98=4. compute xmain99=4. compute xav97=13. compute xav98=13. compute xav99=13. Else if sun20=6 or sun20=206 or sun20=306. compute xmain97=5. compute xmain98=5. compute xmain99=5. compute xav97=1. compute xav98=1. compute xav99=1. Else if sun20=140 or sun20=141 or sun20=142 or sun20=144 or sun20=440 or sun20=441 or sun20=442 or sun20=444 or sun20=540 or sun20=541 or sun20=542 or sun20=544 or sun20=740 or sun20=741 or sun20=840 or sun20=841. compute xmain97=6. compute xmain98=6. compute xmain99=6. compute xav97=15. compute xav98=15. compute xav99=15. Else if sun20=1 or sun20=2 or sun20=13 or sun20=201 or sun20=202 or sun20=213 or sun20=301 or sun20=302 or sun20=313 or sun20=770 or sun20=200. compute xmain97=7. compute xmain98=7. compute xmain99=7. compute xav97=1. compute xav98=1. compute xav99=1. Else if sun20=170 or sun20=470 or sun20=570 or sun20=601 or sun20=603 or sun20=605. compute xmain97=8. compute xmain98=8. compute xmain99=8. compute xav97=2. compute xav98=2. compute xav99=2. Else if sun20=3 or sun20=203 or sun20=303. compute xmain97=9. compute xmain98=9. compute xmain99=9. compute xav97=3. compute xav98=3. compute xav99=3. Else if sun20=12 or sun20=212 or sun20=312 or sun20=612. compute xmain97=11. compute xmain98=11. compute xmain99=11. compute xav97=1. compute xav98=1. compute xav99=1. Else if sun20=7 or sun20=207 or sun20=307 or sun20=607. compute xmain97=12. compute xmain98=12. compute xmain99=12. compute xav97=1. compute xav98=1. compute xav99=1. compute xsec97=6. compute xsec98=6. compute xsec99=6. Else if sun20=8 or sun20=208 or sun20=308. compute xmain97=12. compute xmain98=12. compute xmain99=12. compute xav97=1. compute xav98=1. compute xav99=1. Else if sun20=4 or sun20=204 or sun20=304 or sun20=5 or sun20=205 or sun20=305. compute xmain97=13. compute xmain98=13. compute xmain99=13. compute xav97=1. compute xav98=1. compute xav99=1. Else if sun20=20 or sun20=220 or sun20=320 or sun20=21 or sun20=221 or sun20=321 or sun20=620. compute xmain97=15. compute xmain98=15. compute xmain99=15. compute xav97=4. compute xav98=4. compute xav99=4. Else if sun20=171 or sun20=471 or sun20=571 or sun20=172 or sun20=472 or sun20=572. compute xmain97=16. compute xmain98=16. compute xmain99=16. compute xav97=33. compute xav98=33. compute xav99=33. Else if sun20=22 or sun20=222 or sun20=322. compute xmain97=17. compute xmain98=17. compute xmain99=17. compute xav97=4. compute xav98=4. compute xav99=4. Else if sun20=27 or sun20=227 or sun20=327. compute xmain97=17. compute xmain98=17. compute xmain99=17. compute xav97=25. compute xav98=25. compute xav99=25. compute xsec97=64. compute xsec98=64. compute xsec99=64. Else if sun20=100 or sun20=400 or sun20=500 or sun20=700. compute xmain97=18. compute xmain98=18. compute xmain99=18. compute xav97=6. compute xav98=6. compute xav99=6. Else if sun20=101 or sun20=401 or sun20=501 or sun20=701 or sun20=801. compute xmain97=19. compute xmain98=19. compute xmain99=19. compute xav97=6. compute xav98=6. compute xav99=6. Else if sun20=102 or sun20=402 or sun20=502 or sun20=702 or sun20=103 or sun20=403 or sun20=503 or sun20=703. compute xmain97=20. compute xmain98=20. compute xmain99=20. compute xav97=7. compute xav98=7. compute xav99=7. Else if sun20=104 or sun20=404 or sun20=504 or sun20=704. compute xmain97=21. compute xmain98=21. compute xmain99=21. compute xav97=7. compute xav98=7. compute xav99=7. Else if sun20=105 or sun20=405 or sun20=505 or sun20=705. compute xmain97=21. compute xmain98=21. compute xmain99=21. compute xav97=8. compute xav98=8. compute xav99=8. Else if sun20=106 or sun20=406 or sun20=506 or sun20=706 or sun20=107 or sun20=407 or sun20=507 or sun20=707. compute xmain97=22. compute xmain98=22. compute xmain99=22. compute xav97=8. compute xav98=8. compute xav99=8. Else if sun20=110 or sun20=410 or sun20=510 or sun20=710. compute xmain97=23. compute xmain98=23. compute xmain99=23. compute xav97=8. compute xav98=8. compute xav99=8. Else if sun20=30 or sun20=230 or sun20=330 or sun20=630 or sun20=31 or sun20=231 or sun20=331 or sun20=36 or sun20=236 or sun20=336 or sun20=38 or sun20=238 or sun20=338. compute xmain97=24. compute xmain98=24. compute xmain99=24. compute xav97=10. compute xav98=10. compute xav99=10. Else if sun20=32 or sun20=232 or sun20=332 or sun20=632 or sun20=33 or sun20=233 or sun20=333 or sun20=633 or sun20=34 or sun20=234 or sun20=334 or sun20=131 or sun20=431 or sun20=531 or sun20=731. compute xmain97=25. compute xmain98=25. compute xmain99=25. compute xav97=14. compute xav98=14. compute xav99=14. Else if sun20=37 or sun20=237 or sun20=337 or sun20=637. compute xmain97=26. compute xmain98=26. compute xmain99=26. compute xav97=10. compute xav98=10. compute xav99=10. Else if sun20=108 or sun20=408 or sun20=508 or sun20=708. compute xmain97=27. compute xmain98=27. compute xmain99=27. compute xav97=8. compute xav98=8. compute xav99=8. Else if sun20=35 or sun20=235 or sun20=335 or sun20=635 or sun20=120 or sun20=420 or sun20=520 or sun20=720 or sun20=121 or sun20=421 or sun20=521 or sun20=721. compute xmain97=28. compute xmain98=28. compute xmain99=28. compute xav97=11. compute xav98=11. compute xav99=11. Else if sun20=123 or sun20=423 or sun20=523 or sun20=723. compute xmain97=29. compute xmain98=29. compute xmain99=29. compute xav97=11. compute xav98=11. compute xav99=11. Else if sun20=122 or sun20=422 or sun20=522. compute xmain97=30. compute xmain98=30. compute xmain99=30. compute xav97=11. compute xav98=11. compute xav99=11. Else if sun20=124 or sun20=424 or sun20=524 or sun20=724. compute xmain97=30. compute xmain98=30. compute xmain99=30. compute xav97=11. compute xav98=11. compute xav99=11. compute xsec97=43. compute xsec98=43. compute xsec99=43. Else if sun20=125 or sun20=425 or sun20=525 or sun20=725. compute xmain97=31. compute xmain98=31. compute xmain99=31. compute xav97=11. compute xav98=11. compute xav99=11. Else if sun20=133 or sun20=433 or sun20=533 or sun20=733. compute xmain97=32. compute xmain98=32. compute xmain99=32. compute xav97=8. compute xav98=8. compute xav99=8. Else if sun20=23 or sun20=223 or sun20=323 or sun20=51 or sun20=251 or sun20=351 or sun20=651 or sun20=52 or sun20=252 or sun20=352 or sun20=652 or sun20=53 or sun20=253 or sun20=353 or sun20=54 or sun20=254 or sun20=354 or sun20=654 or sun20=55 or sun20=255 or sun20=355 or sun20=56 or sun20=256 or sun20=356 or sun20=57 or sun20=257 or sun20=357 or sun20=657 or sun20=58 or sun20=258 or sun20=358 or sun20=658. compute xmain97=33. compute xmain98=33. compute xmain99=33. compute xav97=23. compute xav98=23. compute xav99=23. Else if sun20=50 or sun20=250 or sun20=350 or sun20=650 or sun20=132 or sun20=432 or sun20=532. compute xmain97=34. compute xmain98=34. compute xmain99=34. compute xav97=22. compute xav98=22. compute xav99=22. Else if sun20=66 or sun20=266 or sun20=366. compute xmain97=35. compute xmain98=35. compute xmain99=35. compute xav97=18. compute xav98=18. compute xav99=18. Else if sun20=95 or sun20=295 or sun20=395. compute xmain97=35. compute xmain98=35. compute xmain99=35. compute xav97=25. compute xav98=25. compute xav99=25. Else if sun20=73 or sun20=273 or sun20=373. compute xmain97=36. compute xmain98=36. compute xmain99=36. compute xav97=20. compute xav98=20. compute xav99=20. Else if sun20=70 or sun20=270 or sun20=370 or sun20=71 or sun20=271 or sun20=371 or sun20=72 or sun20=272 or sun20=372. compute xmain97=37. compute xmain98=37. compute xmain99=37. compute xav97=24. compute xav98=24. compute xav99=24. Else if sun20=63 or sun20=263 or sun20=363 or sun20=64 or sun20=264 or sun20=364 or sun20=65 or sun20=265 or sun20=365. compute xmain97=38. compute xmain98=38. compute xmain99=38. compute xav97=18. compute xav98=18. compute xav99=18. Else if sun20=77 or sun20=277 or sun20=377. compute xmain97=39. compute xmain98=39. compute xmain99=39. compute xav97=27. compute xav98=27. compute xav99=27. Else if sun20=80 or sun20=280 or sun20=380 or sun20=81 or sun20=281 or sun20=381. compute xmain97=39. compute xmain98=39. compute xmain99=39. compute xav97=28. compute xav98=28. compute xav99=28. Else if sun20=78 or sun20=278 or sun20=378 or sun20=79 or sun20=279 or sun20=379. compute xmain97=40. compute xmain98=40. compute xmain99=40. compute xav97=26. compute xav98=26. compute xav99=26. Else if sun20=82 or sun20=282 or sun20=382. compute xmain97=40. compute xmain98=40. compute xmain99=40. compute xav97=25. compute xav98=25. compute xav99=25. Else if sun20=900. compute xmain97=41. compute xmain98=41. compute xmain99=41. Else if sun20=60 or sun20=260 or sun20=360. compute xmain97=42. compute xmain98=42. compute xmain99=42. compute xav97=19. compute xav98=19. compute xav99=19. Else if sun20=61 or sun20=261 or sun20=361 or sun20=661. compute xmain97=43. compute xmain98=43. compute xmain99=43. compute xav97=21. compute xav98=21. compute xav99=21. Else if sun20=62 or sun20=262 or sun20=362. compute xmain97=46. compute xmain98=46. compute xmain99=46. compute xav97=19. compute xav98=19. compute xav99=19. Else if sun20=109 or sun20=409 or sun20=509 or sun20=709. compute xmain97=46. compute xmain98=46. compute xmain99=46. compute xav97=9. compute xav98=9. compute xav99=9. Else if sun20=75 or sun20=275 or sun20=375. compute xmain97=48. compute xmain98=48. compute xmain99=48. compute xav97=29. compute xav98=29. compute xav99=29. compute xsec97=6. compute xsec98=6. compute xsec99=6. Else if sun20=76 or sun20=276 or sun20=376. compute xmain97=48. compute xmain98=48. compute xmain99=48. compute xav97=29. compute xav98=29. compute xav99=29. Else if sun20=190 or sun20=490 or sun20=590. compute xmain97=48. compute xmain98=48. compute xmain99=48. compute xav97=38. compute xav98=38. compute xav99=38. compute xsec97=6. compute xsec98=6. compute xsec99=6. Else if sun20=191 or sun20=491 or sun20=591 or sun20=91. compute xmain97=48. compute xmain98=48. compute xmain99=48. compute xav97=38. compute xav98=38. compute xav99=38. Else if sun20=192 or sun20=492 or sun20=592 or sun20=792 or sun20=92. compute xmain97=49. compute xmain98=49. compute xmain99=49. compute xav97=37. compute xav98=37. compute xav99=37. Else if sun20=193 or sun20=493 or sun20=593 or sun20=793 or sun20=682. compute xmain97=50. compute xmain98=50. compute xmain99=50. compute xav97=40. compute xav98=40. compute xav99=40. Else if sun20=199 or sun20=499 or sun20=599. compute xmain97=51. compute xmain98=51. compute xmain99=51. compute xav97=36. compute xav98=36. compute xav99=36. Else if sun20=177 or sun20=477 or sun20=577 or sun20=777 or sun20=179 or sun20=479 or sun20=579 or sun20=779. compute xmain97=52. compute xmain98=52. compute xmain99=52. compute xav97=40. compute xav98=40. compute xav99=40. Else if sun20=180 or sun20=480 or sun20=580 or sun20=780. compute xmain97=53. compute xmain98=53. compute xmain99=53. compute xav97=40. compute xav98=40. compute xav99=40. Else if sun20=176 or sun20=476 or sun20=576 or sun20=776 or sun20=181 or sun20=481 or sun20=581 or sun20=781 or sun20=485. compute xmain97=54. compute xmain98=54. compute xmain99=54. compute xav97=40. compute xav98=40. compute xav99=40. Else if sun20=178 or sun20=478 or sun20=578 or sun20=778. compute xmain97=54. compute xmain98=54. compute xmain99=54. compute xav97=39. compute xav98=39. compute xav99=39. Else if sun20=163 or sun20=463 or sun20=563 or sun20=763 or sun20=164 or sun20=464 or sun20=564 or sun20=764. compute xmain97=55. compute xmain98=55. compute xmain99=55. compute xav97=36. compute xav98=36. compute xav99=36. Else if sun20=173 or sun20=473 or sun20=573 or sun20=773 or sun20=873. compute xmain97=56. compute xmain98=56. compute xmain99=56. compute xav97=34. compute xav98=34. compute xav99=34. Else if sun20=174 or sun20=474 or sun20=574 or sun20=875 or sun20=175 or sun20=475 or sun20=575 or sun20=775. compute xmain97=56. compute xmain98=56. compute xmain99=56. compute xav97=35. compute xav98=35. compute xav99=35. Else if sun20=162 or sun20=462 or sun20=562 or sun20=762 or sun20=862. compute xmain97=57. compute xmain98=57. compute xmain99=57. compute xav97=32. compute xav98=32. compute xav99=32. Else if sun20=160 or sun20=460 or sun20=560 or sun20=760. compute xmain97=58. compute xmain98=58. compute xmain99=58. compute xav97=30. compute xav98=30. compute xav99=30. Else if sun20=161 or sun20=461 or sun20=561 or sun20=761 or sun20=167 or sun20=165 or sun20=465 or sun20=565 or sun20=765. compute xmain97=59. compute xmain98=59. compute xmain99=59. compute xav97=31. compute xav98=31. compute xav99=31. Else if sun20=692. compute xmain97=62. compute xmain98=62. compute xmain99=62. compute xav97=17. compute xav98=17. compute xav99=17. Else if sun20=9 or sun20=209 or sun20=309 or sun20=10 or sun20=210 or sun20=310 or sun20=610 or sun20=11 or sun20=211 or sun20=311. compute xmain97=63. compute xmain98=63. compute xmain99=63. compute xav97=5. compute xav98=5. compute xav99=5. Else if sun20=24 or sun20=224 or sun20=324 or sun20=25 or sun20=225 or sun20=325 or sun20=26 or sun20=226 or sun20=326. compute xmain97=64. compute xmain98=64. compute xmain99=64. compute xav97=5. compute xav98=5. compute xav99=5. Else if sun20=59 or sun20=259 or sun20=359. compute xmain97=65. compute xmain98=65. compute xmain99=65. compute xav97=17. compute xav98=17. compute xav99=17. Else if sun20=39 or sun20=239 or sun20=339 or sun20=40 or sun20=240 or sun20=340 or sun20=640. compute xmain97=67. compute xmain98=67. compute xmain99=67. compute xav97=12. compute xav98=12. compute xav99=12. Else if sun20=67 or sun20=267 or sun20=367 or sun20=74 or sun20=274 or sun20=374 or sun20=83 or sun20=283 or sun20=383 or sun20=90 or sun20=290 or sun20=390. compute xmain97=68. compute xmain98=68. compute xmain99=68. compute xav97=17. compute xav98=17. compute xav99=17. Else. compute residual=sun20. End if. Do if (sun20>199 and sun20<300) or (sun20>399 and sun20<500). compute xsec97=58. compute xsec98=58. compute xsec99=58. Else if (sun20>299 and sun20<400) or (sun20>499 and sun20<600). compute xsec97=59. compute xsec98=59. compute xsec99=59. End if. freq residual. Do if persid=239. recode xmain1 to xmain39 (69=41). recode xmain71 xmain72 (41=62). recode xav71 xav72 (41=17). end if. Do if persid=205. recode xav1 to xav66 (41=16). recode xmain1 to xmain66 (69=3). recode xmain67 to xmain69 (69=1). recode xav67 to xav69 (41=13). end if. Do if persid=2231. recode xav1 to xav45 (41=16). recode xmain1 to xmain45 (69=3). recode xmain46 to xmain48 (69=1). recode xav46 to xav48 (41=13). end if. Do if persid=1740. recode xav1 to xav51 (41=16). recode xmain1 to xmain51 (69=3). recode xmain52 to xmain54 (69=1). recode xav52 to xav54 (41=13). recode xmain73 to xmain75 (69=20). recode xav73 to xav75 (41=7). recode xsec73 to xsec75 (69=58). recode xmain85 to xmain87 (69=55). recode xav85 to xav87 (41=36). recode xmain91 to xmain93 (69=59). recode xav91 to xav93 (41=31). recode xmain97 to xmain102 (69=59). recode xav97 to xav102 (41=31). recode xmain109 to xmain111 (69=59). recode xav109 to xav111 (41=31). recode xmain121 to xmain123 (69=59). recode xav121 to xav123 (41=31). recode xmain124 to xmain126 (69=6). recode xav124 to xav126 (41=15). recode xsec124 to xsec126 (69=59). recode xmain130 to xmain132 (69=1). recode xav130 to xav132 (41=13). recode xav136 to xav144 (41=16). recode xmain136 to xmain144 (69=3). end if. Do if persid=2070. recode xav1 to xav54 (41=16). recode xmain1 to xmain54 (69=3). recode xmain55 to xmain57 (69=1). recode xav55 to xav57 (41=13). recode xmain70 to xmain78 (69=20). recode xav70 to xav78 (41=7). recode xmain82 to xmain84 (69=6). recode xav82 to xav84 (41=15). recode xmain91 to xmain93 (69=59). recode xav91 to xav93 (41=31). recode xmain97 to xmain99 (69=59). recode xav97 to xav99 (41=31). recode xmain109 to xmain111 (69=59). recode xav109 to xav111 (41=31). recode xmain118 to xmain120 (69=59). recode xav118 to xav120 (41=31). recode xmain127 to xmain132 (69=59). recode xav127 to xav132 (41=31). recode xmain133 to xmain135 (69=1). recode xav133 to xav135 (41=13). recode xav139 to xav144 (41=16). recode xmain139 to xmain144 (69=3). End if. compute misslot=0. do repeat a=xmain1 to xmain144. if a>69 misslot=misslot+1. end repeat. freq misslot. compute animal=0. 108 *********************************** *computation of time use variables* ***********************************. compute workhrs compute empstat3 = -8. if workhrs>29 empstat3=1. if workhrs>0 and workhrs<30 empstat3=2. if workhrs=0 empstat3=4. recode empstat3 (1,2,3=1) (4=0) (-8=-8) into emp. freq emp empstat3. Do if agekidx=1. compute famstat=1. Else if agekidx=2. compute famstat=2. Else if age<40. compute famstat=0. Else if age>40. compute famstat=3. Else if agekidx=3. compute famstat=4. End if. freq famstat. cro famstat by agekidx age. ****************************************************************** *selection of good diaries and recoding of selected av variables * ******************************************************************. compute badcase ************************ *computation of weights* ************************. save outfile='r:\soci 1205\data archives\time use archives\time use data surveys\uk\1961\world 5.5\uk1961w552.sav' /keep=country period survey swave msamp hldid persid id day month year diary sex age2 agegr5y famstat cphome hhtype singpar hhldsize nchild agekid relrefp civstat cohab empstat3 emp unemp student retired empsp workhrs incorig income empinclm educa edtry disab urban paidetc hwork cooking eating kidcare shopping dtravel otravel perscare eatout pubclubs spectat asports walking visits tvrad reading chatsetc oddjobs hobbies medical educ tottime av1 av2 av3 av4 av5 av6 av7 av8 av9 av10 av11 av12 av13 av14 av15 av16 av17 av18 av19 av20 av21 av22 av23 av24 av25 av26 av27 av28 av29 av30 av31 av32 av33 av34 av35 av36 av37 av38 av39 av40 av41 opopwt odaywt ocombwt popwt2 daywt2 propwt. 'C:\Kimberly\time\mtus\MTUS database\schema&etc\MTUSW553schema.sav'. *************************** *construct the MTUS files * ***************************. freq aglftsch region animal. sort cases by hldid persid id. *make supplementary file for the UK. AGGREGATE /OUTFILE='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav' /BREAK=survey hldid persid id /sexd 'sex - duplicate in supplement file' = MAX(sex) /aged 'age - duplicate in supplement file' = MAX(age) /incolab 'original household income labelled' = MAX(incorig) /educalab 'original education labelled' = MAX(educa) /empinlab 'income from employment labelled' = MAX(empinclm) /aglftsch 'age left formal schooling' = MAX(aglftsch) /region 'countreg / English region' = MAX(region) /animal 'average minutes spent with animals per diary from respondent' = MEAN(animal). save outfile ='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w53.sav' /keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age famstat cphome singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp workhrs empinclm occup sector educa edtry rushed health carer disab avx1 avx2 avx3 avx4 avx5 avx6 avx7 avx8 avx9 avx10 avx11 avx12 avx13 avx14 avx15 avx16 avx17 avx18 avx19 avx20 avx21 avx22 avx23 avx24 avx25 avx26 avx27 avx28 avx29 avx30 avx31 avx32 avx33 avx34 avx35 avx36 avx37 avx38 avx39 avx40 avx41 ocombwt propwt. save outfile ='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w58.sav' /keep countreg survey swave msamp hldid persid id parntid1 parntid2 partid day month year diary badcase hhtype hhldsize nchild agekidx agekid2 incorig income ownhome urban computer vehicle sex age famstat cphome singpar relrefp civstat cohab citizen empstat emp unemp student retired empsp workhrs empinclm occup sector educa edtry rushed health carer disab mainx1 mainx2 mainx3 mainx4 mainx5 mainx6 mainx7 mainx8 mainx9 mainx10 mainx11 mainx12 mainx13 mainx14 mainx15 mainx16 mainx17 mainx18 mainx19 mainx20 mainx21 mainx22 mainx23 mainx24 mainx25 mainx26 mainx27 mainx28 mainx29 mainx30 mainx31 mainx32 mainx33 mainx34 mainx35 mainx36 mainx37 mainx38 mainx39 mainx40 mainx41 mainx42 mainx43 mainx44 mainx45 mainx46 mainx47 mainx48 mainx49 mainx50 mainx51 mainx52 mainx53 mainx54 mainx55 mainx56 mainx57 mainx58 mainx59 mainx60 mainx61 mainx62 mainx63 mainx64 mainx65 mainx66 mainx67 mainx68 mainx69 avx1 avx2 avx3 avx4 avx5 avx6 avx7 avx8 avx9 avx10 avx11 avx12 avx13 avx14 avx15 avx16 avx17 avx18 avx19 avx20 avx21 avx22 avx23 avx24 avx25 avx26 avx27 avx28 avx29 avx30 avx31 avx32 avx33 avx34 avx35 avx36 avx37 avx38 avx39 avx40 avx41 sppart ocombwt propwt. vector main=main1 to main41 /av=av1 to av41 /sec=sec1 to sec41 /eloc=eloc1 to eloc41 /mtrav=mtrav1 to mtrav41 /time=time1 to time41 /clocks=clocks1 to clocks41 /start=start1 to start41 /end=end1 to end41. loop i=1 to 41. compute countreg=countreg. compute survey=survey. compute swave=swave. compute msamp=msamp. compute hldid=hldid. compute persid=persid. compute id=id. compute day=day. compute cday=cday. compute month=month. compute year=year. compute diary=diary. compute badcase=badcase. compute sex=sex. compute age=age. compute time=time(i). compute clockst=clocks(i). compute start=start(i). compute end=end(i). compute epnum=i. compute main=main(i). compute sec=sec(i). compute av=av(i). compute inout=-9. compute eloc=eloc(i). compute ict=-9. compute mtrav=mtrav(i). compute alone=-9. compute child=-9. compute sppart=-9. compute oad=-9. xsave outfile='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975w6.sav' /keep = countreg survey swave msamp hldid persid id day cday month year diary badcase sex age time clockst start end epnum main sec av inout eloc ict mtrav alone child sppart oad. end loop. execute. *final tidy of version 5.3. *final tidy extra UK variables. get file='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav'. var lab hldid 'Household identifier'. val lab hldid 0 '1 person sampled per household'. var lab persid 'Person/diarist identifier'. var lab id 'Diary identifier'. val lab sexd 1 Man 2 Woman -8 missing. val lab aged 80 80 or older -7 not asked -8 missing. compute ethnic=-9. var lab ethnic ethnicity. val lab ethnic -9 not possible to create -8 missing 1 white 2 black 3 "Indian/Pakistani/Bangladeshi" 4 other and mixed race. freq survey id sexd aged incolab educalab empinlab aglftsch ethnic region. desc hldid persid animal. save outfile='C:\Kimberly\time\mtus\mtus data\W553\UK\1974-75\UK1975extravar.sav' /keep survey hldid persid id sexd aged incolab educalab empinlab aglftsch ethnic region animal.