SSH60

【機能】

    点列からトレランス内のものを除く（3D）


【使用形式】

    CALL  SSH60(N,PTBL,TLE,IFL,N1,PTB1,NTBL,IR)


【引数説明】

    ［INPUT］
        N         : 点列数                          
        PTBL(3, N): 点列座標                        
        TLE       : トレランス                      
        IFL       : 出力指示                        
                      0 ; 処理後点列座標をセット    
                      1 ; 処理後PTBLアドレスをセット

    ［OUTPUT］                      
        N1         : 処理後の点列数                           
        PTB1(3, N1): 処理後の点列座標（IFL=0のときセット）    
        NTBL(N)    : 処理後のPTBLアドレス（IFL=1のときセット）
                      1  2               N1 N1+1          N  
                     +--+--+--+---------+--+--+--+--+--+--+  
                     |__|__|__|_________|__|__|__|__|__|__|  
                      トレランス考慮後の       除いたアドレス   
                      PLBLアドレスの順番                        
        IR        : リターンフラグ                           
                      0 ; 正常終了                            
                      1 ; 入力エラー                          
【機能説明】

    ・点列からトレランス内のものを除き、出力指示により処理後点
      列かPTBLのアドレスをセットする。
    ・PTBLとPTB1に同一領域を割り当ててもよい。その場合入力値は
      出力値に変更される。

                       1  2  3  4  5  6 ←アドレス
 P1  P2  P3P4  P5  P6 +--+--+--+--+--+--+      1  2  3  4  5  
 +   +    ++   +   +  |P1|P2|P3|P4|P5|P6|     +--+--+--+--+--+
                      +--+--+--+--+--+--+     |P1|P2|P3|P5|P6|
                        PTBL(3, N)            +--+--+--+--+--+
                                              
                                            1  2  3  4  5  6  
 +   +    +    +   +                       +--+--+--+--+--+--+
 P1  P2  P3    P5  P6                      |1 |2 |3 |5 |6 |4 |
                                           +--+--+--+--+--+--+
                                               NTBL(N)