!-------------------------------BEGIN ADD---------------------------------
!An ADD file has declarations, derived type definitions, etc. to be included at...
!the top of the Client Module, followed by CONTAINS statement and then all of ...
!the procedures developed by the analyst to include in the Client Module of a ...
!given model.
!-----
!Insert model-level declarations here, if any
REAL(KIND=dbl),DIMENSION(1:3):: dblPreviouslyAt
REAL(KIND=dbl),DIMENSION(1:3):: dblCurrentlyAt
INTEGER(KIND=reg),PARAMETER:: regTotBases = 3
REAL(KIND=dbl):: dblReturns
!-----
CONTAINS !the following procedures...
!-----
!Insert procedures here, if any

SUBROUTINE RentalReturns(tnyBase,tnyNewBase)
INTEGER(KIND=tny):: tnyBase,tnyNewBase
!----
dblReturns = dblPreviouslyAt(tnyBase) * {t.D}TransProb(tnyBase,tnyNewBase)
dblCurrentlyAt(tnyNewBase) = dblCurrentlyAt(tnyNewBase) + dblReturns
!----
!Write to trace file how the returns are being calculated, their origin & destination
WRITE(9,*)dblPreviouslyAt(tnyBase),"* prob(",{t.D}TransProb(tnyBase,tnyNewBase), &
") =",dblReturns,"returned from "//TRIM({t.10}Bases(tnyBase,1))//" to "// &
TRIM({t.10}Bases(tnyNewBase,1))
!----
END SUBROUTINE RentalReturns
!--------------------------------END ADD----------------------------------