Fortran : Compound Interest Calculator 2

[kimpro82]

Improvements

• Add 2 items : Total withdrawal amount, Maturity balance
• Improve the calculation method for Pmt < 0 by using a loop.
• Add a test mode.
  • Failed to apply conditional compilation.
• Adhere to the standard Fortran conventions (use uppercase keywords).

• Separate frequently used formats into separate strings.

  Enter the principal amount                 : 12720
  Enter the interest rate(%)                 : 6
  Enter the number of periods                : 12
  Enter the Periodic Payment (Withdrawl < 0) : -720
  
  <Test>
  i:      1, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      2, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      3, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      4, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      5, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      6, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      7, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      8, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:      9, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:     10, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:     11, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  i:     12, Deposit:     12720.00, Interest:       720.00, CurrentValue :     12720.00
  
  The deposit amount          :     12720.00
  The interest amount         :      8640.00
  The total amount            :     21360.00
  The early withdrawal amount :      8640.00
  The maturity balance        :     12720.00