c C Program to Sum Data for a given country C Then print the country and its total c Character*24 Acntry Character*24 Acntry0 c Real*8 Pop_x_Rank(1000) c open(unit=1, file='input.txt',status='old') open(unit=2, file='totals.out') c Acntry0 = "AF" Sum = 0. Sum_pop = 0. Pop = 0 Rank = 0 Pop_x_Rank = 0. c Write(2,*)'Acntry , Sum , & Sum_Pop , Sum/Sum_pop' Write(2,*) ' ' c Do i=1,17000 c Read(1,*,end=77) Acntry, Pop, Rank, Pop_x_Rank c If (Acntry .eq. Acntry0) THEN c If(Pop.NE.0) Then Sum = Sum + Pop_x_Rank Sum_pop = Sum_pop + Pop Pop_x_Rank = 0. Pop = 0. Else Pop_x_Rank = 0. Pop = 0. EndIf c Else c If(Pop.NE.0) Then Write(2,*) Acntry0, ',', Sum, ',', Sum_Pop, ',', Sum/Sum_pop Sum = 0. Acntry0 = Acntry Pop_x_Rank = 0. Pop = 0. Sum_pop = 0. Sum = Sum + Pop_x_Rank Sum_pop = Sum_pop + Pop Else Write(2,*) Acntry0, ',', Sum, ',', Sum_Pop, ',', Sum/Sum_pop Sum = 0. Acntry0 = Acntry Pop_x_Rank = 0. Pop = 0. Sum_pop = 0. EndIf c EndIf c End Do Continue c 77 Write(2,*) Acntry0, ',', Sum, ',', Sum_Pop, ',', Sum/Sum_pop 70 Format(a24,a3,F12.6,a3,F12.6,a3,F12.6) c Stop End