integer array to string 1

[erore]

Can anyone help with conversion of an array of x(1:n) to a string?
If x(1) = 1, x(2) = 5, x(3) = -2, ..., x = 0
then I want the generated string myString to look like:
myString = '1,5,-2,...,0'

 

[FJacq]

program t62
  character(1024) :: string
  integer :: array(4)=(/1,5,-2,0/)
  write(string,"(1000(I0,:,','))") array
  write(*,'(A)') TRIM(string)
end

Result :

[lcoul@localhost test]$ ifort t62.f90
[lcoul@localhost test]$ ./a.out
1,5,-2,0

François Jacq

 

[erore]

Thanks a lot!