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

df1b2fn5.cpp (revision 1110)
24 24
 * Description not yet available.
25 25
 * \param
26 26
 */
27
void df1b2variable::operator = (double d) 
27
void df1b2variable::operator = (double d)
28 28
{
29 29
  initialize();
30 30
  //ptr[blocksize-1]=8219.4;
......
42 42
 * Description not yet available.
43 43
 * \param
44 44
 */
45
df1b2variable::df1b2variable(double d) 
45
df1b2variable::df1b2variable(double d)
46 46
{
47 47
  // vectors are all 1,...,nvar
48 48
  ptr = (double*) pool->alloc();
49
  //AD_ALLOCATE(ptr,double,blocksize,df1b2variable) 
49
  //AD_ALLOCATE(ptr,double,blocksize,df1b2variable)
50 50
  initialize();
51 51
  double * block=ptr;
52 52
  //block[blocksize-1]=8219.4;
53 53
  get_ind_index()=-1;
54 54
  ncopies=&(((twointsandptr*)block)->ncopies);
55 55
  *ncopies=0;
56
  u=block+=2;   
56
  u=block+=2;
57 57
  u_dot=block+=1;  // u has size 1
58
  u_bar=block+=nvar;  // u_dot has size  nvar        
59
  u_dot_bar=block+=nvar;  // u_bar has size  nvar                     
60
  u_tilde=block+=nvar; // u_dot_bar has size  nvar  
58
  u_bar=block+=nvar;  // u_dot has size  nvar
59
  u_dot_bar=block+=nvar;  // u_bar has size  nvar
60
  u_tilde=block+=nvar; // u_dot_bar has size  nvar
61 61
  u_dot_tilde=block+=1;  // u_tilde has size 1
62 62
  u_bar_tilde=block+=nvar; // u_dot_tilde has size nvar
63 63
  u_dot_bar_tilde=block+=nvar;  // u_bar_tilde has size nvar
......
70 70
 * Description not yet available.
71 71
 * \param
72 72
 */
73
df1b2variable::df1b2variable(void) 
73
df1b2variable::df1b2variable(void)
74 74
{
75 75
  if (!df1b2variable::noallocate)
76 76
  {
......
81 81
    ptr=0;
82 82
#if defined(SAFE_ALL)
83 83
  ncopies=0;
84
  u=0;  
85
  u_dot=0;  
86
  u_bar=0;  
87
  u_dot_bar=0; 
88
  u_tilde=0; 
84
  u=0;
85
  u_dot=0;
86
  u_bar=0;
87
  u_dot_bar=0;
88
  u_tilde=0;
89 89
  u_dot_tilde=0;
90 90
  u_bar_tilde=0;
91 91
  u_dot_bar_tilde=0;
......
97 97
 * Description not yet available.
98 98
 * \param
99 99
 */
100
df1b2variable::df1b2variable(const newadkludge* z) 
100
df1b2variable::df1b2variable(const newadkludge* z)
101 101
{
102 102
  ptr=0;
103 103
#if defined(SAFE_ALL)
104 104
  ncopies=0;
105
  u=0;  
106
  u_dot=0;  
107
  u_bar=0;  
108
  u_dot_bar=0; 
109
  u_tilde=0; 
105
  u=0;
106
  u_dot=0;
107
  u_bar=0;
108
  u_dot_bar=0;
109
  u_tilde=0;
110 110
  u_dot_tilde=0;
111 111
  u_bar_tilde=0;
112 112
  u_dot_bar_tilde=0;
......
117 117
 * Description not yet available.
118 118
 * \param
119 119
 */
120
void df1b2variable::allocate(void) 
120
void df1b2variable::allocate(void)
121 121
{
122 122
  // vectors are all 1,...,nvar
123 123
  ptr = (double*) pool->alloc();
124 124
  //cout << *(int*)ptr << endl;
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff