#	Character string substitution
#
#	two arrays, $ia-iz (int) and $ra-rz (real)
#
	common/varsub1/ivars,rvars
	integer*4 ivars(26)
	real*4 rvars(26)
