Revision 692 branches/merge-trunk-davef/src/linad99/sgradclc.cpp

sgradclc.cpp (revision 692)
180 180
     #endif
181 181
   }
182 182

  
183
    * gradient_structure::GRAD_STACK1->ptr->dep_addr  = 1;
183
    if (nvar>0)
184
      * gradient_structure::GRAD_STACK1->ptr->dep_addr  = 1;
184 185
    zptr = gradient_structure::GRAD_STACK1->ptr->dep_addr;
185 186

  
186 187
//double z;
......
301 302
  }
302 303
  else
303 304
  {
304
     humungous_pointer src = ARRAY_MEMBLOCK_BASE;
305
     char * src = ARRAY_MEMBLOCK_BASE;
306
     //humungous_pointer src = ARRAY_MEMBLOCK_BASE;
305 307
     lseek(gradient_structure::GRAD_STACK1->_VARSSAV_PTR,0L,SEEK_SET);
306 308
     #if defined(DOS386)
307 309
     //#if DOS386==1
......
345 347
     unsigned long max_move=50000;
346 348

  
347 349
     long int left_to_move=bytes_needed;
348
     humungous_pointer src = ARRAY_MEMBLOCK_SAVE;
349
     humungous_pointer dest = ARRAY_MEMBLOCK_BASE;
350
     //humungous_pointer src = ARRAY_MEMBLOCK_SAVE;
351
     //humungous_pointer dest = ARRAY_MEMBLOCK_BASE;
352
     char *  src = ARRAY_MEMBLOCK_SAVE;
353
     char * dest = ARRAY_MEMBLOCK_BASE;
350 354
     while(left_to_move > max_move)
351 355
     {
352 356
       memcpy((char*)dest,(char*)src,max_move);
......
356 360
     }
357 361
     memcpy((char*)dest,(char*)src,left_to_move);
358 362
    #endif
359
    ARRAY_MEMBLOCK_SAVE.free();
363
    free(ARRAY_MEMBLOCK_SAVE);
364
    ARRAY_MEMBLOCK_SAVE=0;
360 365
  }
361 366
  else
362 367
  {
363
    humungous_pointer dest = ARRAY_MEMBLOCK_BASE;
368
    //humungous_pointer dest = ARRAY_MEMBLOCK_BASE;
369
    char * dest = ARRAY_MEMBLOCK_BASE;
364 370
    lseek(gradient_structure::GRAD_STACK1->_VARSSAV_PTR,0L,SEEK_SET);
365 371
    #if defined(DOS386)
366 372
    // #if DOS386==1

Also available in: Unified diff