Lines Matching refs:ABS1
3098 DOUBLE PRECISION ABS1 local
3100 ABS1( CL ) = ABS( DBLE( CL ) ) + ABS( DIMAG( CL ) )
3121 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
3129 G( I ) = G( I ) + ABS1( A( K, I ) )*
3130 $ ABS1( B( K, J ) )
3137 G( I ) = G( I ) + ABS1( A( K, I ) )*
3138 $ ABS1( B( K, J ) )
3147 G( I ) = G( I ) + ABS1( A( I, K ) )*
3148 $ ABS1( B( J, K ) )
3155 G( I ) = G( I ) + ABS1( A( I, K ) )*
3156 $ ABS1( B( J, K ) )
3167 G( I ) = G( I ) + ABS1( A( K, I ) )*
3168 $ ABS1( B( J, K ) )
3176 G( I ) = G( I ) + ABS1( A( K, I ) )*
3177 $ ABS1( B( J, K ) )
3187 G( I ) = G( I ) + ABS1( A( K, I ) )*
3188 $ ABS1( B( J, K ) )
3195 G( I ) = G( I ) + ABS1( A( K, I ) )*
3196 $ ABS1( B( J, K ) )
3204 G( I ) = ABS1( ALPHA )*G( I ) +
3205 $ ABS1( BETA )*ABS1( C( I, J ) )
3212 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS