/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | ib01nd.f | 245 LNOBR = L*NOBR 246 LLNOBR = LNOBR + LNOBR 247 LMNOBR = LNOBR + MNOBR 249 LMMNOB = MMNOBR + LNOBR 284 MAXWRK = LNOBR + LNOBR*ILAENV( 1, 'DGEQRF', ' ', LMNOBR, 296 MAXWRK = MAX( MAXWRK, LNOBR + LNOBR*ILAENV( 1, 'DGEQRF', 370 JWORK = ITAU + LNOBR 553 CALL MB04ID( LMNOBR, LNOBR, LNOBR-1, LNOBR, R(NR2,NR3), LDR, 644 CALL MB04IY( 'Left', 'NoTranspose', LMNOBR, LNOBR, LNOBR, 663 JWORK = ITAU + LNOBR [all …]
|
H A D | ib01py.f | 388 LNOBR = L*NOBR 389 LDUN2 = LNOBR - L 392 NROW = LNOBR - N 459 MINWRK = MAX( MINWRK, 4*LNOBR, LNOBR + M ) 461 $ M*ILAENV( 1, 'DORMQR', 'LT', LNOBR, M, LNOBR, 490 JL = LNOBR 627 $ TOLL = LNOBR*LNOBR*EPS 657 CALL DLASET( 'Lower', LNOBR-1, LNOBR, ZERO, ZERO, R(2,1), LDR ) 658 CALL MB03OD( 'QR', LNOBR, LNOBR, R, LDR, IWORK, TOLL, SVLMAX, 663 CALL DORMQR( 'Left', 'Transpose', LNOBR, M, LNOBR, R, LDR, [all …]
|
H A D | ib01pd.f | 412 LNOBR = L*NOBR 413 LMNOBR = LNOBR + MNOBR 414 LMMNOB = LNOBR + 2*MNOBR 416 LNOBRN = LNOBR - N 417 LDUN2 = LNOBR - L 467 $ LDO.LT.LNOBR ) ) THEN 497 $ MAX( L + MNOBR, LNOBR + MAX( 3*LNOBR, M ) ) 510 $ ILAENV( 1, 'DORMQR', 'LT', LNOBR, 799 CALL DLACPY( 'Full', LNOBR, N, R(NR2,NR2), LDR, O, LDO ) 817 CALL DGEQRF( LNOBR, N, R(NR2,1), LDR, DWORK(ITAU2), [all …]
|
H A D | ib01bd.f | 433 $ JWORK, LDUNN, LL, LMMNOL, LMNOBR, LNOBR, local 464 LNOBR = L*NOBR 465 LMNOBR = LNOBR + MNOBR 467 LDUNN = ( LNOBR - L )*N 468 LMMNOL = LNOBR + 2*MNOBR + L 541 $ MAX( L + MNOBR, LNOBR + MAX( 3*LNOBR, M ) ) 554 MINWRK = LNOBR*N + MINWRK 583 JWORK = IO + LNOBR*N 594 $ S, LDS, DWORK(IO), LNOBR, TOL, IWORK, 607 $ Q, LDQ, RY, LDRY, S, LDS, DWORK(IO), LNOBR, [all …]
|
H A D | ib01ad.f | 457 INTEGER IWARNL, LMNOBR, LNOBR, MAXWRK, MINWRK, MNOBR, local 496 LNOBR = L*NOBR 497 LMNOBR = LNOBR + MNOBR 558 MINWRK = MAX( 2*( NR - M - L ), 5*LNOBR ) 560 MINWRK = 5*LNOBR 579 MINWRK = MAX( MINWRK, 5*LNOBR )
|
H A D | ib01od.f | 104 INTEGER I, IERR, LNOBR local 120 LNOBR = L*NOBR 193 CALL IB01OY( LNOBR, NOBR-1, N, SV, IERR )
|
H A D | ib01px.f | 273 INTEGER I, IERR, J, JWORK, LDUN2, LNOBR, LP1, MAXWRK, local 292 LNOBR = L*NOBR 293 LDUN2 = LNOBR - L 370 DO 50 J = LP1, LNOBR
|
H A D | ib01my.f | 248 $ JDS, JWORK, K, LDRWRK, LLNOBR, LNOBR, LNRG, local 287 LNOBR = L*NOBR 289 LLNOBR = LNOBR + LNOBR
|
H A D | ib01md.f | 330 $ LMNOBR, LNOBR, MAXWRK, MINWRK, MLDRW, MMNOBR, local 374 LNOBR = L*NOBR 375 LMNOBR = LNOBR + MNOBR
|