NEURON { SUFFIX nap } NEURON { USEION na WRITE ina } ASSIGNED { ina } PARAMETER { erev = 55 (mV) gmax = 0.030 (umho) vrest = 0.0 mvalence = 2 mgamma = 0.5 mbaserate = 4.5 mvhalf = -33.5 mbasetau = 0.02 mtemp = 36 mq10 = 3.0 mexp = 3 hvalence = 0 hgamma = 0 hbaserate = 0 hvhalf = 0 hbasetau = 0 htemp = 0 hq10 = 0. hexp = 0 celsius (degC) dt (ms) v (mV) vmax = 100 (mV) vmin = -100 (mV) } : end PARAMETER INCLUDE "bg_cvode.inc" PROCEDURE iassign () { i = g*(v-erev) ina=i } :** kdr2