Seperating a number

[Artroxy]

Hi I'm new to Fortran so I apologize about my question. I need to seperate a number into its individual components so I can put it in an array. For example 123 I'll have to seperate them into different cells of an array (call it X) so x(1) = 1; x(2)=2, x(3)=3 all under. The inputed number (123 in this example) cannot be seperated by a space or anything of the sort. I would appreciate any help I can get.

 

[xwb]

integer x(3)
read (*,'(3I1)') x
do i = 1, 3, 1
   print *, x(i)
enddo