code 34422;
      procedure DECSOLSYMTRI(DIAG, CO, N, AUX, B); value N;
      integer N; array DIAG, CO, AUX, B;
      begin 
              DECSYMTRI(DIAG, CO, N, AUX); if AUX[3] = N then 
              SOLSYMTRI(DIAG, CO, N, B)
      end DECSOLSYMTRI;
        eop