Azure DevOps Demo Models · main

pension_projection.f90

government/pension-funding-projection/src/pension_projection.f90 · 745 bytes · read-only public source view

program pension_projection
  implicit none
  integer :: year
  real(8) :: assets, liability, contributions, benefits, investment_return, liability_growth
  assets = 8500000000.0d0
  liability = 9200000000.0d0
  contributions = 520000000.0d0
  benefits = 610000000.0d0
  investment_return = 0.055d0
  liability_growth = 0.038d0
  print '(A)', 'year,assets,liability,funded_ratio'
  do year = 1, 30
    assets = assets * (1.0d0 + investment_return) + contributions - benefits
    liability = liability * (1.0d0 + liability_growth)
    print '(I0,A,F0.2,A,F0.2,A,F0.6)', year, ',', assets, ',', liability, ',', assets / liability
    benefits = benefits * 1.025d0
    contributions = contributions * 1.022d0
  end do
end program pension_projection