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 | ||
- | </ |