static void _hoc_alpv(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 = alpv ( _p, _ppvar, _thread, _nt, *getarg(1) );
hoc_retpushx(_r);
}
static int trates ( double _lvm , double _la2 , double _lsh2 ) {
double _la , _lb , _lc , _lqt ;
_lqt = pow( q10 , ( ( celsius - 24.0 ) / 10.0 ) ) ;
_la = trap0 ( _threadargscomma_ _lvm , tha + _lsh2 , Ra , qa ) ;
_lb = trap0 ( _threadargscomma_ - _lvm , - tha - _lsh2 , Rb , qa ) ;
mtau = 1.0 / ( _la + _lb ) / _lqt ;
if ( mtau < mmin ) {
mtau = mmin ;
}
minf = _la / ( _la + _lb ) ;
_la = trap0 ( _threadargscomma_ _lvm , thi1 + _lsh2 , Rd , qd ) ;
_lb = trap0 ( _threadargscomma_ - _lvm , - thi2 - _lsh2 , Rg , qg ) ;
htau = 1.0 / ( _la + _lb ) / _lqt ;
if ( htau < hmin ) {
htau = hmin ;
}
hinf = 1.0 / ( 1.0 + exp ( ( _lvm - thinf - _lsh2 ) / qinf ) ) ;
_lc = alpv ( _threadargscomma_ _lvm ) ;
sinf = _lc + _la2 * ( 1.0 - _lc ) ;
taus = bets ( _threadargscomma_ _lvm ) / ( a0s * ( 1.0 + alps ( _threadargscomma_ _lvm ) ) ) ;
if ( taus < smax ) {
taus = smax ;
}
return 0; }
static void _hoc_alpv(void) {
double _r;
_r = alpv ( *getarg(1) );
hoc_retpushx(_r);
}