SSH61

【機能】

    点列を基準位置によりソートする（3D）


【使用形式】

    CALL  SSH61(N,PTBL,P,IFL,PTB1,NTBL,IR)


【引数説明】

    ［INPUT］
        N         : 点列数
        PTBL(3, N): 点列座標
        P(3)      : ソート基準位置
        IFL       : 出力指定
                      0 ; 処理後点列座標をセット
                      1 ; 処理後PTBLアドレスをセット

    ［OUTPUT］
        PTB1(3, N): 処理後の点列座標（IFL=0のときセット）
        NTBL(N)   : 処理後のPTBLアドレス（IFL=1のときセット）
        IR        : リターンフラグ
                      0 ; 正常終了
                      1 ; 入力エラー
【機能説明】

    ・点列を基準位置によりソートし、出力指示により処理後点列か
      PTBLのアドレスをセットする。
    ・PTBLとPTB1に同一領域を割り当ててもよい。その場合入力値は
      出力値に変更される。

                       1  2  3  4  5  6 ←アドレス
   P1 P2 P3 P4 P5 P6  +--+--+--+--+--+--+   1  2  3  4  5  6
  + +  +  +  +  +  +  |P1|P2|P3|P4|P5|P6|  +--+--+--+--+--+--+
  ↑                  +--+--+--+--+--+--+  |P1|P2|P3|P4|P5|P6|
  基準位置              PTBL(3, N)         +--+--+--+--+--+--+
                                              PTB1(3, N)
                                            1  2  3  4  5  6
                                           +--+--+--+--+--+--+
                                           |1 |2 |3 |4 |5 |6 |
                                           +--+--+--+--+--+--+
                                               NTBL(N)