如何在执行的命令中使用变量system
子程序调用?例如,如果我想创建多个目录,例如test_1_1
, test_1_2
,依此类推,直到test_3_3
那么我的代码应该是什么?
我正在尝试以下代码,但似乎无法弄清楚在 #### 部分要写什么。
integer :: i,j
do i = 1,3
do j = 1,3
CALL system('mkdir folder ####')
enddo
enddo
character (len=8) :: test_name
do i=1, 3
do j=1, 3
write (test_name, '( "test_", I1, "_", I1 )' ) i, j
call system ( "mkdir " // test_name )
end do
end do
只要数字是个位数,我的示例中的格式就有效。如果你想要更大的值,你可以使用I2.2
(最多两位数,如果是个位数,则带有前导零),或I0
,无论需要多少位数。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)