Как использовать переменную в команде, выполняемой вsystem вызов подпрограммы? Например, если я хочу создать несколько каталогов, как,test_1_1test_1_2и так далее доtest_3_3 тогда каким должен быть мой код?

Я пытаюсь следующий код, но могуКажется, я не понимаю, что написать в #### части.

integer  :: i,j

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