| 103 | |
| 104 | |
| 105 | int rowidxabsmax(const ap::real_2d_array& x, int j1, int j2, int i) |
| 106 | { |
| 107 | int result; |
| 108 | int j; |
| 109 | double a; |
| 110 | |
| 111 | result = j1; |
| 112 | a = fabs(x(i,result)); |
| 113 | for(j = j1+1; j <= j2; j++) |
| 114 | { |
| 115 | if( ap::fp_greater(fabs(x(i,j)),fabs(x(i,result))) ) |
| 116 | { |
| 117 | result = j; |
| 118 | } |
| 119 | } |
| 120 | return result; |
| 121 | } |
| 122 | |
| 123 | |
| 124 | double upperhessenberg1norm(const ap::real_2d_array& a, |
nothing calls this directly
no outgoing calls
no test coverage detected