begintemplate Rod

public soma 
create soma
  
proc init() { local x, y, z
    create soma
	if (numarg() == 3) {
		x = $1 * 2
		y = $2 * 2
		z = $3
	} else {
		x = 0
		y = 0
		z = 0
	}

    soma {
		{ pt3dclear() pt3dadd(x, y, z, 1) pt3dadd(x, y, z+22.7, 1) }
	
		nseg=9
		L=10/PI
		diam=10
		cm= 30 //pF
		
		insert Kv
		insert hyper
		insert Kx
		insert Leak
		//insert Ca
		insert Cad
		insert Rod_CPR
		
    }
  }	// end init()

endtemplate Rod