Supongamos que estoy usando una variable real x. Quiero asignarlo como un carácter para poder usarlo para imprimir diferentes nombres de archivos en función de los valores de x en un do-loop.

Mi código actual es:

      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

Ahora esto genera archivos con nombres de archivos:

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

mientras que quiero tener nombres de archivo:

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

¿Alguna ayuda?