# Query: \\n .*/[^0-9](?!ABS)(?!DBLE)(?!REAL)(?!MIN)(?!MAX)[^0-9] # Flags: RegExp # Including: ./SRC/z*.f # ContextLines: 1 SRC/zgbtf2.f:   251,2: *   252:                  CALL ZSCAL( KM, ONE / AB( KV+1, J ), AB( KV+2, J ), 1 ) SRC/zgbtrf.f:   327,2: *   328:                     CALL ZSCAL( KM, ONE / AB( KV+1, JJ ), AB( KV+2, JJ ), SRC/zgejsv.f:   1449,2: *   1450:         L2PERT = L2PERT .AND. ( ABS( A(1,1)/A(NR,NR) ) .GT. SQRT(BIG1) ) SRC/zgesc2.f:   184,25:       DO 40 I = N, 1, -1   185:             TEMP = DCMPLX( ONE, ZERO ) / A( I, I ) SRC/zgetc2.f:   210,28:          DO 30 J = I + 1, N   211:                A( J, I ) = A( J, I ) / A( I, I ) SRC/zgetf2.f:   185,52:                IF( ABS(A( J, J )) .GE. SFMIN ) THEN   186:                      CALL ZSCAL( M-J, ONE / A( J, J ), A( J+1, J ), 1 )   188,35:                   DO 20 I = 1, M-J   189:                         A( J+I, J ) = A( J+I, J ) / A( J, J ) SRC/zgetrf2.f:   205,49:             IF( ABS(A( 1, 1 )) .GE. SFMIN ) THEN   206:                   CALL ZSCAL( M-1, ONE / A( 1, 1 ), A( 2, 1 ), 1 )   208,32:                DO 10 I = 1, M-1   209:                      A( 1+I, 1 ) = A( 1+I, 1 ) / A( 1, 1 ) SRC/zgtsv.f:   192,2: *   193:               MULT = DL( K ) / D( K )   203,2: *   204:               MULT = D( K ) / DL( K )   227,24:       DO 50 J = 1, NRHS   228:             B( N, J ) = B( N, J ) / D( N )   229,22:          IF( N.GT.1 )   230:         $      B( N-1, J ) = ( B( N-1, J )-DU( N-1 )*B( N, J ) ) / D( N-1 )   232,65:             B( K, J ) = ( B( K, J )-DU( K )*B( K+1, J )-DL( K )*   233:         $                  B( K+2, J ) ) / D( K ) SRC/zgttrf.f:   187,47:             IF( CABS1( D( I ) ).NE.ZERO ) THEN   188:                   FACT = DL( I ) / D( I )   195,2: *   196:               FACT = D( I ) / DL( I )   210,47:             IF( CABS1( D( I ) ).NE.ZERO ) THEN   211:                   FACT = DL( I ) / D( I )   215,14:          ELSE   216:                FACT = D( I ) / DL( I ) SRC/zgtts2.f:   179,2: *   180:               B( N, J ) = B( N, J ) / D( N )   181,25:             IF( N.GT.1 )   182:         $         B( N-1, J ) = ( B( N-1, J )-DU( N-1 )*B( N, J ) ) /   185,69:                B( I, J ) = ( B( I, J )-DU( I )*B( I+1, J )-DU2( I )*   186:         $                     B( I+2, J ) ) / D( I )   208,2: *   209:                  B( N, J ) = B( N, J ) / D( N )   210,28:                IF( N.GT.1 )   211:         $            B( N-1, J ) = ( B( N-1, J )-DU( N-1 )*B( N, J ) ) /   214,72:                   B( I, J ) = ( B( I, J )-DU( I )*B( I+1, J )-DU2( I )*   215:         $                        B( I+2, J ) ) / D( I )   228,2: *   229:               B( 1, J ) = B( 1, J ) / D( 1 )   230,25:             IF( N.GT.1 )   231:         $         B( 2, J ) = ( B( 2, J )-DU( 1 )*B( 1, J ) ) / D( 2 )   233,73:                B( I, J ) = ( B( I, J )-DU( I-1 )*B( I-1, J )-DU2( I-2 )*   234:         $                     B( I-2, J ) ) / D( I )   256,2: *   257:                  B( 1, J ) = B( 1, J ) / D( 1 )   258,28:                IF( N.GT.1 )   259:         $            B( 2, J ) = ( B( 2, J )-DU( 1 )*B( 1, J ) ) / D( 2 )   261,65:                   B( I, J ) = ( B( I, J )-DU( I-1 )*B( I-1, J )-   262:         $                        DU2( I-2 )*B( I-2, J ) ) / D( I )   287,2: *   288:               B( 1, J ) = B( 1, J ) / DCONJG( D( 1 ) )   289,25:             IF( N.GT.1 )   290:         $         B( 2, J ) = ( B( 2, J )-DCONJG( DU( 1 ) )*B( 1, J ) ) /   293,72:                B( I, J ) = ( B( I, J )-DCONJG( DU( I-1 ) )*B( I-1, J )-   294:         $                     DCONJG( DU2( I-2 ) )*B( I-2, J ) ) /   317,2: *   318:                  B( 1, J ) = B( 1, J ) / DCONJG( D( 1 ) )   320,72:      $            B( 2, J ) = ( B( 2, J )-DCONJG( DU( 1 ) )*B( 1, J ) )   321:         $                         / DCONJG( D( 2 ) )   324,64:      $                        B( I-1, J )-DCONJG( DU2( I-2 ) )*   325:         $                        B( I-2, J ) ) / DCONJG( D( I ) ) SRC/zhetri_3x.f:   285,38:                D = T*( AK*AKP1-CONE )   286:                   WORK( K, INVD ) = AKP1 / D   286,42:                WORK( K, INVD ) = AKP1 / D   287:                   WORK( K+1, INVD+1 ) = AK / D   287,44:                WORK( K+1, INVD+1 ) = AK / D   288:                   WORK( K, INVD+1 ) = -AKKP1 / D   466,38:                D = T*( AK*AKP1-CONE )   467:                   WORK( K-1, INVD ) = AKP1 / D   467,44:                WORK( K-1, INVD ) = AKP1 / D   468:                   WORK( K, INVD ) = AK / D   468,40:                WORK( K, INVD ) = AK / D   469:                   WORK( K, INVD+1 ) = -AKKP1 / D SRC/zhetri2x.f:   241,37:              T = ABS ( WORK(K+1,1) )   242:                 AK = DBLE ( A( K, K ) ) / T   242,41:              AK = DBLE ( A( K, K ) ) / T   243:                 AKP1 = DBLE ( A( K+1, K+1 ) ) / T   243,47:              AKP1 = DBLE ( A( K+1, K+1 ) ) / T   244:                 AKKP1 = WORK(K+1,1)  / T   245,35:              D = T*( AK*AKP1-ONE )   246:                 WORK(K,INVD) = AKP1 / D   246,37:              WORK(K,INVD) = AKP1 / D   247:                 WORK(K+1,INVD+1) = AK / D   247,39:              WORK(K+1,INVD+1) = AK / D   248:                 WORK(K,INVD+1) = -AKKP1 / D   418,37:              T = ABS ( WORK(K-1,1) )   419:                 AK = DBLE ( A( K-1, K-1 ) ) / T   419,45:              AK = DBLE ( A( K-1, K-1 ) ) / T   420:                 AKP1 = DBLE ( A( K, K ) ) / T   420,43:              AKP1 = DBLE ( A( K, K ) ) / T   421:                 AKKP1 = WORK(K-1,1) / T   422,35:              D = T*( AK*AKP1-ONE )   423:                 WORK(K-1,INVD) = AKP1 / D   423,39:              WORK(K-1,INVD) = AKP1 / D   424:                 WORK(K,INVD) = AK / D   424,35:              WORK(K,INVD) = AK / D   425:                 WORK(K,INVD+1) = -AKKP1 / D SRC/zhetrs_3.f: 260,30: AKM1K = E( I ) 261: AKM1 = A( I-1, I-1 ) / AKM1K 261,44: AKM1 = A( I-1, I-1 ) / AKM1K 262: AK = A( I, I ) / DCONJG( AKM1K ) 264,30: DO J = 1, NRHS 265: BKM1 = B( I-1, J ) / AKM1K 265,45: BKM1 = B( I-1, J ) / AKM1K 266: BK = B( I, J ) / DCONJG( AKM1K ) 266,51: BK = B( I, J ) / DCONJG( AKM1K ) 267: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 267,55: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 268: B( I, J ) = ( AKM1*BK-BKM1 ) / DENOM 328,30: AKM1K = E( I ) 329: AKM1 = A( I, I ) / DCONJG( AKM1K ) 329,50: AKM1 = A( I, I ) / DCONJG( AKM1K ) 330: AK = A( I+1, I+1 ) / AKM1K 332,31: DO J = 1, NRHS 333: BKM1 = B( I, J ) / DCONJG( AKM1K ) 333,53: BKM1 = B( I, J ) / DCONJG( AKM1K ) 334: BK = B( I+1, J ) / AKM1K 334,43: BK = B( I+1, J ) / AKM1K 335: B( I, J ) = ( AK*BKM1-BK ) / DENOM 335,53: B( I, J ) = ( AK*BKM1-BK ) / DENOM 336: B( I+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zhetrs_rook.f: 259,32: AKM1K = A( K-1, K ) 260: AKM1 = A( K-1, K-1 ) / AKM1K 260,41: AKM1 = A( K-1, K-1 ) / AKM1K 261: AK = A( K, K ) / DCONJG( AKM1K ) 263,30: DO 20 J = 1, NRHS 264: BKM1 = B( K-1, J ) / AKM1K 264,42: BKM1 = B( K-1, J ) / AKM1K 265: BK = B( K, J ) / DCONJG( AKM1K ) 265,48: BK = B( K, J ) / DCONJG( AKM1K ) 266: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 266,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 267: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 408,32: AKM1K = A( K+1, K ) 409: AKM1 = A( K, K ) / DCONJG( AKM1K ) 409,47: AKM1 = A( K, K ) / DCONJG( AKM1K ) 410: AK = A( K+1, K+1 ) / AKM1K 412,30: DO 70 J = 1, NRHS 413: BKM1 = B( K, J ) / DCONJG( AKM1K ) 413,50: BKM1 = B( K, J ) / DCONJG( AKM1K ) 414: BK = B( K+1, J ) / AKM1K 414,40: BK = B( K+1, J ) / AKM1K 415: B( K, J ) = ( AK*BKM1-BK ) / DENOM 415,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 416: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zhetrs.f: 239,32: AKM1K = A( K-1, K ) 240: AKM1 = A( K-1, K-1 ) / AKM1K 240,41: AKM1 = A( K-1, K-1 ) / AKM1K 241: AK = A( K, K ) / DCONJG( AKM1K ) 243,30: DO 20 J = 1, NRHS 244: BKM1 = B( K-1, J ) / AKM1K 244,42: BKM1 = B( K-1, J ) / AKM1K 245: BK = B( K, J ) / DCONJG( AKM1K ) 245,48: BK = B( K, J ) / DCONJG( AKM1K ) 246: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 246,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 247: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 379,32: AKM1K = A( K+1, K ) 380: AKM1 = A( K, K ) / DCONJG( AKM1K ) 380,47: AKM1 = A( K, K ) / DCONJG( AKM1K ) 381: AK = A( K+1, K+1 ) / AKM1K 383,30: DO 70 J = 1, NRHS 384: BKM1 = B( K, J ) / DCONJG( AKM1K ) 384,50: BKM1 = B( K, J ) / DCONJG( AKM1K ) 385: BK = B( K+1, J ) / AKM1K 385,40: BK = B( K+1, J ) / AKM1K 386: B( K, J ) = ( AK*BKM1-BK ) / DENOM 386,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 387: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zhetrs2.f: 229,34: AKM1K = WORK(I) 230: AKM1 = A( I-1, I-1 ) / AKM1K 230,47: AKM1 = A( I-1, I-1 ) / AKM1K 231: AK = A( I, I ) / DCONJG( AKM1K ) 233,36: DO 15 J = 1, NRHS 234: BKM1 = B( I-1, J ) / AKM1K 234,48: BKM1 = B( I-1, J ) / AKM1K 235: BK = B( I, J ) / DCONJG( AKM1K ) 235,54: BK = B( I, J ) / DCONJG( AKM1K ) 236: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 236,58: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 237: B( I, J ) = ( AKM1*BK-BKM1 ) / DENOM 306,34: AKM1K = WORK(I) 307: AKM1 = A( I, I ) / DCONJG( AKM1K ) 307,53: AKM1 = A( I, I ) / DCONJG( AKM1K ) 308: AK = A( I+1, I+1 ) / AKM1K 310,36: DO 25 J = 1, NRHS 311: BKM1 = B( I, J ) / DCONJG( AKM1K ) 311,56: BKM1 = B( I, J ) / DCONJG( AKM1K ) 312: BK = B( I+1, J ) / AKM1K 312,46: BK = B( I+1, J ) / AKM1K 313: B( I, J ) = ( AK*BKM1-BK ) / DENOM 313,56: B( I, J ) = ( AK*BKM1-BK ) / DENOM 314: B( I+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zhgeqz.f: 731,2: * 732: U12 = ( BSCALE*T( ILAST-1, ILAST ) ) / 733,47: $ ( BSCALE*T( ILAST, ILAST ) ) 734: AD11 = ( ASCALE*H( ILAST-1, ILAST-1 ) ) / 735,52: $ ( BSCALE*T( ILAST-1, ILAST-1 ) ) 736: AD21 = ( ASCALE*H( ILAST, ILAST-1 ) ) / 737,52: $ ( BSCALE*T( ILAST-1, ILAST-1 ) ) 738: AD12 = ( ASCALE*H( ILAST-1, ILAST ) ) / 739,48: $ ( BSCALE*T( ILAST, ILAST ) ) 740: AD22 = ( ASCALE*H( ILAST, ILAST ) ) / 765,52: ESHIFT = ESHIFT + ( ASCALE*H( ILAST, 766: $ ILAST ) )/( BSCALE*T( ILAST, ILAST ) ) 768,52: ESHIFT = ESHIFT + ( ASCALE*H( ILAST, 769: $ ILAST-1 ) )/( BSCALE*T( ILAST-1, ILAST-1 ) ) SRC/zhptrs.f: 234,33: AKM1K = AP( KC+K-2 ) 235: AKM1 = AP( KC-1 ) / AKM1K 235,38: AKM1 = AP( KC-1 ) / AKM1K 236: AK = AP( KC+K-1 ) / DCONJG( AKM1K ) 238,30: DO 20 J = 1, NRHS 239: BKM1 = B( K-1, J ) / AKM1K 239,42: BKM1 = B( K-1, J ) / AKM1K 240: BK = B( K, J ) / DCONJG( AKM1K ) 240,48: BK = B( K, J ) / DCONJG( AKM1K ) 241: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 241,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 242: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 380,31: AKM1K = AP( KC+1 ) 381: AKM1 = AP( KC ) / DCONJG( AKM1K ) 381,46: AKM1 = AP( KC ) / DCONJG( AKM1K ) 382: AK = AP( KC+N-K+1 ) / AKM1K 384,30: DO 70 J = 1, NRHS 385: BKM1 = B( K, J ) / DCONJG( AKM1K ) 385,50: BKM1 = B( K, J ) / DCONJG( AKM1K ) 386: BK = B( K+1, J ) / AKM1K 386,40: BK = B( K+1, J ) / AKM1K 387: B( K, J ) = ( AK*BKM1-BK ) / DENOM 387,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 388: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zla_gbrcond_x.f: 283,24: DO I = 1, N 284: WORK( I ) = WORK( I ) / X( I ) 290,24: DO I = 1, N 291: WORK( I ) = WORK( I ) / X( I ) SRC/zla_gercond_x.f: 256,24: DO I = 1, N 257: WORK( I ) = WORK( I ) / X( I ) 263,24: DO I = 1, N 264: WORK( I ) = WORK( I ) / X( I ) SRC/zla_hercond_x.f: 261,24: DO I = 1, N 262: WORK( I ) = WORK( I ) / X( I ) 268,24: DO I = 1, N 269: WORK( I ) = WORK( I ) / X( I ) SRC/zla_porcond_x.f: 252,24: DO I = 1, N 253: WORK( I ) = WORK( I ) / X( I ) 259,24: DO I = 1, N 260: WORK( I ) = WORK( I ) / X( I ) SRC/zla_syrcond_x.f: 262,24: DO I = 1, N 263: WORK( I ) = WORK( I ) / X( I ) 269,24: DO I = 1, N 270: WORK( I ) = WORK( I ) / X( I ) SRC/zlaesy.f: 197,2: * 198: SN1 = ( RT1-A ) / B 206,37: IF( EVNORM.GE.THRESH ) THEN 207: EVSCAL = CONE / T SRC/zlahef_aa.f: 331,46: IF( A( K, J+1 ).NE.ZERO ) THEN 332: ALPHA = ONE / A( K, J+1 ) 486,46: IF( A( J+1, K ).NE.ZERO ) THEN 487: ALPHA = ONE / A( J+1, K ) SRC/zlahef_rk.f: 697,37: D21 = W( K-1, KW ) 698: D11 = W( K, KW ) / DCONJG( D21 ) 698,51: D11 = W( K, KW ) / DCONJG( D21 ) 699: D22 = W( K-1, KW-1 ) / D21 706,37: DO 20 J = 1, K - 2 707: A( J, K-1 ) = T*( ( D11*W( J, KW-1 )-W( J, KW ) ) / 708: $ D21 ) 708,41: $ D21 ) 709: A( J, K ) = T*( ( D22*W( J, KW )-W( J, KW-1 ) ) / 710: $ DCONJG( D21 ) ) 1140,36: D21 = W( K+1, K ) 1141: D11 = W( K+1, K+1 ) / D21 1141,44: D11 = W( K+1, K+1 ) / D21 1142: D22 = W( K, K ) / DCONJG( D21 ) 1149,37: DO 80 J = K + 2, N 1150: A( J, K ) = T*( ( D11*W( J, K )-W( J, K+1 ) ) / 1151: $ DCONJG( D21 ) ) 1151,49: $ DCONJG( D21 ) ) 1152: A( J, K+1 ) = T*( ( D22*W( J, K+1 )-W( J, K ) ) / 1153: $ D21 ) SRC/zlahef_rook.f: 602,37: D21 = W( K-1, KW ) 603: D11 = W( K, KW ) / DCONJG( D21 ) 603,51: D11 = W( K, KW ) / DCONJG( D21 ) 604: D22 = W( K-1, KW-1 ) / D21 611,37: DO 20 J = 1, K - 2 612: A( J, K-1 ) = T*( ( D11*W( J, KW-1 )-W( J, KW ) ) / 613: $ D21 ) 613,41: $ D21 ) 614: A( J, K ) = T*( ( D22*W( J, KW )-W( J, KW-1 ) ) / 615: $ DCONJG( D21 ) ) 1056,36: D21 = W( K+1, K ) 1057: D11 = W( K+1, K+1 ) / D21 1057,44: D11 = W( K+1, K+1 ) / D21 1058: D22 = W( K, K ) / DCONJG( D21 ) 1065,37: DO 80 J = K + 2, N 1066: A( J, K ) = T*( ( D11*W( J, K )-W( J, K+1 ) ) / 1067: $ DCONJG( D21 ) ) 1067,49: $ DCONJG( D21 ) ) 1068: A( J, K+1 ) = T*( ( D22*W( J, K+1 )-W( J, K ) ) / 1069: $ D21 ) SRC/zlahef_rook.f: 602,37: D21 = W( K-1, KW ) 603: D11 = W( K, KW ) / DCONJG( D21 ) 603,51: D11 = W( K, KW ) / DCONJG( D21 ) 604: D22 = W( K-1, KW-1 ) / D21 611,37: DO 20 J = 1, K - 2 612: A( J, K-1 ) = T*( ( D11*W( J, KW-1 )-W( J, KW ) ) / 613: $ D21 ) 613,41: $ D21 ) 614: A( J, K ) = T*( ( D22*W( J, KW )-W( J, KW-1 ) ) / 615: $ DCONJG( D21 ) ) 1056,36: D21 = W( K+1, K ) 1057: D11 = W( K+1, K+1 ) / D21 1057,44: D11 = W( K+1, K+1 ) / D21 1058: D22 = W( K, K ) / DCONJG( D21 ) 1065,37: DO 80 J = K + 2, N 1066: A( J, K ) = T*( ( D11*W( J, K )-W( J, K+1 ) ) / 1067: $ DCONJG( D21 ) ) 1067,49: $ DCONJG( D21 ) ) 1068: A( J, K+1 ) = T*( ( D22*W( J, K+1 )-W( J, K ) ) / 1069: $ D21 ) SRC/zlahef.f: 499,37: D21 = W( K-1, KW ) 500: D11 = W( K, KW ) / DCONJG( D21 ) 500,51: D11 = W( K, KW ) / DCONJG( D21 ) 501: D22 = W( K-1, KW-1 ) / D21 502,52: T = ONE / ( DBLE( D11*D22 )-ONE ) 503: D21 = T / D21 859,36: D21 = W( K+1, K ) 860: D11 = W( K+1, K+1 ) / D21 860,44: D11 = W( K+1, K+1 ) / D21 861: D22 = W( K, K ) / DCONJG( D21 ) 862,52: T = ONE / ( DBLE( D11*D22 )-ONE ) 863: D21 = T / D21 SRC/zlaic1.f: 247,33: IF( B.GT.ZERO ) THEN 248: T = DBLE( C / ( B+SQRT( B*B+C ) ) ) 339,31: C = ZETA2*ZETA2 340: T = DBLE( C / ( B+SQRT( ABS( B*B-C ) ) ) ) 350,36: IF( B.GE.ZERO ) THEN 351: T = -C / ( B+SQRT( B*B+C ) ) SRC/zlaqz0.f: 659,66: $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN 660: ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) SRC/zlasyf_aa.f: 327,46: IF( A( K, J+1 ).NE.ZERO ) THEN 328: ALPHA = ONE / A( K, J+1 ) 478,46: IF( A( J+1, K ).NE.ZERO ) THEN 479: ALPHA = ONE / A( J+1, K ) SRC/zlasyf_rk.f: 550,57: IF( CABS1( A( K, K ) ).GE.SFMIN ) THEN 551: R1 = CONE / A( K, K ) 554,41: DO 14 II = 1, K - 1 555: A( II, K ) = A( II, K ) / A( K, K ) 579,37: D12 = W( K-1, KW ) 580: D11 = W( K, KW ) / D12 580,41: D11 = W( K, KW ) / D12 581: D22 = W( K-1, KW-1 ) / D12 581,45: D22 = W( K-1, KW-1 ) / D12 582: T = CONE / ( D11*D22-CONE ) 583,37: DO 20 J = 1, K - 2 584: A( J, K-1 ) = T*( (D11*W( J, KW-1 )-W( J, KW ) ) / 585: $ D12 ) 585,41: $ D12 ) 586: A( J, K ) = T*( ( D22*W( J, KW )-W( J, KW-1 ) ) / 587: $ D12 ) 864,57: IF( CABS1( A( K, K ) ).GE.SFMIN ) THEN 865: R1 = CONE / A( K, K ) 868,41: DO 74 II = K + 1, N 869: A( II, K ) = A( II, K ) / A( K, K ) 892,36: D21 = W( K+1, K ) 893: D11 = W( K+1, K+1 ) / D21 893,44: D11 = W( K+1, K+1 ) / D21 894: D22 = W( K, K ) / D21 894,40: D22 = W( K, K ) / D21 895: T = CONE / ( D11*D22-CONE ) 896,37: DO 80 J = K + 2, N 897: A( J, K ) = T*( ( D11*W( J, K )-W( J, K+1 ) ) / 898: $ D21 ) 898,39: $ D21 ) 899: A( J, K+1 ) = T*( ( D22*W( J, K+1 )-W( J, K ) ) / 900: $ D21 ) SRC/zlasyf_rook.f: 461,57: IF( CABS1( A( K, K ) ).GE.SFMIN ) THEN 462: R1 = CONE / A( K, K ) 465,41: DO 14 II = 1, K - 1 466: A( II, K ) = A( II, K ) / A( K, K ) 485,37: D12 = W( K-1, KW ) 486: D11 = W( K, KW ) / D12 486,41: D11 = W( K, KW ) / D12 487: D22 = W( K-1, KW-1 ) / D12 487,45: D22 = W( K-1, KW-1 ) / D12 488: T = CONE / ( D11*D22-CONE ) 489,37: DO 20 J = 1, K - 2 490: A( J, K-1 ) = T*( (D11*W( J, KW-1 )-W( J, KW ) ) / 491: $ D12 ) 491,41: $ D12 ) 492: A( J, K ) = T*( ( D22*W( J, KW )-W( J, KW-1 ) ) / 493: $ D12 ) 778,57: IF( CABS1( A( K, K ) ).GE.SFMIN ) THEN 779: R1 = CONE / A( K, K ) 782,41: DO 74 II = K + 1, N 783: A( II, K ) = A( II, K ) / A( K, K ) 801,36: D21 = W( K+1, K ) 802: D11 = W( K+1, K+1 ) / D21 802,44: D11 = W( K+1, K+1 ) / D21 803: D22 = W( K, K ) / D21 803,40: D22 = W( K, K ) / D21 804: T = CONE / ( D11*D22-CONE ) 805,37: DO 80 J = K + 2, N 806: A( J, K ) = T*( ( D11*W( J, K )-W( J, K+1 ) ) / 807: $ D21 ) 807,39: $ D21 ) 808: A( J, K+1 ) = T*( ( D22*W( J, K+1 )-W( J, K ) ) / 809: $ D21 ) SRC/zlasyf.f: 388,60: CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) 389: R1 = CONE / A( K, K ) 436,37: D21 = W( K-1, KW ) 437: D11 = W( K, KW ) / D21 437,41: D11 = W( K, KW ) / D21 438: D22 = W( K-1, KW-1 ) / D21 438,45: D22 = W( K-1, KW-1 ) / D21 439: T = CONE / ( D11*D22-CONE ) 439,46: T = CONE / ( D11*D22-CONE ) 440: D21 = T / D21 677,33: IF( K.LT.N ) THEN 678: R1 = CONE / A( K, K ) 726,36: D21 = W( K+1, K ) 727: D11 = W( K+1, K+1 ) / D21 727,44: D11 = W( K+1, K+1 ) / D21 728: D22 = W( K, K ) / D21 728,40: D22 = W( K, K ) / D21 729: T = CONE / ( D11*D22-CONE ) 729,46: T = CONE / ( D11*D22-CONE ) 730: D21 = T / D21 SRC/zlatdf.f: 269,28: DO 30 I = N, 1, -1 270: TEMP = CONE / Z( I, I ) 302,50: CALL ZLASWP( 1, XM, LDZ, 1, N-1, IPIV, -1 ) 303: TEMP = CONE / SQRT( ZDOTC( N, XM, 1, XM, 1 ) ) SRC/zlaunhr_col_getrfnp2.f: 265,50: IF( CABS1( A( 1, 1 ) ) .GE. SFMIN ) THEN 266: CALL ZSCAL( M-1, CONE / A( 1, 1 ), A( 2, 1 ), 1 ) 268,24: DO I = 2, M 269: A( I, 1 ) = A( I, 1 ) / A( 1, 1 ) SRC/zsptrf.f: 350,2: * 351: R1 = CONE / AP( KC+K-1 ) 373,48: D12 = AP( K-1+( K-1 )*K / 2 ) 374: D22 = AP( K-1+( K-2 )*( K-1 ) / 2 ) / D12 374,60: D22 = AP( K-1+( K-2 )*( K-1 ) / 2 ) / D12 375: D11 = AP( K+( K-1 )*K / 2 ) / D12 375,52: D11 = AP( K+( K-1 )*K / 2 ) / D12 376: T = CONE / ( D11*D22-CONE ) 376,46: T = CONE / ( D11*D22-CONE ) 377: D12 = T / D12 543,2: * 544: R1 = CONE / AP( KC ) 571,56: D21 = AP( K+1+( K-1 )*( 2*N-K ) / 2 ) 572: D11 = AP( K+1+K*( 2*N-K-1 ) / 2 ) / D21 572,58: D11 = AP( K+1+K*( 2*N-K-1 ) / 2 ) / D21 573: D22 = AP( K+( K-1 )*( 2*N-K ) / 2 ) / D21 573,60: D22 = AP( K+( K-1 )*( 2*N-K ) / 2 ) / D21 574: T = CONE / ( D11*D22-CONE ) 574,46: T = CONE / ( D11*D22-CONE ) 575: D21 = T / D21 583,71: AP( I+( J-1 )*( 2*N-J ) / 2 ) = AP( I+( J-1 )* 584: $ ( 2*N-J ) / 2 ) - AP( I+( K-1 )*( 2*N-K ) / 585: $ 2 )*WK - AP( I+K*( 2*N-K-1 ) / 2 )*WKP1 SRC/zsptri.f: 214,2: * 215: AP( KC+K-1 ) = ONE / AP( KC+K-1 ) 233,33: T = AP( KCNEXT+K-1 ) 234: AK = AP( KC+K-1 ) / T 234,34: AK = AP( KC+K-1 ) / T 235: AKP1 = AP( KCNEXT+K ) / T 235,38: AKP1 = AP( KCNEXT+K ) / T 236: AKKP1 = AP( KCNEXT+K-1 ) / T 237,34: D = T*( AK*AKP1-ONE ) 238: AP( KC+K-1 ) = AKP1 / D 238,36: AP( KC+K-1 ) = AKP1 / D 239: AP( KCNEXT+K ) = AK / D 239,36: AP( KCNEXT+K ) = AK / D 240: AP( KCNEXT+K-1 ) = -AKKP1 / D 316,2: * 317: AP( KC ) = ONE / AP( KC ) 335,31: T = AP( KCNEXT+1 ) 336: AK = AP( KCNEXT ) / T 336,34: AK = AP( KCNEXT ) / T 337: AKP1 = AP( KC ) / T 337,32: AKP1 = AP( KC ) / T 338: AKKP1 = AP( KCNEXT+1 ) / T 339,34: D = T*( AK*AKP1-ONE ) 340: AP( KCNEXT ) = AKP1 / D 340,36: AP( KCNEXT ) = AKP1 / D 341: AP( KC ) = AK / D 341,30: AP( KC ) = AK / D 342: AP( KCNEXT+1 ) = -AKKP1 / D SRC/zsptrs.f: 209,2: * 210: CALL ZSCAL( NRHS, ONE / AP( KC+K-1 ), B( K, 1 ), LDB ) 232,33: AKM1K = AP( KC+K-2 ) 233: AKM1 = AP( KC-1 ) / AKM1K 233,38: AKM1 = AP( KC-1 ) / AKM1K 234: AK = AP( KC+K-1 ) / AKM1K 236,30: DO 20 J = 1, NRHS 237: BKM1 = B( K-1, J ) / AKM1K 237,42: BKM1 = B( K-1, J ) / AKM1K 238: BK = B( K, J ) / AKM1K 238,38: BK = B( K, J ) / AKM1K 239: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 239,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 240: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 340,2: * 341: CALL ZSCAL( NRHS, ONE / AP( KC ), B( K, 1 ), LDB ) 366,31: AKM1K = AP( KC+1 ) 367: AKM1 = AP( KC ) / AKM1K 367,36: AKM1 = AP( KC ) / AKM1K 368: AK = AP( KC+N-K+1 ) / AKM1K 370,30: DO 70 J = 1, NRHS 371: BKM1 = B( K, J ) / AKM1K 371,40: BKM1 = B( K, J ) / AKM1K 372: BK = B( K+1, J ) / AKM1K 372,40: BK = B( K+1, J ) / AKM1K 373: B( K, J ) = ( AK*BKM1-BK ) / DENOM 373,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 374: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zsytf2_rk.f: 527,2: * 528: D11 = CONE / A( K, K ) 539,41: DO 16 II = 1, K - 1 540: A( II, K ) = A( II, K ) / D11 575,36: D12 = A( K-1, K ) 576: D22 = A( K-1, K-1 ) / D12 576,44: D22 = A( K-1, K-1 ) / D12 577: D11 = A( K, K ) / D12 577,40: D11 = A( K, K ) / D12 578: T = CONE / ( D11*D22-CONE ) 585,40: DO 20 I = J, 1, -1 586: A( I, J ) = A( I, J ) - (A( I, K ) / D12 )*WK - 586,72: A( I, J ) = A( I, J ) - (A( I, K ) / D12 )*WK - 587: $ ( A( I, K-1 ) / D12 )*WKM1 591,2: * 592: A( J, K ) = WK / D12 592,42: A( J, K ) = WK / D12 593: A( J, K-1 ) = WKM1 / D12 835,2: * 836: D11 = CONE / A( K, K ) 848,41: DO 46 II = K + 1, N 849: A( II, K ) = A( II, K ) / D11 886,36: D21 = A( K+1, K ) 887: D11 = A( K+1, K+1 ) / D21 887,44: D11 = A( K+1, K+1 ) / D21 888: D22 = A( K, K ) / D21 888,40: D22 = A( K, K ) / D21 889: T = CONE / ( D11*D22-CONE ) 900,36: DO 50 I = J, N 901: A( I, J ) = A( I, J ) - ( A( I, K ) / D21 )*WK - 901,73: A( I, J ) = A( I, J ) - ( A( I, K ) / D21 )*WK - 902: $ ( A( I, K+1 ) / D21 )*WKP1 906,2: * 907: A( J, K ) = WK / D21 907,42: A( J, K ) = WK / D21 908: A( J, K+1 ) = WKP1 / D21 SRC/zsytf2_rook.f: 453,2: * 454: D11 = CONE / A( K, K ) 465,41: DO 16 II = 1, K - 1 466: A( II, K ) = A( II, K ) / D11 496,36: D12 = A( K-1, K ) 497: D22 = A( K-1, K-1 ) / D12 497,44: D22 = A( K-1, K-1 ) / D12 498: D11 = A( K, K ) / D12 498,40: D11 = A( K, K ) / D12 499: T = CONE / ( D11*D22-CONE ) 506,40: DO 20 I = J, 1, -1 507: A( I, J ) = A( I, J ) - (A( I, K ) / D12 )*WK - 507,72: A( I, J ) = A( I, J ) - (A( I, K ) / D12 )*WK - 508: $ ( A( I, K-1 ) / D12 )*WKM1 512,2: * 513: A( J, K ) = WK / D12 513,42: A( J, K ) = WK / D12 514: A( J, K-1 ) = WKM1 / D12 719,2: * 720: D11 = CONE / A( K, K ) 732,41: DO 46 II = K + 1, N 733: A( II, K ) = A( II, K ) / D11 765,36: D21 = A( K+1, K ) 766: D11 = A( K+1, K+1 ) / D21 766,44: D11 = A( K+1, K+1 ) / D21 767: D22 = A( K, K ) / D21 767,40: D22 = A( K, K ) / D21 768: T = CONE / ( D11*D22-CONE ) 779,36: DO 50 I = J, N 780: A( I, J ) = A( I, J ) - ( A( I, K ) / D21 )*WK - 780,73: A( I, J ) = A( I, J ) - ( A( I, K ) / D21 )*WK - 781: $ ( A( I, K+1 ) / D21 )*WKP1 785,2: * 786: A( J, K ) = WK / D21 786,42: A( J, K ) = WK / D21 787: A( J, K+1 ) = WKP1 / D21 SRC/zsytf2.f: 371,2: * 372: R1 = CONE / A( K, K ) 394,36: D12 = A( K-1, K ) 395: D22 = A( K-1, K-1 ) / D12 395,44: D22 = A( K-1, K-1 ) / D12 396: D11 = A( K, K ) / D12 396,40: D11 = A( K, K ) / D12 397: T = CONE / ( D11*D22-CONE ) 397,46: T = CONE / ( D11*D22-CONE ) 398: D12 = T / D12 544,2: * 545: R1 = CONE / A( K, K ) 567,36: D21 = A( K+1, K ) 568: D11 = A( K+1, K+1 ) / D21 568,44: D11 = A( K+1, K+1 ) / D21 569: D22 = A( K, K ) / D21 569,40: D22 = A( K, K ) / D21 570: T = CONE / ( D11*D22-CONE ) 570,46: T = CONE / ( D11*D22-CONE ) 571: D21 = T / D21 SRC/zsytri_3x.f: 273,34: * 1 x 1 diagonal NNB 274: WORK( K, INVD ) = CONE / A( K, K ) 278,34: T = WORK( K+1, 1 ) 279: AK = A( K, K ) / T 279,34: AK = A( K, K ) / T 280: AKP1 = A( K+1, K+1 ) / T 280,40: AKP1 = A( K+1, K+1 ) / T 281: AKKP1 = WORK( K+1, 1 ) / T 282,38: D = T*( AK*AKP1-CONE ) 283: WORK( K, INVD ) = AKP1 / D 283,42: WORK( K, INVD ) = AKP1 / D 284: WORK( K+1, INVD+1 ) = AK / D 284,44: WORK( K+1, INVD+1 ) = AK / D 285: WORK( K, INVD+1 ) = -AKKP1 / D 454,34: * 1 x 1 diagonal NNB 455: WORK( K, INVD ) = CONE / A( K, K ) 459,34: T = WORK( K-1, 1 ) 460: AK = A( K-1, K-1 ) / T 460,38: AK = A( K-1, K-1 ) / T 461: AKP1 = A( K, K ) / T 461,36: AKP1 = A( K, K ) / T 462: AKKP1 = WORK( K-1, 1 ) / T 463,38: D = T*( AK*AKP1-CONE ) 464: WORK( K-1, INVD ) = AKP1 / D 464,44: WORK( K-1, INVD ) = AKP1 / D 465: WORK( K, INVD ) = AK / D 465,40: WORK( K, INVD ) = AK / D 466: WORK( K, INVD+1 ) = -AKKP1 / D SRC/zsytri_rook.f: 230,2: * 231: A( K, K ) = CONE / A( K, K ) 249,28: T = A( K, K+1 ) 250: AK = A( K, K ) / T 250,31: AK = A( K, K ) / T 251: AKP1 = A( K+1, K+1 ) / T 251,37: AKP1 = A( K+1, K+1 ) / T 252: AKKP1 = A( K, K+1 ) / T 253,35: D = T*( AK*AKP1-CONE ) 254: A( K, K ) = AKP1 / D 254,33: A( K, K ) = AKP1 / D 255: A( K+1, K+1 ) = AK / D 255,35: A( K+1, K+1 ) = AK / D 256: A( K, K+1 ) = -AKKP1 / D 346,2: * 347: A( K, K ) = CONE / A( K, K ) 365,28: T = A( K, K-1 ) 366: AK = A( K-1, K-1 ) / T 366,35: AK = A( K-1, K-1 ) / T 367: AKP1 = A( K, K ) / T 367,33: AKP1 = A( K, K ) / T 368: AKKP1 = A( K, K-1 ) / T 369,35: D = T*( AK*AKP1-CONE ) 370: A( K-1, K-1 ) = AKP1 / D 370,37: A( K-1, K-1 ) = AKP1 / D 371: A( K, K ) = AK / D 371,31: A( K, K ) = AK / D 372: A( K, K-1 ) = -AKKP1 / D SRC/zsytri.f: 215,2: * 216: A( K, K ) = ONE / A( K, K ) 234,28: T = A( K, K+1 ) 235: AK = A( K, K ) / T 235,31: AK = A( K, K ) / T 236: AKP1 = A( K+1, K+1 ) / T 236,37: AKP1 = A( K+1, K+1 ) / T 237: AKKP1 = A( K, K+1 ) / T 238,34: D = T*( AK*AKP1-ONE ) 239: A( K, K ) = AKP1 / D 239,33: A( K, K ) = AKP1 / D 240: A( K+1, K+1 ) = AK / D 240,35: A( K+1, K+1 ) = AK / D 241: A( K, K+1 ) = -AKKP1 / D 304,2: * 305: A( K, K ) = ONE / A( K, K ) 323,28: T = A( K, K-1 ) 324: AK = A( K-1, K-1 ) / T 324,35: AK = A( K-1, K-1 ) / T 325: AKP1 = A( K, K ) / T 325,33: AKP1 = A( K, K ) / T 326: AKKP1 = A( K, K-1 ) / T 327,34: D = T*( AK*AKP1-ONE ) 328: A( K-1, K-1 ) = AKP1 / D 328,37: A( K-1, K-1 ) = AKP1 / D 329: A( K, K ) = AK / D 329,31: A( K, K ) = AK / D 330: A( K, K-1 ) = -AKKP1 / D SRC/zsytri2x.f: 233,31: * 1 x 1 diagonal NNB 234: WORK(K,INVD) = ONE / A( K, K ) 239,29: T = WORK(K+1,1) 240: AK = A( K, K ) / T 240,32: AK = A( K, K ) / T 241: AKP1 = A( K+1, K+1 ) / T 241,38: AKP1 = A( K+1, K+1 ) / T 242: AKKP1 = WORK(K+1,1) / T 243,35: D = T*( AK*AKP1-ONE ) 244: WORK(K,INVD) = AKP1 / D 244,37: WORK(K,INVD) = AKP1 / D 245: WORK(K+1,INVD+1) = AK / D 245,39: WORK(K+1,INVD+1) = AK / D 246: WORK(K,INVD+1) = -AKKP1 / D 246,41: WORK(K,INVD+1) = -AKKP1 / D 247: WORK(K+1,INVD) = -AKKP1 / D 410,31: * 1 x 1 diagonal NNB 411: WORK(K,INVD) = ONE / A( K, K ) 416,29: T = WORK(K-1,1) 417: AK = A( K-1, K-1 ) / T 417,36: AK = A( K-1, K-1 ) / T 418: AKP1 = A( K, K ) / T 418,34: AKP1 = A( K, K ) / T 419: AKKP1 = WORK(K-1,1) / T 420,35: D = T*( AK*AKP1-ONE ) 421: WORK(K-1,INVD) = AKP1 / D 421,39: WORK(K-1,INVD) = AKP1 / D 422: WORK(K,INVD) = AK / D 422,35: WORK(K,INVD) = AK / D 423: WORK(K,INVD+1) = -AKKP1 / D 423,41: WORK(K,INVD+1) = -AKKP1 / D 424: WORK(K-1,INVD+1) = -AKKP1 / D SRC/zsytrs_3.f: 255,38: IF( IPIV( I ).GT.0 ) THEN 256: CALL ZSCAL( NRHS, ONE / A( I, I ), B( I, 1 ), LDB ) 258,30: AKM1K = E( I ) 259: AKM1 = A( I-1, I-1 ) / AKM1K 259,44: AKM1 = A( I-1, I-1 ) / AKM1K 260: AK = A( I, I ) / AKM1K 262,30: DO J = 1, NRHS 263: BKM1 = B( I-1, J ) / AKM1K 263,45: BKM1 = B( I-1, J ) / AKM1K 264: BK = B( I, J ) / AKM1K 264,41: BK = B( I, J ) / AKM1K 265: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 265,55: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 266: B( I, J ) = ( AKM1*BK-BKM1 ) / DENOM 322,38: IF( IPIV( I ).GT.0 ) THEN 323: CALL ZSCAL( NRHS, ONE / A( I, I ), B( I, 1 ), LDB ) 325,30: AKM1K = E( I ) 326: AKM1 = A( I, I ) / AKM1K 326,40: AKM1 = A( I, I ) / AKM1K 327: AK = A( I+1, I+1 ) / AKM1K 329,31: DO J = 1, NRHS 330: BKM1 = B( I, J ) / AKM1K 330,43: BKM1 = B( I, J ) / AKM1K 331: BK = B( I+1, J ) / AKM1K 331,43: BK = B( I+1, J ) / AKM1K 332: B( I, J ) = ( AK*BKM1-BK ) / DENOM 332,53: B( I, J ) = ( AK*BKM1-BK ) / DENOM 333: B( I+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zsytrs_rook.f: 230,2: * 231: CALL ZSCAL( NRHS, CONE / A( K, K ), B( K, 1 ), LDB ) 259,32: AKM1K = A( K-1, K ) 260: AKM1 = A( K-1, K-1 ) / AKM1K 260,41: AKM1 = A( K-1, K-1 ) / AKM1K 261: AK = A( K, K ) / AKM1K 263,30: DO 20 J = 1, NRHS 264: BKM1 = B( K-1, J ) / AKM1K 264,42: BKM1 = B( K-1, J ) / AKM1K 265: BK = B( K, J ) / AKM1K 265,38: BK = B( K, J ) / AKM1K 266: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 266,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 267: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 370,2: * 371: CALL ZSCAL( NRHS, CONE / A( K, K ), B( K, 1 ), LDB ) 399,32: AKM1K = A( K+1, K ) 400: AKM1 = A( K, K ) / AKM1K 400,37: AKM1 = A( K, K ) / AKM1K 401: AK = A( K+1, K+1 ) / AKM1K 403,30: DO 70 J = 1, NRHS 404: BKM1 = B( K, J ) / AKM1K 404,40: BKM1 = B( K, J ) / AKM1K 405: BK = B( K+1, J ) / AKM1K 405,40: BK = B( K+1, J ) / AKM1K 406: B( K, J ) = ( AK*BKM1-BK ) / DENOM 406,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 407: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zsytrs.f: 214,2: * 215: CALL ZSCAL( NRHS, ONE / A( K, K ), B( K, 1 ), LDB ) 237,32: AKM1K = A( K-1, K ) 238: AKM1 = A( K-1, K-1 ) / AKM1K 238,41: AKM1 = A( K-1, K-1 ) / AKM1K 239: AK = A( K, K ) / AKM1K 241,30: DO 20 J = 1, NRHS 242: BKM1 = B( K-1, J ) / AKM1K 242,42: BKM1 = B( K-1, J ) / AKM1K 243: BK = B( K, J ) / AKM1K 243,38: BK = B( K, J ) / AKM1K 244: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 244,52: B( K-1, J ) = ( AK*BKM1-BK ) / DENOM 245: B( K, J ) = ( AKM1*BK-BKM1 ) / DENOM 340,2: * 341: CALL ZSCAL( NRHS, ONE / A( K, K ), B( K, 1 ), LDB ) 365,32: AKM1K = A( K+1, K ) 366: AKM1 = A( K, K ) / AKM1K 366,37: AKM1 = A( K, K ) / AKM1K 367: AK = A( K+1, K+1 ) / AKM1K 369,30: DO 70 J = 1, NRHS 370: BKM1 = B( K, J ) / AKM1K 370,40: BKM1 = B( K, J ) / AKM1K 371: BK = B( K+1, J ) / AKM1K 371,40: BK = B( K+1, J ) / AKM1K 372: B( K, J ) = ( AK*BKM1-BK ) / DENOM 372,50: B( K, J ) = ( AK*BKM1-BK ) / DENOM 373: B( K+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/zsytrs2.f: 228,38: IF( IPIV(I) .GT. 0 ) THEN 229: CALL ZSCAL( NRHS, ONE / A( I, I ), B( I, 1 ), LDB ) 232,34: AKM1K = WORK(I) 233: AKM1 = A( I-1, I-1 ) / AKM1K 233,47: AKM1 = A( I-1, I-1 ) / AKM1K 234: AK = A( I, I ) / AKM1K 236,36: DO 15 J = 1, NRHS 237: BKM1 = B( I-1, J ) / AKM1K 237,48: BKM1 = B( I-1, J ) / AKM1K 238: BK = B( I, J ) / AKM1K 238,44: BK = B( I, J ) / AKM1K 239: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 239,58: B( I-1, J ) = ( AK*BKM1-BK ) / DENOM 240: B( I, J ) = ( AKM1*BK-BKM1 ) / DENOM 305,38: IF( IPIV(I) .GT. 0 ) THEN 306: CALL ZSCAL( NRHS, ONE / A( I, I ), B( I, 1 ), LDB ) 308,34: AKM1K = WORK(I) 309: AKM1 = A( I, I ) / AKM1K 309,43: AKM1 = A( I, I ) / AKM1K 310: AK = A( I+1, I+1 ) / AKM1K 312,36: DO 25 J = 1, NRHS 313: BKM1 = B( I, J ) / AKM1K 313,46: BKM1 = B( I, J ) / AKM1K 314: BK = B( I+1, J ) / AKM1K 314,46: BK = B( I+1, J ) / AKM1K 315: B( I, J ) = ( AK*BKM1-BK ) / DENOM 315,56: B( I, J ) = ( AK*BKM1-BK ) / DENOM 316: B( I+1, J ) = ( AKM1*BK-BKM1 ) / DENOM SRC/ztptri.f: 195,30: IF( NOUNIT ) THEN 196: AP( JC+J-1 ) = ONE / AP( JC+J-1 ) 216,30: IF( NOUNIT ) THEN 217: AP( JC ) = ONE / AP( JC ) SRC/ztrti2.f: 170,30: IF( NOUNIT ) THEN 171: A( J, J ) = ONE / A( J, J ) 188,30: IF( NOUNIT ) THEN 189: A( J, J ) = ONE / A( J, J )