home *** CD-ROM | disk | FTP | other *** search
- /*
- ### reallocate memory for 1-d double precision vector ###
- */
-
- void rdvector(v,nl,nh)
- int nl,nh;
- double *v;
- {
- double *vt;
- vt = (double *) realloc(v,(unsigned) (nh - nl + 1) * sizeof(double));
- if (!vt) {
- system_mess_proc(1,"rdvector: memory reallocation failure!");
- v = vt;
- }
- else {
- v = vt-nl;
- }
- }
-