SSA60

【機能】

    半径を指定して、2点を通過する円の情報を得る（2D）


【使用形式】

    CALL  SSA60(X1,Y1,X2,Y2,R,XYC,IR)


【引数説明】

    ［INPUT］
        X1, Y1    : 点1の座標
        X2, Y2    : 点2の座標
        R         : 指定半径

    ［OUTPUT］
        XYC(2, 2) : 接円の中心座標テーブル
　　　　　　　　　┼───┼───┼
　　　　　　　　　│ＸＣ１│ＹＣ１│ 接円1
　　　　　　　　　┼───┼───┼
　　　　　　　　　│ＸＣ２│ＹＣ２│ 接円2
　　　　　　　　　┼───┼───┼
        IR        : リターンフラグ
                      0 ; 円は存在しない
                      1 ; 1円が存在する
                      2 ; 2円が存在する
                     -1 ; 入力エラー


【機能説明】

  ・半径を指定して2点を通過する円の中心の座標を出力する。
  ・(X1, Y1)=(X2, Y2)の場合のみIR=-1を出力する。


【使用ルーチン】

    SSG40, SSA021