program dotp1                         !プログラム文
  implicit none                       !暗黙の型宣言を無効にする。
  integer i                           !整数型変数iの宣言
  real(8) u(2), v(2), dotp            !倍精度型変数の宣言
  u(1) = 1.20d0                       !配列Uの要素の値
  u(2) = 3.40d0                       ! 
  v(1) = 4.10d0                       !配列vの要素の値
  v(2) = 2.60d0                       !
  write(*,*) (u(i),i=1, 2)            !
  write(*,*) (v(i),i=1, 2)            !
  dotp = 0.0d0                        !
  do i = 1, 2                         !内積計算するための反復回数
    dotp = dotp + u(i) * v(i)         !
  end do                              !
  write(*,*) 'ベクトルの内積 = ',dotp !結果の出力
end program dotp1                     !プログラム文終了