program test
implicit none
real::a(9),b(9)
integer::j
a = (/1,2,3,4,5,6,7,8,9/)
open(1,file="test.txt")
write(1,"(*(g0,:,','))") a
close(1)
open(1,file="test.txt")
read(1,*) (b(j),j=1,9)
close(1)
stop
end program test
读取的时候要用*号,否则也读不出来。