function()
{
#Program get.alpha()
#
#Reads file alpha.txt in d:\aidsmodel\data directory into the array
#alpha.in, this in preparation for writing to alpha array created by\
#initialize.
#
	alpha <- data.matrix(read.table("d:\\aidsmodel\\data\\alpha.txt"))
	alpha <- alpha[1:aa, 1:dd]	#truncate if necessary
	alpha[aa,  ] <- rep(99, times = dd)	#put 99 in last row to kill everyone off
	alpha[, dd] <- rep(99, times = aa)	#ditto
	write.ascii(get.alpha)
	alpha
}