Mixing integers with characters ?

[Renardp]

Hi all,
I have a problem when I try to output in a file something like:
"vertex.1"
"vertex.2"
............
I could solve the problem with the next code, but this is rather clumsy:

character*10 aux
n=10
open(10,file='scratch') ! this is not very nice ...
open(11,file='rez.txt')
do i=1,n
write(10,*)i
backspace(10)
read(10,*)aux
write(11,*)trim('"vertex.'//aux)//'"'
enddo
close(10)
close(11)
end

If you have a more straight solution ....
Thanks in advance.

 

[xwb]

This may or may not work on your implementation. I0 (ai zero) on some implementations will print a left justified number.

do i = 1, n
   write (10, 99) i
99 format ('vertex.', I0)
enddo

If you're using a compiler that accepts primes and quotes, you could also use

do i = 1, n
   write (10, "('vertex.', I0)") i
enddo

If it only accepts primes then it doesn't look as pretty

do i = 1, n
   write (10, '(''vertex.'', I0)') i
enddo

 

[Renardp]

thanks, xwb.