SommeVecVecSEQ.f90
program Somme
implicit none
 
integer :: A(10),B(10),C(10)
integer :: i
 
do i=1,10  
  A(i) = i  
  B(i) = 10 - i
enddo
 
write ( *, * ) 'Les deux vecteurs :'
 
write (*,*) 'A = ',(A(i),i=1,10)
write (*,*) 'B = ',(B(i),i=1,10)
 
do i=1,10
  C(i) = A(i) + B(i)
enddo
 
write ( *, * ) 'Le vecteur somme :'
write (*,*) 'C = ',(C(i),i=1,10)
 
end program
documentation/examples/sommevecvecseq.f90.txt · Dernière modification: 2015/01/06 14:26 (modification externe)