＜DOT_PRODUCT Example Program＞

Program dot_product_example
  Real :: a(3), b(3), dot
  a = (/1.,2.,3./)
  b = (/4.,5.,6./)
  dot = Dot_product(a,b)
  Print *,dot
End Program

■ Execution Results

  32.0000000