The R Project SVN R

Rev

Rev 19500 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19500 Rev 24735
Line 107... Line 107...
107 
    if (*n > 0 && *nb > 0 && *ldt > 0 && *ldb > 0) {
 107 
    if (*n > 0 && *nb > 0 && *ldt > 0 && *ldb > 0) {
108 
	F77_CALL(dtrsm)(side, uplo, transa, diag, n, nb, &one,
 108 
	F77_CALL(dtrsm)(side, uplo, transa, diag, n, nb, &one,
109 
			t, ldt, x, ldb);
 109 
			t, ldt, x, ldb);
110 
    }
 110 
    }
111 
}
 111 
}
112 
#ifdef OLD
 - 
 
113 
 * subroutines and functions
 - 
 
114 
 
 - 
 
115 
 *     linpack: dtrsl (t,ldt,n, b,job,info)
 - 
 
116 
 *     blas:	dcopy
 - 
 
117 
 */
 - 
 
118 
 
 - 
 
119 
    /* INTERNAL VARIABLES. */
 - 
 
120 
 
 - 
 
121 
    static int c__1 = 1; /* constant */
 - 
 
122 
    int p, nn, j;
 - 
 
123 
 
 - 
 
124 
    p = *nb;
 - 
 
125 
    nn = *ldb;
 - 
 
126 
 
 - 
 
127 
    for (j = 0; j < p; ++j) {/* for each right-hand side */
 - 
 
128 
       F77_CALL(dcopy)(n, &b[j * nn], &c__1, &x[j * nn], &c__1);
 - 
 
129 
       F77_CALL(dtrsl)(t, ldt, n, &x[j * nn], job, info);
 - 
 
130 
       if (*info != 0) {
 - 
 
131 
	 return;
 - 
 
132 
       }
 - 
 
133 
    }
 - 
 
134 
}
 - 
 
135 
#endif
 - 
 
136 
 
 112