设置后将字符( _ 或 : )插入字符串

Inserting character ( _ or : ) into string after it has been set

我被困在一些可能非常简单的事情上,但我就是想不通。简化这是我的 Fortran 代码:

character(8)  :: date
character(6)  :: codetime
call date_and_time(date,codetime)
call system('mkdir ' //date//codetime)

它调用系统日期和时间并用它创建一个文件夹。结果是一个名为 20150630094352 的文件夹。这不是很清楚,所以我想将其更改为 2015_06_30_09:43:52。但是我就是不知道如何在已经指定的字符串中添加 '_'':'

不要将其添加到字符串中,打印带有字符的子字符串。

call system('mkdir ' //date(1:4)//'_'//date(5:6)//'_'//date(7:8)//'_'// &
            codetime(1:2)//':'//codetime(3:4)//':'//codetime(5:6))