Bonjour à tous!
Je réalise un projet de puissance4 en Fortran.
Mon problème actuel est l'affichage de la grille.
Pour afficher cette grille j'utilise un sous programme ( subroutine ) "affichage",
j'aimerais que "affichage" puisse fonctionner avec une grille comportant un nombre de colonne quelconque.
J'ai essayé de bidouiller avec write(*,' ',advance=no) mais je ne m'en sors toujours pas.
En gros j'aimerais afficher n importe quel grille comportant un nombre de colonne et de ligne quelconque.
du genre faire une boucle do ds la longueur sans le advance=no et une autre dans la largeur avec le advance=no....

Comme vous pouvez le voir je suis un novice en Fortran. Merci d'avance à tous ceux qui trouveront un peu de temps pour répondre à un petit étudiant égaré!
--------------------------------------------------------------------------
module puissance4

implicit none

integer,parameter::nb_lines=6
integer,parameter::nb_cols=3
integer,parameter::len_win=4

type colonne
logical::jouable
character,dimension(nb_lines)::pions
integer::last_line
end type colonne

type grille
integer::last_col
type(colonne),dimension(nb_cols)::cols
end type grille

contains
subroutine affichage(g)
implicit none
type(grille)::g
integer::i,j
do i=1,nb_lines
print'(i1,8a1)',nb_lines+1-i,"&
","|",g%cols(1)%pions(i),"|",g%cols(2)%pions(i),"|",g%cols(3)%pions(i),"|"
end do
end subroutine affichage

end module puissance4

program p
use puissance4
implicit none
integer::i,j
type(grille)::la_grille
do i=1,nb_lines
do j=1,nb_cols
if (mod(i*j,2)==0) then
la_grille%cols(j)%pions(i)="o"
else
la_grille%cols(j)%pions(i)="x"
end if
end do
end do
call affichage(la_grille)
end program p
--------------------------------------------------------------------------