Conversion of integer to filename incorrect fore more than one digit

Asked Apr 28 '17 at 04:34

Active Apr 28 '17 at 06:36

Viewed 40 times

Program main 
use ifport 

implicit none
integer ii,fileid 
double precision pi
logical result
character*256 path,filename,fileNum
pi = 4.d0*datan(1.d0)
ii = 20
path = './testforlder'

result = makedirqq(path)

Do ii = 1, 11

fileid = 1 + ii
write(fileNum,"(A10,I1,A4)") "/TimeStep-",ii,".txt" 
filename = trim(path)//trim(fileNum)
open(unit = fileid,file=filename,status='unknown')
write(fileid,*) "The result is:", ii,pi,2*pi
close(fileid)

End Do  

pause
End Program

My code is written as above. When the loop step is less than 10, it works. However, when the loop step >= 10 (for example: 11), it fails.

edited Apr 28 '17 at 06:36

Vladimir F Героям слава

57,977
4
76
119

asked Apr 28 '17 at 04:34

FortranFun

1

How does it fail? Does it create a file called `TimeStep-*.txt`? You are restricting yourself to single digit integers when generating `fileNum`. – Ross Apr 28 '17 at 05:13
It could only generate 9 files. But it should generate 11 files. – FortranFun Apr 28 '17 at 05:15
Use `I2.2` to get numbers like 01,02,... – Michael Apr 28 '17 at 05:52
@MichaelO. Thanks, I got the answer. – FortranFun Apr 28 '17 at 05:54
Or use I0, see the link and **numerous** other duplicates for many examples. – Vladimir F Героям слава Apr 28 '17 at 07:12
@VladimirF thx! – FortranFun Apr 28 '17 at 14:20

Conversion of integer to filename incorrect fore more than one digit

0 Answers0