Revision 1574 trunk/src/linad99/gradstrc.cpp

gradstrc.cpp (revision 1574)
166 166
 extern char ad_random_part[6];
167 167

  
168 168
/**
169
 * Description not yet available.
170
 * \param
171
 */
169
Close gradient and variable files.  Free gradient structure memory.
170
*/
172 171
void cleanup_temporary_files()
173 172
{
174 173
   if (gradient_structure::fp)
......
436 435
     gradient_structure::hessian_ptr= (double*) GRAD_STACK1->true_ptr_first;
437 436
   }
438 437
    #ifdef DIAG
439
      #ifdef __ZTC__
440
        cout << "GRAD_STACK1= "<<_farptr_tolong(GRAD_STACK1)<<"\n";
441
      #else
442 438
        cout << "GRAD_STACK1= "<< farptr_tolong(GRAD_STACK1)<<"\n";
443
      #endif
444 439
    #endif
445 440

  
446 441
   if ( INDVAR_LIST!= NULL)

Also available in: Unified diff