line |
true |
false |
branch |
70
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
71
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
72
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
73
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
74
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
80
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
83
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
86
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
89
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
92
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
95
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
98
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
101
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
104
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
107
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
110
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
133
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
136
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
139
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
142
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
145
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
148
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
151
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
154
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
157
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
160
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
163
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
203
|
0 |
0 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
204
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
206
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
208
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
209
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
213
|
0 |
0 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
214
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
216
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
218
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
219
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
224
|
0 |
0 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
225
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
227
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
229
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
230
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
235
|
0 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
236
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
238
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
240
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
241
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
246
|
0 |
0 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
247
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
249
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
251
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
252
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
257
|
0 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
258
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
260
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
262
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
263
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
268
|
0 |
0 |
if(!__creating[6]) { |
269
|
0 |
0 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
270
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
272
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
274
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
275
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
283
|
0 |
0 |
}if(!__creating[7]) { |
284
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 2) { |
285
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
286
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
288
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
290
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
291
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
295
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
297
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
298
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[1] != 1) { |
306
|
0 |
0 |
}if(!__creating[8]) { |
310
|
0 |
0 |
}if(!__creating[9]) { |
311
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
312
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
314
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
316
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
317
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
325
|
0 |
0 |
}if(!__creating[10]) { |
326
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
327
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
329
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
331
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
332
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
345
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
346
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
352
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
353
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
359
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
360
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
366
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
367
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
373
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
374
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
380
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
381
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
387
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
388
|
0 |
0 |
!__creating[6] && |
389
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
395
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
396
|
0 |
0 |
!__creating[7] && |
397
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
403
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
404
|
0 |
0 |
!__creating[8] && |
405
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
411
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
412
|
0 |
0 |
!__creating[9] && |
413
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
419
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
420
|
0 |
0 |
!__creating[10] && |
421
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
427
|
0 |
0 |
if (hdrp) { |
428
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
436
|
0 |
0 |
PUSHMARK(SP) ; |
437
|
0 |
0 |
XPUSHs( hdrp ); |
441
|
0 |
0 |
if(count != 1) |
446
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
450
|
0 |
0 |
FREETMPS ; |
456
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
457
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
459
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
463
|
0 |
0 |
if(propagate_hdrcpy) |
465
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
466
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
468
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
472
|
0 |
0 |
if(propagate_hdrcpy) |
474
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
475
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
477
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
481
|
0 |
0 |
if(propagate_hdrcpy) |
483
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
484
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
486
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
490
|
0 |
0 |
if(propagate_hdrcpy) |
492
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
493
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
495
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
499
|
0 |
0 |
if(propagate_hdrcpy) |
502
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
506
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
508
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
510
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
512
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
514
|
0 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
516
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
518
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
520
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
522
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
524
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
526
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
548
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
552
|
0 |
0 |
if(__copy->__ddone) { |
570
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
573
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
576
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
579
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
582
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
585
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
588
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
591
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
594
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
597
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
600
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
629
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
668
|
0 |
0 |
for( __tind2 = 0 ; |
684
|
0 |
0 |
for( __tind1 = 0 ; |
701
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
702
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
705
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
730
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
733
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
736
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
739
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
742
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
745
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
748
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
751
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
754
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
757
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
760
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
763
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
792
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
831
|
0 |
0 |
for( __tind2 = 0 ; |
847
|
0 |
0 |
for( __tind1 = 0 ; |
864
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
865
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
868
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
893
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
912
|
0 |
0 |
if(__privtrans->__ddone) { |
959
|
9 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
9 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
960
|
9 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
9 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
961
|
9 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
9 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
962
|
9 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
9 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
963
|
9 |
0 |
__creating[11] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[11]); |
|
9 |
0 |
__creating[11] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[11]); |
969
|
0 |
3 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
972
|
0 |
3 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
975
|
0 |
3 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
978
|
0 |
3 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
981
|
0 |
3 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
984
|
0 |
3 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
987
|
0 |
3 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
990
|
0 |
3 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
993
|
0 |
3 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
996
|
0 |
3 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
999
|
0 |
3 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
1002
|
0 |
3 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
1026
|
0 |
6 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
1029
|
0 |
6 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
1032
|
0 |
6 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
1035
|
0 |
6 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
1038
|
0 |
6 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
1041
|
0 |
6 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
1044
|
0 |
6 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
1047
|
0 |
6 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
1050
|
0 |
6 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
1053
|
0 |
6 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
1056
|
0 |
6 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
1059
|
0 |
6 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
1100
|
0 |
9 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
1101
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1103
|
0 |
9 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
1105
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
1106
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
1110
|
0 |
9 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
1111
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
1113
|
0 |
9 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
1115
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
1116
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
1121
|
0 |
9 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
1122
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
1124
|
0 |
9 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
1126
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
1127
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
1132
|
0 |
9 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
1133
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1135
|
9 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
9 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
9 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
1137
|
9 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
9 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
1138
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
1143
|
0 |
9 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
1144
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1146
|
9 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
9 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
9 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
1148
|
9 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
9 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[4]))->dims[0]) { |
1149
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
1154
|
9 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
1155
|
9 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
9 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
1157
|
9 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
9 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
1159
|
0 |
9 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[5]))->dims[0]) { |
1160
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
1165
|
0 |
9 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
1166
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
1168
|
0 |
9 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
1170
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[6]))->dims[0]) { |
1171
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
1176
|
0 |
9 |
if(!__creating[7]) { |
1177
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 1) { |
1178
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
1180
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
1182
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[7]))->dims[0]) { |
1183
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
1191
|
0 |
9 |
}if(!__creating[8]) { |
1192
|
0 |
0 |
if(((__privtrans->pdls[8]))->ndims < 2) { |
1193
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1194
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1196
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
1198
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
1199
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[0] != 1) { |
1203
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
1205
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[1]) { |
1206
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[1] != 1) { |
1214
|
9 |
0 |
}if(!__creating[9]) { |
1218
|
0 |
9 |
}if(!__creating[10]) { |
1219
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
1220
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
1222
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
1224
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[10]))->dims[0]) { |
1225
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
1233
|
0 |
9 |
}if(!__creating[11]) { |
1234
|
0 |
0 |
if(((__privtrans->pdls[11]))->ndims < 1) { |
1235
|
0 |
0 |
if (((__privtrans->pdls[11]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[11]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
1237
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
1239
|
0 |
0 |
} else if(((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[11]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[11]))->dims[0]) { |
1240
|
0 |
0 |
if(((__privtrans->pdls[11]))->dims[0] != 1) { |
1253
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1254
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
1260
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1261
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
1267
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1268
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
1274
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1275
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
1281
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1282
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
1288
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1289
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
1295
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1296
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
1302
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1303
|
0 |
0 |
!__creating[7] && |
1304
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
1310
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1311
|
0 |
0 |
!__creating[8] && |
1312
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
1318
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1319
|
0 |
0 |
!__creating[9] && |
1320
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
1326
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1327
|
0 |
0 |
!__creating[10] && |
1328
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
1334
|
9 |
0 |
if(!hdrp && |
|
0 |
9 |
if(!hdrp && |
1335
|
0 |
0 |
!__creating[11] && |
1336
|
0 |
0 |
__privtrans->pdls[11]->hdrsv && |
1342
|
0 |
9 |
if (hdrp) { |
1343
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
1351
|
0 |
0 |
PUSHMARK(SP) ; |
1352
|
0 |
0 |
XPUSHs( hdrp ); |
1356
|
0 |
0 |
if(count != 1) |
1361
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
1365
|
0 |
0 |
FREETMPS ; |
1371
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
1372
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
1374
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
1378
|
0 |
0 |
if(propagate_hdrcpy) |
1380
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
1381
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
1383
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
1387
|
0 |
0 |
if(propagate_hdrcpy) |
1389
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
1390
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
1392
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
1396
|
0 |
0 |
if(propagate_hdrcpy) |
1398
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
1399
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
1401
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
1405
|
0 |
0 |
if(propagate_hdrcpy) |
1407
|
0 |
0 |
if ( __privtrans->pdls[11]->hdrsv != hdrp ){ |
1408
|
0 |
0 |
if( __privtrans->pdls[11]->hdrsv && __privtrans->pdls[11]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[11]->hdrsv && __privtrans->pdls[11]->hdrsv != &PL_sv_undef) |
1410
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
1414
|
0 |
0 |
if(propagate_hdrcpy) |
1417
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
1421
|
9 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
9 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
1423
|
0 |
9 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
9 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
1425
|
9 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
8 |
1 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
1427
|
9 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
1429
|
9 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
1431
|
0 |
9 |
__privtrans->__inc_ub_m = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
1433
|
9 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_iopts_in = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
1435
|
9 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
1437
|
9 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_work_wn = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
1439
|
9 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 1 || __privtrans->pdls[8]->dims[1] <= 1) |
|
0 |
9 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 1 || __privtrans->pdls[8]->dims[1] <= 1) |
1441
|
9 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[8]->dimincs[1];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[8]->dimincs[1];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
1443
|
9 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[10]->dimincs[0];if(__privtrans->pdls[11]->ndims <= 0 || __privtrans->pdls[11]->dims[0] <= 1) |
|
0 |
9 |
__privtrans->__inc_pout_m = __privtrans->pdls[10]->dimincs[0];if(__privtrans->pdls[11]->ndims <= 0 || __privtrans->pdls[11]->dims[0] <= 1) |
1465
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
1469
|
0 |
0 |
if(__copy->__ddone) { |
1487
|
0 |
3 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
1490
|
0 |
3 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
1493
|
0 |
3 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
1496
|
0 |
3 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
1499
|
0 |
3 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
1502
|
0 |
3 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
1505
|
0 |
3 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
1508
|
0 |
3 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
1511
|
0 |
3 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
1514
|
0 |
3 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
1517
|
0 |
3 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
1520
|
0 |
3 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
1550
|
0 |
3 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
1592
|
3 |
3 |
for( __tind2 = 0 ; |
1609
|
3 |
3 |
for( __tind1 = 0 ; |
1627
|
12 |
3 |
for(m=0; m<(__m_size); m++) { |
1628
|
0 |
12 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
12 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
1631
|
3 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
1657
|
0 |
3 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
1660
|
0 |
6 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
1663
|
0 |
6 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
1666
|
0 |
6 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
1669
|
0 |
6 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
1672
|
0 |
6 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
1675
|
0 |
6 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
1678
|
0 |
6 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
1681
|
0 |
6 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
1684
|
0 |
6 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
1687
|
0 |
6 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
1690
|
0 |
6 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
1693
|
0 |
6 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
1723
|
0 |
6 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
1765
|
6 |
6 |
for( __tind2 = 0 ; |
1782
|
8 |
6 |
for( __tind1 = 0 ; |
1800
|
31 |
8 |
for(m=0; m<(__m_size); m++) { |
1801
|
0 |
31 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
31 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
1804
|
8 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
1830
|
0 |
6 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
1849
|
9 |
0 |
if(__privtrans->__ddone) { |
1895
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
1896
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
1897
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
1898
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
1899
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
1905
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
1908
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
1911
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
1914
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
1917
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
1920
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
1923
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
1926
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
1929
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
1932
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
1935
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
1958
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
1961
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
1964
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
1967
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
1970
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
1973
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
1976
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
1979
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
1982
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
1985
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
1988
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
2028
|
0 |
0 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
2029
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2031
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2033
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
2034
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
2038
|
0 |
0 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
2039
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
2041
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
2043
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
2044
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
2049
|
0 |
0 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
2050
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
2052
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
2054
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
2055
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
2060
|
0 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
2061
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2063
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2065
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
2066
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
2071
|
0 |
0 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
2072
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
2074
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
2076
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
2077
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
2082
|
0 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
2083
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
2085
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
2087
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
2088
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
2093
|
0 |
0 |
if(!__creating[6]) { |
2094
|
0 |
0 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
2095
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
2097
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
2099
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
2100
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
2108
|
0 |
0 |
}if(!__creating[7]) { |
2109
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 2) { |
2110
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2111
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2113
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2115
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
2116
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
2120
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
2122
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
2123
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[1] != 1) { |
2131
|
0 |
0 |
}if(!__creating[8]) { |
2135
|
0 |
0 |
}if(!__creating[9]) { |
2136
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
2137
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2139
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2141
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
2142
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
2150
|
0 |
0 |
}if(!__creating[10]) { |
2151
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
2152
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
2154
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
2156
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
2157
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
2170
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2171
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
2177
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2178
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
2184
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2185
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
2191
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2192
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
2198
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2199
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
2205
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2206
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
2212
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2213
|
0 |
0 |
!__creating[6] && |
2214
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
2220
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2221
|
0 |
0 |
!__creating[7] && |
2222
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
2228
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2229
|
0 |
0 |
!__creating[8] && |
2230
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
2236
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2237
|
0 |
0 |
!__creating[9] && |
2238
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
2244
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
2245
|
0 |
0 |
!__creating[10] && |
2246
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
2252
|
0 |
0 |
if (hdrp) { |
2253
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
2261
|
0 |
0 |
PUSHMARK(SP) ; |
2262
|
0 |
0 |
XPUSHs( hdrp ); |
2266
|
0 |
0 |
if(count != 1) |
2271
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
2275
|
0 |
0 |
FREETMPS ; |
2281
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
2282
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
2284
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
2288
|
0 |
0 |
if(propagate_hdrcpy) |
2290
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
2291
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
2293
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
2297
|
0 |
0 |
if(propagate_hdrcpy) |
2299
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
2300
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
2302
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
2306
|
0 |
0 |
if(propagate_hdrcpy) |
2308
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
2309
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
2311
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
2315
|
0 |
0 |
if(propagate_hdrcpy) |
2317
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
2318
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
2320
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
2324
|
0 |
0 |
if(propagate_hdrcpy) |
2327
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
2331
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
2333
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
2335
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
2337
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
2339
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
2341
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
2343
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
2345
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
2347
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
2349
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
2351
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
2373
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
2377
|
0 |
0 |
if(__copy->__ddone) { |
2395
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
2398
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
2401
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
2404
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
2407
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
2410
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
2413
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
2416
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
2419
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
2422
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
2425
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
2454
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
2493
|
0 |
0 |
for( __tind2 = 0 ; |
2509
|
0 |
0 |
for( __tind1 = 0 ; |
2526
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
2527
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
2530
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
2555
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
2558
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
2561
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
2564
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
2567
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
2570
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
2573
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
2576
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
2579
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
2582
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
2585
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
2588
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
2617
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
2656
|
0 |
0 |
for( __tind2 = 0 ; |
2672
|
0 |
0 |
for( __tind1 = 0 ; |
2689
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
2690
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
2693
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
2718
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
2737
|
0 |
0 |
if(__privtrans->__ddone) { |
2782
|
60 |
0 |
__creating[5] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[5]); |
|
59 |
1 |
__creating[5] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[5]); |
2783
|
60 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
59 |
1 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
2784
|
60 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
60 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
2785
|
60 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
60 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
2786
|
60 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
60 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
2792
|
0 |
6 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
2795
|
0 |
6 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
2798
|
0 |
6 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
2801
|
0 |
6 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
2804
|
0 |
6 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
2807
|
0 |
6 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
2810
|
0 |
6 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
2813
|
0 |
6 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
2816
|
0 |
6 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
2819
|
0 |
6 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
2841
|
3 |
51 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
3 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
2844
|
3 |
51 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
3 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
2847
|
0 |
54 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
2850
|
0 |
54 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
2853
|
0 |
54 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
2856
|
0 |
54 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
2859
|
0 |
54 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
2862
|
0 |
54 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
2865
|
0 |
54 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
2868
|
0 |
54 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
2907
|
0 |
60 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
2908
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2910
|
0 |
60 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2912
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
2913
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
2917
|
0 |
60 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
2918
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
2920
|
0 |
60 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
2922
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
2923
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
2928
|
0 |
60 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
2929
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
2931
|
0 |
60 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
2933
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
2934
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
2939
|
60 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
2940
|
60 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
60 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
2942
|
60 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
60 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
2944
|
0 |
60 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[3]))->dims[0]) { |
2945
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
2950
|
0 |
60 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
2951
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
2953
|
0 |
60 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
2955
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[4]))->dims[0]) { |
2956
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
2961
|
1 |
59 |
if(!__creating[5]) { |
2962
|
0 |
1 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
2963
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
2965
|
1 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
1 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
1 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
2967
|
1 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
1 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[5]))->dims[0]) { |
2968
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
2976
|
1 |
59 |
}if(!__creating[6]) { |
2977
|
0 |
1 |
if(((__privtrans->pdls[6]))->ndims < 2) { |
2978
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2979
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
2981
|
1 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
1 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
1 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
2983
|
1 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
1 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[0]) { |
2984
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
2988
|
1 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
1 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
1 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
2990
|
1 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[1]) { |
|
0 |
1 |
} else if(((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[1]) { |
2991
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[1] != 1) { |
2999
|
60 |
0 |
}if(!__creating[7]) { |
3003
|
0 |
60 |
}if(!__creating[8]) { |
3004
|
0 |
0 |
if(((__privtrans->pdls[8]))->ndims < 1) { |
3005
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3007
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
3009
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
3010
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[0] != 1) { |
3018
|
0 |
60 |
}if(!__creating[9]) { |
3019
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
3020
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
3022
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
3024
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[9]))->dims[0]) { |
3025
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
3038
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3039
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
3045
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3046
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
3052
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3053
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
3059
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3060
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
3066
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3067
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
3073
|
60 |
0 |
if(!hdrp && |
|
1 |
59 |
if(!hdrp && |
3074
|
0 |
1 |
!__creating[5] && |
3075
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
3081
|
60 |
0 |
if(!hdrp && |
|
1 |
59 |
if(!hdrp && |
3082
|
0 |
1 |
!__creating[6] && |
3083
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
3089
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3090
|
0 |
0 |
!__creating[7] && |
3091
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
3097
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3098
|
0 |
0 |
!__creating[8] && |
3099
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
3105
|
60 |
0 |
if(!hdrp && |
|
0 |
60 |
if(!hdrp && |
3106
|
0 |
0 |
!__creating[9] && |
3107
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
3113
|
0 |
60 |
if (hdrp) { |
3114
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
3122
|
0 |
0 |
PUSHMARK(SP) ; |
3123
|
0 |
0 |
XPUSHs( hdrp ); |
3127
|
0 |
0 |
if(count != 1) |
3132
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
3136
|
0 |
0 |
FREETMPS ; |
3142
|
0 |
0 |
if ( __privtrans->pdls[5]->hdrsv != hdrp ){ |
3143
|
0 |
0 |
if( __privtrans->pdls[5]->hdrsv && __privtrans->pdls[5]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[5]->hdrsv && __privtrans->pdls[5]->hdrsv != &PL_sv_undef) |
3145
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
3149
|
0 |
0 |
if(propagate_hdrcpy) |
3151
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
3152
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
3154
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
3158
|
0 |
0 |
if(propagate_hdrcpy) |
3160
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
3161
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
3163
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
3167
|
0 |
0 |
if(propagate_hdrcpy) |
3169
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
3170
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
3172
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
3176
|
0 |
0 |
if(propagate_hdrcpy) |
3178
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
3179
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
3181
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
3185
|
0 |
0 |
if(propagate_hdrcpy) |
3188
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
3192
|
60 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
60 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
3194
|
3 |
57 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
60 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
3196
|
60 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
12 |
48 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
3198
|
0 |
60 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
3200
|
60 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_iopts_in = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
3202
|
60 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
3204
|
60 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_work_wn = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
3206
|
60 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 1 || __privtrans->pdls[6]->dims[1] <= 1) |
|
0 |
60 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 1 || __privtrans->pdls[6]->dims[1] <= 1) |
3208
|
60 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[6]->dimincs[1];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[6]->dimincs[1];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
3210
|
60 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
60 |
__privtrans->__inc_pout_m = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
3232
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
3236
|
0 |
0 |
if(__copy->__ddone) { |
3254
|
0 |
6 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
3257
|
0 |
6 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
3260
|
0 |
6 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
3263
|
0 |
6 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
3266
|
0 |
6 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
3269
|
0 |
6 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
3272
|
0 |
6 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
3275
|
0 |
6 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
3278
|
0 |
6 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
3281
|
0 |
6 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
3309
|
0 |
6 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
3345
|
6 |
6 |
for( __tind2 = 0 ; |
3360
|
6 |
6 |
for( __tind1 = 0 ; |
3376
|
12 |
6 |
for(m=0; m<(__m_size); m++) { |
3377
|
0 |
12 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
12 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
3380
|
6 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
3404
|
0 |
6 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
3407
|
3 |
51 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
3 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
3410
|
3 |
51 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
3 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
3413
|
0 |
54 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
3416
|
0 |
54 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
3419
|
0 |
54 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
3422
|
0 |
54 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
3425
|
0 |
54 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
3428
|
0 |
54 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
3431
|
0 |
54 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
3434
|
0 |
54 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
3462
|
0 |
54 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
3498
|
66 |
54 |
for( __tind2 = 0 ; |
3513
|
119 |
66 |
for( __tind1 = 0 ; |
3529
|
250 |
119 |
for(m=0; m<(__m_size); m++) { |
3530
|
0 |
250 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
250 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
3533
|
119 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
3557
|
0 |
54 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
3576
|
60 |
0 |
if(__privtrans->__ddone) { |
3622
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
3623
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
3624
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
3625
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
3626
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
3632
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
3635
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
3638
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
3641
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
3644
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
3647
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
3650
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
3653
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
3656
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
3659
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
3662
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
3685
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
3688
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
3691
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
3694
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
3697
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
3700
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
3703
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
3706
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
3709
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
3712
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
3715
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
3755
|
0 |
0 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
3756
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3758
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
3760
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
3761
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
3765
|
0 |
0 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
3766
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
3768
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
3770
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
3771
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
3776
|
0 |
0 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
3777
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
3779
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
3781
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
3782
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
3787
|
0 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
3788
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3790
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
3792
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
3793
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
3798
|
0 |
0 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
3799
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
3801
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
3803
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
3804
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
3809
|
0 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
3810
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
3812
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
3814
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
3815
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
3820
|
0 |
0 |
if(!__creating[6]) { |
3821
|
0 |
0 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
3822
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
3824
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
3826
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
3827
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
3835
|
0 |
0 |
}if(!__creating[7]) { |
3836
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 2) { |
3837
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3838
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3840
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
3842
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
3843
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
3847
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
3849
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
3850
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[1] != 1) { |
3858
|
0 |
0 |
}if(!__creating[8]) { |
3862
|
0 |
0 |
}if(!__creating[9]) { |
3863
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
3864
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
3866
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
3868
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
3869
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
3877
|
0 |
0 |
}if(!__creating[10]) { |
3878
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
3879
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
3881
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
3883
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
3884
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
3897
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3898
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
3904
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3905
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
3911
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3912
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
3918
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3919
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
3925
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3926
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
3932
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3933
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
3939
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3940
|
0 |
0 |
!__creating[6] && |
3941
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
3947
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3948
|
0 |
0 |
!__creating[7] && |
3949
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
3955
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3956
|
0 |
0 |
!__creating[8] && |
3957
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
3963
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3964
|
0 |
0 |
!__creating[9] && |
3965
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
3971
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
3972
|
0 |
0 |
!__creating[10] && |
3973
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
3979
|
0 |
0 |
if (hdrp) { |
3980
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
3988
|
0 |
0 |
PUSHMARK(SP) ; |
3989
|
0 |
0 |
XPUSHs( hdrp ); |
3993
|
0 |
0 |
if(count != 1) |
3998
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
4002
|
0 |
0 |
FREETMPS ; |
4008
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
4009
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
4011
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4015
|
0 |
0 |
if(propagate_hdrcpy) |
4017
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
4018
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
4020
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4024
|
0 |
0 |
if(propagate_hdrcpy) |
4026
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
4027
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
4029
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4033
|
0 |
0 |
if(propagate_hdrcpy) |
4035
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
4036
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
4038
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4042
|
0 |
0 |
if(propagate_hdrcpy) |
4044
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
4045
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
4047
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4051
|
0 |
0 |
if(propagate_hdrcpy) |
4054
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
4058
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
4060
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
4062
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
4064
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
4066
|
0 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
4068
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
4070
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
4072
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
4074
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
4076
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
4078
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
4100
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
4104
|
0 |
0 |
if(__copy->__ddone) { |
4122
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
4125
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
4128
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
4131
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
4134
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
4137
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
4140
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
4143
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
4146
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
4149
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
4152
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
4180
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
4219
|
0 |
0 |
for( __tind2 = 0 ; |
4235
|
0 |
0 |
for( __tind1 = 0 ; |
4252
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
4253
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
4256
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
4281
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
4284
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
4287
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
4290
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
4293
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
4296
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
4299
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
4302
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
4305
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
4308
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
4311
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
4314
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
4342
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
4381
|
0 |
0 |
for( __tind2 = 0 ; |
4397
|
0 |
0 |
for( __tind1 = 0 ; |
4414
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
4415
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
4418
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
4443
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
4462
|
0 |
0 |
if(__privtrans->__ddone) { |
4509
|
5 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
5 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
4510
|
5 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
5 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
4511
|
5 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
5 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
4512
|
5 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
5 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
4513
|
5 |
0 |
__creating[11] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[11]); |
|
5 |
0 |
__creating[11] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[11]); |
4519
|
0 |
2 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
4522
|
0 |
2 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
4525
|
0 |
2 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
4528
|
0 |
2 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
4531
|
0 |
2 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
4534
|
0 |
2 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
4537
|
0 |
2 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
4540
|
0 |
2 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
4543
|
0 |
2 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
4546
|
0 |
2 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
4549
|
0 |
2 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
4552
|
0 |
2 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
4576
|
0 |
3 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
4579
|
0 |
3 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
4582
|
0 |
3 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
4585
|
0 |
3 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
4588
|
0 |
3 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
4591
|
0 |
3 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
4594
|
0 |
3 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
4597
|
0 |
3 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
4600
|
0 |
3 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
4603
|
0 |
3 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
4606
|
0 |
3 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
4609
|
0 |
3 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
4650
|
0 |
5 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
4651
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4653
|
0 |
5 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
4655
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
4656
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
4660
|
0 |
5 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
4661
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
4663
|
0 |
5 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
4665
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
4666
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
4671
|
0 |
5 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
4672
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
4674
|
0 |
5 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
4676
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
4677
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
4682
|
0 |
5 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
4683
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4685
|
5 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
5 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
5 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
4687
|
5 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
5 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
4688
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
4693
|
0 |
5 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
4694
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4696
|
5 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
5 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
5 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size == 1)) { |
4698
|
5 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
5 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[4]))->dims[0]) { |
4699
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
4704
|
5 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
4705
|
5 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
5 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
4707
|
5 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
5 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size == 1)) { |
4709
|
0 |
5 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[5]))->dims[0]) { |
4710
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
4715
|
0 |
5 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
4716
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
4718
|
0 |
5 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
4720
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[6]))->dims[0]) { |
4721
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
4726
|
0 |
5 |
if(!__creating[7]) { |
4727
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 1) { |
4728
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
4730
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
4732
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[7]))->dims[0]) { |
4733
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
4741
|
0 |
5 |
}if(!__creating[8]) { |
4742
|
0 |
0 |
if(((__privtrans->pdls[8]))->ndims < 2) { |
4743
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4744
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4746
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
4748
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
4749
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[0] != 1) { |
4753
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size == 1)) { |
4755
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[1]) { |
4756
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[1] != 1) { |
4764
|
5 |
0 |
}if(!__creating[9]) { |
4768
|
0 |
5 |
}if(!__creating[10]) { |
4769
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
4770
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
4772
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size == 1)) { |
4774
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[10]))->dims[0]) { |
4775
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
4783
|
0 |
5 |
}if(!__creating[11]) { |
4784
|
0 |
0 |
if(((__privtrans->pdls[11]))->ndims < 1) { |
4785
|
0 |
0 |
if (((__privtrans->pdls[11]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[11]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
4787
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size == 1)) { |
4789
|
0 |
0 |
} else if(((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[11]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[11]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[11]))->dims[0]) { |
4790
|
0 |
0 |
if(((__privtrans->pdls[11]))->dims[0] != 1) { |
4803
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4804
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
4810
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4811
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
4817
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4818
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
4824
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4825
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
4831
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4832
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
4838
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4839
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
4845
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4846
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
4852
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4853
|
0 |
0 |
!__creating[7] && |
4854
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
4860
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4861
|
0 |
0 |
!__creating[8] && |
4862
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
4868
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4869
|
0 |
0 |
!__creating[9] && |
4870
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
4876
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4877
|
0 |
0 |
!__creating[10] && |
4878
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
4884
|
5 |
0 |
if(!hdrp && |
|
0 |
5 |
if(!hdrp && |
4885
|
0 |
0 |
!__creating[11] && |
4886
|
0 |
0 |
__privtrans->pdls[11]->hdrsv && |
4892
|
0 |
5 |
if (hdrp) { |
4893
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
4901
|
0 |
0 |
PUSHMARK(SP) ; |
4902
|
0 |
0 |
XPUSHs( hdrp ); |
4906
|
0 |
0 |
if(count != 1) |
4911
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
4915
|
0 |
0 |
FREETMPS ; |
4921
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
4922
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
4924
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4928
|
0 |
0 |
if(propagate_hdrcpy) |
4930
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
4931
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
4933
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4937
|
0 |
0 |
if(propagate_hdrcpy) |
4939
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
4940
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
4942
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4946
|
0 |
0 |
if(propagate_hdrcpy) |
4948
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
4949
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
4951
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4955
|
0 |
0 |
if(propagate_hdrcpy) |
4957
|
0 |
0 |
if ( __privtrans->pdls[11]->hdrsv != hdrp ){ |
4958
|
0 |
0 |
if( __privtrans->pdls[11]->hdrsv && __privtrans->pdls[11]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[11]->hdrsv && __privtrans->pdls[11]->hdrsv != &PL_sv_undef) |
4960
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
4964
|
0 |
0 |
if(propagate_hdrcpy) |
4967
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
4971
|
5 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
5 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
4973
|
0 |
5 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
5 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
4975
|
5 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
4 |
1 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
4977
|
5 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
4979
|
5 |
0 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_lb_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
4981
|
0 |
5 |
__privtrans->__inc_ub_m = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
4983
|
5 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_iopts_in = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
4985
|
5 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
4987
|
5 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_work_wn = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
4989
|
5 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 1 || __privtrans->pdls[8]->dims[1] <= 1) |
|
0 |
5 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[8]->ndims <= 1 || __privtrans->pdls[8]->dims[1] <= 1) |
4991
|
5 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[8]->dimincs[1];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[8]->dimincs[1];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
4993
|
5 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[10]->dimincs[0];if(__privtrans->pdls[11]->ndims <= 0 || __privtrans->pdls[11]->dims[0] <= 1) |
|
0 |
5 |
__privtrans->__inc_pout_m = __privtrans->pdls[10]->dimincs[0];if(__privtrans->pdls[11]->ndims <= 0 || __privtrans->pdls[11]->dims[0] <= 1) |
5015
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
5019
|
0 |
0 |
if(__copy->__ddone) { |
5037
|
0 |
2 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
5040
|
0 |
2 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
5043
|
0 |
2 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
5046
|
0 |
2 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * lb_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
5049
|
0 |
2 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
5052
|
0 |
2 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
5055
|
0 |
2 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
5058
|
0 |
2 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
5061
|
0 |
2 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
5064
|
0 |
2 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
5067
|
0 |
2 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
5070
|
0 |
2 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
5099
|
0 |
2 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
5141
|
2 |
2 |
for( __tind2 = 0 ; |
5158
|
2 |
2 |
for( __tind1 = 0 ; |
5176
|
8 |
2 |
for(m=0; m<(__m_size); m++) { |
5177
|
0 |
8 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
8 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
5180
|
2 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
5206
|
0 |
2 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
5209
|
0 |
3 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
5212
|
0 |
3 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
5215
|
0 |
3 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
5218
|
0 |
3 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * lb_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
5221
|
0 |
3 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
5224
|
0 |
3 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
5227
|
0 |
3 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
5230
|
0 |
3 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
5233
|
0 |
3 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
5236
|
0 |
3 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
5239
|
0 |
3 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
5242
|
0 |
3 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[11]),(__privtrans->vtable->per_pdl_flags[11])))); |
5271
|
0 |
3 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
5313
|
3 |
3 |
for( __tind2 = 0 ; |
5330
|
3 |
3 |
for( __tind1 = 0 ; |
5348
|
11 |
3 |
for(m=0; m<(__m_size); m++) { |
5349
|
0 |
11 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
11 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
5352
|
3 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
5378
|
0 |
3 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
5397
|
5 |
0 |
if(__privtrans->__ddone) { |
5443
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
0 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
5444
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
0 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
5445
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
0 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
5446
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
0 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
5447
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
|
0 |
0 |
__creating[10] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[10]); |
5453
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
5456
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
5459
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
5462
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
5465
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
5468
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
5471
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
5474
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
5477
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
5480
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
5483
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
5506
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
5509
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
5512
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
5515
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
5518
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
5521
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
5524
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
5527
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
5530
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
5533
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
5536
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
5576
|
0 |
0 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
5577
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
5579
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
5581
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
5582
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
5586
|
0 |
0 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
5587
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
5589
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
5591
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
5592
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
5597
|
0 |
0 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
5598
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
5600
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
5602
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
5603
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
5608
|
0 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
5609
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
5611
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size == 1)) { |
5613
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[3]))->dims[0]) { |
5614
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
5619
|
0 |
0 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
5620
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
5622
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size == 1)) { |
5624
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[4]))->dims[0]) { |
5625
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
5630
|
0 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
5631
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
5633
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
5635
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[5]))->dims[0]) { |
5636
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
5641
|
0 |
0 |
if(!__creating[6]) { |
5642
|
0 |
0 |
if(((__privtrans->pdls[6]))->ndims < 1) { |
5643
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
5645
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
5647
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[6]))->dims[0]) { |
5648
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
5656
|
0 |
0 |
}if(!__creating[7]) { |
5657
|
0 |
0 |
if(((__privtrans->pdls[7]))->ndims < 2) { |
5658
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
5659
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[7]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
5661
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size == 1)) { |
5663
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[0]) { |
5664
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[0] != 1) { |
5668
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size == 1)) { |
5670
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[7]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[7]))->dims[1]) { |
5671
|
0 |
0 |
if(((__privtrans->pdls[7]))->dims[1] != 1) { |
5679
|
0 |
0 |
}if(!__creating[8]) { |
5683
|
0 |
0 |
}if(!__creating[9]) { |
5684
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
5685
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
5687
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size == 1)) { |
5689
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[9]))->dims[0]) { |
5690
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
5698
|
0 |
0 |
}if(!__creating[10]) { |
5699
|
0 |
0 |
if(((__privtrans->pdls[10]))->ndims < 1) { |
5700
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[10]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
5702
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size == 1)) { |
5704
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[10]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[10]))->dims[0]) { |
5705
|
0 |
0 |
if(((__privtrans->pdls[10]))->dims[0] != 1) { |
5718
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5719
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
5725
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5726
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
5732
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5733
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
5739
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5740
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
5746
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5747
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
5753
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5754
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
5760
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5761
|
0 |
0 |
!__creating[6] && |
5762
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
5768
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5769
|
0 |
0 |
!__creating[7] && |
5770
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
5776
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5777
|
0 |
0 |
!__creating[8] && |
5778
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
5784
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5785
|
0 |
0 |
!__creating[9] && |
5786
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
5792
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
5793
|
0 |
0 |
!__creating[10] && |
5794
|
0 |
0 |
__privtrans->pdls[10]->hdrsv && |
5800
|
0 |
0 |
if (hdrp) { |
5801
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
5809
|
0 |
0 |
PUSHMARK(SP) ; |
5810
|
0 |
0 |
XPUSHs( hdrp ); |
5814
|
0 |
0 |
if(count != 1) |
5819
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
5823
|
0 |
0 |
FREETMPS ; |
5829
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
5830
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
5832
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
5836
|
0 |
0 |
if(propagate_hdrcpy) |
5838
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
5839
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
5841
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
5845
|
0 |
0 |
if(propagate_hdrcpy) |
5847
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
5848
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
5850
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
5854
|
0 |
0 |
if(propagate_hdrcpy) |
5856
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
5857
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
5859
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
5863
|
0 |
0 |
if(propagate_hdrcpy) |
5865
|
0 |
0 |
if ( __privtrans->pdls[10]->hdrsv != hdrp ){ |
5866
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[10]->hdrsv && __privtrans->pdls[10]->hdrsv != &PL_sv_undef) |
5868
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
5872
|
0 |
0 |
if(propagate_hdrcpy) |
5875
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
5879
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
5881
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
5883
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
5885
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
5887
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_ub_m = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
5889
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
5891
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
5893
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 0 || __privtrans->pdls[7]->dims[0] <= 1) |
5895
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[7]->dimincs[0];if(__privtrans->pdls[7]->ndims <= 1 || __privtrans->pdls[7]->dims[1] <= 1) |
5897
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[7]->dimincs[1];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
5899
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[9]->dimincs[0];if(__privtrans->pdls[10]->ndims <= 0 || __privtrans->pdls[10]->dims[0] <= 1) |
5921
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
5925
|
0 |
0 |
if(__copy->__ddone) { |
5943
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
5946
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
5949
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
5952
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Float * ub_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
5955
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
5958
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
5961
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
5964
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
5967
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
5970
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
5973
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
6001
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
6040
|
0 |
0 |
for( __tind2 = 0 ; |
6056
|
0 |
0 |
for( __tind1 = 0 ; |
6073
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
6074
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
6077
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
6102
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
6105
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
6108
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
6111
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
6114
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Double * ub_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
6117
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
6120
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
6123
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
6126
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
6129
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
6132
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
6135
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[10]),(__privtrans->vtable->per_pdl_flags[10])))); |
6163
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
6202
|
0 |
0 |
for( __tind2 = 0 ; |
6218
|
0 |
0 |
for( __tind1 = 0 ; |
6235
|
0 |
0 |
for(m=0; m<(__m_size); m++) { |
6236
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
0 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
6239
|
0 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
6264
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
6283
|
0 |
0 |
if(__privtrans->__ddone) { |
6328
|
15 |
0 |
__creating[5] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[5]); |
|
15 |
0 |
__creating[5] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[5]); |
6329
|
15 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
|
15 |
0 |
__creating[6] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[6]); |
6330
|
15 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
|
15 |
0 |
__creating[7] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[7]); |
6331
|
15 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
|
15 |
0 |
__creating[8] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[8]); |
6332
|
15 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
|
15 |
0 |
__creating[9] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[9]); |
6338
|
0 |
5 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
6341
|
0 |
5 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
6344
|
0 |
5 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
6347
|
0 |
5 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
6350
|
0 |
5 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
6353
|
0 |
5 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
6356
|
0 |
5 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
6359
|
0 |
5 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
6362
|
0 |
5 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
6365
|
0 |
5 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
6387
|
0 |
10 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
6390
|
0 |
10 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
6393
|
0 |
10 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
6396
|
0 |
10 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
6399
|
0 |
10 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
6402
|
0 |
10 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
6405
|
0 |
10 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
6408
|
0 |
10 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
6411
|
0 |
10 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
6414
|
0 |
10 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
6453
|
0 |
15 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
6454
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
6456
|
0 |
15 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
6458
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
6459
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
6463
|
0 |
15 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
6464
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
6466
|
0 |
15 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
6468
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
6469
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
6474
|
0 |
15 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
6475
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__nt_size <= 1) __privtrans->__nt_size = 1; |
6477
|
0 |
15 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nt_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size == 1)) { |
6479
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__nt_size != ((__privtrans->pdls[2]))->dims[0]) { |
6480
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
6485
|
15 |
0 |
if(((__privtrans->pdls[3]))->ndims < 1) { |
6486
|
15 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
|
15 |
0 |
if (((__privtrans->pdls[3]))->ndims < 1 && __privtrans->__in_size <= 1) __privtrans->__in_size = 1; |
6488
|
15 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
15 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
|
0 |
0 |
if(__privtrans->__in_size == -1 || (((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size == 1)) { |
6490
|
0 |
15 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[3]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[3]))->ndims > 0 && __privtrans->__in_size != ((__privtrans->pdls[3]))->dims[0]) { |
6491
|
0 |
0 |
if(((__privtrans->pdls[3]))->dims[0] != 1) { |
6496
|
0 |
15 |
if(((__privtrans->pdls[4]))->ndims < 1) { |
6497
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[4]))->ndims < 1 && __privtrans->__nopt_size <= 1) __privtrans->__nopt_size = 1; |
6499
|
0 |
15 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
|
0 |
0 |
if(__privtrans->__nopt_size == -1 || (((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size == 1)) { |
6501
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[4]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[4]))->ndims > 0 && __privtrans->__nopt_size != ((__privtrans->pdls[4]))->dims[0]) { |
6502
|
0 |
0 |
if(((__privtrans->pdls[4]))->dims[0] != 1) { |
6507
|
0 |
15 |
if(!__creating[5]) { |
6508
|
0 |
0 |
if(((__privtrans->pdls[5]))->ndims < 1) { |
6509
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[5]))->ndims < 1 && __privtrans->__wn_size <= 1) __privtrans->__wn_size = 1; |
6511
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
|
0 |
0 |
if(__privtrans->__wn_size == -1 || (((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size == 1)) { |
6513
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[5]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[5]))->ndims > 0 && __privtrans->__wn_size != ((__privtrans->pdls[5]))->dims[0]) { |
6514
|
0 |
0 |
if(((__privtrans->pdls[5]))->dims[0] != 1) { |
6522
|
0 |
15 |
}if(!__creating[6]) { |
6523
|
0 |
0 |
if(((__privtrans->pdls[6]))->ndims < 2) { |
6524
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
6525
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[6]))->ndims < 2 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
6527
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size == 1)) { |
6529
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[0]) { |
6530
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[0] != 1) { |
6534
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size == 1)) { |
6536
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[1]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[6]))->ndims > 1 && __privtrans->__m_size != ((__privtrans->pdls[6]))->dims[1]) { |
6537
|
0 |
0 |
if(((__privtrans->pdls[6]))->dims[1] != 1) { |
6545
|
15 |
0 |
}if(!__creating[7]) { |
6549
|
0 |
15 |
}if(!__creating[8]) { |
6550
|
0 |
0 |
if(((__privtrans->pdls[8]))->ndims < 1) { |
6551
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[8]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
6553
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size == 1)) { |
6555
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[8]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[8]))->dims[0]) { |
6556
|
0 |
0 |
if(((__privtrans->pdls[8]))->dims[0] != 1) { |
6564
|
0 |
15 |
}if(!__creating[9]) { |
6565
|
0 |
0 |
if(((__privtrans->pdls[9]))->ndims < 1) { |
6566
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[9]))->ndims < 1 && __privtrans->__q_size <= 1) __privtrans->__q_size = 1; |
6568
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
|
0 |
0 |
if(__privtrans->__q_size == -1 || (((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size == 1)) { |
6570
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[9]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[9]))->ndims > 0 && __privtrans->__q_size != ((__privtrans->pdls[9]))->dims[0]) { |
6571
|
0 |
0 |
if(((__privtrans->pdls[9]))->dims[0] != 1) { |
6584
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6585
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
6591
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6592
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
6598
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6599
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
6605
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6606
|
0 |
0 |
__privtrans->pdls[3]->hdrsv && |
6612
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6613
|
0 |
0 |
__privtrans->pdls[4]->hdrsv && |
6619
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6620
|
0 |
0 |
!__creating[5] && |
6621
|
0 |
0 |
__privtrans->pdls[5]->hdrsv && |
6627
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6628
|
0 |
0 |
!__creating[6] && |
6629
|
0 |
0 |
__privtrans->pdls[6]->hdrsv && |
6635
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6636
|
0 |
0 |
!__creating[7] && |
6637
|
0 |
0 |
__privtrans->pdls[7]->hdrsv && |
6643
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6644
|
0 |
0 |
!__creating[8] && |
6645
|
0 |
0 |
__privtrans->pdls[8]->hdrsv && |
6651
|
15 |
0 |
if(!hdrp && |
|
0 |
15 |
if(!hdrp && |
6652
|
0 |
0 |
!__creating[9] && |
6653
|
0 |
0 |
__privtrans->pdls[9]->hdrsv && |
6659
|
0 |
15 |
if (hdrp) { |
6660
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
6668
|
0 |
0 |
PUSHMARK(SP) ; |
6669
|
0 |
0 |
XPUSHs( hdrp ); |
6673
|
0 |
0 |
if(count != 1) |
6678
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
6682
|
0 |
0 |
FREETMPS ; |
6688
|
0 |
0 |
if ( __privtrans->pdls[5]->hdrsv != hdrp ){ |
6689
|
0 |
0 |
if( __privtrans->pdls[5]->hdrsv && __privtrans->pdls[5]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[5]->hdrsv && __privtrans->pdls[5]->hdrsv != &PL_sv_undef) |
6691
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
6695
|
0 |
0 |
if(propagate_hdrcpy) |
6697
|
0 |
0 |
if ( __privtrans->pdls[6]->hdrsv != hdrp ){ |
6698
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[6]->hdrsv && __privtrans->pdls[6]->hdrsv != &PL_sv_undef) |
6700
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
6704
|
0 |
0 |
if(propagate_hdrcpy) |
6706
|
0 |
0 |
if ( __privtrans->pdls[7]->hdrsv != hdrp ){ |
6707
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[7]->hdrsv && __privtrans->pdls[7]->hdrsv != &PL_sv_undef) |
6709
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
6713
|
0 |
0 |
if(propagate_hdrcpy) |
6715
|
0 |
0 |
if ( __privtrans->pdls[8]->hdrsv != hdrp ){ |
6716
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[8]->hdrsv && __privtrans->pdls[8]->hdrsv != &PL_sv_undef) |
6718
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
6722
|
0 |
0 |
if(propagate_hdrcpy) |
6724
|
0 |
0 |
if ( __privtrans->pdls[9]->hdrsv != hdrp ){ |
6725
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[9]->hdrsv && __privtrans->pdls[9]->hdrsv != &PL_sv_undef) |
6727
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
6731
|
0 |
0 |
if(propagate_hdrcpy) |
6734
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
6738
|
15 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
15 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
6740
|
0 |
15 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
15 |
0 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_p_m = PDL_REPRINC(__privtrans->pdls[0],0);if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
6742
|
15 |
0 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
9 |
6 |
__privtrans->__inc_x_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
6744
|
0 |
15 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_t_nt = __privtrans->pdls[2]->dimincs[0];if(__privtrans->pdls[3]->ndims <= 0 || __privtrans->pdls[3]->dims[0] <= 1) |
6746
|
15 |
0 |
__privtrans->__inc_iopts_in = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_iopts_in = __privtrans->pdls[3]->dimincs[0];if(__privtrans->pdls[4]->ndims <= 0 || __privtrans->pdls[4]->dims[0] <= 1) |
6748
|
15 |
0 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_opts_nopt = __privtrans->pdls[4]->dimincs[0];if(__privtrans->pdls[5]->ndims <= 0 || __privtrans->pdls[5]->dims[0] <= 1) |
6750
|
15 |
0 |
__privtrans->__inc_work_wn = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_work_wn = __privtrans->pdls[5]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 0 || __privtrans->pdls[6]->dims[0] <= 1) |
6752
|
15 |
0 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 1 || __privtrans->pdls[6]->dims[1] <= 1) |
|
0 |
15 |
__privtrans->__inc_covar_m0 = __privtrans->pdls[6]->dimincs[0];if(__privtrans->pdls[6]->ndims <= 1 || __privtrans->pdls[6]->dims[1] <= 1) |
6754
|
15 |
0 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[6]->dimincs[1];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_covar_m1 = __privtrans->pdls[6]->dimincs[1];if(__privtrans->pdls[8]->ndims <= 0 || __privtrans->pdls[8]->dims[0] <= 1) |
6756
|
15 |
0 |
__privtrans->__inc_pout_m = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
|
0 |
15 |
__privtrans->__inc_pout_m = __privtrans->pdls[8]->dimincs[0];if(__privtrans->pdls[9]->ndims <= 0 || __privtrans->pdls[9]->dims[0] <= 1) |
6778
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
6782
|
0 |
0 |
if(__copy->__ddone) { |
6800
|
0 |
5 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
6803
|
0 |
5 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * x_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
6806
|
0 |
5 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
6809
|
0 |
5 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
6812
|
0 |
5 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Float * opts_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
6815
|
0 |
5 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Float * work_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
6818
|
0 |
5 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Float * covar_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
6821
|
0 |
5 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
6824
|
0 |
5 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Float * pout_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
6827
|
0 |
5 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Float * info_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
6854
|
0 |
5 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
6890
|
5 |
5 |
for( __tind2 = 0 ; |
6905
|
5 |
5 |
for( __tind1 = 0 ; |
6921
|
11 |
5 |
for(m=0; m<(__m_size); m++) { |
6922
|
0 |
11 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
11 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
6925
|
5 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
6949
|
0 |
5 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
6952
|
0 |
10 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
6955
|
0 |
10 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * x_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
6958
|
0 |
10 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
6961
|
0 |
10 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
|
0 |
0 |
PDL_Long * iopts_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[3]),(__privtrans->vtable->per_pdl_flags[3])))); |
6964
|
0 |
10 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
|
0 |
0 |
PDL_Double * opts_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[4]),(__privtrans->vtable->per_pdl_flags[4])))); |
6967
|
0 |
10 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
|
0 |
0 |
PDL_Double * work_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[5]),(__privtrans->vtable->per_pdl_flags[5])))); |
6970
|
0 |
10 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
|
0 |
0 |
PDL_Double * covar_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[6]),(__privtrans->vtable->per_pdl_flags[6])))); |
6973
|
0 |
10 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
|
0 |
0 |
PDL_Long * returnval_datap = ((PDL_Long *)(PDL_REPRP_TRANS((__privtrans->pdls[7]),(__privtrans->vtable->per_pdl_flags[7])))); |
6976
|
0 |
10 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
|
0 |
0 |
PDL_Double * pout_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[8]),(__privtrans->vtable->per_pdl_flags[8])))); |
6979
|
0 |
10 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
|
0 |
0 |
PDL_Double * info_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[9]),(__privtrans->vtable->per_pdl_flags[9])))); |
7006
|
0 |
10 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
7042
|
10 |
10 |
for( __tind2 = 0 ; |
7057
|
13 |
10 |
for( __tind1 = 0 ; |
7073
|
30 |
13 |
for(m=0; m<(__m_size); m++) { |
7074
|
0 |
30 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
|
0 |
30 |
(pout_datap)[0+(__inc_pout_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") = (p_datap)[0+(__inc_p_m*PP_INDTERM(__privtrans->__m_size, m))] PDL_COMMENT("ACCESS()") ; |
7077
|
13 |
0 |
if ( __privtrans->want_covar == 1 ) pcovar = covar_datap; |
7101
|
0 |
10 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); |
7120
|
15 |
0 |
if(__privtrans->__ddone) { |
7157
|
4 |
0 |
__creating[2] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[2]); |
|
4 |
0 |
__creating[2] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[2]); |
7163
|
0 |
2 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7166
|
0 |
2 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7169
|
0 |
2 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
7178
|
0 |
2 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7181
|
0 |
2 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7184
|
0 |
2 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
7210
|
0 |
4 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
7211
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
7213
|
0 |
4 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
7215
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
7216
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
7221
|
0 |
4 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
7222
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
7224
|
0 |
4 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
7226
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
7227
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
7232
|
0 |
4 |
if(!__creating[2]) { |
7233
|
0 |
0 |
if(((__privtrans->pdls[2]))->ndims < 1) { |
7234
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[2]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
7236
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__n_size == 1)) { |
7238
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[2]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[2]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[2]))->dims[0]) { |
7239
|
0 |
0 |
if(((__privtrans->pdls[2]))->dims[0] != 1) { |
7252
|
4 |
0 |
if(!hdrp && |
|
0 |
4 |
if(!hdrp && |
7253
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
7259
|
4 |
0 |
if(!hdrp && |
|
0 |
4 |
if(!hdrp && |
7260
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
7266
|
4 |
0 |
if(!hdrp && |
|
0 |
4 |
if(!hdrp && |
7267
|
0 |
0 |
!__creating[2] && |
7268
|
0 |
0 |
__privtrans->pdls[2]->hdrsv && |
7274
|
0 |
4 |
if (hdrp) { |
7275
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
7283
|
0 |
0 |
PUSHMARK(SP) ; |
7284
|
0 |
0 |
XPUSHs( hdrp ); |
7288
|
0 |
0 |
if(count != 1) |
7293
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
7297
|
0 |
0 |
FREETMPS ; |
7303
|
0 |
0 |
if ( __privtrans->pdls[2]->hdrsv != hdrp ){ |
7304
|
0 |
0 |
if( __privtrans->pdls[2]->hdrsv && __privtrans->pdls[2]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[2]->hdrsv && __privtrans->pdls[2]->hdrsv != &PL_sv_undef) |
7306
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
7310
|
0 |
0 |
if(propagate_hdrcpy) |
7313
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
7317
|
4 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
4 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
7319
|
4 |
0 |
__privtrans->__inc_p_m = __privtrans->pdls[0]->dimincs[0];if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
4 |
__privtrans->__inc_p_m = __privtrans->pdls[0]->dimincs[0];if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
7321
|
4 |
0 |
__privtrans->__inc_t_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
|
0 |
4 |
__privtrans->__inc_t_n = __privtrans->pdls[1]->dimincs[0];if(__privtrans->pdls[2]->ndims <= 0 || __privtrans->pdls[2]->dims[0] <= 1) |
7343
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
7347
|
0 |
0 |
if(__copy->__ddone) { |
7364
|
0 |
2 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7367
|
0 |
2 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * t_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7370
|
0 |
2 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
7375
|
0 |
2 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
7390
|
2 |
2 |
for( __tind2 = 0 ; |
7398
|
2 |
2 |
for( __tind1 = 0 ; |
7427
|
0 |
2 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); } break; case PDL_D: { |
7428
|
0 |
2 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7431
|
0 |
2 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * t_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7434
|
0 |
2 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[2]),(__privtrans->vtable->per_pdl_flags[2])))); |
7439
|
0 |
2 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
7454
|
2 |
2 |
for( __tind2 = 0 ; |
7462
|
2 |
2 |
for( __tind1 = 0 ; |
7491
|
0 |
2 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); break;} |
7508
|
4 |
0 |
if(__privtrans->__ddone) { |
7544
|
0 |
0 |
__creating[1] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[1]); |
|
0 |
0 |
__creating[1] = PDL_CR_SETDIMSCOND(__privtrans,__privtrans->pdls[1]); |
7550
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7553
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7565
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7568
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7597
|
0 |
0 |
if(((__privtrans->pdls[0]))->ndims < 1) { |
7598
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[0]))->ndims < 1 && __privtrans->__m_size <= 1) __privtrans->__m_size = 1; |
7600
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
|
0 |
0 |
if(__privtrans->__m_size == -1 || (((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size == 1)) { |
7602
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[0]))->ndims > 0 && __privtrans->__m_size != ((__privtrans->pdls[0]))->dims[0]) { |
7603
|
0 |
0 |
if(((__privtrans->pdls[0]))->dims[0] != 1) { |
7608
|
0 |
0 |
if(!__creating[1]) { |
7609
|
0 |
0 |
if(((__privtrans->pdls[1]))->ndims < 1) { |
7610
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
|
0 |
0 |
if (((__privtrans->pdls[1]))->ndims < 1 && __privtrans->__n_size <= 1) __privtrans->__n_size = 1; |
7612
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
|
0 |
0 |
if(__privtrans->__n_size == -1 || (((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size == 1)) { |
7614
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
|
0 |
0 |
} else if(((__privtrans->pdls[1]))->ndims > 0 && __privtrans->__n_size != ((__privtrans->pdls[1]))->dims[0]) { |
7615
|
0 |
0 |
if(((__privtrans->pdls[1]))->dims[0] != 1) { |
7628
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
7629
|
0 |
0 |
__privtrans->pdls[0]->hdrsv && |
7635
|
0 |
0 |
if(!hdrp && |
|
0 |
0 |
if(!hdrp && |
7636
|
0 |
0 |
!__creating[1] && |
7637
|
0 |
0 |
__privtrans->pdls[1]->hdrsv && |
7643
|
0 |
0 |
if (hdrp) { |
7644
|
0 |
0 |
if(hdrp == &PL_sv_undef) |
7652
|
0 |
0 |
PUSHMARK(SP) ; |
7653
|
0 |
0 |
XPUSHs( hdrp ); |
7657
|
0 |
0 |
if(count != 1) |
7662
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
|
0 |
0 |
if(hdr_copy && hdr_copy != &PL_sv_undef) { |
7666
|
0 |
0 |
FREETMPS ; |
7672
|
0 |
0 |
if ( __privtrans->pdls[1]->hdrsv != hdrp ){ |
7673
|
0 |
0 |
if( __privtrans->pdls[1]->hdrsv && __privtrans->pdls[1]->hdrsv != &PL_sv_undef) |
|
0 |
0 |
if( __privtrans->pdls[1]->hdrsv && __privtrans->pdls[1]->hdrsv != &PL_sv_undef) |
7675
|
0 |
0 |
if( hdr_copy != &PL_sv_undef ) |
7679
|
0 |
0 |
if(propagate_hdrcpy) |
7682
|
0 |
0 |
if(hdr_copy != &PL_sv_undef) |
7686
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
|
0 |
0 |
if(__privtrans->pdls[0]->ndims <= 0 || __privtrans->pdls[0]->dims[0] <= 1) |
7688
|
0 |
0 |
__privtrans->__inc_p_m = __privtrans->pdls[0]->dimincs[0];if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
|
0 |
0 |
__privtrans->__inc_p_m = __privtrans->pdls[0]->dimincs[0];if(__privtrans->pdls[1]->ndims <= 0 || __privtrans->pdls[1]->dims[0] <= 1) |
7710
|
0 |
0 |
for(i=0; i<__copy->vtable->npdls; i++) |
7714
|
0 |
0 |
if(__copy->__ddone) { |
7731
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Float * p_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7734
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Float * err_datap = ((PDL_Float *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7739
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
7751
|
0 |
0 |
for( __tind2 = 0 ; |
7758
|
0 |
0 |
for( __tind1 = 0 ; |
7784
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); } break; case PDL_D: { |
7785
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
|
0 |
0 |
PDL_Double * p_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[0]),(__privtrans->vtable->per_pdl_flags[0])))); |
7788
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
|
0 |
0 |
PDL_Double * err_datap = ((PDL_Double *)(PDL_REPRP_TRANS((__privtrans->pdls[1]),(__privtrans->vtable->per_pdl_flags[1])))); |
7793
|
0 |
0 |
if ( PDL->startthreadloop(&(__privtrans->__pdlthread),__privtrans->vtable->readdata, __tr) ) return; |
7805
|
0 |
0 |
for( __tind2 = 0 ; |
7812
|
0 |
0 |
for( __tind1 = 0 ; |
7838
|
0 |
0 |
} while(PDL->iterthreadloop(&__privtrans->__pdlthread,2)); break;} |
7855
|
0 |
0 |
if(__privtrans->__ddone) { |
7940
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
7942
|
0 |
0 |
if (sv_isobject(parent)){ |
7944
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
7947
|
0 |
0 |
if (items == 17) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
7960
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
7962
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
7964
|
0 |
0 |
jacn = (IV)SvIV(ST(13)) |
7966
|
0 |
0 |
sjacn = (IV)SvIV(ST(14)) |
7968
|
0 |
0 |
indat = (IV)SvIV(ST(15)) |
7970
|
0 |
0 |
want_covar = (int)SvIV(ST(16)) |
7973
|
0 |
0 |
else if (items == 16) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
7984
|
0 |
0 |
funcn = (IV)SvIV(ST(10)) |
7986
|
0 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
7988
|
0 |
0 |
jacn = (IV)SvIV(ST(12)) |
7990
|
0 |
0 |
sjacn = (IV)SvIV(ST(13)) |
7992
|
0 |
0 |
indat = (IV)SvIV(ST(14)) |
7994
|
0 |
0 |
want_covar = (int)SvIV(ST(15)) |
7996
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8000
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8002
|
0 |
0 |
PUSHMARK(SP); |
8003
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8012
|
0 |
0 |
else if (items == 12) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
8020
|
0 |
0 |
funcn = (IV)SvIV(ST(6)) |
8022
|
0 |
0 |
sfuncn = (IV)SvIV(ST(7)) |
8024
|
0 |
0 |
jacn = (IV)SvIV(ST(8)) |
8026
|
0 |
0 |
sjacn = (IV)SvIV(ST(9)) |
8028
|
0 |
0 |
indat = (IV)SvIV(ST(10)) |
8030
|
0 |
0 |
want_covar = (int)SvIV(ST(11)) |
8032
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8036
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8038
|
0 |
0 |
PUSHMARK(SP); |
8039
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8047
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8051
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
8053
|
0 |
0 |
PUSHMARK(SP); |
8054
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8062
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8066
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
8068
|
0 |
0 |
PUSHMARK(SP); |
8069
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8077
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8081
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
8083
|
0 |
0 |
PUSHMARK(SP); |
8084
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8092
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8096
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
8098
|
0 |
0 |
PUSHMARK(SP); |
8099
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8124
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
8125
|
0 |
0 |
if (badflag_cache) __privtrans->bvalflag = 1; |
8126
|
0 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
8129
|
0 |
0 |
if(__privtrans->__datatype < x->datatype) { |
8132
|
0 |
0 |
if(__privtrans->__datatype < t->datatype) { |
8135
|
0 |
0 |
if(__privtrans->__datatype < lb->datatype) { |
8138
|
0 |
0 |
if(__privtrans->__datatype < opts->datatype) { |
8141
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
8142
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
8145
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
8146
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
8149
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
8150
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
8153
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
8154
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
8157
|
0 |
0 |
if(__privtrans->__datatype == PDL_F) {} |
8158
|
0 |
0 |
else if(__privtrans->__datatype == PDL_D) {} |
8160
|
0 |
0 |
if(__privtrans->__datatype != p->datatype) { |
8162
|
0 |
0 |
}if(__privtrans->__datatype != x->datatype) { |
8164
|
0 |
0 |
}if(__privtrans->__datatype != t->datatype) { |
8166
|
0 |
0 |
}if(__privtrans->__datatype != lb->datatype) { |
8168
|
0 |
0 |
}if(PDL_L != iopts->datatype) { |
8170
|
0 |
0 |
}if(__privtrans->__datatype != opts->datatype) { |
8172
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
8174
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
8176
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
8178
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
8180
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
8182
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
8184
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
8186
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
8188
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
8190
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
8204
|
0 |
0 |
if (badflag_cache) { |
8210
|
0 |
0 |
if (nreturn) { |
8211
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
8258
|
9 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
9 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
8260
|
9 |
0 |
if (sv_isobject(parent)){ |
8262
|
9 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
9 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
9 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
9 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
9 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
8265
|
9 |
0 |
if (items == 18) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
8279
|
9 |
0 |
funcn = (IV)SvIV(ST(12)) |
8281
|
9 |
0 |
sfuncn = (IV)SvIV(ST(13)) |
8283
|
9 |
0 |
jacn = (IV)SvIV(ST(14)) |
8285
|
9 |
0 |
sjacn = (IV)SvIV(ST(15)) |
8287
|
9 |
0 |
indat = (IV)SvIV(ST(16)) |
8289
|
9 |
0 |
want_covar = (int)SvIV(ST(17)) |
8292
|
0 |
0 |
else if (items == 17) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
8304
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
8306
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
8308
|
0 |
0 |
jacn = (IV)SvIV(ST(13)) |
8310
|
0 |
0 |
sjacn = (IV)SvIV(ST(14)) |
8312
|
0 |
0 |
indat = (IV)SvIV(ST(15)) |
8314
|
0 |
0 |
want_covar = (int)SvIV(ST(16)) |
8316
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8320
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8322
|
0 |
0 |
PUSHMARK(SP); |
8323
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8332
|
0 |
0 |
else if (items == 13) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
8341
|
0 |
0 |
funcn = (IV)SvIV(ST(7)) |
8343
|
0 |
0 |
sfuncn = (IV)SvIV(ST(8)) |
8345
|
0 |
0 |
jacn = (IV)SvIV(ST(9)) |
8347
|
0 |
0 |
sjacn = (IV)SvIV(ST(10)) |
8349
|
0 |
0 |
indat = (IV)SvIV(ST(11)) |
8351
|
0 |
0 |
want_covar = (int)SvIV(ST(12)) |
8353
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8357
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8359
|
0 |
0 |
PUSHMARK(SP); |
8360
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8368
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8372
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
8374
|
0 |
0 |
PUSHMARK(SP); |
8375
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8383
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8387
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
8389
|
0 |
0 |
PUSHMARK(SP); |
8390
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8398
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8402
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
8404
|
0 |
0 |
PUSHMARK(SP); |
8405
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8413
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8417
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
8419
|
0 |
0 |
PUSHMARK(SP); |
8420
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8445
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
9 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
9 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
8446
|
0 |
9 |
if (badflag_cache) __privtrans->bvalflag = 1; |
8447
|
9 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
8450
|
0 |
9 |
if(__privtrans->__datatype < x->datatype) { |
8453
|
0 |
9 |
if(__privtrans->__datatype < t->datatype) { |
8456
|
0 |
9 |
if(__privtrans->__datatype < lb->datatype) { |
8459
|
0 |
9 |
if(__privtrans->__datatype < ub->datatype) { |
8462
|
0 |
9 |
if(__privtrans->__datatype < opts->datatype) { |
8465
|
9 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
9 |
if(!((work->state & PDL_NOMYDIMS) && |
8466
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
8469
|
9 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
9 |
if(!((covar->state & PDL_NOMYDIMS) && |
8470
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
8473
|
9 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
9 |
if(!((pout->state & PDL_NOMYDIMS) && |
8474
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
8477
|
9 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
9 |
if(!((info->state & PDL_NOMYDIMS) && |
8478
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
8481
|
6 |
3 |
if(__privtrans->__datatype == PDL_F) {} |
8482
|
0 |
6 |
else if(__privtrans->__datatype == PDL_D) {} |
8484
|
0 |
9 |
if(__privtrans->__datatype != p->datatype) { |
8486
|
1 |
8 |
}if(__privtrans->__datatype != x->datatype) { |
8488
|
8 |
1 |
}if(__privtrans->__datatype != t->datatype) { |
8490
|
1 |
8 |
}if(__privtrans->__datatype != lb->datatype) { |
8492
|
1 |
8 |
}if(__privtrans->__datatype != ub->datatype) { |
8494
|
0 |
9 |
}if(PDL_L != iopts->datatype) { |
8496
|
0 |
9 |
}if(__privtrans->__datatype != opts->datatype) { |
8498
|
9 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
9 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
8500
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
8502
|
9 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
9 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
8504
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
8506
|
9 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
9 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
8508
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
8510
|
9 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
9 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
8512
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
8514
|
9 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
9 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
8516
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
8531
|
0 |
9 |
if (badflag_cache) { |
8537
|
0 |
9 |
if (nreturn) { |
8538
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
8584
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
8586
|
0 |
0 |
if (sv_isobject(parent)){ |
8588
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
8591
|
0 |
0 |
if (items == 17) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
8604
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
8606
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
8608
|
0 |
0 |
jacn = (IV)SvIV(ST(13)) |
8610
|
0 |
0 |
sjacn = (IV)SvIV(ST(14)) |
8612
|
0 |
0 |
indat = (IV)SvIV(ST(15)) |
8614
|
0 |
0 |
want_covar = (int)SvIV(ST(16)) |
8617
|
0 |
0 |
else if (items == 16) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
8628
|
0 |
0 |
funcn = (IV)SvIV(ST(10)) |
8630
|
0 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
8632
|
0 |
0 |
jacn = (IV)SvIV(ST(12)) |
8634
|
0 |
0 |
sjacn = (IV)SvIV(ST(13)) |
8636
|
0 |
0 |
indat = (IV)SvIV(ST(14)) |
8638
|
0 |
0 |
want_covar = (int)SvIV(ST(15)) |
8640
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8644
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8646
|
0 |
0 |
PUSHMARK(SP); |
8647
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8656
|
0 |
0 |
else if (items == 12) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
8664
|
0 |
0 |
funcn = (IV)SvIV(ST(6)) |
8666
|
0 |
0 |
sfuncn = (IV)SvIV(ST(7)) |
8668
|
0 |
0 |
jacn = (IV)SvIV(ST(8)) |
8670
|
0 |
0 |
sjacn = (IV)SvIV(ST(9)) |
8672
|
0 |
0 |
indat = (IV)SvIV(ST(10)) |
8674
|
0 |
0 |
want_covar = (int)SvIV(ST(11)) |
8676
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8680
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8682
|
0 |
0 |
PUSHMARK(SP); |
8683
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8691
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8695
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
8697
|
0 |
0 |
PUSHMARK(SP); |
8698
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8706
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8710
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
8712
|
0 |
0 |
PUSHMARK(SP); |
8713
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8721
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8725
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
8727
|
0 |
0 |
PUSHMARK(SP); |
8728
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8736
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8740
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
8742
|
0 |
0 |
PUSHMARK(SP); |
8743
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8768
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
8769
|
0 |
0 |
if (badflag_cache) __privtrans->bvalflag = 1; |
8770
|
0 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
8773
|
0 |
0 |
if(__privtrans->__datatype < x->datatype) { |
8776
|
0 |
0 |
if(__privtrans->__datatype < t->datatype) { |
8779
|
0 |
0 |
if(__privtrans->__datatype < ub->datatype) { |
8782
|
0 |
0 |
if(__privtrans->__datatype < opts->datatype) { |
8785
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
8786
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
8789
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
8790
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
8793
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
8794
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
8797
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
8798
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
8801
|
0 |
0 |
if(__privtrans->__datatype == PDL_F) {} |
8802
|
0 |
0 |
else if(__privtrans->__datatype == PDL_D) {} |
8804
|
0 |
0 |
if(__privtrans->__datatype != p->datatype) { |
8806
|
0 |
0 |
}if(__privtrans->__datatype != x->datatype) { |
8808
|
0 |
0 |
}if(__privtrans->__datatype != t->datatype) { |
8810
|
0 |
0 |
}if(__privtrans->__datatype != ub->datatype) { |
8812
|
0 |
0 |
}if(PDL_L != iopts->datatype) { |
8814
|
0 |
0 |
}if(__privtrans->__datatype != opts->datatype) { |
8816
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
8818
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
8820
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
8822
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
8824
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
8826
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
8828
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
8830
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
8832
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
8834
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
8848
|
0 |
0 |
if (badflag_cache) { |
8854
|
0 |
0 |
if (nreturn) { |
8855
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
8900
|
60 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
60 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
8902
|
60 |
0 |
if (sv_isobject(parent)){ |
8904
|
60 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
60 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
60 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
60 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
60 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
8907
|
60 |
0 |
if (items == 16) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
8919
|
60 |
0 |
funcn = (IV)SvIV(ST(10)) |
8921
|
60 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
8923
|
60 |
0 |
jacn = (IV)SvIV(ST(12)) |
8925
|
60 |
0 |
sjacn = (IV)SvIV(ST(13)) |
8927
|
60 |
0 |
indat = (IV)SvIV(ST(14)) |
8929
|
60 |
0 |
want_covar = (int)SvIV(ST(15)) |
8932
|
0 |
0 |
else if (items == 15) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
8942
|
0 |
0 |
funcn = (IV)SvIV(ST(9)) |
8944
|
0 |
0 |
sfuncn = (IV)SvIV(ST(10)) |
8946
|
0 |
0 |
jacn = (IV)SvIV(ST(11)) |
8948
|
0 |
0 |
sjacn = (IV)SvIV(ST(12)) |
8950
|
0 |
0 |
indat = (IV)SvIV(ST(13)) |
8952
|
0 |
0 |
want_covar = (int)SvIV(ST(14)) |
8954
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8958
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8960
|
0 |
0 |
PUSHMARK(SP); |
8961
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
8970
|
0 |
0 |
else if (items == 11) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
8977
|
0 |
0 |
funcn = (IV)SvIV(ST(5)) |
8979
|
0 |
0 |
sfuncn = (IV)SvIV(ST(6)) |
8981
|
0 |
0 |
jacn = (IV)SvIV(ST(7)) |
8983
|
0 |
0 |
sjacn = (IV)SvIV(ST(8)) |
8985
|
0 |
0 |
indat = (IV)SvIV(ST(9)) |
8987
|
0 |
0 |
want_covar = (int)SvIV(ST(10)) |
8989
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
8993
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
8995
|
0 |
0 |
PUSHMARK(SP); |
8996
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9004
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9008
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
9010
|
0 |
0 |
PUSHMARK(SP); |
9011
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9019
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9023
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
9025
|
0 |
0 |
PUSHMARK(SP); |
9026
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9034
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9038
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
9040
|
0 |
0 |
PUSHMARK(SP); |
9041
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9049
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9053
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
9055
|
0 |
0 |
PUSHMARK(SP); |
9056
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9081
|
60 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
60 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
60 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
60 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
60 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
9082
|
0 |
60 |
if (badflag_cache) __privtrans->bvalflag = 1; |
9083
|
60 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
9086
|
0 |
60 |
if(__privtrans->__datatype < x->datatype) { |
9089
|
0 |
60 |
if(__privtrans->__datatype < t->datatype) { |
9092
|
0 |
60 |
if(__privtrans->__datatype < opts->datatype) { |
9095
|
59 |
1 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
59 |
if(!((work->state & PDL_NOMYDIMS) && |
9096
|
0 |
1 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
9099
|
59 |
1 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
59 |
if(!((covar->state & PDL_NOMYDIMS) && |
9100
|
0 |
1 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
9103
|
60 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
60 |
if(!((pout->state & PDL_NOMYDIMS) && |
9104
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
9107
|
60 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
60 |
if(!((info->state & PDL_NOMYDIMS) && |
9108
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
9111
|
54 |
6 |
if(__privtrans->__datatype == PDL_F) {} |
9112
|
0 |
54 |
else if(__privtrans->__datatype == PDL_D) {} |
9114
|
0 |
60 |
if(__privtrans->__datatype != p->datatype) { |
9116
|
0 |
60 |
}if(__privtrans->__datatype != x->datatype) { |
9118
|
12 |
48 |
}if(__privtrans->__datatype != t->datatype) { |
9120
|
0 |
60 |
}if(PDL_L != iopts->datatype) { |
9122
|
0 |
60 |
}if(__privtrans->__datatype != opts->datatype) { |
9124
|
59 |
1 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
59 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
9126
|
0 |
1 |
} else if(__privtrans->__datatype != work->datatype) { |
9128
|
59 |
1 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
59 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
9130
|
0 |
1 |
} else if(__privtrans->__datatype != covar->datatype) { |
9132
|
60 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
60 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
9134
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
9136
|
60 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
60 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
9138
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
9140
|
60 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
60 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
9142
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
9155
|
0 |
60 |
if (badflag_cache) { |
9161
|
0 |
60 |
if (nreturn) { |
9162
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
9206
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
9208
|
0 |
0 |
if (sv_isobject(parent)){ |
9210
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
9213
|
0 |
0 |
if (items == 15) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
9226
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
9228
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
9230
|
0 |
0 |
indat = (IV)SvIV(ST(13)) |
9232
|
0 |
0 |
want_covar = (int)SvIV(ST(14)) |
9235
|
0 |
0 |
else if (items == 14) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
9246
|
0 |
0 |
funcn = (IV)SvIV(ST(10)) |
9248
|
0 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
9250
|
0 |
0 |
indat = (IV)SvIV(ST(12)) |
9252
|
0 |
0 |
want_covar = (int)SvIV(ST(13)) |
9254
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9258
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9260
|
0 |
0 |
PUSHMARK(SP); |
9261
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9270
|
0 |
0 |
else if (items == 10) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
9278
|
0 |
0 |
funcn = (IV)SvIV(ST(6)) |
9280
|
0 |
0 |
sfuncn = (IV)SvIV(ST(7)) |
9282
|
0 |
0 |
indat = (IV)SvIV(ST(8)) |
9284
|
0 |
0 |
want_covar = (int)SvIV(ST(9)) |
9286
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9290
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9292
|
0 |
0 |
PUSHMARK(SP); |
9293
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9301
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9305
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
9307
|
0 |
0 |
PUSHMARK(SP); |
9308
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9316
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9320
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
9322
|
0 |
0 |
PUSHMARK(SP); |
9323
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9331
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9335
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
9337
|
0 |
0 |
PUSHMARK(SP); |
9338
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9346
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9350
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
9352
|
0 |
0 |
PUSHMARK(SP); |
9353
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9378
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
9379
|
0 |
0 |
if (badflag_cache) __privtrans->bvalflag = 1; |
9380
|
0 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
9383
|
0 |
0 |
if(__privtrans->__datatype < x->datatype) { |
9386
|
0 |
0 |
if(__privtrans->__datatype < t->datatype) { |
9389
|
0 |
0 |
if(__privtrans->__datatype < lb->datatype) { |
9392
|
0 |
0 |
if(__privtrans->__datatype < opts->datatype) { |
9395
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
9396
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
9399
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
9400
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
9403
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
9404
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
9407
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
9408
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
9411
|
0 |
0 |
if(__privtrans->__datatype == PDL_F) {} |
9412
|
0 |
0 |
else if(__privtrans->__datatype == PDL_D) {} |
9414
|
0 |
0 |
if(__privtrans->__datatype != p->datatype) { |
9416
|
0 |
0 |
}if(__privtrans->__datatype != x->datatype) { |
9418
|
0 |
0 |
}if(__privtrans->__datatype != t->datatype) { |
9420
|
0 |
0 |
}if(__privtrans->__datatype != lb->datatype) { |
9422
|
0 |
0 |
}if(PDL_L != iopts->datatype) { |
9424
|
0 |
0 |
}if(__privtrans->__datatype != opts->datatype) { |
9426
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
9428
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
9430
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
9432
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
9434
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
9436
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
9438
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
9440
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
9442
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
9444
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
9458
|
0 |
0 |
if (badflag_cache) { |
9464
|
0 |
0 |
if (nreturn) { |
9465
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
9510
|
5 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
5 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
9512
|
5 |
0 |
if (sv_isobject(parent)){ |
9514
|
5 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
5 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
5 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
5 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
5 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
9517
|
5 |
0 |
if (items == 16) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
9531
|
5 |
0 |
funcn = (IV)SvIV(ST(12)) |
9533
|
5 |
0 |
sfuncn = (IV)SvIV(ST(13)) |
9535
|
5 |
0 |
indat = (IV)SvIV(ST(14)) |
9537
|
5 |
0 |
want_covar = (int)SvIV(ST(15)) |
9540
|
0 |
0 |
else if (items == 15) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
9552
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
9554
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
9556
|
0 |
0 |
indat = (IV)SvIV(ST(13)) |
9558
|
0 |
0 |
want_covar = (int)SvIV(ST(14)) |
9560
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9564
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9566
|
0 |
0 |
PUSHMARK(SP); |
9567
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9576
|
0 |
0 |
else if (items == 11) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
9585
|
0 |
0 |
funcn = (IV)SvIV(ST(7)) |
9587
|
0 |
0 |
sfuncn = (IV)SvIV(ST(8)) |
9589
|
0 |
0 |
indat = (IV)SvIV(ST(9)) |
9591
|
0 |
0 |
want_covar = (int)SvIV(ST(10)) |
9593
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9597
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9599
|
0 |
0 |
PUSHMARK(SP); |
9600
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9608
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9612
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
9614
|
0 |
0 |
PUSHMARK(SP); |
9615
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9623
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9627
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
9629
|
0 |
0 |
PUSHMARK(SP); |
9630
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9638
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9642
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
9644
|
0 |
0 |
PUSHMARK(SP); |
9645
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9653
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9657
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
9659
|
0 |
0 |
PUSHMARK(SP); |
9660
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9685
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
5 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
5 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((lb->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
9686
|
0 |
5 |
if (badflag_cache) __privtrans->bvalflag = 1; |
9687
|
5 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
9690
|
0 |
5 |
if(__privtrans->__datatype < x->datatype) { |
9693
|
0 |
5 |
if(__privtrans->__datatype < t->datatype) { |
9696
|
0 |
5 |
if(__privtrans->__datatype < lb->datatype) { |
9699
|
0 |
5 |
if(__privtrans->__datatype < ub->datatype) { |
9702
|
0 |
5 |
if(__privtrans->__datatype < opts->datatype) { |
9705
|
5 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
5 |
if(!((work->state & PDL_NOMYDIMS) && |
9706
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
9709
|
5 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
5 |
if(!((covar->state & PDL_NOMYDIMS) && |
9710
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
9713
|
5 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
5 |
if(!((pout->state & PDL_NOMYDIMS) && |
9714
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
9717
|
5 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
5 |
if(!((info->state & PDL_NOMYDIMS) && |
9718
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
9721
|
3 |
2 |
if(__privtrans->__datatype == PDL_F) {} |
9722
|
0 |
3 |
else if(__privtrans->__datatype == PDL_D) {} |
9724
|
0 |
5 |
if(__privtrans->__datatype != p->datatype) { |
9726
|
0 |
5 |
}if(__privtrans->__datatype != x->datatype) { |
9728
|
4 |
1 |
}if(__privtrans->__datatype != t->datatype) { |
9730
|
0 |
5 |
}if(__privtrans->__datatype != lb->datatype) { |
9732
|
0 |
5 |
}if(__privtrans->__datatype != ub->datatype) { |
9734
|
0 |
5 |
}if(PDL_L != iopts->datatype) { |
9736
|
0 |
5 |
}if(__privtrans->__datatype != opts->datatype) { |
9738
|
5 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
5 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
9740
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
9742
|
5 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
5 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
9744
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
9746
|
5 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
5 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
9748
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
9750
|
5 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
5 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
9752
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
9754
|
5 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
5 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
9756
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
9771
|
0 |
5 |
if (badflag_cache) { |
9777
|
0 |
5 |
if (nreturn) { |
9778
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
9822
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
9824
|
0 |
0 |
if (sv_isobject(parent)){ |
9826
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
9829
|
0 |
0 |
if (items == 15) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
9842
|
0 |
0 |
funcn = (IV)SvIV(ST(11)) |
9844
|
0 |
0 |
sfuncn = (IV)SvIV(ST(12)) |
9846
|
0 |
0 |
indat = (IV)SvIV(ST(13)) |
9848
|
0 |
0 |
want_covar = (int)SvIV(ST(14)) |
9851
|
0 |
0 |
else if (items == 14) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
9862
|
0 |
0 |
funcn = (IV)SvIV(ST(10)) |
9864
|
0 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
9866
|
0 |
0 |
indat = (IV)SvIV(ST(12)) |
9868
|
0 |
0 |
want_covar = (int)SvIV(ST(13)) |
9870
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9874
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9876
|
0 |
0 |
PUSHMARK(SP); |
9877
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9886
|
0 |
0 |
else if (items == 10) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
9894
|
0 |
0 |
funcn = (IV)SvIV(ST(6)) |
9896
|
0 |
0 |
sfuncn = (IV)SvIV(ST(7)) |
9898
|
0 |
0 |
indat = (IV)SvIV(ST(8)) |
9900
|
0 |
0 |
want_covar = (int)SvIV(ST(9)) |
9902
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9906
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
9908
|
0 |
0 |
PUSHMARK(SP); |
9909
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9917
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9921
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
9923
|
0 |
0 |
PUSHMARK(SP); |
9924
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9932
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9936
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
9938
|
0 |
0 |
PUSHMARK(SP); |
9939
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9947
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9951
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
9953
|
0 |
0 |
PUSHMARK(SP); |
9954
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9962
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
9966
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
9968
|
0 |
0 |
PUSHMARK(SP); |
9969
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
9994
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((ub->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
9995
|
0 |
0 |
if (badflag_cache) __privtrans->bvalflag = 1; |
9996
|
0 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
9999
|
0 |
0 |
if(__privtrans->__datatype < x->datatype) { |
10002
|
0 |
0 |
if(__privtrans->__datatype < t->datatype) { |
10005
|
0 |
0 |
if(__privtrans->__datatype < ub->datatype) { |
10008
|
0 |
0 |
if(__privtrans->__datatype < opts->datatype) { |
10011
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
10012
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
10015
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
10016
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
10019
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
10020
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
10023
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
10024
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
10027
|
0 |
0 |
if(__privtrans->__datatype == PDL_F) {} |
10028
|
0 |
0 |
else if(__privtrans->__datatype == PDL_D) {} |
10030
|
0 |
0 |
if(__privtrans->__datatype != p->datatype) { |
10032
|
0 |
0 |
}if(__privtrans->__datatype != x->datatype) { |
10034
|
0 |
0 |
}if(__privtrans->__datatype != t->datatype) { |
10036
|
0 |
0 |
}if(__privtrans->__datatype != ub->datatype) { |
10038
|
0 |
0 |
}if(PDL_L != iopts->datatype) { |
10040
|
0 |
0 |
}if(__privtrans->__datatype != opts->datatype) { |
10042
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
0 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
10044
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
10046
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
0 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
10048
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
10050
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
0 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
10052
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
10054
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
0 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
10056
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
10058
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
0 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
10060
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
10074
|
0 |
0 |
if (badflag_cache) { |
10080
|
0 |
0 |
if (nreturn) { |
10081
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
10124
|
15 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
15 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
10126
|
15 |
0 |
if (sv_isobject(parent)){ |
10128
|
15 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
15 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
15 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
15 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
15 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
10131
|
15 |
0 |
if (items == 14) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
10143
|
15 |
0 |
funcn = (IV)SvIV(ST(10)) |
10145
|
15 |
0 |
sfuncn = (IV)SvIV(ST(11)) |
10147
|
15 |
0 |
indat = (IV)SvIV(ST(12)) |
10149
|
15 |
0 |
want_covar = (int)SvIV(ST(13)) |
10152
|
0 |
0 |
else if (items == 13) { PDL_COMMENT("all but temps on stack, read in output, create temps") nreturn = 0; |
10162
|
0 |
0 |
funcn = (IV)SvIV(ST(9)) |
10164
|
0 |
0 |
sfuncn = (IV)SvIV(ST(10)) |
10166
|
0 |
0 |
indat = (IV)SvIV(ST(11)) |
10168
|
0 |
0 |
want_covar = (int)SvIV(ST(12)) |
10170
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10174
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
10176
|
0 |
0 |
PUSHMARK(SP); |
10177
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10186
|
0 |
0 |
else if (items == 9) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
10193
|
0 |
0 |
funcn = (IV)SvIV(ST(5)) |
10195
|
0 |
0 |
sfuncn = (IV)SvIV(ST(6)) |
10197
|
0 |
0 |
indat = (IV)SvIV(ST(7)) |
10199
|
0 |
0 |
want_covar = (int)SvIV(ST(8)) |
10201
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10205
|
0 |
0 |
if (bless_stash) work_SV = sv_bless(work_SV, bless_stash); |
10207
|
0 |
0 |
PUSHMARK(SP); |
10208
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10216
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10220
|
0 |
0 |
if (bless_stash) covar_SV = sv_bless(covar_SV, bless_stash); |
10222
|
0 |
0 |
PUSHMARK(SP); |
10223
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10231
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10235
|
0 |
0 |
if (bless_stash) returnval_SV = sv_bless(returnval_SV, bless_stash); |
10237
|
0 |
0 |
PUSHMARK(SP); |
10238
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10246
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10250
|
0 |
0 |
if (bless_stash) pout_SV = sv_bless(pout_SV, bless_stash); |
10252
|
0 |
0 |
PUSHMARK(SP); |
10253
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10261
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10265
|
0 |
0 |
if (bless_stash) info_SV = sv_bless(info_SV, bless_stash); |
10267
|
0 |
0 |
PUSHMARK(SP); |
10268
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10293
|
15 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
15 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
15 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
15 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
|
0 |
15 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((x->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0) || ((iopts->state & PDL_BADVAL) > 0) || ((opts->state & PDL_BADVAL) > 0); |
10294
|
0 |
15 |
if (badflag_cache) __privtrans->bvalflag = 1; |
10295
|
15 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
10298
|
0 |
15 |
if(__privtrans->__datatype < x->datatype) { |
10301
|
0 |
15 |
if(__privtrans->__datatype < t->datatype) { |
10304
|
0 |
15 |
if(__privtrans->__datatype < opts->datatype) { |
10307
|
15 |
0 |
if(!((work->state & PDL_NOMYDIMS) && |
|
0 |
15 |
if(!((work->state & PDL_NOMYDIMS) && |
10308
|
0 |
0 |
work->trans == NULL) && __privtrans->__datatype < work->datatype) { |
10311
|
15 |
0 |
if(!((covar->state & PDL_NOMYDIMS) && |
|
0 |
15 |
if(!((covar->state & PDL_NOMYDIMS) && |
10312
|
0 |
0 |
covar->trans == NULL) && __privtrans->__datatype < covar->datatype) { |
10315
|
15 |
0 |
if(!((pout->state & PDL_NOMYDIMS) && |
|
0 |
15 |
if(!((pout->state & PDL_NOMYDIMS) && |
10316
|
0 |
0 |
pout->trans == NULL) && __privtrans->__datatype < pout->datatype) { |
10319
|
15 |
0 |
if(!((info->state & PDL_NOMYDIMS) && |
|
0 |
15 |
if(!((info->state & PDL_NOMYDIMS) && |
10320
|
0 |
0 |
info->trans == NULL) && __privtrans->__datatype < info->datatype) { |
10323
|
10 |
5 |
if(__privtrans->__datatype == PDL_F) {} |
10324
|
0 |
10 |
else if(__privtrans->__datatype == PDL_D) {} |
10326
|
0 |
15 |
if(__privtrans->__datatype != p->datatype) { |
10328
|
0 |
15 |
}if(__privtrans->__datatype != x->datatype) { |
10330
|
9 |
6 |
}if(__privtrans->__datatype != t->datatype) { |
10332
|
0 |
15 |
}if(PDL_L != iopts->datatype) { |
10334
|
0 |
15 |
}if(__privtrans->__datatype != opts->datatype) { |
10336
|
15 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
|
15 |
0 |
}if( (work->state & PDL_NOMYDIMS) && work->trans == NULL ) { |
10338
|
0 |
0 |
} else if(__privtrans->__datatype != work->datatype) { |
10340
|
15 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
|
15 |
0 |
}if( (covar->state & PDL_NOMYDIMS) && covar->trans == NULL ) { |
10342
|
0 |
0 |
} else if(__privtrans->__datatype != covar->datatype) { |
10344
|
15 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
|
15 |
0 |
}if( (returnval->state & PDL_NOMYDIMS) && returnval->trans == NULL ) { |
10346
|
0 |
0 |
} else if(PDL_L != returnval->datatype) { |
10348
|
15 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
|
15 |
0 |
}if( (pout->state & PDL_NOMYDIMS) && pout->trans == NULL ) { |
10350
|
0 |
0 |
} else if(__privtrans->__datatype != pout->datatype) { |
10352
|
15 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
|
15 |
0 |
}if( (info->state & PDL_NOMYDIMS) && info->trans == NULL ) { |
10354
|
0 |
0 |
} else if(__privtrans->__datatype != info->datatype) { |
10367
|
0 |
15 |
if (badflag_cache) { |
10373
|
0 |
15 |
if (nreturn) { |
10374
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
10407
|
4 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
4 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
10409
|
4 |
0 |
if (sv_isobject(parent)){ |
10411
|
4 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
4 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
4 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
4 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
4 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
10414
|
0 |
4 |
if (items == 8) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
10419
|
0 |
0 |
func = (IV)SvIV(ST(3)) |
10421
|
0 |
0 |
sfunc = (IV)SvIV(ST(4)) |
10423
|
0 |
0 |
jac = (IV)SvIV(ST(5)) |
10425
|
0 |
0 |
sjac = (IV)SvIV(ST(6)) |
10427
|
0 |
0 |
indat = (IV)SvIV(ST(7)) |
10430
|
4 |
0 |
else if (items == 7) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
10434
|
4 |
0 |
func = (IV)SvIV(ST(2)) |
10436
|
4 |
0 |
sfunc = (IV)SvIV(ST(3)) |
10438
|
4 |
0 |
jac = (IV)SvIV(ST(4)) |
10440
|
4 |
0 |
sjac = (IV)SvIV(ST(5)) |
10442
|
4 |
0 |
indat = (IV)SvIV(ST(6)) |
10444
|
4 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10448
|
4 |
0 |
if (bless_stash) err_SV = sv_bless(err_SV, bless_stash); |
10450
|
0 |
0 |
PUSHMARK(SP); |
10451
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10476
|
4 |
0 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0); |
|
0 |
4 |
badflag_cache = ((p->state & PDL_BADVAL) > 0) || ((t->state & PDL_BADVAL) > 0); |
10477
|
0 |
4 |
if (badflag_cache) __privtrans->bvalflag = 1; |
10478
|
4 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
10481
|
0 |
4 |
if(__privtrans->__datatype < t->datatype) { |
10484
|
4 |
0 |
if(!((err->state & PDL_NOMYDIMS) && |
|
0 |
4 |
if(!((err->state & PDL_NOMYDIMS) && |
10485
|
0 |
0 |
err->trans == NULL) && __privtrans->__datatype < err->datatype) { |
10488
|
2 |
2 |
if(__privtrans->__datatype == PDL_F) {} |
10489
|
0 |
2 |
else if(__privtrans->__datatype == PDL_D) {} |
10491
|
0 |
4 |
if(__privtrans->__datatype != p->datatype) { |
10493
|
0 |
4 |
}if(__privtrans->__datatype != t->datatype) { |
10495
|
4 |
0 |
}if( (err->state & PDL_NOMYDIMS) && err->trans == NULL ) { |
|
4 |
0 |
}if( (err->state & PDL_NOMYDIMS) && err->trans == NULL ) { |
10497
|
0 |
0 |
} else if(__privtrans->__datatype != err->datatype) { |
10503
|
0 |
4 |
if (badflag_cache) { |
10506
|
4 |
0 |
if (nreturn) { |
10507
|
0 |
4 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
10537
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
|
0 |
0 |
if (SvROK(ST(0)) && ((SvTYPE(SvRV(ST(0))) == SVt_PVMG) || (SvTYPE(SvRV(ST(0))) == SVt_PVHV))) { |
10539
|
0 |
0 |
if (sv_isobject(parent)){ |
10541
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
|
0 |
0 |
objname = HvNAME((bless_stash)); PDL_COMMENT("The package to bless output vars into is taken from the first input var") |
10544
|
0 |
0 |
if (items == 8) { PDL_COMMENT("all variables on stack, read in output and temp vars") |
10548
|
0 |
0 |
func = (IV)SvIV(ST(2)) |
10550
|
0 |
0 |
sfunc = (IV)SvIV(ST(3)) |
10552
|
0 |
0 |
jac = (IV)SvIV(ST(4)) |
10554
|
0 |
0 |
sjac = (IV)SvIV(ST(5)) |
10556
|
0 |
0 |
N = (int)SvIV(ST(6)) |
10558
|
0 |
0 |
indat = (IV)SvIV(ST(7)) |
10561
|
0 |
0 |
else if (items == 7) { PDL_COMMENT("only input variables on stack, create outputs and temps") |
10564
|
0 |
0 |
func = (IV)SvIV(ST(1)) |
10566
|
0 |
0 |
sfunc = (IV)SvIV(ST(2)) |
10568
|
0 |
0 |
jac = (IV)SvIV(ST(3)) |
10570
|
0 |
0 |
sjac = (IV)SvIV(ST(4)) |
10572
|
0 |
0 |
N = (int)SvIV(ST(5)) |
10574
|
0 |
0 |
indat = (IV)SvIV(ST(6)) |
10576
|
0 |
0 |
if (strcmp(objname,"PDL") == 0) { PDL_COMMENT("shortcut if just PDL") |
10580
|
0 |
0 |
if (bless_stash) err_SV = sv_bless(err_SV, bless_stash); |
10582
|
0 |
0 |
PUSHMARK(SP); |
10583
|
0 |
0 |
XPUSHs(sv_2mortal(newSVpv(objname, 0))); |
10609
|
0 |
0 |
if (badflag_cache) __privtrans->bvalflag = 1; |
10610
|
0 |
0 |
__privtrans->__datatype = 0;if(__privtrans->__datatype < p->datatype) { |
10613
|
0 |
0 |
if(!((err->state & PDL_NOMYDIMS) && |
|
0 |
0 |
if(!((err->state & PDL_NOMYDIMS) && |
10614
|
0 |
0 |
err->trans == NULL) && __privtrans->__datatype < err->datatype) { |
10617
|
0 |
0 |
if(__privtrans->__datatype == PDL_F) {} |
10618
|
0 |
0 |
else if(__privtrans->__datatype == PDL_D) {} |
10620
|
0 |
0 |
if(__privtrans->__datatype != p->datatype) { |
10622
|
0 |
0 |
}if( (err->state & PDL_NOMYDIMS) && err->trans == NULL ) { |
|
0 |
0 |
}if( (err->state & PDL_NOMYDIMS) && err->trans == NULL ) { |
10624
|
0 |
0 |
} else if(__privtrans->__datatype != err->datatype) { |
10629
|
0 |
0 |
if (badflag_cache) { |
10632
|
0 |
0 |
if (nreturn) { |
10633
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
|
0 |
0 |
if (nreturn - items > 0) EXTEND (SP, nreturn - items); |
10652
|
0 |
10 |
if ( NULL == dat ) { |
10665
|
10 |
2 |
if ( (DFP *) dat) free( (DFP *) dat); |
10676
|
0 |
10 |
if ( dat == NULL ) { |
10762
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
7 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
7 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
7 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
7 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
7 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
|
0 |
0 |
if (SvTRUE (ERRSV)) Perl_croak(aTHX_ "%s",SvPV_nolen (ERRSV)); |
10764
|
0 |
7 |
if (CoreSV==NULL) |
10766
|
7 |
0 |
PDL = INT2PTR(Core*,SvIV( CoreSV )); /* Core* value */ |
10767
|
0 |
7 |
if (PDL->Version != PDL_CORE_VERSION) |