Fortran 90 ベクトルおよび行列関数

• dot_product
ベクトルの内積を返す

     z = dot_product(vector_a,vector_b)

     integer,intent(in) :: vector_a(n), vector_b(n)

     integer            :: z ! sum(vector_a*vector_b)

     real,intent(in)    :: vector_a(n), vector_b(n)

     real               :: z ! sum(vector_a*vector_b)

     complex,intent(in) :: vector_a(n), vector_b(n)

     complex              :: z ! sum(conjg(vector_a)*vector_b)

     logical,intent(in) :: vector_a(n), vector_b(n)

     logical            :: z ! any(vector_a.and.vector_b)

     
     

• matmul
行列の乗算を返す

     z = matmul(matrix_a,matrix_b)

     integer,intent(in) :: matrix_a(n,m),matrix_b(m,l)

     integer            :: z(n,l)

     real,intent(in)    :: matrix_a(n,m),matrix_b(m,l)

     real               :: z(n,l)

     complex,intent(in) :: matrix_a(n,m),matrix_b(m,l)

     complex            :: z(n,l)

     logical,intent(in) :: matrix_a(n,m),matrix_b(m,l)

     logical            :: z(n,l)