COMPUTE POPWEIGHT=0.
FORMAT POPWEIGHT (F15.5).
IF (S003=8) POPWEIGHT=S018/1000*3639459. /*Albania*/
IF (S003=12) POPWEIGHT=S018/1000*33769669. /*Algeria*/
IF (S003=20) POPWEIGHT=S018/1000*887000. /*Andorra*/
IF (S003=31) POPWEIGHT=S018/1000*8238672. /*Azerbaijan*/
IF (S003=32) POPWEIGHT=S018/1000*40135000. /*Argentina*/
IF (S003=36) POPWEIGHT=S018/1000*21831000. /*Australia*/
IF (S003=40) POPWEIGHT=S018/1000*8356707. /*Austria*/
IF (S003=50) POPWEIGHT=S018/1000*150448340. /*Bangladesh*/
IF (S003=51) POPWEIGHT=S018/1000*3230100. /*Armenia*/
IF (S003=56) POPWEIGHT=S018/1000*10741000. /*Belgium*/
IF (S003=70) POPWEIGHT=S018/1000*3981239. /*Bosnia and Herzegovina*/
IF (S003=76) POPWEIGHT=S018/1000*191403000. /* Brazil*/
IF (S003=100) POPWEIGHT=S018/1000*7602100. /* Bulgaria*/
IF (S003=112) POPWEIGHT=S018/1000*9671900. /*Belarus*/
IF (S003=124) POPWEIGHT=S018/1000*33698000. /*Canada*/
IF (S003=152) POPWEIGHT=S018/1000*16929000. /*Chile*/
IF (S003=156) POPWEIGHT=S018/1000*1331540000. /*China*/
IF (S003=158) POPWEIGHT=S018/1000*23027672. /*Taiwan*/
IF (S003=170) POPWEIGHT=S018/1000*44981000. /*Colombia*/
IF (S003=191) POPWEIGHT=S018/1000*4432000. /*Croatia*/
IF (S003=196) POPWEIGHT=S018/1000*8016. /*Cyprus*/
IF (S003=203) POPWEIGHT=S018/1000*10474600. /*Czech Republic*/
IF (S003=208) POPWEIGHT=S018/1000*5515287. /*Denmark*/
IF (S003=214) POPWEIGHT=S018/1000*9365818. /*Dominican Republic*/
IF (S003=222) POPWEIGHT=S018/1000*7185218. /*El Salvador*/
IF (S003=231) POPWEIGHT=S018/1000*79221000. /*Ethiopia*/
IF (S003=233) POPWEIGHT=S018/1000*1340341. /*Estonia*/
IF (S003=246) POPWEIGHT=S018/1000*5337719. /*Finland*/
IF (S003=250) POPWEIGHT=S018/1000*65073482. /*France*/
IF (S003=268) POPWEIGHT=S018/1000*4382100. /*Georgia*/
IF (S003=276) POPWEIGHT=S018/1000*82062200. /*Germany*/
IF (S003=288) POPWEIGHT=S018/1000*23416500. /*Ghana*/
IF (S003=300) POPWEIGHT=S018/1000*11262500. /*Greece*/
IF (S003=320) POPWEIGHT=S018/1000*13000000. /*Guatemala*/
IF (S003=344) POPWEIGHT=S018/1000*7008900. /*Hong Kong*/
IF (S003=348) POPWEIGHT=S018/1000*10029900. /*Hungary*/
IF (S003=352) POPWEIGHT=S018/1000*319326. /*Iceland*/
IF (S003=356) POPWEIGHT=S018/1000*1165720000. /*India*/
IF (S003=360) POPWEIGHT=S018/1000*230512000. /*Indonesia*/
IF (S003=364) POPWEIGHT=S018/1000*70495782. /*Iran*/
IF (S003=368) POPWEIGHT=S018/1000*31234000. /*Iraq*/
IF (S003=372) POPWEIGHT=S018/1000*4517800. /*Ireland*/
IF (S003=376) POPWEIGHT=S018/1000*7411500. /*Israel*/
IF (S003=380) POPWEIGHT=S018/1000*60090400. /*Italy*/
IF (S003=392) POPWEIGHT=S018/1000*127580000. /*Japan*/
IF (S003=400) POPWEIGHT=S018/1000*6198677. /*Jordan*/
IF (S003=410) POPWEIGHT=S018/1000*48379392. /*South Korea*/
IF (S003=417) POPWEIGHT=S018/1000*5356869. /*Kyrgyzstan*/
IF (S003=428) POPWEIGHT=S018/1000*2256400. /*Latvia*/
IF (S003=440) POPWEIGHT=S018/1000*3350400. /*Lithuania*/
IF (S003=442) POPWEIGHT=S018/1000*4917000. /*Luxembourg*/
IF (S003=458) POPWEIGHT=S018/1000*27730000. /*Malaysia*/
IF (S003=466) POPWEIGHT=S018/1000*12000000. /*Mali*/
IF (S003=470) POPWEIGHT=S018/1000*4126000. /*Malta*/
IF (S003=484) POPWEIGHT=S018/1000*109955400. /*Mexico*/
IF (S003=498) POPWEIGHT=S018/1000*3572700. /*Moldova*/
IF (S003=504) POPWEIGHT=S018/1000*31491578. /*Morocco*/
IF (S003=528) POPWEIGHT=S018/1000*16517532. /*Netherlands*/
IF (S003=554) POPWEIGHT=S018/1000*4314100. /*New Zealand*/
IF (S003=566) POPWEIGHT=S018/1000*140003542. /*Nigeria*/
IF (S003=578) POPWEIGHT=S018/1000*4825300. /*Norway*/
IF (S003=586) POPWEIGHT=S018/1000*166783500. /*Pakistan*/
IF (S003=604) POPWEIGHT=S018/1000*29180900. /*Peru*/
IF (S003=608) POPWEIGHT=S018/1000*90500000. /*Philippines*/
IF (S003=616) POPWEIGHT=S018/1000*38130300. /*Poland*/
IF (S003=620) POPWEIGHT=S018/1000*10631800. /*Portugal*/
IF (S003=630) POPWEIGHT=S018/1000*3916632. /*Puerto Rico*/
IF (S003=642) POPWEIGHT=S018/1000*21496700. /*Romania*/
IF (S003=643) POPWEIGHT=S018/1000*141837000. /*Russian Federation*/
IF (S003=646) POPWEIGHT=S018/1000*8648248. /*Rwanda*/
IF (S003=682) POPWEIGHT=S018/1000*27601038. /*Saudi Arabia*/
IF (S003=702) POPWEIGHT=S018/1000*4839400. /*Singapore*/
IF (S003=703) POPWEIGHT=S018/1000*5413548. /*Slovakia*/
IF (S003=704) POPWEIGHT=S018/1000*86116559. /*Vietnam*/
IF (S003=705) POPWEIGHT=S018/1000*2053355. /*Slovenia*/
IF (S003=710) POPWEIGHT=S018/1000*48697000. /*South Africa*/
IF (S003=716) POPWEIGHT=S018/1000*13349000. /*Zimbabwe*/
IF (S003=724) POPWEIGHT=S018/1000*45828172. /*Spain*/
IF (S003=752) POPWEIGHT=S018/1000*9276509. /*Sweden*/
IF (S003=756) POPWEIGHT=S018/1000*7725200. /*Switzerland*/
IF (S003=764) POPWEIGHT=S018/1000*63389730. /*Thailand*/
IF (S003=780) POPWEIGHT=S018/1000*1047366. /*Trinidad and Tobago*/
IF (S003=792) POPWEIGHT=S018/1000*71517100. /*Turkey*/
IF (S003=800) POPWEIGHT=S018/1000*29592700. /*Uganda*/
IF (S003=804) POPWEIGHT=S018/1000*46143700. /*Ukraine*/
IF (S003=807) POPWEIGHT=S018/1000*2048900. /*Macedonia*/
IF (S003=818) POPWEIGHT=S018/1000*76797512. /*Egypt*/
IF (S003=826) POPWEIGHT=S018/1000*59175000. /*Great Britain*/
IF (S003=834) POPWEIGHT=S018/1000*40213160. /*Tanzania*/
IF (S003=840) POPWEIGHT=S018/1000*306790000. /*United States*/
IF (S003=854) POPWEIGHT=S018/1000*13228000. /*Burkina Faso*/
IF (S003=858) POPWEIGHT=S018/1000*3477778. /*Uruguay*/
IF (S003=862) POPWEIGHT=S018/1000*28359313. /*Venezuela*/
IF (S003=891) POPWEIGHT=S018/1000*10832545. /*Serbia and Montenegro*/
IF (S003=894) POPWEIGHT=S018/1000*11862740. /*Zambia*/
IF (S003=900) POPWEIGHT=S018/1000*61131000. /*Germany West*/
IF (S003=909) POPWEIGHT=S018/1000*1800000. /*Northern Ireland*/
EXECUTE.
