Jak użyć zmiennej w poleceniu wykonywanym w asystem wywołać podprogram? Na przykład, jeśli chcę utworzyć wiele katalogów, takich jaktest_1_1, test_1_2i tak dalej dotest_3_3 więc jaki powinien być mój kod?

Wypróbowuję następujący kod, ale nie mogę zrozumieć, co napisać w części ####.

integer  :: i,j

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