This subroutine sets vector to zero ********************************************************************/
| 349 | This subroutine sets vector to zero |
| 350 | ********************************************************************/ |
| 351 | void ialglib::vzero_complex(int n, ap::complex *p, int stride) |
| 352 | { |
| 353 | int i; |
| 354 | if( stride==1 ) |
| 355 | { |
| 356 | for(i=0; i<n; i++,p++) |
| 357 | { |
| 358 | p->x = 0.0; |
| 359 | p->y = 0.0; |
| 360 | } |
| 361 | } |
| 362 | else |
| 363 | { |
| 364 | for(i=0; i<n; i++,p+=stride) |
| 365 | { |
| 366 | p->x = 0.0; |
| 367 | p->y = 0.0; |
| 368 | } |
| 369 | } |
| 370 | } |
| 371 | |
| 372 | |
| 373 | /******************************************************************** |
nothing calls this directly
no outgoing calls
no test coverage detected