如何将变量的数字或值分配给Fortran77 / 90中的字符

Question

假设，我正在使用一个真正的变量x。我想指定为一个角色，以便我可以使用它 根据do-loop中的x值打印不同的文件名。

我现在的代码是：

      program test_print
      real*8:: x
      character*40:: chr_x

      x=1.d0

      do i=1,6
        write(chr_x,*) x
        open (unit=10, file="test_x_"//trim(adjustl(chr_x))//".dat")
        write(10,*)i,x      

         x=x+0.2d0 ! Update x
        close(10)   
      end do        


      stop
      end program test_print

现在生成带有文件名的文件：

test_x_1.0000000000000000.dat test_x_1.3999999999999999.dat test_x_1.7999999999999998.dat
test_x_1.2000000000000000.dat test_x_1.5999999999999999.dat test_x_1.9999999999999998.dat

虽然我想要文件名：

test_x_1.000.dat test_x_1.399.dat test_x_1.799.dat
test_x_1.200.dat test_x_1.599.dat test_x_1.999.dat

有任何帮助吗？

Answer 1

使用显式格式，例如

write(chr_x,'(f8.3)') x

（甚至f0.3，但那是IIRC Fortran 95），或者如果你不想舍入

open (unit=10, file="test_x_"//chr_x(2:6)//".dat")

代替。