Como eu uso uma variável no comando executado em umsystem chamada de subrotina? Por exemplo, se eu quiser criar vários diretórios comotest_1_1, test_1_2e assim por diantetest_3_3 então qual deveria ser o meu código?

Eu estou tentando o código a seguir, mas não consigo descobrir o que escrever na parte ####.

integer  :: i,j

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