я есть массив, который в настоящее время 3x3. Когда я распечатываю символы, я получаю результаты, напечатанные в стиле обтекания строк. Я надеюсь напечатать квадратную матрицу, которая будет более читабельной, а не XXXXXXXXXXXXX в одной строке. Возможно ли это с помощью цикла do?

У меня есть следующее:

CHARACTER(len=1) :: Grid(2,2)
Grid = "*"
Print *, Grid