実装

ベクトルの内積演算を関数として以下のように実装する。

/* ベクトルの内積 */
void WH_Tensor3D__whV_cdot_whV_OUT_s
(double whV_a[3],
 double whV_b[3],
 double *OUT__c)
/*
  入力引数:
    whV_a、whV_b はベクトル
  出力引数:
    OUT__cはスカラーで、whV_a と whV_b の内積
*/
{
  *OUT__c = whV_a[0] * whV_b[0] 
          + whV_a[1] * whV_b[1] 
          + whV_a[2] * whV_b[2];
}