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

假设我使用实数变量 x。我想指定为一个字符，以便我可以根据 do 循环中 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.39999999999999999.dat test_x_1.7999999999999998.dat
test_x_1.2000000000000000.dat test_x_1.59999999999999999.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

使用明确的格式，例如

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

（甚至f0.3，但这是 IIRC Fortran 95)，或者如果您不想舍入

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

instead.