SSH12

【機能】

    2点とベクトルで基準座標系を求める（X軸方向指定、3D）


【使用形式】

    CALL  SSH12(WO,PX,VZ,WVC,IR)


【引数説明】

    ［INPUT］
        WO(3) : 基準座標系の原点座標                           
        PX(3) : 基準座標系のX軸方向の点の座標                  
        VZ(3) : 基準座標系のZ軸ベクトル（単位ベクトルでなくてよ
                い）                                           

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

【機能説明】

    ・WOを原点、PXをX軸上の点（XZ平面でXの正領域の点）、VZをZ軸
      方向のベクトルとする基準座標系を定義する。