実装：テンソル標記

熱流束ベクトルを求める 関数は、以下のようになる。

/* 熱流束ベクトル：三次元：等方性材料 */
void WH_Thermal3D__whV_q_IF_isotropic
(double lambda,
 double whP_T_whV_x[3],
 double OUT__whV_q[3])
/*
  入力引数:
    lambda はスカラーで、熱伝導率
    whP_T_whV_x はベクトルで、温度勾配ベクトル
  出力引数:
    OUT__whV_q はベクトルで、熱流束ベクトル
*/
{
  WH_Tensor3D__s_mul_whV_OUT_whV
    (-1.0 * lambda, whP_T_whV_x,
     OUT__whV_q);
}