Lines Matching refs:ABS1
3036 REAL ABS1 local
3038 ABS1( CL ) = ABS( REAL( CL ) ) + ABS( AIMAG( CL ) )
3059 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
3067 G( I ) = G( I ) + ABS1( A( K, I ) )*
3068 $ ABS1( B( K, J ) )
3075 G( I ) = G( I ) + ABS1( A( K, I ) )*
3076 $ ABS1( B( K, J ) )
3085 G( I ) = G( I ) + ABS1( A( I, K ) )*
3086 $ ABS1( B( J, K ) )
3093 G( I ) = G( I ) + ABS1( A( I, K ) )*
3094 $ ABS1( B( J, K ) )
3105 G( I ) = G( I ) + ABS1( A( K, I ) )*
3106 $ ABS1( B( J, K ) )
3113 G( I ) = G( I ) + ABS1( A( K, I ) )*
3114 $ ABS1( B( J, K ) )
3123 G( I ) = G( I ) + ABS1( A( K, I ) )*
3124 $ ABS1( B( J, K ) )
3131 G( I ) = G( I ) + ABS1( A( K, I ) )*
3132 $ ABS1( B( J, K ) )
3140 G( I ) = ABS1( ALPHA )*G( I ) +
3141 $ ABS1( BETA )*ABS1( C( I, J ) )
3148 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS