SSH10

【機能】

    3点で定義される基準座標系を求める（X軸固定、3D）


【使用形式】

    CALL  SSH10(WO,P1,P2,WVC,IR)


【引数説明】

    ［INPUT］
        WO(3) : 基準座標系の原点座標                   
        P1(3) : 基準座標系のX軸方向の点の座標          
        P2(3) : 基準座標系のXY平面でのYの正領域の点座標

    ［OUTPUT］                      
        WVC(3, 3) : 基準座標系、軸単位ベクトル
                      WVC(,1) : X軸ベクトル   
                      WVC(,2) : Y軸ベクトル   
                      WVC(,3) : Z軸ベクトル   
        IR        : リターンフラグ            
                   0 ; 正常終了              
                   -1 ; 入力エラー            

【機能説明】

    ・WOを原点、P1をX軸上の点、P2をXY平面のYの正領域の点となる
      ように基準座標系を定義する。