<Example Program>

	Program spread_example     Real :: a(2) = (/ 1.,2. /)     Real b(3,2), c(2,3)     b = Spread(a,Dim=1,Ncopies=3)     c = Spread(a,Dim=2,Ncopies=3)     Print *, b(1,:)     Print *, b(2,:)     Print *, b(3,:)     Print *, c(1,:)     Print *, c(2,:) End
	Execution Results   1.0000000   2.0000000   1.0000000   2.0000000   1.0000000   2.0000000   1.0000000   1.0000000   1.0000000   2.0000000   2.0000000   2.0000000