3

systemサブルーチン呼び出しで実行されるコマンドで変数を使用するにはどうすればよいですか? たとえば、それまでに 、 などtest_1_1の複数のディレクトリを作成したい場合、コードはどうすればよいでしょうか?test_1_2test_3_3

次のコードを試していますが、#### の部分に何を書けばよいのかわかりません。

integer  :: i,j

do i = 1,3
   do j = 1,3 
      CALL system('mkdir folder ####') 
   enddo
enddo
4

1 に答える 1

6 
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

この例の形式は、数値が 1 桁である限り機能します。より大きな値が必要な場合は、I2.2（最大 2 桁、1 桁の場合は先頭にゼロを付けて）、またはI0必要な桁数に を使用できます。

于 2013-07-15T05:48:25.250 に答える