| 409 | /*************** SpgmrFree *******************************************/ |
| 410 | |
| 411 | void SpgmrFree(SpgmrMem mem) |
| 412 | { |
| 413 | int i, l_max; |
| 414 | real **Hes; |
| 415 | |
| 416 | if (mem == NULL) return; |
| 417 | |
| 418 | l_max = mem->l_max; |
| 419 | Hes = mem->Hes; |
| 420 | |
| 421 | FreeVectorArray(mem->V, l_max); |
| 422 | for (i=0; i <= l_max; i++) free(Hes[i]); |
| 423 | free(Hes); |
| 424 | free(mem->givens); |
| 425 | N_VFree(mem->xcor); |
| 426 | free(mem->yg); |
| 427 | N_VFree(mem->vtemp); |
| 428 | |
| 429 | free(mem); |
| 430 | } |
| 431 | |
| 432 | |
| 433 | /*************** Private Helper Function: FreeVectorArray ************/ |
no test coverage detected