Branch Coverage

lib/PDL/Math-pp-bessyn.c

Criterion	Covered	Total	%
branch	29	294	9.8

line	true	false	branch
32	0	2	if (!__privtrans->broadcast.incs) return PDL->make_error(PDL_EUSERERROR, "Error in bessyn:" "broadcast.incs NULL");
73	0	2	if ( __privtrans->bvalflag ) { /* ** do 'bad' Code ** */
78	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
79	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
81	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
84	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
85	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
87	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
90	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
91	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
93	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
103	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Float,F,PDL_Long,L)
104	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,F,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
106	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
109	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	2	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	2	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	2	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
	0	2	PDL_DECLARE_PARAMS_bessyn_1(PDL_Double,D,PDL_Long,L)
110	0	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	2	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	2	2	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,D,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
112	0	2	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	2	}PDL_BROADCASTLOOP_END_bessyn_readdata
115	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
	0	0	PDL_DECLARE_PARAMS_bessyn_1(PDL_LDouble,E,PDL_Long,L)
116	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
	0	0	PDL_BROADCASTLOOP_START_bessyn_readdata {PDL_IF_BAD(if ( PDL_ISBAD2((n_datap)[0],n_badval,L,n_badval_isnan) || PDL_ISBAD2((a_datap)[0],a_badval,E,a_badval_isnan) ) { (b_datap)[0]=b_badval; } else,)
118	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
	0	0	}PDL_BROADCASTLOOP_END_bessyn_readdata
153	0	2	if (!PDL) return (pdl_error){PDL_EFATAL, "PDL core struct is NULL, can't continue",0};
155	0	2	if (!__privtrans) return PDL->make_error_simple(PDL_EFATAL, "Couldn't create trans");
159	0	2	PDL_RETERROR(PDL_err, PDL->type_coerce(__privtrans));
160	0	2	PDL_RETERROR(PDL_err, PDL->make_trans_mutual(__privtrans));