Создание каталога с именем, содержащим действительное число в Фортране
В моей программе мне нужно хранить файлы результатов для разных случаев. Я решил создать отдельные каталоги для хранения этих файлов результатов. Чтобы объяснить точную ситуацию, здесь псевдокод.
do i=1,N ! N cases of my analysis
U=SPEED(i)
call write_files(U) !Create a new directory for this case and Open files (1 = a.csv, 2 = b.csv) to write data
call postprocess() !Write data in files (a.csv, b.csv)
call close_files() !Close all files (1,2)
end do
subroutine write_files(i)
!Make directory i
!Open file a.csv and b.csv with unit 1 & 2
!Write header information in file a.csv and b.csv
close subroutine
Я изо всех сил в преобразовании реальной переменной U в символьную переменную, чтобы я мог использоватьcall system('mkdir out/' trim(U))
создавать отдельные папки для хранения моих результатов.
Я также хотел бы отметить, что моя переменная U это скорость, которая0.00000, 1.00000, 1.50000
и т.д. Есть ли способ, которым я могу упростить свое имя каталога, чтобы это было похоже0,1,1.5
и т.п.
Надеюсь, мое объяснение понятно. Если нет, дайте мне знать, я постараюсь редактировать по мере необходимости.
Спасибо за помощь.