PROGRAM PopulationMod
!--------------------------------------------------------------------------------------------
!Karl Harris                                   ENGR 225                        1-27-12
!
!This program will calculate population growth over time
!
!Identifiers used are:
!PT            : Population growth over time (in years)
!time          : time of growth (in years)
!PO            : Initial Population
! b            : Birth Rate
!d             : Death Rate
!--------------------------------------------------------------------------------------------
IMPLICIT NONE
INTEGER, PARAMETER :: dp=selected_real_kind (15)   !15 sig figs
Real(dp) :: PT, PO, b, d, t
 
!Get Initial population,birth rate, death rate,and time
Write(*,*)"Pleas enter Initial population,birth rate, death rate,and time."
Read(*,*) PO, b, d, t
 
!Calculate population growth over time
PT=PO*exp((b-d)*t)
 
Write(*,*) "The population growth over",t,"years is",PT
STOP
 
END PROGRAM PopulationMod
 

UFJPR1JBTSBQb3B1bGF0aW9uTW9kCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQohS2FybCBIYXJyaXMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEVOR1IgMjI1ICAgICAgICAgICAgICAgICAgICAgICAgMS0yNy0xMgohCiFUaGlzIHByb2dyYW0gd2lsbCBjYWxjdWxhdGUgcG9wdWxhdGlvbiBncm93dGggb3ZlciB0aW1lCiEKIUlkZW50aWZpZXJzIHVzZWQgYXJlOgohUFQgICAgICAgICAgICA6IFBvcHVsYXRpb24gZ3Jvd3RoIG92ZXIgdGltZSAoaW4geWVhcnMpCiF0aW1lICAgICAgICAgIDogdGltZSBvZiBncm93dGggKGluIHllYXJzKQohUE8gICAgICAgICAgICA6IEluaXRpYWwgUG9wdWxhdGlvbgohIGIgICAgICAgICAgICA6IEJpcnRoIFJhdGUKIWQgICAgICAgICAgICAgOiBEZWF0aCBSYXRlCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpJTVBMSUNJVCBOT05FCklOVEVHRVIsIFBBUkFNRVRFUiA6OiBkcD1zZWxlY3RlZF9yZWFsX2tpbmQgKDE1KSAgICExNSBzaWcgZmlncwpSZWFsKGRwKSA6OiBQVCwgUE8sIGIsIGQsIHQKCiFHZXQgSW5pdGlhbCBwb3B1bGF0aW9uLGJpcnRoIHJhdGUsIGRlYXRoIHJhdGUsYW5kIHRpbWUKV3JpdGUoKiwqKSJQbGVhcyBlbnRlciBJbml0aWFsIHBvcHVsYXRpb24sYmlydGggcmF0ZSwgZGVhdGggcmF0ZSxhbmQgdGltZS4iClJlYWQoKiwqKSBQTywgYiwgZCwgdAoKIUNhbGN1bGF0ZSBwb3B1bGF0aW9uIGdyb3d0aCBvdmVyIHRpbWUKUFQ9UE8qZXhwKChiLWQpKnQpCgpXcml0ZSgqLCopICJUaGUgcG9wdWxhdGlvbiBncm93dGggb3ZlciIsdCwieWVhcnMgaXMiLFBUClNUT1AKCkVORCBQUk9HUkFNIFBvcHVsYXRpb25Nb2QK

MTAwIDAuNCAwLjIgMTUK

100 0.4 0.2 15