package CNS221 is
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     type Current_Type is ( Impulse, Step, Alpha );
     ----------------------------------------------------------------------
     Rm_Def       : constant float := 20_000.0; -- Ohm cm2
     Ri_Def       : constant float :=    100.0; -- Ohm cm
     Diameter_Def : constant float :=   2.0e-6; -- m
     ----------------------------------------------------------------------
     procedure Cable_Passive_Steady_State (
       Rm       : in     float := Rm_Def;
       Ri       : in     float := Ri_Def;
       Diameter : in     float := Diameter_Def );
     function Current_Injection (
       Current : Current_Type;
       Time    : float       ;
       T_Peak  : float := 0.5 )
       return float;
     procedure Demo;
     procedure Soma_Parallel_RC (
       I_Amp : in     float := 1.0 );
     procedure Synapse_Soma_Parallel_RC (
       V         :    out float;
       Frequency : in     float := 0.0 );
     ----------------------------------------------------------------------
     ----------------------------------------------------------------------
     end CNS221;