NEURON { SUFFIX cah }
NEURON { USEION ca WRITE ica }
ASSIGNED { ica }
PARAMETER {
        erev
	gmax 		= 0.001   (umho)
        vrest           = 0    (mV)

	mvalence 	= 6
	mgamma 		= 0.7
	mbaserate 	= 1
	mvhalf 		= -15.
	mbasetau 	= 0.1
	mtemp 		= 37
        mq10            =  3
	mexp 		= 1

	hvalence 	= 0
	hgamma		= 0
	hbaserate 	= 0
	hvhalf 		= 0
	hbasetau 	= 0
	htemp 		= 0
        hq10            = 3
	hexp 		= 0
}

INCLUDE "bg_cvode.inc"
PROCEDURE iassign() { i = g * ghkca(v) ica=i }

:** kdr