program population

!----------------------------------------------------------------
!Created by Ted Hertel
!ENGR 225 5-8pm Lab
!
!This program will calculate the population growth(P)
!Given the following inputs:
!       Initial population : InlPop
!       Growth Rate:(b-d)
!               b : birthrate
!               d : deathrate
!       Time period: t
!Output: population growth: p
!
!----------------------------------------------------------------

implicit none
real::p,inlpop,b,d,t

!Get inputs
write (*,*) "Enter Initial Population, Birthrate, Deathrate, and Time period"
read (*,*) inlpop, b, d, t

!Compute population growth
p = inlpop * exp((b - d) * t)

!Display outputs
Write (*,*) "The population growth is "
write (*,*) p



end program population