Changeset aad4ca4 in git for Singular/svd/reflections.h
- Timestamp:
- Dec 6, 2017, 7:05:25 PM (6 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 06b3e84d21e073249ada6d3b863bb3b8ce91d3be
- Parents:
- 3803c6a39fad57f9a8e12942b2928c215504e027
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/svd/reflections.h
r3803c6 raad4ca4 122 122 123 123 124 124 125 125 // 126 126 // Executable Statements .. … … 131 131 return; 132 132 } 133 133 134 134 // 135 135 // XNORM = DNRM2( N-1, X, INCX ) … … 152 152 if( xnorm==0 ) 153 153 { 154 154 155 155 // 156 156 // H = I … … 159 159 return; 160 160 } 161 161 162 162 // 163 163 // general case … … 223 223 return; 224 224 } 225 225 226 226 // 227 227 // w := C' * v … … 237 237 ap::vadd(work.getvector(n1, n2), c.getrow(i, n1, n2), t); 238 238 } 239 239 240 240 // 241 241 // C := C - tau * v * w' … … 296 296 return; 297 297 } 298 298 299 299 // 300 300 // w := C * v … … 306 306 work(i) = t; 307 307 } 308 308 309 309 // 310 310 // C := C - w * v'
Note: See TracChangeset
for help on using the changeset viewer.