I want to generate strings

gxiang

I want to generate strings “rf1.rpt”, “rf2.rpt”, ------, “rf1.dat”, “rf2.dat”, ------. I used the following Fortran script:



character*10 A_char, A_char1, A_char2


do 10 k=1,100

write(A_char,'(I2)') k

write(*,*) A_char

A_char1='rf'//A_char//'.rpt'

A_char2='rf'//A_char//'.dat'

write(*,*) A_char1, A_char2

open(13, file='A_char1')

open(21, file='A_char2')


When I compile it, there are 2 warnings:

Warning: Expression does not contribute to result A_char1='rf'//A_char//'.rpt'
--------^
Warning: Expression does not contribute to result A_char2='rf'//A_char//'.dat'
--------^

When I run it, I found that A_char1 is not rf1.rpt but rf1 and that A_char2 is not rf2 but rf2.dat. The results are consistent with the warnings there.

Any suggestion? I believe that I made silly mistakes.

zhoulon

我不知道你还上部上来论坛，如果你上来的话，建议你将你的提问文字改成中文（除了源程序以外），用英文的看着比较便扭，本人英文不好，可能会误解你的意思。再一个你的程序也不全，比较乱，你看看你后面的程序打开文件连个关闭都没有。

GWinston

A_char长度为10,下两式等号右边长度为16:
A_char1='rf'//A_char//'.rpt'
A_char2='rf'//A_char//'.dat'
应改为:
A_char1='rf'//trim(A_char)//'.rpt'
A_char2='rf'//trim(A_char)//'.dat'

gxiang

原帖由 GWinston 于 2008-10-21 14:07 发表
A_char长度为10,下两式等号右边长度为16:
A_char1='rf'//A_char//'.rpt'
A_char2='rf'//A_char//'.dat'
应改为:
A_char1='rf'//trim(A_char)//'.rpt'
A_char2='rf'//trim(A_char)//'.dat'

Thank you very much! Your suggestion helped me solve the problem.