> This doesn't look so easy to me since you can't read an internal file with > list direction. You can: character(len=20) :: s = "12 34 56" integer :: i, j, k read(s,*) i, j, k print *, i, j, k end FX -- FX Coudert http://www.homepages.ucl.ac.uk/~uccafco/