static void nrn_init(_NrnThread* _nt, _Memb_list* _ml, int _type){
double* _p; Datum* _ppvar; Datum* _thread;
Node *_nd; double _v; int* _ni; int _iml, _cntml;
#if CACHEVEC
_ni = _ml->_nodeindices;
#endif
_cntml = _ml->_nodecount;
_thread = _ml->_thread;
for (_iml = 0; _iml < _cntml; ++_iml) {
_p = _ml->_data[_iml]; _ppvar = _ml->_pdata[_iml];
#if 0
_check_trates(_p, _ppvar, _thread, _nt);
#endif
#if CACHEVEC
if (use_cachevec) {
_v = VEC_V(_ni[_iml]);
}else
#endif
{
_nd = _ml->_nodelist[_iml];
_v = NODEV(_nd);
}
v = _v;
ek = _ion_ek;
initmodel(_p, _ppvar, _thread, _nt);
}}
static int trates(double* _p, Datum* _ppvar, Datum* _thread, _NrnThread* _nt, double _lv) {
#if 0
_check_trates(_p, _ppvar, _thread, _nt);
#endif
_n_trates(_p, _ppvar, _thread, _nt, _lv);
return 0;
}
static void _hoc_trates(void) {
double _r;
double* _p; Datum* _ppvar; Datum* _thread; _NrnThread* _nt;
if (_extcall_prop) {_p = _extcall_prop->param; _ppvar = _extcall_prop->dparam;}else{ _p = (double*)0; _ppvar = (Datum*)0; }
_thread = _extcall_thread;
_nt = nrn_threads;
#if 1
_check_trates(_p, _ppvar, _thread, _nt);
#endif
_r = 1.;
trates ( _p, _ppvar, _thread, _nt, *getarg(1) );
hoc_retpushx(_r);
}
static void _check_table_thread(double* _p, Datum* _ppvar, Datum* _thread, _NrnThread* _nt, int _type) {
_check_trates(_p, _ppvar, _thread, _nt);
}
static int trates(double _lv){ _check_trates();
_n_trates(_lv);
return 0;
}