| 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) |