SUMMATION

 !Program name: SUMMATION

!Summation of product elements, ab, of vectors A and B

  Real*8 S,A(5),B(5)

  Print *, 'Input the five elements of vector A: '

  Read *, A

  Print *, 'Input the five elements of vector B: '

  Read *, B

  S=0

  Do 1 I=1,5

    S=S+A(I)*B(I)

1 continue

  Print *, 'The summation of the product elements, ab, is: ', S

  stop

  end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA