在Fortran的SYSTEM子例程中使用变量

Question

如何在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

Answer 1

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,无论需要多少位数.