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

df1b2f23.cpp (revision 1110)
29 29
    {
30 30
      *zd++ =dfy * *yd++ ;
31 31
    }
32
    
32

  
33 33
    // WRITE WHATEVER ON TAPE
34 34
    if (!df1b2_gradlist::no_derivatives)
35 35
      f1b2gradlist->write_pass1c(x,&y,&z,this);
......
42 42
 * Description not yet available.
43 43
 * \param
44 44
 */
45
 int df1b2_gradlist::write_pass1c(double px,const df1b2variable * _py, 
45
 int df1b2_gradlist::write_pass1c(double px,const df1b2variable * _py,
46 46
   df1b2variable * pz,df1b2function2c * pf)
47 47
 {
48 48
   ADUNCONST(df1b2variable*,py)
......
89 89
/**
90 90
 * Description not yet available.
91 91
 * \param
92
 */  
92
 */
93 93
void ad_read_pass2c1(void)
94 94
{
95 95
  switch(df1b2variable::passnumber)
......
104 104
    read_pass2_3c1();
105 105
    break;
106 106
  default:
107
    cerr << "illegal value for df1b2variable::pass = " 
107
    cerr << "illegal value for df1b2variable::pass = "
108 108
         << df1b2variable::passnumber << endl;
109 109
    exit(1);
110 110
  }
......
120 120
  // and  forward for bptr2 and nbptr2
121 121
  // the current entry+2 in bptr is the size of the record i.e
122 122
  // points to the next record
123
  //char * bptr=f1b2gradlist->bptr; 
124
  //char * bptr2=f1b2gradlist2->bptr; 
123
  //char * bptr=f1b2gradlist->bptr;
124
  //char * bptr2=f1b2gradlist2->bptr;
125 125
  int nvar=df1b2variable::nvar;
126
  test_smartlist& list=f1b2gradlist->list; 
126
  test_smartlist& list=f1b2gradlist->list;
127 127
  //f1b2gradlist->nlist-=sizeof(int);
128 128
  int num_bytes=f1b2gradlist->nlist.bptr->numbytes;
129 129
  list-=num_bytes;
......
150 150
  double * ydot=(double*)bptr;
151 151

  
152 152
  list.restoreposition(); // save pointer to beginning of record;
153
 
153

  
154 154
  // ****************************************************************
155 155
  // turn this off if no third derivatives are calculated
156 156
  // if (!no_third_derivatives)
......
182 182
  //
183 183
  // ****************************************************************
184 184
#if defined(PRINT_DERS)
185
 print_derivatives(pz,"z"); 
186
 print_derivatives(py,"x"); 
185
 print_derivatives(pz,"z");
186
 print_derivatives(py,"x");
187 187
#endif
188 188
#if defined(__DERCHECK__)
189 189
  if (derchecker)
......
200 200
        case 1:
201 201
          if (!derchecker->dotflag)
202 202
            py->u_bar[derchecker->index-1]+=derchecker->delta;
203
          else 
203
          else
204 204
            py->u_dot_bar[derchecker->index-1]+=derchecker->delta;
205 205
          break;
206 206
        case 2:
......
211 211
            pz->u_dot_bar[derchecker->index-1]+=derchecker->delta;
212 212
          break;
213 213
        default:
214
          cerr << "Invalid index value for dercheck_index was " 
214
          cerr << "Invalid index value for dercheck_index was "
215 215
               << derchecker->index << endl;
216 216
          break;
217 217
        }
......
222 222
        case 1:
223 223
          if (!derchecker->dotflag)
224 224
            py->u_bar[derchecker->index-1]-=derchecker->delta;
225
          else 
225
          else
226 226
            py->u_dot_bar[derchecker->index-1]-=derchecker->delta;
227 227
          break;
228 228
        case 2:
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff