- storage = (programs + i)->storage;
- storage_size = (programs + i)->storage_size;
- if (nbobs > storage_size) {
- storage = realloc (storage, nbobs * sizeof (double));
- storage_size = nbobs;
+ storage = (programs + n)->storage;
+ storage_size = (programs + n)->storage_size;
+ if (nbops > storage_size) {
+ storage = realloc (storage, nbops * sizeof (double));
+ storage_size = nbops;