Home
last modified time | relevance | path

Searched refs:LNOBR (Results 1 – 9 of 9) sorted by relevance

/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dib01nd.f245 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 Dib01py.f388 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 Dib01pd.f412 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 Dib01bd.f433 $ 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 Dib01ad.f457 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 Dib01od.f104 INTEGER I, IERR, LNOBR local
120 LNOBR = L*NOBR
193 CALL IB01OY( LNOBR, NOBR-1, N, SV, IERR )
H A Dib01px.f273 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 Dib01my.f248 $ JDS, JWORK, K, LDRWRK, LLNOBR, LNOBR, LNRG, local
287 LNOBR = L*NOBR
289 LLNOBR = LNOBR + LNOBR
H A Dib01md.f330 $ LMNOBR, LNOBR, MAXWRK, MINWRK, MLDRW, MMNOBR, local
374 LNOBR = L*NOBR
375 LMNOBR = LNOBR + MNOBR