static int rate ( _threadargsprotocomma_ double _lv ) {
double _la , _lqt ;
_lqt = pow( q10 , ( ( celsius - 33.0 ) / 10.0 ) ) ;
_la = alpt ( _threadargscomma_ _lv ) ;
linf = 1.0 / ( 1.0 + alpl ( _threadargscomma_ _lv ) ) ;
taul = bett ( _threadargscomma_ _lv ) / ( qtl * _lqt * a0t * ( 1.0 + _la ) ) ;
return 0; }
static void _hoc_alpl(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;
_r = alpl ( _p, _ppvar, _thread, _nt, *getarg(1) );
hoc_retpushx(_r);
}
static int rates ( _threadargsprotocomma_ double _lv ) {
double _la , _lqt ;
_lqt = pow( q10 , ( ( celsius - 24.0 ) / 10.0 ) ) ;
_la = alpn ( _threadargscomma_ _lv ) ;
ninf = 1.0 / ( 1.0 + _la ) ;
taun = betn ( _threadargscomma_ _lv ) / ( _lqt * a0n * ( 1.0 + _la ) ) ;
if ( taun < nmin ) {
taun = nmin ;
}
_la = alpl ( _threadargscomma_ _lv ) ;
linf = 1.0 / ( 1.0 + _la ) ;
taul = 0.26 * ( _lv + 50.0 ) / qtl ;
if ( taul < lmin / qtl ) {
taul = lmin / qtl ;
}
return 0; }
static void _hoc_alpl(void) {
double _r;
_r = alpl ( *getarg(1) );
hoc_retpushx(_r);
}
