1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
!la suite de la boucle (n>1): ici j'ai choisi 30 000 pour voir le résulat durant 5 munites vu que le dt=0.01 seconde
do itemps=1,30000
call Produit_A_T(maillage_X,maillage_Y,A,Y,R)
do i=1,(maillage_X*maillage_Y)
R(i) = R(i) + D(i)
end do
j = 1
write(8,*)'#---------------Début de itemps-------------------'
!do i=5,(maillage_X*maillage_Y),20
!if (mod(i,5).eq.0) then
write(8,*) itemps , j , R(j)
!end if
!end do
write(8,*)'#---------------Fin de itemps---------------------'
do i=1,(maillage_X*maillage_Y)
Y(i) = R(i)
R(i) = 0.
end do
end do
close(8) |
Partager