Revision 1172 branches/threaded2merge/src/linad99/gradstrc.cpp

gradstrc.cpp (revision 1172)
68 68
// *************************************************************
69 69
// *************************************************************
70 70
int ctlc_flag = 0;
71
int gradient_structure::Hybrid_bounded_flag=0;
72
DF_FILE * gradient_structure::fp=NULL;
73
char gradient_structure::cmpdif_file_name[61];
71
__thread int gradient_structure::Hybrid_bounded_flag = 0;
72
__thread DF_FILE* gradient_structure::fp = NULL;
73
__thread char gradient_structure::cmpdif_file_name[61];
74 74
//char gradient_structure::var_store_file_name[61];
75 75
int gradient_structure::NUM_RETURN_ARRAYS = 25;
76
double * gradient_structure::hessian_ptr=NULL;
76
__thread double* gradient_structure::hessian_ptr = NULL;
77 77
int gradient_structure::NUM_DEPENDENT_VARIABLES = 2000;
78 78
#if (defined(NO_DERIVS))
79 79
  int gradient_structure::no_derivatives = 0;
80 80
#endif
81
long int gradient_structure::max_last_offset = 0;
82
long int gradient_structure::NVAR = 0;
83
long int gradient_structure::TOTAL_BYTES = 0;
84
long int gradient_structure::PREVIOUS_TOTAL_BYTES = 0;
81
__thread long int gradient_structure::max_last_offset = 0;
82
__thread long int gradient_structure::NVAR = 0;
83
__thread long int gradient_structure::TOTAL_BYTES = 0;
84
__thread long int gradient_structure::PREVIOUS_TOTAL_BYTES = 0;
85 85
long int gradient_structure::USE_FOR_HESSIAN = 0;
86
dvariable** gradient_structure::RETURN_ARRAYS = NULL;
87
int gradient_structure::RETURN_ARRAYS_PTR;
88
dvariable ** gradient_structure::RETURN_PTR_CONTAINER = NULL;
89
int gradient_structure::RETURN_ARRAYS_SIZE = 70;
90
int gradient_structure::instances = 0;
86
__thread dvariable** gradient_structure::RETURN_ARRAYS = NULL;
87
__thread int gradient_structure::RETURN_ARRAYS_PTR = 0;
88
__thread dvariable** gradient_structure::RETURN_PTR_CONTAINER = NULL;
89
__thread int gradient_structure::RETURN_ARRAYS_SIZE = 70;
90
__thread int gradient_structure::instances = 0;
91 91
//int gradient_structure::RETURN_INDEX = 0;
92 92
//dvariable * gradient_structure::FRETURN = NULL;
93
dvariable * gradient_structure::MAX_RETURN = NULL;
94
dvariable * gradient_structure::MIN_RETURN = NULL;
95
dvariable * gradient_structure::RETURN_PTR = NULL;
93
__thread dvariable* gradient_structure::MAX_RETURN = NULL;
94
__thread dvariable* gradient_structure::MIN_RETURN = NULL;
95
__thread dvariable* gradient_structure::RETURN_PTR = NULL;
96 96
#ifdef __BORLANDC__
97
long int gradient_structure::GRADSTACK_BUFFER_SIZE = 4000000L;
98
long int gradient_structure::CMPDIF_BUFFER_SIZE=140000000L;
97
__thread long int gradient_structure::GRADSTACK_BUFFER_SIZE = 4000000L;
98
__thread long int gradient_structure::CMPDIF_BUFFER_SIZE = 140000000L;
99 99
#else
100
long long int gradient_structure::GRADSTACK_BUFFER_SIZE = 4000000L;
101
long long int gradient_structure::CMPDIF_BUFFER_SIZE=140000000L;
100
__thread long long int gradient_structure::GRADSTACK_BUFFER_SIZE = 4000000L;
101
__thread long long int gradient_structure::CMPDIF_BUFFER_SIZE = 140000000L;
102 102
#endif
103
__thread dependent_variables_information * gradient_structure::DEPVARS_INFO = NULL;
103 104

  
104
dependent_variables_information * gradient_structure::DEPVARS_INFO=NULL;
105

  
106
int gradient_structure::save_var_flag=0;
107
int gradient_structure::save_var_file_flag=0;
105
int gradient_structure::save_var_flag = 0;
106
__thread int gradient_structure::save_var_file_flag = 0;
108 107
//int gradient_structure::_GRADFILE_PTR = NULL; // should be int gradfile_handle;
109 108
//int gradient_structure::_GRADFILE_PTR1 = NULL; // should be int gradfile_handle;
110 109
//int gradient_structure::_GRADFILE_PTR2 = NULL; // should be int gradfile_handle;
111 110
//int gradient_structure::_VARSSAV_PTR = 0; // should be int gradfile_handle;
112 111

  
113
unsigned int gradient_structure::MAX_NVAR_OFFSET = 5000;
114
unsigned long gradient_structure::ARRAY_MEMBLOCK_SIZE = 0L; //js
115
dlist * gradient_structure::GRAD_LIST;
116
grad_stack * gradient_structure::GRAD_STACK1;
117
indvar_offset_list * gradient_structure::INDVAR_LIST = NULL;
118
arr_list * gradient_structure::ARR_LIST1 = NULL;
119
arr_list * gradient_structure::ARR_FREE_LIST1 = NULL;
112
__thread unsigned int gradient_structure::MAX_NVAR_OFFSET = 5000;
113
__thread unsigned long gradient_structure::ARRAY_MEMBLOCK_SIZE = 0L; //js
114
__thread dlist* gradient_structure::GRAD_LIST;
115
__thread grad_stack* gradient_structure::GRAD_STACK1;
116
__thread indvar_offset_list* gradient_structure::INDVAR_LIST = NULL;
117
__thread arr_list* gradient_structure::ARR_LIST1 = NULL;
118
__thread arr_list* gradient_structure::ARR_FREE_LIST1 = NULL;
120 119
int gradient_structure::MAX_DLINKS = 5000;
121 120

  
122 121
// note: ARRAY_MEMBLOCK stuff is set by tpl2cpp for historical reasons
......
124 123
//       - Ian Taylor 5/3/2012
125 124

  
126 125
//unsigned long int gradient_structure::ARRAY_MEMBLOCK_BASE = 0L;
126
/*
127 127
humungous_pointer gradient_structure::ARRAY_MEMBLOCK_BASE;
128 128
humungous_pointer gradient_structure::ARRAY_MEMBLOCK_BASEA;
129 129
humungous_pointer gradient_structure::ARRAY_MEMBLOCK_SAVE;
130
double * gradient_structure::variables_save=NULL;
131
void * farptr_norm(void *);
132
long int farptr_tolong(void *) ;
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff