H A D | ab01nd.f | 2 $ NBLK, Z, LDZ, TAU, TOL, IWORK, DWORK, LDWORK, argument 221 INTEGER IWORK(*), NBLK(*) local 303 CALL MB01PD( 'Scale', 'G', N, N, 0, 0, ANORM, 0, NBLK, A, LDA, 305 CALL MB01PD( 'Scale', 'G', N, M, 0, 0, BNORM, 0, NBLK, B, LDB, 349 NBLK(INDCON) = RANK 431 NBLK(NBL) = N - NCONT 435 CALL MB01PD( 'Undo', 'H', N, N, 0, 0, ANORM, NBL, NBLK, A, 437 CALL MB01PD( 'Undo', 'G', NBLK(1), M, 0, 0, BNORM, 0, NBLK, B,
|