Lines Matching refs:ABS1
2471 DOUBLE PRECISION ABS1 local
2473 ABS1( CL ) = ABS( DBLE( CL ) ) + ABS( DIMAG( CL ) )
2494 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
2502 G( I ) = G( I ) + ABS1( A( K, I ) )*
2503 $ ABS1( B( K, J ) )
2510 G( I ) = G( I ) + ABS1( A( K, I ) )*
2511 $ ABS1( B( K, J ) )
2520 G( I ) = G( I ) + ABS1( A( I, K ) )*
2521 $ ABS1( B( J, K ) )
2528 G( I ) = G( I ) + ABS1( A( I, K ) )*
2529 $ ABS1( B( J, K ) )
2540 G( I ) = G( I ) + ABS1( A( K, I ) )*
2541 $ ABS1( B( J, K ) )
2549 G( I ) = G( I ) + ABS1( A( K, I ) )*
2550 $ ABS1( B( J, K ) )
2560 G( I ) = G( I ) + ABS1( A( K, I ) )*
2561 $ ABS1( B( J, K ) )
2568 G( I ) = G( I ) + ABS1( A( K, I ) )*
2569 $ ABS1( B( J, K ) )
2577 G( I ) = ABS1( ALPHA )*G( I ) +
2578 $ ABS1( BETA )*ABS1( C( I, J ) )
2585 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS