PROGRAM salaries_calculation2 IMPLICIT NONE INTEGER, DIMENSION(9) :: salaries = & (/10500,16140,22300,15960,14150,12180,13230,15760,31000/) INTEGER, DIMENSION(9) :: category = (/1,2,3,2,1,1,1,2,3/) REAL, DIMENSION(3) :: increment = (/.05,.04,.02/) REAL :: sumsal sumsal = SUM(salaries * increment(category)) PRINT*, 'Cost of increase = ', sumsal END PROGRAM salaries_calculation2