Revision 1110 trunk/src/df1b2-separable/df1b2f22.cpp

df1b2f22.cpp (revision 1110)
22 22
    const adstring & _s)
23 23
  {
24 24
    f=_f;
25
    df=_df; 
26
    d2f=_d2f; 
25
    df=_df;
26
    d2f=_d2f;
27 27
    d3f=_d3f;
28 28
    funname=_s;
29 29
  }
......
46 46
    {
47 47
      *zd++ =dfx * *xd++ ;
48 48
    }
49
    
49

  
50 50
    // WRITE WHATEVER ON TAPE
51 51
    if (!df1b2_gradlist::no_derivatives)
52 52
      f1b2gradlist->write_pass1c(&x,y,&z,this);
......
59 59
 * Description not yet available.
60 60
 * \param
61 61
 */
62
 int df1b2_gradlist::write_pass1c(const df1b2variable * _px, 
62
 int df1b2_gradlist::write_pass1c(const df1b2variable * _px,
63 63
   double py,df1b2variable * pz,df1b2function2c * pf)
64 64
 {
65 65
   ADUNCONST(df1b2variable*,px)
......
109 109
/**
110 110
 * Description not yet available.
111 111
 * \param
112
 */  
112
 */
113 113
void ad_read_pass2c(void)
114 114
{
115 115
  switch(df1b2variable::passnumber)
......
124 124
    read_pass2_3c();
125 125
    break;
126 126
  default:
127
    cerr << "illegal value for df1b2variable::pass = " 
127
    cerr << "illegal value for df1b2variable::pass = "
128 128
         << df1b2variable::passnumber << endl;
129 129
    exit(1);
130 130
  }
......
140 140
  // and  forward for bptr2 and nbptr2
141 141
  // the current entry+2 in bptr is the size of the record i.e
142 142
  // points to the next record
143
  //char * bptr=f1b2gradlist->bptr; 
144
  //char * bptr2=f1b2gradlist2->bptr; 
143
  //char * bptr=f1b2gradlist->bptr;
144
  //char * bptr2=f1b2gradlist2->bptr;
145 145
  int nvar=df1b2variable::nvar;
146
  test_smartlist& list=f1b2gradlist->list; 
146
  test_smartlist& list=f1b2gradlist->list;
147 147
  //f1b2gradlist->nlist-=sizeof(int);
148 148
  int num_bytes=f1b2gradlist->nlist.bptr->numbytes;
149 149
  list-=num_bytes;
......
174 174
  //double * ydot=(double*)bptr;
175 175

  
176 176
  list.restoreposition(); // save pointer to beginning of record;
177
 
177

  
178 178
  // ****************************************************************
179 179
  // turn this off if no third derivatives are calculated
180 180
  // if (!no_third_derivatives)
......
206 206
  //
207 207
  // ****************************************************************
208 208
#if defined(PRINT_DERS)
209
 print_derivatives(pz,"z"); 
210
 print_derivatives(px,"x"); 
209
 print_derivatives(pz,"z");
210
 print_derivatives(px,"x");
211 211
#endif
212 212
#if defined(__DERCHECK__)
213 213
  if (derchecker)
......
224 224
        case 1:
225 225
          if (!derchecker->dotflag)
226 226
            px->u_bar[derchecker->index-1]+=derchecker->delta;
227
          else 
227
          else
228 228
            px->u_dot_bar[derchecker->index-1]+=derchecker->delta;
229 229
          break;
230 230
        case 2:
......
235 235
            pz->u_dot_bar[derchecker->index-1]+=derchecker->delta;
236 236
          break;
237 237
        default:
238
          cerr << "Invalid index value for dercheck_index was " 
238
          cerr << "Invalid index value for dercheck_index was "
239 239
               << derchecker->index << endl;
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff