回 帖 发 新 帖 刷新版面

主题:请问Fortran 如何按照参数产生档名。


请问Fortran 如何按照参数产生档名。


ex

input parameters: 10 20 1 1 50


产生Output File name:   10_20_1_1_50.txt

回复列表 (共1个回复)

沙发

INTEGER :: a(5), i

CHARACTER(LEN=5) :: b(5)

CHARACTER(LEN=100) :: filename


READ(*,*) a

filename = ""

do i = 1, 5

   write(b(i),"(I2)") a(i)

   filename = trim(filename) // trim(b(i))

   if(i < 5) then

      filename=trim(filename) // "_"

end do

filename = trim(filename) // ".txt"


我来回复

您尚未登录,请登录后再回复。点此登录或注册