Lines Matching refs:ABS1
2469 REAL ABS1 local
2471 ABS1( CL ) = ABS( REAL( CL ) ) + ABS( AIMAG( CL ) )
2492 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
2500 G( I ) = G( I ) + ABS1( A( K, I ) )*
2501 $ ABS1( B( K, J ) )
2508 G( I ) = G( I ) + ABS1( A( K, I ) )*
2509 $ ABS1( B( K, J ) )
2518 G( I ) = G( I ) + ABS1( A( I, K ) )*
2519 $ ABS1( B( J, K ) )
2526 G( I ) = G( I ) + ABS1( A( I, K ) )*
2527 $ ABS1( B( J, K ) )
2538 G( I ) = G( I ) + ABS1( A( K, I ) )*
2539 $ ABS1( B( J, K ) )
2546 G( I ) = G( I ) + ABS1( A( K, I ) )*
2547 $ ABS1( B( J, K ) )
2556 G( I ) = G( I ) + ABS1( A( K, I ) )*
2557 $ ABS1( B( J, K ) )
2564 G( I ) = G( I ) + ABS1( A( K, I ) )*
2565 $ ABS1( B( J, K ) )
2573 G( I ) = ABS1( ALPHA )*G( I ) +
2574 $ ABS1( BETA )*ABS1( C( I, J ) )
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS