Différences
Ci-dessous, les différences entre deux révisions de la page.
| Prochaine révision | Révision précédente | ||
| documentation:examples:sommevecvecseq.f90 [2013/02/06 16:36] – créée ltaulell | documentation:examples:sommevecvecseq.f90 [2023/01/13 09:38] (Version actuelle) – supprimée ccalugar | ||
|---|---|---|---|
| Ligne 1: | Ligne 1: | ||
| - | <code fortran SommeVecVecSEQ.f90> | ||
| - | program Somme | ||
| - | implicit none | ||
| - | integer :: A(10), | ||
| - | integer :: i | ||
| - | |||
| - | do i=1, | ||
| - | A(i) = i | ||
| - | B(i) = 10 - i | ||
| - | enddo | ||
| - | |||
| - | write ( *, * ) 'Les deux vecteurs :' | ||
| - | |||
| - | write (*,*) 'A = ', | ||
| - | write (*,*) 'B = ', | ||
| - | |||
| - | do i=1,10 | ||
| - | C(i) = A(i) + B(i) | ||
| - | enddo | ||
| - | |||
| - | write ( *, * ) 'Le vecteur somme :' | ||
| - | write (*,*) 'C = ', | ||
| - | |||
| - | end program | ||
| - | </ | ||