Problems opening files

[Truiteto]

I have these files: D1.txt, D2.txt, D3.txt ..... D10.txt

My program is:

! Variables
integer i
character f(10)

! Body of Ej
data f/'1','2','3','4','5','6','7','8','9','10'/
Do i=1,10
open (i,file='D'//f(i)//'.txt')

My problem is when arriving to open D10.txt. I think there is a mistake because it reads as D1.txt

Can someone help me? Thank you very much

 

[xwb]

Change your declaration to

character*2 f(10)