Différences
Ci-dessous, les différences entre deux révisions de la page.
| Les deux révisions précédentesRévision précédente | |||
| documentation:examples:sommevecvecseq.f90 [2020/08/25 15:58] – modification externe 127.0.0.1 | 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 | ||
| - | </ | ||