Lines Matching refs:ABS1
3090 REAL ABS1 local
3092 ABS1( CL ) = ABS( REAL( CL ) ) + ABS( AIMAG( CL ) )
3113 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
3121 G( I ) = G( I ) + ABS1( A( K, I ) )*
3122 $ ABS1( B( K, J ) )
3129 G( I ) = G( I ) + ABS1( A( K, I ) )*
3130 $ ABS1( B( K, J ) )
3139 G( I ) = G( I ) + ABS1( A( I, K ) )*
3140 $ ABS1( B( J, K ) )
3147 G( I ) = G( I ) + ABS1( A( I, K ) )*
3148 $ ABS1( B( J, K ) )
3159 G( I ) = G( I ) + ABS1( A( K, I ) )*
3160 $ ABS1( B( J, K ) )
3167 G( I ) = G( I ) + ABS1( A( K, I ) )*
3168 $ ABS1( B( J, K ) )
3177 G( I ) = G( I ) + ABS1( A( K, I ) )*
3178 $ ABS1( B( J, K ) )
3185 G( I ) = G( I ) + ABS1( A( K, I ) )*
3186 $ ABS1( B( J, K ) )
3194 G( I ) = ABS1( ALPHA )*G( I ) +
3195 $ ABS1( BETA )*ABS1( C( I, J ) )
3202 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS