Lines Matching refs:ABS1
3040 DOUBLE PRECISION ABS1 local
3042 ABS1( CL ) = ABS( DBLE( CL ) ) + ABS( DIMAG( CL ) )
3063 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
3071 G( I ) = G( I ) + ABS1( A( K, I ) )*
3072 $ ABS1( B( K, J ) )
3079 G( I ) = G( I ) + ABS1( A( K, I ) )*
3080 $ ABS1( B( K, J ) )
3089 G( I ) = G( I ) + ABS1( A( I, K ) )*
3090 $ ABS1( B( J, K ) )
3097 G( I ) = G( I ) + ABS1( A( I, K ) )*
3098 $ ABS1( B( J, K ) )
3109 G( I ) = G( I ) + ABS1( A( K, I ) )*
3110 $ ABS1( B( J, K ) )
3118 G( I ) = G( I ) + ABS1( A( K, I ) )*
3119 $ ABS1( B( J, K ) )
3129 G( I ) = G( I ) + ABS1( A( K, I ) )*
3130 $ ABS1( B( J, K ) )
3137 G( I ) = G( I ) + ABS1( A( K, I ) )*
3138 $ ABS1( B( J, K ) )
3146 G( I ) = ABS1( ALPHA )*G( I ) +
3147 $ ABS1( BETA )*ABS1( C( I, J ) )
3154 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS