! 25 May 2018, start with plateauT13, used in NIH proposal
! Then modify integrate_tuftRS to allow for VFO - see plateauAX21
! 15 15 2018, from plateau9: allow for time-varying GABA-B, gCaL, gKDR
! in tuftIB integration
! 24 Jan 2018, on Cognitive Computing Cluster
! Start with son_of_groucho133.f, use to study delta/plateau transition,
! altering GABA-B, tuftIB gCaL, etc.
! 8 March 2017, revised groucho program, start with spikewaveS96.f
! Original comments at start of that program saved in separate file ("original....")
PROGRAM plateau
PARAMETER (num_suppyrRS = 1000,
& num_supbask = 100, num_supaxax = 100, num_supLTS = 100,
& num_supVIP = 100, num_supng = 100, num_supintern = 500,
& num_spinstell = 500, num_tuftIB = 500, num_tuftRS = 500,
& num_nontuftRS = 500,
& num_deepbask = 200,
& num_deepaxax = 100, num_deepng = 200, num_deepintern = 500,
& num_TCR = 500,
& num_nRT = 500)
PARAMETER (ncellspernode = 500,
& nodesfor_suppyrRS = 2,
& nodesfor_supintern = 1,
& nodesfor_spinstell = 1,
& nodesfor_tuftIB = 1,
& nodesfor_tuftRS = 1,
& nodesfor_nontuftRS = 1,
& nodesfor_deepintern = 1,
& nodesfor_TCR = 1,
& nodesfor_nRT = 1)
PARAMETER (numnodes = 10) ! Check manually for consistency.
PARAMETER (maxcellspernode = 500)
PARAMETER (numcomp_suppyrRS = 74,
& numcomp_supVIP = 59,
& numcomp_supbask = 59,
& numcomp_supaxax = 59,
& numcomp_supLTS = 59,
& numcomp_spinstell = 59,
& numcomp_tuftIB = 61,
& numcomp_tuftRS = 61,
& numcomp_nontuftRS = 50,
& numcomp_deepbask = 59,
& numcomp_deepaxax = 59,
& numcomp_TCR =137,
& numcomp_nRT = 59,
& numcomp_supng = 59,
& numcomp_deepng = 59)
PARAMETER (num_suppyrRS_to_suppyrRS = 50,
& num_suppyrRS_to_supbask = 90, ! note
& num_suppyrRS_to_supaxax = 90, ! note
& num_suppyrRS_to_supLTS = 90, ! note
& num_suppyrRS_to_supng = 90, ! note
& num_suppyrRS_to_spinstell = 3, ! make small, per Thomson & Bannister
& num_suppyrRS_to_tuftIB = 60, ! big per Thomson & Bannister
& num_suppyrRS_to_tuftRS = 60, ! big per Thomson & Bannister
& num_suppyrRS_to_deepbask = 10, ! 16 Nov. 2004: Alex T says density of
! connections from sup pyrs to deep interneurons not known, although exist: try smaller value
& num_suppyrRS_to_deepaxax = 10, ! see above
& num_suppyrRS_to_supVIP = 10, ! see above
! No suppyrRS to deepng
& num_suppyrRS_to_nontuftRS = 3) ! small per Thomson & Bannister
PARAMETER
& (num_supbask_to_suppyrRS = 20,
& num_supbask_to_supbask = 20,
& num_supbask_to_supaxax = 20,
& num_supbask_to_supLTS = 20,
& num_supbask_to_supng = 20,
& num_supbask_to_spinstell = 20,
& num_supaxax_to_suppyrRS = 20, ! note
& num_supaxax_to_spinstell = 5,
& num_supaxax_to_tuftIB = 5,
& num_supaxax_to_tuftRS = 5,
& num_supaxax_to_nontuftRS = 5,
& num_supLTS_to_supbask = 20,
& num_supLTS_to_supaxax = 20,
& num_supLTS_to_supLTS = 20,
& num_supLTS_to_suppyrRS = 20,
& num_supLTS_to_spinstell = 20,
& num_supLTS_to_tuftIB = 20)
PARAMETER
& (num_supng_to_suppyrRS = 20,
& num_supng_to_nontuftRS = 20,
& num_supng_to_tuftIB = 20,
& num_supng_to_tuftRS = 20,
& num_supng_to_supng = 10,
& num_supng_to_supbask = 10)
PARAMETER
& (num_supLTS_to_tuftRS = 20,
& num_supLTS_to_deepbask = 5,
& num_supLTS_to_deepaxax = 5,
& num_supLTS_to_supVIP = 5,
& num_supLTS_to_nontuftRS = 20,
& num_spinstell_to_suppyrRS = 20,
& num_spinstell_to_supbask = 20,
& num_spinstell_to_supaxax = 20,
& num_spinstell_to_supLTS = 20,
& num_spinstell_to_spinstell= 30,
& num_spinstell_to_tuftIB = 20,
& num_spinstell_to_tuftRS = 20,
& num_spinstell_to_deepbask = 20,
& num_spinstell_to_deepaxax = 20,
& num_spinstell_to_supVIP = 20,
& num_spinstell_to_deepng = 20,
& num_spinstell_to_nontuftRS= 20,
c & num_tuftIB_to_suppyrRS = 20,
& num_tuftIB_to_suppyrRS = 5, ! small per Thomson & Bannister
! & num_tuftIB_to_supbask = 20)
& num_tuftIB_to_supbask = 10) ! 17 Nov. 2004, try smaller value
PARAMETER
& (num_tuftIB_to_supaxax = 10, ! 17 Nov. 2004, try smaller value
& num_tuftIB_to_supLTS = 10, ! 17 Nov. 2004, try smaller value
& num_tuftIB_to_spinstell = 20,
& num_tuftIB_to_tuftIB = 50,
& num_tuftIB_to_tuftRS = 20,
& num_tuftIB_to_deepbask = 20,
& num_tuftIB_to_deepaxax = 20,
& num_tuftIB_to_supVIP = 25,
& num_tuftIB_to_deepng = 20,
& num_tuftIB_to_nontuftRS = 20,
& num_tuftRS_to_suppyrRS = 40,
& num_tuftRS_to_supbask = 20,
& num_tuftRS_to_supaxax = 20,
& num_tuftRS_to_supLTS = 20,
& num_tuftRS_to_spinstell = 20,
& num_tuftRS_to_tuftIB = 20,
& num_tuftRS_to_tuftRS = 10,
& num_tuftRS_to_deepbask = 20,
& num_tuftRS_to_deepaxax = 20,
& num_tuftRS_to_supVIP = 5,
& num_tuftRS_to_deepng = 20,
& num_tuftRS_to_nontuftRS = 20)
PARAMETER
& (num_deepbask_to_spinstell = 20,
& num_deepbask_to_tuftIB = 20,
& num_deepbask_to_tuftRS = 20,
& num_deepbask_to_deepbask = 20,
& num_deepbask_to_deepaxax = 20,
& num_deepbask_to_supVIP = 2,
& num_deepbask_to_deepng = 20,
& num_deepbask_to_nontuftRS = 20,
& num_deepaxax_to_suppyrRS = 5,
& num_deepaxax_to_spinstell = 5,
& num_deepaxax_to_tuftIB = 5,
& num_deepaxax_to_tuftRS = 5,
& num_deepaxax_to_nontuftRS = 5,
& num_supVIP_to_suppyrRS = 20)
PARAMETER
& (
& num_supVIP_to_supbask = 10,
& num_supVIP_to_supaxax = 10,
& num_supVIP_to_supLTS = 20,
& num_supVIP_to_spinstell = 20,
& num_supVIP_to_tuftIB = 32, ! if this is equal to ncompallow, can insure one input to one compartment
& num_supVIP_to_tuftRS = 20,
& num_supVIP_to_deepbask = 2,
& num_supVIP_to_deepaxax = 2,
& num_supVIP_to_supVIP = 5,
& num_supVIP_to_supng = 20,
& num_supVIP_to_nontuftRS = 20)
PARAMETER
& (num_deepng_to_tuftIB = 20,
& num_deepng_to_tuftRS = 20,
& num_deepng_to_nontuftRS = 20,
& num_deepng_to_spinstell = 20,
& num_deepng_to_deepng = 10,
& num_deepng_to_deepbask = 10,
& num_TCR_to_suppyrRS = 10,
& num_TCR_to_supbask = 10,
& num_TCR_to_supaxax = 10,
& num_TCR_to_supng = 10,
& num_TCR_to_spinstell = 20,
& num_TCR_to_tuftIB = 10,
& num_TCR_to_tuftRS = 10,
& num_TCR_to_deepbask = 20,
& num_TCR_to_deepaxax = 10,
& num_TCR_to_deepng = 10,
& num_TCR_to_nRT = 25, ! note
& num_TCR_to_nontuftRS = 10,
& num_nRT_to_TCR = 15, ! note
& num_nRT_to_nRT = 10)
PARAMETER
& (num_nontuftRS_to_suppyrRS = 5,
& num_nontuftRS_to_supbask = 10,
& num_nontuftRS_to_supaxax = 10,
& num_nontuftRS_to_supLTS = 10,
& num_nontuftRS_to_spinstell= 10,
& num_nontuftRS_to_tuftIB = 10,
& num_nontuftRS_to_tuftRS = 10,
& num_nontuftRS_to_deepbask = 10,
& num_nontuftRS_to_deepaxax = 10,
& num_nontuftRS_to_supVIP = 10,
& num_nontuftRS_to_deepng = 10,
& num_nontuftRS_to_TCR = 20,
& num_nontuftRS_to_nRT = 20,
& num_nontuftRS_to_nontuftRS= 40)
c Begin definition of number of compartments that can be
c contacted for each type of synaptic connection.
PARAMETER (ncompallow_suppyrRS_to_suppyrRS = 36,
& ncompallow_suppyrRS_to_supbask = 24,
& ncompallow_suppyrRS_to_supaxax = 24,
& ncompallow_suppyrRS_to_supLTS = 24,
& ncompallow_suppyrRS_to_supng = 52,
& ncompallow_suppyrRS_to_spinstell = 24,
& ncompallow_suppyrRS_to_tuftIB = 8,
& ncompallow_suppyrRS_to_tuftRS = 8,
& ncompallow_suppyrRS_to_deepbask = 24,
& ncompallow_suppyrRS_to_deepaxax = 24,
& ncompallow_suppyrRS_to_supVIP = 24,
& ncompallow_suppyrRS_to_nontuftRS = 7)
PARAMETER (ncompallow_supbask_to_suppyrRS = 11,
& ncompallow_supbask_to_supbask = 24,
& ncompallow_supbask_to_supng = 4,
& ncompallow_supbask_to_supaxax = 24,
& ncompallow_supbask_to_supLTS = 24,
& ncompallow_supbask_to_spinstell = 5)
PARAMETER (ncompallow_supLTS_to_suppyrRS = 53,
& ncompallow_supLTS_to_supbask = 40,
& ncompallow_supLTS_to_supaxax = 40,
& ncompallow_supLTS_to_supLTS = 40,
& ncompallow_supLTS_to_spinstell = 40,
& ncompallow_supLTS_to_tuftIB = 40,
& ncompallow_supLTS_to_tuftRS = 40,
& ncompallow_supLTS_to_deepbask = 20,
& ncompallow_supLTS_to_deepaxax = 20,
& ncompallow_supLTS_to_supVIP = 20,
& ncompallow_supLTS_to_nontuftRS = 29)
PARAMETER (ncompallow_supng_to_suppyrRS = 64,
& ncompallow_supng_to_nontuftRS = 5,
& ncompallow_supng_to_tuftIB = 14,
& ncompallow_supng_to_tuftRS = 14,
& ncompallow_supng_to_supng = 4,
& ncompallow_supng_to_supbask = 4)
PARAMETER (ncompallow_spinstell_to_suppyrRS = 24,
& ncompallow_spinstell_to_supbask = 24,
& ncompallow_spinstell_to_supaxax = 24,
& ncompallow_spinstell_to_supLTS = 24,
& ncompallow_spinstell_to_spinstell = 24,
& ncompallow_spinstell_to_tuftIB = 12,
& ncompallow_spinstell_to_tuftRS = 12,
& ncompallow_spinstell_to_deepbask = 24,
& ncompallow_spinstell_to_deepaxax = 24,
& ncompallow_spinstell_to_supVIP = 24,
& ncompallow_spinstell_to_deepng = 52,
& ncompallow_spinstell_to_nontuftRS = 5)
PARAMETER (ncompallow_tuftIB_to_suppyrRS = 13,
& ncompallow_tuftIB_to_supbask = 24,
& ncompallow_tuftIB_to_supaxax = 24,
& ncompallow_tuftIB_to_supLTS = 24,
& ncompallow_tuftIB_to_spinstell = 24,
c & ncompallow_tuftIB_to_tuftIB = 46, ! for basilar/obl inputs
c & ncompallow_tuftIB_to_tuftIB = 2, ! for inputs to just past bifurcation, 48 & 49
& ncompallow_tuftIB_to_tuftIB = 5, ! for inputs to near bifurcation
& ncompallow_tuftIB_to_tuftRS = 46,
& ncompallow_tuftIB_to_deepbask = 24,
& ncompallow_tuftIB_to_deepaxax = 24,
& ncompallow_tuftIB_to_supVIP = 24,
& ncompallow_tuftIB_to_deepng = 52,
& ncompallow_tuftIB_to_nontuftRS = 43)
PARAMETER (ncompallow_tuftRS_to_suppyrRS = 13,
& ncompallow_tuftRS_to_supbask = 24,
& ncompallow_tuftRS_to_supaxax = 24,
& ncompallow_tuftRS_to_supLTS = 24,
& ncompallow_tuftRS_to_spinstell = 24,
& ncompallow_tuftRS_to_tuftIB = 46,
& ncompallow_tuftRS_to_tuftRS = 46,
& ncompallow_tuftRS_to_deepbask = 24,
& ncompallow_tuftRS_to_deepaxax = 24,
& ncompallow_tuftRS_to_supVIP = 24,
& ncompallow_tuftRS_to_deepng = 52,
& ncompallow_tuftRS_to_nontuftRS = 43)
PARAMETER (ncompallow_deepbask_to_spinstell = 5,
& ncompallow_deepbask_to_tuftIB = 8,
& ncompallow_deepbask_to_tuftRS = 8,
& ncompallow_deepbask_to_deepbask = 24,
& ncompallow_deepbask_to_deepaxax = 24,
& ncompallow_deepbask_to_supVIP = 24,
& ncompallow_deepbask_to_deepng = 4,
& ncompallow_deepbask_to_nontuftRS = 8)
PARAMETER (ncompallow_supVIP_to_suppyrRS = 53,
& ncompallow_supVIP_to_supbask = 20,
& ncompallow_supVIP_to_supaxax = 20,
& ncompallow_supVIP_to_supLTS = 20,
& ncompallow_supVIP_to_supng = 20,
& ncompallow_supVIP_to_spinstell = 40,
& ncompallow_supVIP_to_tuftIB = 32, ! should equal the number of VIP cells to each tuftIB
& ncompallow_supVIP_to_tuftRS = 40,
& ncompallow_supVIP_to_deepbask = 40,
& ncompallow_supVIP_to_deepaxax = 40,
& ncompallow_supVIP_to_supVIP = 40,
& ncompallow_supVIP_to_nontuftRS = 29)
PARAMETER (ncompallow_deepng_to_tuftIB = 33,
& ncompallow_deepng_to_tuftRS = 33,
& ncompallow_deepng_to_nontuftRS = 33,
& ncompallow_deepng_to_spinstell = 52,
& ncompallow_deepng_to_deepng = 4,
& ncompallow_deepng_to_deepbask = 52)
PARAMETER (ncompallow_TCR_to_suppyrRS = 24,
& ncompallow_TCR_to_supbask = 12,
& ncompallow_TCR_to_supaxax = 12,
& ncompallow_TCR_to_supng = 52,
& ncompallow_TCR_to_spinstell = 52,
& ncompallow_TCR_to_tuftIB = 9,
& ncompallow_TCR_to_tuftRS = 9,
& ncompallow_TCR_to_deepbask = 5, ! make them proximal
! & ncompallow_TCR_to_deepaxax = 12,
& ncompallow_TCR_to_deepaxax = 5, ! make them proximal
& ncompallow_TCR_to_deepng = 52,
& ncompallow_TCR_to_nRT = 12,
& ncompallow_TCR_to_nontuftRS = 5)
PARAMETER (ncompallow_nRT_to_TCR = 11,
& ncompallow_nRT_to_nRT = 53)
PARAMETER (ncompallow_nontuftRS_to_suppyrRS = 4,
& ncompallow_nontuftRS_to_supbask = 24,
& ncompallow_nontuftRS_to_supaxax = 24,
& ncompallow_nontuftRS_to_supLTS = 24,
& ncompallow_nontuftRS_to_spinstell = 24,
& ncompallow_nontuftRS_to_tuftIB = 46,
& ncompallow_nontuftRS_to_tuftRS = 46,
& ncompallow_nontuftRS_to_deepbask = 24,
& ncompallow_nontuftRS_to_deepaxax = 24,
& ncompallow_nontuftRS_to_supVIP = 24,
& ncompallow_nontuftRS_to_deepng = 52,
& ncompallow_nontuftRS_to_TCR = 90,
& ncompallow_nontuftRS_to_nRT = 12,
& ncompallow_nontuftRS_to_nontuftRS = 43)
c End definition of number of allowed compartments that
c can be contacted for each sort of connection
c Note that gj form only between cells of a given type and in same node
c Except different sorts of interneurons may couple
c gj/cell = 2 x total gj / # cells
c for proportions, see /home/traub/supergj/tests.f
c???? GJ BETWEEN SUPVIP ????
c integer, parameter :: totaxgj_suppyrRS = 300
integer, parameter :: totaxgj_suppyrRS = 1200
integer, parameter :: totSDgj_supbask = 200
integer, parameter :: totSDgj_supaxax = 0
integer, parameter :: totSDgj_supLTS = 200
integer, parameter :: totaxgj_spinstell = 180 ! keep small: axons now very excitable
c integer, parameter :: totaxgj_tuftIB = 750
integer, parameter :: totaxgj_tuftIB = 400
c integer, parameter :: totaxgj_tuftRS = 160
integer, parameter :: totaxgj_tuftRS = 600
integer, parameter :: totaxgj_nontuftRS = 500
integer, parameter :: totSDgj_deepbask = 250
integer, parameter :: totSDgj_deepaxax = 0
integer, parameter :: totSDgj_supVIP = 250
c integer, parameter :: totaxgj_TCR = 100
integer, parameter :: totaxgj_TCR = 200
integer, parameter :: totSDgj_nRT = 250
integer, parameter :: totSDgj_supng = 250
integer, parameter :: totSDgj_deepng = 250
c Note: no gj between axoaxonic cells.
c Define number of compartments on a cell where a gj might form
integer, parameter :: num_axgjcompallow_suppyrRS = 1
integer, parameter :: num_SDgjcompallow_supbask = 8
integer, parameter :: num_SDgjcompallow_supng = 8
integer, parameter :: num_SDgjcompallow_supLTS = 8
integer, parameter :: num_axgjcompallow_spinstell= 1
integer, parameter :: num_axgjcompallow_tuftIB = 1
integer, parameter :: num_axgjcompallow_tuftRS = 1
integer, parameter :: num_axgjcompallow_nontuftRS= 1
integer, parameter :: num_SDgjcompallow_deepbask = 8
integer, parameter :: num_SDgjcompallow_deepng = 8
integer, parameter :: num_SDgjcompallow_supVIP = 8
integer, parameter :: num_axgjcompallow_TCR = 1
integer, parameter :: num_SDgjcompallow_nRT = 8
c Define gap junction conductances.
! double precision, parameter :: gapcon_suppyrRS = 6.0d-3 ! also
! define as just double precision, so as to be able to vary it
c double precision, parameter :: gapcon_suppyrRS = 3.0d-3
! double precision, parameter :: gapcon_suppyrRS = 0.d-3 ! to see if superf. lay. can follow 40 Hz
double precision, parameter :: gapcon_supbask = 1.d-3
double precision, parameter :: gapcon_supng = 0.5d-3
double precision, parameter :: gapcon_supaxax = 0.d-3
double precision, parameter :: gapcon_supLTS = 1.d-3
double precision, parameter :: gapcon_spinstell = 3.d-3
! double precision, parameter :: gapcon_spinstell = 2.d-3
! double precision, parameter :: gapcon_spinstell = 0.d-3 ! to see if ctx follows 40 Hz from thal.
c double precision, parameter :: gapcon_tuftIB = 4.d-3
double precision, parameter :: gapcon_tuftIB = 10.d-3 ! 10 is a value used in L5VFOmed
! double precision, parameter :: gapcon_tuftIB = 0.d-3 ! to decr. antidr. bursting
c double precision, parameter :: gapcon_tuftRS = 10.d-3
c double precision, parameter :: gapcon_tuftRS = 8.d-3
c MAKE gapcon_tuftRS JUST DOUBLE PRECISION, SO IT CAN BE TIME-DEPENDENT
! double precision, parameter :: gapcon_tuftRS = 0.d-3 ! now follow 40 Hz?
c double precision, parameter :: gapcon_nontuftRS = 4.d-3
double precision, parameter :: gapcon_nontuftRS = 0.d-3 ! to abolish VFO in lay. 6
double precision, parameter :: gapcon_deepbask = 1.d-3
! double precision, parameter :: gapcon_deepbask = 0.d-3
double precision, parameter :: gapcon_deepng = 0.5d-3
double precision, parameter :: gapcon_deepaxax = 0.d-3
double precision, parameter :: gapcon_supVIP = 1.d-3
! double precision, parameter :: gapcon_supVIP = 0.d-3
double precision, parameter :: gapcon_TCR = 1.d-3
c double precision, parameter :: gapcon_TCR = 0.d-3
double precision, parameter :: gapcon_nRT = 0.4d-3
! Parameters for scaling tuftIB conductances
c double precision, parameter :: scale_tuftIB_gAR =1.0d0
double precision, parameter :: scale_tuftIB_gAR =0.1d0
c double precision, parameter :: scale_tuftIB_gKAHP=0.70d0 ! used in delta32
double precision, parameter :: scale_tuftIB_gKAHP=0.50d0 ! used in delta32
c double precision, parameter :: scale_tuftIB_gKAHP=0.00d0 ! used in delta32
c double precision, parameter :: scale_tuftIB_gNaP =1.0d0 ! 25 Mar. 2005, define below
c double precision, parameter :: scale_tuftIB_gKM =1.0d0 ! 10 Feb. 2005, this one defined below
double precision, parameter :: scale_tuftIB_gKA =1.0d0
c double precision, parameter :: scale_tuftIB_gKA =0.5d0
double precision, parameter :: scale_tuftIB_gKC =1.0d0 ! this value in isoldeep80.f
c double precision, parameter :: scale_tuftIB_gCaL =0.7d0 ! define below
c Assorted parameters
double precision, parameter :: dt = 0.002d0
double precision, parameter :: Mg = 1.00 ! for NMDA-dependent CCh delta, try lower Mg
! Castro-Alamancos J Physiol, disinhib. neocortex in vitro, uses
! Mg = 1.3
double precision, parameter :: NMDA_saturation_fact
! & = 5.d0
& = 80.d0
c NMDA conductance developed on one postsynaptic compartment,
c from one type of presynaptic cell, can be at most this
c factor x unitary conductance
c UNFORTUNATELY, with this scheme,if one NMDA cond. set to 0
c on a cell type, all NMDA conductances will be forced to 0
c on that cell type...
double precision, parameter :: thal_cort_delay = 1.d0
double precision, parameter :: cort_thal_delay = 5.d0
integer, parameter :: how_often = 50
! how_often defines how many time steps between synaptic conductance
! updates, and between broadcastings of axonal voltages.
double precision, parameter :: axon_refrac_time = 1.5d0
c For these ectopic rate parameters, assume noisepe checked
c every 200 time steps = 0.4 ms = 1./2.5 ms
double precision, parameter :: noisepe_suppyrRS =
c & 0.d0
c & 1.d0 / (2.5d0 * 1000.d0) ! USUAL
& 1.d0 / (2.5d0 * 2000.d0) ! USUAL
c & 1.d0 / (2.5d0 * 5000.d0) ! USUAL
c & 1.d0 / (2.5d0 * 10000.d0)
double precision, parameter :: noisepe_spinstell =
& 1.d0 / (2.5d0 * 1000.d0)
! Note that noisepe_tuftIB will be time-dependent, and sensitive
! to total average GABA-B conductance in cells on each node
double precision, parameter :: noisepe_tuftIB_save =
c & 0.d0
& 1.d0 / (2.5d0 * 5000.d0)
c & 1.d0 / (2.5d0 * 1000.d0)
c & 1.d0 / (2.5d0 * 10000.d0)
c & 1.d0 / (2.5d0 * 250.d0) ! 29 March 2005
double precision, parameter :: noisepe_tuftRS_save =
c this one also will be time_dependent
c & 1.d0 / (2.5d0 * 1000.d0)
& 1.d0 / (2.5d0 * 800.d0)
double precision, parameter :: noisepe_nontuftRS =
c & 1.d0 / (2.5d0 * 1000.d0)
& 0.d0 / (2.5d0 * 1000.d0)
double precision, parameter :: noisepe_TCR =
c & 1.d0 / (2.5d0 * 1000.d0)
& 1.d0 / (2.5d0 * 20000.d0)
c Synaptic conductance time constants.
real*8, parameter :: tauAMPA_suppyrRS_to_suppyrRS=2.d0
real*8, parameter :: tauNMDA_suppyrRS_to_suppyrRS=130.5d0
real*8, parameter :: tauAMPA_suppyrRS_to_supbask =.8d0
real*8, parameter :: tauNMDA_suppyrRS_to_supbask =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_supng =.8d0
real*8, parameter :: tauNMDA_suppyrRS_to_supng =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_supaxax =.8d0
real*8, parameter :: tauNMDA_suppyrRS_to_supaxax =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_supLTS =1.d0
real*8, parameter :: tauNMDA_suppyrRS_to_supLTS =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_spinstell=2.d0
real*8, parameter :: tauNMDA_suppyrRS_to_spinstell=130.d0
real*8, parameter :: tauAMPA_suppyrRS_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_suppyrRS_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_suppyrRS_to_tuftRS =2.d0
real*8, parameter :: tauNMDA_suppyrRS_to_tuftRS =130.d0
real*8, parameter :: tauAMPA_suppyrRS_to_deepbask =.8d0
real*8, parameter :: tauNMDA_suppyrRS_to_deepbask =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_deepaxax =.8d0
real*8, parameter :: tauNMDA_suppyrRS_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_supVIP =1.d0
real*8, parameter :: tauNMDA_suppyrRS_to_supVIP =100.d0
real*8, parameter :: tauAMPA_suppyrRS_to_nontuftRS=2.d0
real*8, parameter :: tauNMDA_suppyrRS_to_nontuftRS=130.d0
real*8, parameter :: tauGABA_supbask_to_suppyrRS =6.d0 ! 29 Nov. 2005, reduce from 6 to 5, also below.
real*8, parameter :: tauGABA_supbask_to_supbask =3.d0
real*8, parameter :: tauGABA_supbask_to_supng =3.d0
real*8, parameter :: tauGABA_supbask_to_supaxax =3.d0
real*8, parameter :: tauGABA_supbask_to_supLTS =3.d0
real*8, parameter :: tauGABA_supbask_to_spinstell =6.d0
real*8, parameter :: tauGABA_supaxax_to_suppyrRS =6.d0
real*8, parameter :: tauGABA_supaxax_to_spinstell =6.d0
real*8, parameter :: tauGABA_supaxax_to_tuftIB =6.d0
real*8, parameter :: tauGABA_supaxax_to_tuftRS =6.d0
real*8, parameter :: tauGABA_supaxax_to_nontuftRS =6.d0
real*8, parameter :: tauGABA_supLTS_to_suppyrRS =20.d0
real*8, parameter :: tauGABA_supLTS_to_supbask =20.d0
real*8, parameter :: tauGABA_supLTS_to_supaxax =20.d0
real*8, parameter :: tauGABA_supLTS_to_supLTS =20.d0
real*8, parameter :: tauGABA_supLTS_to_spinstell =20.d0
real*8, parameter :: tauGABA_supLTS_to_tuftIB =20.d0
real*8, parameter :: tauGABA_supLTS_to_tuftRS =20.d0
real*8, parameter :: tauGABA_supLTS_to_deepbask =20.d0
real*8, parameter :: tauGABA_supLTS_to_deepaxax =20.d0
real*8, parameter :: tauGABA_supLTS_to_supVIP =20.d0
real*8, parameter :: tauGABA_supLTS_to_nontuftRS =20.d0
real*8, parameter:: tauGABA_supng_to_suppyrRS =6.d0
real*8, parameter:: tauGABAB_supng_to_suppyrRS =100.d0
real*8, parameter:: tauGABA_supng_to_nontuftRS =6.d0
real*8, parameter:: tauGABAB_supng_to_nontuftRS =100.d0
real*8, parameter:: tauGABA_supng_to_tuftIB =6.d0
real*8, parameter:: tauGABAB_supng_to_tuftIB =100.d0
real*8, parameter:: tauGABA_supng_to_tuftRS =6.d0
real*8, parameter:: tauGABAB_supng_to_tuftRS =100.d0
real*8, parameter:: tauGABA_supng_to_supng =3.d0
real*8, parameter:: tauGABA_supng_to_supbask =3.d0
real*8, parameter :: tauAMPA_spinstell_to_suppyrRS =2.d0
real*8, parameter :: tauNMDA_spinstell_to_suppyrRS =130.d0
real*8, parameter :: tauAMPA_spinstell_to_supbask =.8d0
real*8, parameter :: tauNMDA_spinstell_to_supbask =100.d0
real*8, parameter :: tauAMPA_spinstell_to_supaxax =.8d0
real*8, parameter :: tauNMDA_spinstell_to_supaxax =100.d0
real*8, parameter :: tauAMPA_spinstell_to_supLTS =1.d0
real*8, parameter :: tauNMDA_spinstell_to_supLTS =100.d0
real*8, parameter :: tauAMPA_spinstell_to_spinstell=2.d0
! real*8, parameter :: tauNMDA_spinstell_to_spinstell=130.d0
real*8, parameter :: tauNMDA_spinstell_to_spinstell= 15.d0 ! small tau per Fleidervish et al., NEURON
real*8, parameter :: tauAMPA_spinstell_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_spinstell_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_spinstell_to_tuftRS =2.d0
real*8, parameter :: tauNMDA_spinstell_to_tuftRS =130.d0
real*8, parameter :: tauAMPA_spinstell_to_deepbask =.8d0
real*8, parameter :: tauNMDA_spinstell_to_deepbask =100.d0
real*8, parameter :: tauAMPA_spinstell_to_deepng =.8d0
real*8, parameter :: tauNMDA_spinstell_to_deepng =100.d0
real*8, parameter :: tauAMPA_spinstell_to_deepaxax =.8d0
real*8, parameter :: tauNMDA_spinstell_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_spinstell_to_supVIP =1.d0
real*8, parameter :: tauNMDA_spinstell_to_supVIP =100.d0
real*8, parameter :: tauAMPA_spinstell_to_nontuftRS=2.d0
real*8, parameter :: tauNMDA_spinstell_to_nontuftRS=130.d0
real*8, parameter :: tauAMPA_tuftIB_to_suppyrRS =2.d0
real*8, parameter :: tauNMDA_tuftIB_to_suppyrRS =130.d0
real*8, parameter :: tauAMPA_tuftIB_to_supbask =.8d0
real*8, parameter :: tauNMDA_tuftIB_to_supbask =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_supaxax =.8d0
real*8, parameter :: tauNMDA_tuftIB_to_supaxax =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_supLTS =1.d0
real*8, parameter :: tauNMDA_tuftIB_to_supLTS =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_spinstell =2.d0
real*8, parameter :: tauNMDA_tuftIB_to_spinstell =130.d0
real*8, parameter :: tauAMPA_tuftIB_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_tuftIB_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_tuftIB_to_tuftRS =2.0d0
real*8, parameter :: tauNMDA_tuftIB_to_tuftRS =130.d0
real*8, parameter :: tauAMPA_tuftIB_to_deepbask =.8d0
real*8, parameter :: tauNMDA_tuftIB_to_deepbask =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_deepng =.8d0
real*8, parameter :: tauNMDA_tuftIB_to_deepng =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_deepaxax =.8d0
real*8, parameter :: tauNMDA_tuftIB_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_supVIP =1.d0
real*8, parameter :: tauNMDA_tuftIB_to_supVIP =100.d0
real*8, parameter :: tauAMPA_tuftIB_to_nontuftRS =2.0d0
real*8, parameter :: tauNMDA_tuftIB_to_nontuftRS =130.d0
real*8, parameter :: tauAMPA_tuftRS_to_suppyrRS =2.d0
real*8, parameter :: tauNMDA_tuftRS_to_suppyrRS =130.d0
real*8, parameter :: tauAMPA_tuftRS_to_supbask =.8d0
real*8, parameter :: tauNMDA_tuftRS_to_supbask =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_supaxax =.8d0
real*8, parameter :: tauNMDA_tuftRS_to_supaxax =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_supLTS =1.d0
real*8, parameter :: tauNMDA_tuftRS_to_supLTS =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_spinstell =2.d0
real*8, parameter :: tauNMDA_tuftRS_to_spinstell =130.d0
real*8, parameter :: tauAMPA_tuftRS_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_tuftRS_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_tuftRS_to_tuftRS =2.d0
real*8, parameter :: tauNMDA_tuftRS_to_tuftRS =130.d0
real*8, parameter :: tauAMPA_tuftRS_to_deepbask =.8d0
real*8, parameter :: tauNMDA_tuftRS_to_deepbask =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_deepng =.8d0
real*8, parameter :: tauNMDA_tuftRS_to_deepng =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_deepaxax =.8d0
real*8, parameter :: tauNMDA_tuftRS_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_supVIP =1.d0
real*8, parameter :: tauNMDA_tuftRS_to_supVIP =100.d0
real*8, parameter :: tauAMPA_tuftRS_to_nontuftRS =2.d0
real*8, parameter :: tauNMDA_tuftRS_to_nontuftRS =130.d0
real*8, parameter :: tauGABA_deepbask_to_spinstell =6.d0
real*8, parameter :: tauGABA_deepbask_to_tuftIB =6.d0
real*8, parameter :: tauGABA_deepbask_to_tuftRS =6.d0
real*8, parameter :: tauGABA_deepbask_to_deepbask =3.d0
real*8, parameter :: tauGABA_deepbask_to_deepaxax =3.d0
real*8, parameter :: tauGABA_deepbask_to_supVIP =3.d0
real*8, parameter :: tauGABA_deepbask_to_deepng =3.d0
real*8, parameter :: tauGABA_deepbask_to_nontuftRS =6.d0
real*8, parameter :: tauGABA_deepaxax_to_suppyrRS =6.d0
real*8, parameter :: tauGABA_deepaxax_to_spinstell =6.d0
real*8, parameter :: tauGABA_deepaxax_to_tuftIB =6.d0
real*8, parameter :: tauGABA_deepaxax_to_tuftRS =6.d0
real*8, parameter :: tauGABA_deepaxax_to_nontuftRS =6.d0
real*8, parameter :: tauGABA_supVIP_to_suppyrRS =20.d0
real*8, parameter :: tauGABA_supVIP_to_supbask =20.d0
real*8, parameter :: tauGABA_supVIP_to_supaxax =20.d0
real*8, parameter :: tauGABA_supVIP_to_supLTS =20.d0
real*8, parameter :: tauGABA_supVIP_to_supng =20.d0
real*8, parameter :: tauGABA_supVIP_to_spinstell =20.d0
real*8, parameter :: tauGABA_supVIP_to_tuftIB =20.d0
real*8, parameter :: tauGABA_supVIP_to_tuftRS =20.d0
real*8, parameter :: tauGABA_supVIP_to_deepbask =20.d0
real*8, parameter :: tauGABA_supVIP_to_deepaxax =20.d0
real*8, parameter :: tauGABA_supVIP_to_supVIP =20.d0
real*8, parameter :: tauGABA_supVIP_to_nontuftRS =20.d0
real*8, parameter :: tauGABA_deepng_to_tuftIB =6.d0
real*8, parameter :: tauGABAB_deepng_to_tuftIB =100.d0
real*8, parameter :: tauGABA_deepng_to_tuftRS =6.d0
real*8, parameter :: tauGABAB_deepng_to_tuftRS =100.d0
real*8, parameter :: tauGABA_deepng_to_nontuftRS =6.d0
real*8, parameter :: tauGABAB_deepng_to_nontuftRS =100.d0
real*8, parameter :: tauGABA_deepng_to_spinstell =6.d0
real*8, parameter :: tauGABAB_deepng_to_spinstell =100.d0
real*8, parameter :: tauGABA_deepng_to_deepng =3.d0
real*8, parameter :: tauGABA_deepng_to_deepbask =3.d0
real*8, parameter :: tauAMPA_TCR_to_suppyrRS =2.d0
real*8, parameter :: tauNMDA_TCR_to_suppyrRS =130.d0
c real*8, parameter :: tauAMPA_TCR_to_supbask =1.d0
real*8, parameter :: tauAMPA_TCR_to_supbask =0.75d0
real*8, parameter :: tauNMDA_TCR_to_supbask =100.d0
real*8, parameter :: tauAMPA_TCR_to_supng =0.75d0
real*8, parameter :: tauNMDA_TCR_to_supng =100.d0
real*8, parameter :: tauAMPA_TCR_to_supaxax =1.d0
real*8, parameter :: tauNMDA_TCR_to_supaxax =100.d0
real*8, parameter :: tauAMPA_TCR_to_spinstell =2.0d0
real*8, parameter :: tauNMDA_TCR_to_spinstell =130.d0
real*8, parameter :: tauAMPA_TCR_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_TCR_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_TCR_to_tuftRS =2.d0
real*8, parameter :: tauNMDA_TCR_to_tuftRS =130.d0
! real*8, parameter :: tauAMPA_TCR_to_deepbask =1.d0
real*8, parameter :: tauAMPA_TCR_to_deepbask =0.75d0
real*8, parameter :: tauNMDA_TCR_to_deepbask =100.d0
real*8, parameter :: tauAMPA_TCR_to_deepng =0.75d0
real*8, parameter :: tauNMDA_TCR_to_deepng =100.d0
! real*8, parameter :: tauAMPA_TCR_to_deepaxax =1.d0
real*8, parameter :: tauAMPA_TCR_to_deepaxax =0.75d0
real*8, parameter :: tauNMDA_TCR_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_TCR_to_nRT =2.0d0
real*8, parameter :: tauNMDA_TCR_to_nRT =150.d0
real*8, parameter :: tauAMPA_TCR_to_nontuftRS =2.0d0
real*8, parameter :: tauNMDA_TCR_to_nontuftRS =130.d0
! real*8, parameter :: tauGABA1_nRT_to_TCR =10.d0
! real*8, parameter :: tauGABA2_nRT_to_TCR =30.d0
! real*8, parameter :: tauGABA1_nRT_to_nRT =18.d0
! real*8, parameter :: tauGABA2_nRT_to_nRT =89.d0
! See notebook entry of 17 Feb. 2004.
! Speed these up per Huntsman & Huguenard (2000)
real*8, parameter :: tauGABA1_nRT_to_TCR =3.30d0
real*8, parameter :: tauGABA2_nRT_to_TCR =10.d0
real*8, parameter :: tauGABA1_nRT_to_nRT = 9.d0
real*8, parameter :: tauGABA2_nRT_to_nRT =44.5d0
real*8, parameter :: tauAMPA_nontuftRS_to_suppyrRS =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_suppyrRS =130.d0
real*8, parameter :: tauAMPA_nontuftRS_to_supbask =.8d0
real*8, parameter :: tauNMDA_nontuftRS_to_supbask =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_supaxax =.8d0
real*8, parameter :: tauNMDA_nontuftRS_to_supaxax =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_supLTS =1.0d0
real*8, parameter :: tauNMDA_nontuftRS_to_supLTS =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_spinstell =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_spinstell =130.d0
real*8, parameter :: tauAMPA_nontuftRS_to_tuftIB =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_tuftIB =130.d0
real*8, parameter :: tauAMPA_nontuftRS_to_tuftRS =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_tuftRS =130.d0
real*8, parameter :: tauAMPA_nontuftRS_to_deepbask =.8d0
real*8, parameter :: tauNMDA_nontuftRS_to_deepbask =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_deepng =.8d0
real*8, parameter :: tauNMDA_nontuftRS_to_deepng =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_deepaxax =.8d0
real*8, parameter :: tauNMDA_nontuftRS_to_deepaxax =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_supVIP =1.d0
real*8, parameter :: tauNMDA_nontuftRS_to_supVIP =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_TCR =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_TCR =130.d0
real*8, parameter :: tauAMPA_nontuftRS_to_nRT =2.0d0
real*8, parameter :: tauNMDA_nontuftRS_to_nRT =100.d0
real*8, parameter :: tauAMPA_nontuftRS_to_nontuftRS =2.d0
real*8, parameter :: tauNMDA_nontuftRS_to_nontuftRS =130.d0
c End definition of synaptic time constants
c Synaptic conductance scaling factors.
real*8 gAMPA_suppyrRS_to_suppyrRS /1.00d-3/
real*8 gNMDA_suppyrRS_to_suppyrRS /0.050d-3/
real*8 gAMPA_suppyrRS_to_supbask /3.00d-3/
c real*8 gNMDA_suppyrRS_to_supbask /0.15d-3/
real*8 gNMDA_suppyrRS_to_supbask /0.05d-3/
c real*8 gAMPA_suppyrRS_to_supng /2.00d-3/
real*8 gAMPA_suppyrRS_to_supng /0.80d-3/
c real*8 gNMDA_suppyrRS_to_supng /0.10d-3/
real*8 gNMDA_suppyrRS_to_supng /0.05d-3/
real*8 gAMPA_suppyrRS_to_supaxax /3.0d-3/
c real*8 gNMDA_suppyrRS_to_supaxax /0.15d-3/
real*8 gNMDA_suppyrRS_to_supaxax /0.05d-3/
real*8 gAMPA_suppyrRS_to_supLTS /2.0d-3/
c real*8 gNMDA_suppyrRS_to_supLTS /0.15d-3/
real*8 gNMDA_suppyrRS_to_supLTS /0.05d-3/
real*8 gAMPA_suppyrRS_to_spinstell/0.10d-3/
real*8 gNMDA_suppyrRS_to_spinstell/0.01d-3/
real*8 gAMPA_suppyrRS_to_tuftIB /0.10d-3/
real*8 gNMDA_suppyrRS_to_tuftIB /0.01d-3/
real*8 gAMPA_suppyrRS_to_tuftRS /1.00d-3/
c real*8 gAMPA_suppyrRS_to_tuftRS /2.00d-3/
real*8 gNMDA_suppyrRS_to_tuftRS /0.20d-3/
real*8 gAMPA_suppyrRS_to_deepbask /1.00d-3/
real*8 gNMDA_suppyrRS_to_deepbask /0.05d-3/
real*8 gAMPA_suppyrRS_to_deepaxax /1.00d-3/
real*8 gNMDA_suppyrRS_to_deepaxax /0.05d-3/
real*8 gAMPA_suppyrRS_to_supVIP /1.00d-3/
real*8 gNMDA_suppyrRS_to_supVIP /0.05d-3/
real*8 gAMPA_suppyrRS_to_nontuftRS/0.10d-3/
real*8 gNMDA_suppyrRS_to_nontuftRS/0.05d-3/
c real*8 gGABA_supbask_to_suppyrRS /0.4d-3/
real*8 gGABA_supbask_to_suppyrRS /0.2d-3/
c real*8 gGABA_supbask_to_suppyrRS /0.0d-3/ ! try to make gamma robust
real*8 gGABA_supbask_to_supbask /0.2d-3/
real*8 gGABA_supbask_to_supng /0.2d-3/
real*8 gGABA_supbask_to_supaxax /0.2d-3/
real*8 gGABA_supbask_to_supLTS /0.5d-3/
! real*8 gGABA_supbask_to_spinstell /0.7d-3/
real*8 gGABA_supbask_to_spinstell /0.1d-3/ ! if main inhib. to spinstell from deep int.
c real*8 gGABA_supng_to_suppyrRS /0.8d-3/
real*8 gGABA_supng_to_suppyrRS /0.1d-3/
real*8 gGABA_supng_to_nontuftRS /0.8d-3/
c real*8 gGABA_supng_to_nontuftRS /0.0d-3/
real*8 gGABA_supng_to_tuftIB /0.2d-3/
c real*8 gGABA_supng_to_tuftIB /0.0d-3/
real*8 gGABA_supng_to_tuftRS /0.1d-3/
real*8 gGABA_supng_to_supng /0.2d-3/
real*8 gGABA_supng_to_supbask /0.2d-3/
! THESE GABA-B WILL HAVE REL. FAST KINETICS, VS SLOW FROM SUPVIP INTERNEURONS
c real*8 gGABAB_supng_to_suppyrRS /0.050d-3/
real*8 gGABAB_supng_to_suppyrRS /0.010d-3/
c real*8 gGABAB_supng_to_suppyrRS /0.000d-3/
real*8 gGABAB_supng_to_nontuftRS /0.020d-3/
c real*8 gGABAB_supng_to_nontuftRS /0.0000d-3/
real*8 gGABAB_supng_to_tuftIB /0.001d-3/
c real*8 gGABAB_supng_to_tuftIB /0.000d-3/
real*8 gGABAB_supng_to_tuftRS /0.001d-3/
c real*8 gGABAB_supVIP_to_suppyrRS /0.020d-3/
real*8 gGABAB_supVIP_to_suppyrRS /0.010d-3/
c real*8 gGABAB_supVIP_to_suppyrRS /0.000d-3/
real*8 gGABAB_supVIP_to_nontuftRS /0.010d-3/
c real*8 gGABAB_supVIP_to_nontuftRS /0.0000d-3/
real*8 gGABAB_supVIP_to_tuftIB /0.350d-3/
c real*8 gGABAB_supVIP_to_tuftIB /0.000d-3/
real*8 gGABAB_supVIP_to_tuftRS /0.002d-3/
c real*8 gGABA_supaxax_to_suppyrRS /1.0d-3/
real*8 gGABA_supaxax_to_suppyrRS /0.3d-3/
! real*8 gGABA_supaxax_to_spinstell /1.0d-3/
real*8 gGABA_supaxax_to_spinstell /0.1d-3/ ! if main inhib. to spinstell from deep int.
real*8 gGABA_supaxax_to_tuftIB /0.2d-3/
real*8 gGABA_supaxax_to_tuftRS /0.1d-3/
real*8 gGABA_supaxax_to_nontuftRS /0.5d-3/
c real*8 gGABA_supLTS_to_suppyrRS /.10d-3/
real*8 gGABA_supLTS_to_suppyrRS /.02d-3/
real*8 gGABA_supLTS_to_supbask /.01d-3/
real*8 gGABA_supLTS_to_supaxax /.01d-3/
real*8 gGABA_supLTS_to_supLTS /.05d-3/
real*8 gGABA_supLTS_to_spinstell /.01d-3/
real*8 gGABA_supLTS_to_tuftIB /.02d-3/
c real*8 gGABA_supLTS_to_tuftRS /.01d-3/
real*8 gGABA_supLTS_to_tuftRS /.02d-3/
real*8 gGABA_supLTS_to_deepbask /.01d-3/
real*8 gGABA_supLTS_to_deepaxax /.00d-3/
real*8 gGABA_supLTS_to_supVIP /.05d-3/
real*8 gGABA_supLTS_to_nontuftRS /.05d-3/
real*8 gAMPA_spinstell_to_suppyrRS /0.2d-3/
real*8 gNMDA_spinstell_to_suppyrRS /0.05d-3/
real*8 gAMPA_spinstell_to_supbask /1.0d-3/
c real*8 gNMDA_spinstell_to_supbask /.15d-3/
real*8 gNMDA_spinstell_to_supbask /.01d-3/
real*8 gAMPA_spinstell_to_supaxax /1.0d-3/
c real*8 gNMDA_spinstell_to_supaxax /.15d-3/
real*8 gNMDA_spinstell_to_supaxax /.01d-3/
real*8 gAMPA_spinstell_to_supLTS /1.0d-3/
c real*8 gNMDA_spinstell_to_supLTS /.15d-3/
real*8 gNMDA_spinstell_to_supLTS /.01d-3/
real*8 gAMPA_spinstell_to_spinstell/1.0d-3/
real*8 gNMDA_spinstell_to_spinstell/0.05d-3/
real*8 gAMPA_spinstell_to_tuftIB /0.1d-3/
real*8 gNMDA_spinstell_to_tuftIB /0.1d-3/
real*8 gAMPA_spinstell_to_tuftRS /0.1d-3/
real*8 gNMDA_spinstell_to_tuftRS /0.05d-3/
real*8 gAMPA_spinstell_to_deepbask /1.0d-3/
real*8 gNMDA_spinstell_to_deepbask /.05d-3/
c real*8 gAMPA_spinstell_to_deepng /1.0d-3/
real*8 gAMPA_spinstell_to_deepng /0.4d-3/
real*8 gNMDA_spinstell_to_deepng /.05d-3/
real*8 gAMPA_spinstell_to_deepaxax /1.0d-3/
real*8 gNMDA_spinstell_to_deepaxax /.05d-3/
real*8 gAMPA_spinstell_to_supVIP /0.5d-3/
real*8 gNMDA_spinstell_to_supVIP /.05d-3/
real*8 gAMPA_spinstell_to_nontuftRS/0.1d-3/
real*8 gNMDA_spinstell_to_nontuftRS/0.1d-3/
c real*8 gAMPA_tuftIB_to_suppyrRS /3.0d-3/
real*8 gAMPA_tuftIB_to_suppyrRS /0.1d-3/
real*8 gNMDA_tuftIB_to_suppyrRS /0.01d-3/
real*8 gAMPA_tuftIB_to_supbask /1.0d-3/
c real*8 gNMDA_tuftIB_to_supbask /0.15d-3/
real*8 gNMDA_tuftIB_to_supbask /0.01d-3/
real*8 gAMPA_tuftIB_to_supaxax /1.0d-3/
c real*8 gNMDA_tuftIB_to_supaxax /0.15d-3/
real*8 gNMDA_tuftIB_to_supaxax /0.01d-3/
real*8 gAMPA_tuftIB_to_supLTS /0.5d-3/
c real*8 gNMDA_tuftIB_to_supLTS /0.15d-3/
real*8 gNMDA_tuftIB_to_supLTS /0.01d-3/
real*8 gAMPA_tuftIB_to_spinstell /0.1d-3/
real*8 gNMDA_tuftIB_to_spinstell /0.01d-3/
real*8 gAMPA_tuftIB_to_tuftIB /2.0d-3/
! real*8 gAMPA_tuftIB_to_tuftIB /15.0d-3/
c real*8 gNMDA_tuftIB_to_tuftIB /0.20d-3/
real*8 gNMDA_tuftIB_to_tuftIB /0.50d-3/
c real*8 gAMPA_tuftIB_to_tuftRS /3.0d-3/
real*8 gAMPA_tuftIB_to_tuftRS /1.0d-3/
real*8 gNMDA_tuftIB_to_tuftRS /0.05d-3/
real*8 gAMPA_tuftIB_to_deepbask /3.0d-3/
real*8 gNMDA_tuftIB_to_deepbask /0.10d-3/
c real*8 gAMPA_tuftIB_to_deepng /2.0d-3/
real*8 gAMPA_tuftIB_to_deepng /1.2d-3/
c real*8 gAMPA_tuftIB_to_deepng /3.0d-3/
real*8 gNMDA_tuftIB_to_deepng /0.10d-3/
c real*8 gNMDA_tuftIB_to_deepng /0.50d-3/
real*8 gAMPA_tuftIB_to_deepaxax /3.0d-3/
real*8 gNMDA_tuftIB_to_deepaxax /0.10d-3/
real*8 gAMPA_tuftIB_to_supVIP /2.5d-3/ ! check z1 below under NBQX
real*8 gNMDA_tuftIB_to_supVIP /0.05d-3/
c real*8 gAMPA_tuftIB_to_nontuftRS /0.50d-3/
real*8 gAMPA_tuftIB_to_nontuftRS /2.00d-3/
real*8 gNMDA_tuftIB_to_nontuftRS /0.01d-3/
c real*8 gAMPA_tuftRS_to_suppyrRS /1.0d-3/
real*8 gAMPA_tuftRS_to_suppyrRS /3.0d-3/
real*8 gNMDA_tuftRS_to_suppyrRS /0.02d-3/
real*8 gAMPA_tuftRS_to_supbask /1.0d-3/
c real*8 gNMDA_tuftRS_to_supbask /0.15d-3/
real*8 gNMDA_tuftRS_to_supbask /0.01d-3/
real*8 gAMPA_tuftRS_to_supaxax /1.0d-3/
c real*8 gNMDA_tuftRS_to_supaxax /0.15d-3/
real*8 gNMDA_tuftRS_to_supaxax /0.01d-3/
real*8 gAMPA_tuftRS_to_supLTS /1.0d-3/
c real*8 gNMDA_tuftRS_to_supLTS /0.15d-3/
real*8 gNMDA_tuftRS_to_supLTS /0.01d-3/
real*8 gAMPA_tuftRS_to_spinstell /0.5d-3/
real*8 gNMDA_tuftRS_to_spinstell /0.05d-3/
real*8 gAMPA_tuftRS_to_tuftIB /0.5d-3/
real*8 gNMDA_tuftRS_to_tuftIB /0.05d-3/
c real*8 gAMPA_tuftRS_to_tuftRS /2.0d-3/
real*8 gAMPA_tuftRS_to_tuftRS /1.0d-3/
real*8 gNMDA_tuftRS_to_tuftRS /0.05d-3/
real*8 gAMPA_tuftRS_to_deepbask /1.0d-3/
real*8 gNMDA_tuftRS_to_deepbask /0.10d-3/
c real*8 gAMPA_tuftRS_to_deepng /2.0d-3/
real*8 gAMPA_tuftRS_to_deepng /0.8d-3/
real*8 gNMDA_tuftRS_to_deepng /0.10d-3/
real*8 gAMPA_tuftRS_to_deepaxax /1.0d-3/
real*8 gNMDA_tuftRS_to_deepaxax /0.10d-3/
real*8 gAMPA_tuftRS_to_supVIP /0.4d-3/
real*8 gNMDA_tuftRS_to_supVIP /0.05d-3/
real*8 gAMPA_tuftRS_to_nontuftRS /0.5d-3/
real*8 gNMDA_tuftRS_to_nontuftRS /0.01d-3/
! real*8 gGABA_deepbask_to_spinstell /1.0d-3/
real*8 gGABA_deepbask_to_spinstell /1.50d-3/ ! ? suppress spiny stellate bursts ?
c real*8 gGABA_deepbask_to_tuftIB /0.7d-3/
real*8 gGABA_deepbask_to_tuftIB /0.1d-3/
real*8 gGABA_deepbask_to_tuftRS /1.0d-3/
real*8 gGABA_deepbask_to_deepbask /0.2d-3/
c real*8 gGABA_deepbask_to_deepng /0.2d-3/
real*8 gGABA_deepbask_to_deepng /0.1d-3/
real*8 gGABA_deepbask_to_deepaxax /0.2d-3/
real*8 gGABA_deepbask_to_supVIP /0.2d-3/
real*8 gGABA_deepbask_to_nontuftRS /0.5d-3/
c real*8 gGABA_deepng_to_tuftIB /0.8d-3/
real*8 gGABA_deepng_to_tuftIB /0.1d-3/
real*8 gGABA_deepng_to_tuftRS /0.1d-3/
real*8 gGABA_deepng_to_nontuftRS /0.1d-3/
real*8 gGABA_deepng_to_spinstell /0.8d-3/
c real*8 gGABA_deepng_to_deepng /0.2d-3/
real*8 gGABA_deepng_to_deepng /0.1d-3/
real*8 gGABA_deepng_to_deepbask /0.2d-3/
c real*8 gGABAB_deepng_to_tuftIB /0.015d-3/
! real*8 gGABAB_deepng_to_tuftIB /0.030d-3/
real*8 gGABAB_deepng_to_tuftIB /0.001d-3/
real*8 gGABAB_deepng_to_tuftRS /0.020d-3/
real*8 gGABAB_deepng_to_nontuftRS /0.0100d-3/
real*8 gGABAB_deepng_to_spinstell /0.500d-3/
real*8 gGABA_deepaxax_to_suppyrRS /0.1d-3/
! real*8 gGABA_deepaxax_to_spinstell /1.0d-3/
real*8 gGABA_deepaxax_to_spinstell /1.5d-3/ ! ? suppress spiny stellate bursts ?
real*8 gGABA_deepaxax_to_tuftIB /0.1d-3/
real*8 gGABA_deepaxax_to_tuftRS /0.2d-3/
real*8 gGABA_deepaxax_to_nontuftRS /0.05d-3/
real*8 gGABA_supVIP_to_suppyrRS /.02d-3/
real*8 gGABA_supVIP_to_supbask /.01d-3/
real*8 gGABA_supVIP_to_supaxax /.01d-3/
real*8 gGABA_supVIP_to_supLTS /.05d-3/
real*8 gGABA_supVIP_to_spinstell /.01d-3/
real*8 gGABA_supVIP_to_tuftIB /.05d-3/ ! will this help suppress bursting?
real*8 gGABA_supVIP_to_tuftRS /.02d-3/
real*8 gGABA_supVIP_to_deepbask /.01d-3/
real*8 gGABA_supVIP_to_deepaxax /.01d-3/
real*8 gGABA_supVIP_to_supVIP /.01d-3/
real*8 gGABA_supVIP_to_supng /.05d-3/
real*8 gGABA_supVIP_to_nontuftRS /.02d-3/
real*8 gAMPA_TCR_to_suppyrRS /0.5d-3/
real*8 gNMDA_TCR_to_suppyrRS /0.05d-3/
! real*8 gAMPA_TCR_to_supbask /1.0d-3/
real*8 gAMPA_TCR_to_supbask /0.1d-3/
! try a variation in which main feedforward inhibtion from thalamus
! is via deep interneurons. May be necessary later to include special
! layer 4 interneurons
! real*8 gNMDA_TCR_to_supbask /.10d-3/
c real*8 gNMDA_TCR_to_supbask /.01d-3/
real*8 gNMDA_TCR_to_supbask /.00d-3/
real*8 gAMPA_TCR_to_supng /0.1d-3/
real*8 gNMDA_TCR_to_supng /0.0d-3/
! real*8 gAMPA_TCR_to_supaxax /1.0d-3/
real*8 gAMPA_TCR_to_supaxax /0.1d-3/
! real*8 gNMDA_TCR_to_supaxax /.10d-3/
real*8 gNMDA_TCR_to_supaxax /.00d-3/
real*8 gAMPA_TCR_to_spinstell /1.0d-3/
real*8 gNMDA_TCR_to_spinstell /.10d-3/
real*8 gAMPA_TCR_to_tuftIB /1.5d-3/
real*8 gNMDA_TCR_to_tuftIB /.15d-3/
real*8 gAMPA_TCR_to_tuftRS /1.5d-3/
real*8 gNMDA_TCR_to_tuftRS /.15d-3/
! real*8 gAMPA_TCR_to_deepbask /1.0d-3/
real*8 gAMPA_TCR_to_deepbask /1.5d-3/
! real*8 gAMPA_TCR_to_deepbask /0.0d-3/ ! try for very fast FF excit.
real*8 gNMDA_TCR_to_deepbask /.10d-3/
real*8 gAMPA_TCR_to_deepng /1.5d-3/
real*8 gNMDA_TCR_to_deepng /0.1d-3/
real*8 gAMPA_TCR_to_deepaxax /1.0d-3/
! real*8 gAMPA_TCR_to_deepaxax /0.0d-3/ ! try for very fast FF excit.
real*8 gNMDA_TCR_to_deepaxax /.10d-3/
real*8 gAMPA_TCR_to_nRT /0.75d-3/
real*8 gNMDA_TCR_to_nRT /.15d-3/
real*8 gAMPA_TCR_to_nontuftRS /0.0d-3/
real*8 gNMDA_TCR_to_nontuftRS /.00d-3/
c real*8 gGABAB_nRT_to_TCR /0.02d-3/
real*8 gGABAB_nRT_to_TCR /0.010d-3/
! real*8 gGABA_nRT_to_TCR /1.0d-3/
real*8 gGABA_nRT_to_TCR(num_nRT)
! Values here need to be set below
real*8 gGABA_nRT_to_nRT /0.30d-3/
real*8 gGABAB_nRT_to_nRT /0.020d-3/
c real*8 gAMPA_nontuftRS_to_suppyrRS /0.2d-3/
real*8 gAMPA_nontuftRS_to_suppyrRS /0.2d-3/
real*8 gNMDA_nontuftRS_to_suppyrRS /0.01d-3/
real*8 gAMPA_nontuftRS_to_supbask /1.0d-3/
c real*8 gNMDA_nontuftRS_to_supbask /0.1d-3/
real*8 gNMDA_nontuftRS_to_supbask /0.05d-3/
real*8 gAMPA_nontuftRS_to_supaxax /1.0d-3/
c real*8 gNMDA_nontuftRS_to_supaxax /0.1d-3/
real*8 gNMDA_nontuftRS_to_supaxax /0.05d-3/
real*8 gAMPA_nontuftRS_to_supLTS /1.0d-3/
c real*8 gNMDA_nontuftRS_to_supLTS /0.1d-3/
real*8 gNMDA_nontuftRS_to_supLTS /0.05d-3/
real*8 gAMPA_nontuftRS_to_spinstell /0.5d-3/
real*8 gNMDA_nontuftRS_to_spinstell /0.05d-3/
real*8 gAMPA_nontuftRS_to_tuftIB /0.5d-3/
real*8 gNMDA_nontuftRS_to_tuftIB /0.05d-3/
real*8 gAMPA_nontuftRS_to_tuftRS /1.0d-3/
real*8 gNMDA_nontuftRS_to_tuftRS /0.1d-3/
real*8 gAMPA_nontuftRS_to_deepbask /2.0d-3/
real*8 gNMDA_nontuftRS_to_deepbask /.10d-3/
c real*8 gAMPA_nontuftRS_to_deepng /2.0d-3/
real*8 gAMPA_nontuftRS_to_deepng /0.8d-3/
real*8 gNMDA_nontuftRS_to_deepng /.10d-3/
real*8 gAMPA_nontuftRS_to_deepaxax /2.0d-3/
real*8 gNMDA_nontuftRS_to_deepaxax /.05d-3/
real*8 gAMPA_nontuftRS_to_supVIP /0.5d-3/
real*8 gNMDA_nontuftRS_to_supVIP /.10d-3/
real*8 gAMPA_nontuftRS_to_TCR /.15d-3/ ! make this small
real*8 gNMDA_nontuftRS_to_TCR /.015d-3/
c real*8 gAMPA_nontuftRS_to_nRT /0.5d-3/
real*8 gAMPA_nontuftRS_to_nRT /0.7d-3/
real*8 gNMDA_nontuftRS_to_nRT /0.05d-3/
c real*8 gAMPA_nontuftRS_to_nontuftRS /1.5d-3/
real*8 gAMPA_nontuftRS_to_nontuftRS /3.0d-3/
real*8 gNMDA_nontuftRS_to_nontuftRS /0.01d-3/
c End defining synaptic conductance scaling factors
c Begin definition of compartments where synaptic connections
c can form.
INTEGER compallow_suppyrRS_to_suppyrRS
& (ncompallow_suppyrRS_to_suppyrRS)
& /2,3,4,5,6,7,8,9,14,15,16,17,18,19,20,21,26,
& 27,28,29,30,31,32,33,10,11,12,13,22,23,24,25,
& 34,35,36,37/
INTEGER compallow_suppyrRS_to_supbask
& (ncompallow_suppyrRS_to_supbask )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_supng
& (ncompallow_suppyrRS_to_supng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_suppyrRS_to_supaxax
& (ncompallow_suppyrRS_to_supaxax )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_supLTS
& (ncompallow_suppyrRS_to_supLTS )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_spinstell
& (ncompallow_suppyrRS_to_spinstell)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_tuftIB
& (ncompallow_suppyrRS_to_tuftIB )
& /39,40,41,42,43,44,45,46/
INTEGER compallow_suppyrRS_to_tuftRS
& (ncompallow_suppyrRS_to_tuftRS )
& /39,40,41,42,43,44,45,46/
INTEGER compallow_suppyrRS_to_deepbask
& (ncompallow_suppyrRS_to_deepbask )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_deepaxax
& (ncompallow_suppyrRS_to_deepaxax )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_supVIP
& (ncompallow_suppyrRS_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_suppyrRS_to_nontuftRS
& (ncompallow_suppyrRS_to_nontuftRS)
& /38,39,40,41,42,43,44/
INTEGER compallow_supbask_to_suppyrRS
& (ncompallow_supbask_to_suppyrRS)
& /1,2,3,4,5,6,7,8,9,38,39/
INTEGER compallow_supbask_to_supbask
& (ncompallow_supbask_to_supbask )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_supbask_to_supng
& (ncompallow_supbask_to_supng )
& /2,15,28,41/
INTEGER compallow_supbask_to_supaxax
& (ncompallow_supbask_to_supaxax )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_supbask_to_supLTS
& (ncompallow_supbask_to_supLTS )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_supbask_to_spinstell
& (ncompallow_supbask_to_spinstell)
& /1,2,15,28,41/
INTEGER compallow_supng_to_suppyrRS
& (ncompallow_supng_to_suppyrRS )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,
& 58,59,60,61,62,63,64,65,66,67,68/
INTEGER compallow_supng_to_nontuftRS
& (ncompallow_supng_to_nontuftRS)
& /40,41,42,43,44/
INTEGER compallow_supng_to_tuftIB
& (ncompallow_supng_to_tuftIB )
& /42,43,44,45,46,47,48,49,50,51,52,53,54,55/
INTEGER compallow_supng_to_tuftRS
& (ncompallow_supng_to_tuftRS )
& /42,43,44,45,46,47,48,49,50,51,52,53,54,55/
INTEGER compallow_supng_to_supng
& (ncompallow_supng_to_supng )
& /2,1,28,41/
INTEGER compallow_supng_to_supbask
& (ncompallow_supng_to_supbask )
& /2,1,28,41/
INTEGER compallow_supLTS_to_suppyrRS
& (ncompallow_supLTS_to_suppyrRS)
& /14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
& 31,32,33,34,35,36,37,40,41,42,43,44,45,46,47,48,49,
& 50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,
& 67,68/
INTEGER compallow_supLTS_to_supbask
& (ncompallow_supLTS_to_supbask)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supLTS_to_supaxax
& (ncompallow_supLTS_to_supaxax)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supLTS_to_supLTS
& (ncompallow_supLTS_to_supLTS )
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supLTS_to_spinstell
& (ncompallow_supLTS_to_spinstell)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supLTS_to_tuftIB
& (ncompallow_supLTS_to_tuftIB )
& / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
& 29,30,31,32,33,34,38,39,40,41,42,43,44,45,46,47,
& 48,49,50,51,52,53,54,55/
INTEGER compallow_supLTS_to_tuftRS
& (ncompallow_supLTS_to_tuftRS )
& / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
& 29,30,31,32,33,34,38,39,40,41,42,43,44,45,46,47,
& 48,49,50,51,52,53,54,55/
INTEGER compallow_supLTS_to_deepbask
& (ncompallow_supLTS_to_deepbask )
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supLTS_to_deepaxax
& (ncompallow_supLTS_to_deepaxax )
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supLTS_to_supVIP
& (ncompallow_supLTS_to_supVIP )
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supLTS_to_nontuftRS
& (ncompallow_supLTS_to_nontuftRS)
& / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
& 29,30,31,32,33,34,38,39,40,41,42,43,44/
! 3 Mar. 2004: Feldmeyer, ..., Sakmann, J Physiol 2002 assert
! that in barrel ctx, spiny stellates go to basal dendrites of
! layer 2/3 pyramids
INTEGER compallow_spinstell_to_suppyrRS
& (ncompallow_spinstell_to_suppyrRS)
& / 2, 3, 4, 5, 6, 7, 8, 9,14,15,16,17,18,19,20,21,
& 26,27,28,29,30,31,32,33/
INTEGER compallow_spinstell_to_supbask
& (ncompallow_spinstell_to_supbask )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_supaxax
& (ncompallow_spinstell_to_supaxax )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_supLTS
& (ncompallow_spinstell_to_supLTS )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_spinstell
& (ncompallow_spinstell_to_spinstell)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_tuftIB
& (ncompallow_spinstell_to_tuftIB )
& / 7,8,9,10,11,12,36,37,38,39,40,41/
INTEGER compallow_spinstell_to_tuftRS
& (ncompallow_spinstell_to_tuftRS )
& / 7,8,9,10,11,12,36,37,38,39,40,41/
INTEGER compallow_spinstell_to_deepbask
& (ncompallow_spinstell_to_deepbask )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_deepng
& (ncompallow_spinstell_to_deepng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_spinstell_to_deepaxax
& (ncompallow_spinstell_to_deepaxax )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_supVIP
& (ncompallow_spinstell_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_spinstell_to_nontuftRS
& (ncompallow_spinstell_to_nontuftRS)
& / 37,38,39,40,41/
INTEGER compallow_tuftIB_to_suppyrRS
& (ncompallow_tuftIB_to_suppyrRS)
& / 40,41,42,43,44,45,46,47,48,49,50,51,52/
INTEGER compallow_tuftIB_to_supbask
& (ncompallow_tuftIB_to_supbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_supaxax
& (ncompallow_tuftIB_to_supaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_supLTS
& (ncompallow_tuftIB_to_supLTS )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_spinstell
& (ncompallow_tuftIB_to_spinstell)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_tuftIB
& (ncompallow_tuftIB_to_tuftIB)
c & / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20, ! for more prox inputs
c & 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
c & 38,39,40,41,42,43,44,45,46,47/
c & /48, 49/
& /45, 46, 47, 48, 49/
INTEGER compallow_tuftIB_to_tuftRS
& (ncompallow_tuftIB_to_tuftRS)
& / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 38,39,40,41,42,43,44,45,46,47/
INTEGER compallow_tuftIB_to_deepbask
& (ncompallow_tuftIB_to_deepbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_deepng
& (ncompallow_tuftIB_to_deepng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_tuftIB_to_deepaxax
& (ncompallow_tuftIB_to_deepaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_supVIP
& (ncompallow_tuftIB_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftIB_to_nontuftRS
& (ncompallow_tuftIB_to_nontuftRS)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44/
INTEGER compallow_tuftRS_to_suppyrRS
& (ncompallow_tuftRS_to_suppyrRS)
& / 40,41,42,43,44,45,46,47,48,49,50,51,52/
INTEGER compallow_tuftRS_to_supbask
& (ncompallow_tuftRS_to_supbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_supaxax
& (ncompallow_tuftRS_to_supaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_supLTS
& (ncompallow_tuftRS_to_supLTS )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_spinstell
& (ncompallow_tuftRS_to_spinstell)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_tuftIB
& (ncompallow_tuftRS_to_tuftIB)
& / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 38,39,40,41,42,43,44,45,46,47/
INTEGER compallow_tuftRS_to_tuftRS
& (ncompallow_tuftRS_to_tuftRS)
& / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 38,39,40,41,42,43,44,45,46,47/
INTEGER compallow_tuftRS_to_deepbask
& (ncompallow_tuftRS_to_deepbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_deepng
& (ncompallow_tuftRS_to_deepng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_tuftRS_to_deepaxax
& (ncompallow_tuftRS_to_deepaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_supVIP
& (ncompallow_tuftRS_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_tuftRS_to_nontuftRS
& (ncompallow_tuftRS_to_nontuftRS)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44/
INTEGER compallow_deepbask_to_spinstell
& (ncompallow_deepbask_to_spinstell)
& /1,2,15,28,41/
INTEGER compallow_deepbask_to_tuftIB
& (ncompallow_deepbask_to_tuftIB)
& / 1,2,3,4,5,6,35,36/
INTEGER compallow_deepbask_to_tuftRS
& (ncompallow_deepbask_to_tuftRS)
& / 1,2,3,4,5,6,35,36/
INTEGER compallow_deepbask_to_deepbask
& (ncompallow_deepbask_to_deepbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_deepbask_to_deepng
& (ncompallow_deepbask_to_deepng )
& /2,15,28,41/
INTEGER compallow_deepbask_to_deepaxax
& (ncompallow_deepbask_to_deepaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_deepbask_to_supVIP
& (ncompallow_deepbask_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_deepbask_to_nontuftRS
& (ncompallow_deepbask_to_nontuftRS)
& /1,2,3,4,5,6,35,36/
INTEGER compallow_deepng_to_tuftIB
& (ncompallow_deepng_to_tuftIB )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34/
INTEGER compallow_deepng_to_tuftRS
& (ncompallow_deepng_to_tuftRS )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34/
INTEGER compallow_deepng_to_nontuftRS
& (ncompallow_deepng_to_nontuftRS)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34/
INTEGER compallow_deepng_to_spinstell
& (ncompallow_deepng_to_spinstell)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_deepng_to_deepng
& (ncompallow_deepng_to_deepng )
& /2,15,28,41/
INTEGER compallow_deepng_to_deepbask
& (ncompallow_deepng_to_deepbask )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supVIP_to_suppyrRS
& (ncompallow_supVIP_to_suppyrRS)
& /14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
& 31,32,33,34,35,36,37,40,41,42,43,44,45,46,47,48,49,
& 50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,
& 67,68/
INTEGER compallow_supVIP_to_supbask
& (ncompallow_supVIP_to_supbask)
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supVIP_to_supaxax
& (ncompallow_supVIP_to_supaxax)
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supVIP_to_supLTS
& (ncompallow_supVIP_to_supLTS)
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supVIP_to_supng
& (ncompallow_supVIP_to_supng)
& / 8,9,10,11,12,21,22,23,24,25,34,35,36,37,38,
& 47,48,49,50,51/
INTEGER compallow_supVIP_to_spinstell
& (ncompallow_supVIP_to_spinstell)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supVIP_to_tuftIB
& (ncompallow_supVIP_to_tuftIB)
& /35,36,37,38,39,40,41,42,43,44,45,46,47,
& 48,49,50,51,52,53,54,55, ! number should match number of cells connecting
& 13,14,15,16,17,18,19,20,21,22,23/
INTEGER compallow_supVIP_to_tuftRS
& (ncompallow_supVIP_to_tuftRS)
& / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
& 29,30,31,32,33,34,38,39,40,41,42,43,44,45,46,47,
& 48,49,50,51,52,53,54,55/
INTEGER compallow_supVIP_to_deepbask
& (ncompallow_supVIP_to_deepbask)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supVIP_to_deepaxax
& (ncompallow_supVIP_to_deepaxax)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supVIP_to_supVIP
& (ncompallow_supVIP_to_supVIP)
& /5,6,7,8,9,10,11,12,13,14,18,19,20,21,22,23,24,25,
& 26,27,31,32,33,34,35,36,37,38,39,40,
& 44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_supVIP_to_nontuftRS
& (ncompallow_supVIP_to_nontuftRS)
& / 13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
& 29,30,31,32,33,34,38,39,40,41,42,43,44/
INTEGER compallow_TCR_to_suppyrRS
& (ncompallow_TCR_to_suppyrRS)
& /45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,
& 61,62,63,64,65,66,67,68/
INTEGER compallow_TCR_to_supbask
& (ncompallow_TCR_to_supbask)
& /2,3,4,15,16,17,28,29,30,41,42,43/
INTEGER compallow_TCR_to_supng
& (ncompallow_TCR_to_supng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_TCR_to_supaxax
& (ncompallow_TCR_to_supaxax)
& /2,3,4,15,16,17,28,29,30,41,42,43/
INTEGER compallow_TCR_to_spinstell
& (ncompallow_TCR_to_spinstell)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_TCR_to_tuftIB
& (ncompallow_TCR_to_tuftIB)
& / 47,48,49,50,51,52,53,54,55/
INTEGER compallow_TCR_to_tuftRS
& (ncompallow_TCR_to_tuftRS)
& / 47,48,49,50,51,52,53,54,55/
INTEGER compallow_TCR_to_deepbask
& (ncompallow_TCR_to_deepbask)
! & /2,3,4,15,16,17,28,29,30,41,42,43/
& /1,2,15,28,41/ ! soma & proximal dendrites
INTEGER compallow_TCR_to_deepng
& (ncompallow_TCR_to_deepng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_TCR_to_deepaxax
& (ncompallow_TCR_to_deepaxax)
! & /2,3,4,15,16,17,28,29,30,41,42,43/
& /1,2,15,28,41/ ! soma & proximal dendrites
INTEGER compallow_TCR_to_nRT
& (ncompallow_TCR_to_nRT)
& /2,3,4,15,16,17,28,29,30,41,42,43/
INTEGER compallow_TCR_to_nontuftRS
& (ncompallow_TCR_to_nontuftRS)
& /40,41,42,43,44/
INTEGER compallow_nRT_to_TCR
& (ncompallow_nRT_to_TCR)
& /1,2,15,28,41,54,67,80,93,106,119/
INTEGER compallow_nRT_to_nRT
& (ncompallow_nRT_to_nRT)
& /1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
& 20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,
& 36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,
& 52,53/
INTEGER compallow_nontuftRS_to_suppyrRS
& (ncompallow_nontuftRS_to_suppyrRS)
& / 41,42,43,44 /
INTEGER compallow_nontuftRS_to_supbask
& (ncompallow_nontuftRS_to_supbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_supaxax
& (ncompallow_nontuftRS_to_supaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_supLTS
& (ncompallow_nontuftRS_to_supLTS)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_spinstell
& (ncompallow_nontuftRS_to_spinstell)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_tuftIB
& (ncompallow_nontuftRS_to_tuftIB)
& / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 38,39,40,41,42,43,44,45,46,47/
INTEGER compallow_nontuftRS_to_tuftRS
& (ncompallow_nontuftRS_to_tuftRS)
& / 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
& 38,39,40,41,42,43,44,45,46,47/
INTEGER compallow_nontuftRS_to_deepbask
& (ncompallow_nontuftRS_to_deepbask)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_deepng
& (ncompallow_nontuftRS_to_deepng )
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53/
INTEGER compallow_nontuftRS_to_deepaxax
& (ncompallow_nontuftRS_to_deepaxax)
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_supVIP
& (ncompallow_nontuftRS_to_supVIP )
& /5,6,7,8,9,10,18,19,20,21,22,23,31,32,33,34,35,36,
& 44,45,46,47,48,49/
INTEGER compallow_nontuftRS_to_TCR
& (ncompallow_nontuftRS_to_TCR)
& / 6, 7, 8, 9, 10, 11, 12, 13, 14,
& 19, 20, 21, 22, 23, 24, 25, 26, 27,
& 32, 33, 34, 35, 36, 37, 38, 39, 40,
& 45, 46, 47, 48, 49, 50, 51, 52, 53,
& 58, 59, 60, 61, 62, 63, 64, 65, 66,
& 71, 72, 73, 74, 75, 76, 77, 78, 79,
& 84, 85, 86, 87, 88, 89, 90, 91, 92,
& 97, 98, 99,100,101,102,103,104,105,
& 110,111,112,113,114,115,116,117,118,
& 123,124,125,126,127,128,129,130,131/
INTEGER compallow_nontuftRS_to_nRT
& (ncompallow_nontuftRS_to_nRT)
& / 2,3,4,15,16,17,28,29,30,41,42,43/
INTEGER compallow_nontuftRS_to_nontuftRS
& (ncompallow_nontuftRS_to_nontuftRS)
& /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
& 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,
& 37,38,39,40,41,42,43,44/
c Maps of synaptic connectivity. For simplicity, all contacts
c only made to one compartment. Axoaxonic cells forced to contact
c initial axon segments; other compartments will be listed in arrays.
INTEGER
& map_suppyrRS_to_suppyrRS(num_suppyrRS_to_suppyrRS,
& num_suppyrRS),
& map_suppyrRS_to_supbask(num_suppyrRS_to_supbask,
& num_supbask),
& map_suppyrRS_to_supng (num_suppyrRS_to_supng ,
& num_supng ),
& map_suppyrRS_to_supaxax(num_suppyrRS_to_supaxax,
& num_supaxax),
& map_suppyrRS_to_supLTS(num_suppyrRS_to_supLTS,
& num_supLTS),
& map_suppyrRS_to_spinstell(num_suppyrRS_to_spinstell,
& num_spinstell),
& map_suppyrRS_to_tuftIB(num_suppyrRS_to_tuftIB,
& num_tuftIB),
& map_suppyrRS_to_tuftRS(num_suppyrRS_to_tuftRS,
& num_tuftRS),
& map_suppyrRS_to_deepbask(num_suppyrRS_to_deepbask,
& num_deepbask),
& map_suppyrRS_to_deepaxax(num_suppyrRS_to_deepaxax,
& num_deepaxax),
& map_suppyrRS_to_supVIP (num_suppyrRS_to_supVIP ,
& num_supVIP ),
& map_suppyrRS_to_nontuftrS(num_suppyrRS_to_nontuftRS,
& num_nontuftRS)
INTEGER
& map_supbask_to_suppyrRS(num_supbask_to_suppyrRS,
& num_suppyrRS),
& map_supbask_to_supbask(num_supbask_to_supbask,
& num_supbask),
& map_supbask_to_supng (num_supbask_to_supng ,
& num_supng ),
& map_supbask_to_supaxax(num_supbask_to_supaxax,
& num_supaxax),
& map_supbask_to_supLTS(num_supbask_to_supLTS,
& num_supLTS),
& map_supbask_to_spinstell(num_supbask_to_spinstell,
& num_spinstell)
INTEGER
& map_supng_to_suppyrRS (num_supng_to_suppyrRS ,
& num_suppyrRS),
& map_supng_to_nontuftRS (num_supng_to_nontuftRS,
& num_nontuftRS),
& map_supng_to_tuftIB (num_supng_to_tuftIB ,
& num_tuftIB ),
& map_supng_to_tuftRS (num_supng_to_tuftRS ,
& num_tuftRS ),
& map_supng_to_supng (num_supng_to_supng ,
& num_supng ),
& map_supng_to_supbask (num_supng_to_supbask ,
& num_supbask ),
& map_supaxax_to_suppyrRS(num_supaxax_to_suppyrRS,
& num_suppyrRS),
& map_supaxax_to_spinstell(num_supaxax_to_spinstell,
& num_spinstell),
& map_supaxax_to_tuftIB(num_supaxax_to_tuftIB,
& num_tuftIB),
& map_supaxax_to_tuftRS(num_supaxax_to_tuftRS,
& num_tuftRS),
& map_supaxax_to_nontuftRS(num_supaxax_to_nontuftRS,
& num_nontuftRS),
& map_supLTS_to_suppyrRS(num_supLTS_to_suppyrRS,
& num_suppyrRS),
& map_supLTS_to_supbask(num_supLTS_to_supbask,
& num_supbask),
& map_supLTS_to_supaxax(num_supLTS_to_supaxax,
& num_supaxax),
& map_supLTS_to_supLTS(num_supLTS_to_supLTS,
& num_supLTS),
& map_supLTS_to_spinstell(num_supLTS_to_spinstell,
& num_spinstell),
& map_supLTS_to_tuftIB(num_supLTS_to_tuftIB,
& num_tuftIB),
& map_supLTS_to_tuftRS(num_supLTS_to_tuftRS,
& num_tuftRS),
& map_supLTS_to_deepbask(num_supLTS_to_deepbask,
& num_deepbask),
& map_supLTS_to_deepaxax(num_supLTS_to_deepaxax,
& num_deepaxax),
& map_supLTS_to_supVIP (num_supLTS_to_supVIP ,
& num_supVIP ),
& map_supLTS_to_nontuftRS(num_supLTS_to_nontuftRS,
& num_nontuftRS),
& map_spinstell_to_suppyrRS(num_spinstell_to_suppyrRS,
& num_suppyrRS),
& map_spinstell_to_supbask(num_spinstell_to_supbask,
& num_supbask)
INTEGER
& map_spinstell_to_supaxax(num_spinstell_to_supaxax,
& num_supaxax),
& map_spinstell_to_supLTS(num_spinstell_to_supLTS,
& num_supLTS),
& map_spinstell_to_spinstell(num_spinstell_to_spinstell,
& num_spinstell),
& map_spinstell_to_tuftIB(num_spinstell_to_tuftIB,
& num_tuftIB),
& map_spinstell_to_tuftRS(num_spinstell_to_tuftRS,
& num_tuftRS),
& map_spinstell_to_deepbask(num_spinstell_to_deepbask,
& num_deepbask),
& map_spinstell_to_deepng (num_spinstell_to_deepng ,
& num_deepng ),
& map_spinstell_to_deepaxax(num_spinstell_to_deepaxax,
& num_deepaxax),
& map_spinstell_to_supVIP (num_spinstell_to_supVIP ,
& num_supVIP ),
& map_spinstell_to_nontuftRS(num_spinstell_to_nontuftRS,
& num_nontuftRS),
& map_tuftIB_to_suppyrRS(num_tuftIB_to_suppyrRS,
& num_suppyrRS),
& map_tuftIB_to_supbask(num_tuftIB_to_supbask,
& num_supbask),
& map_tuftIB_to_supaxax(num_tuftIB_to_supaxax,
& num_supaxax),
& map_tuftIB_to_supLTS(num_tuftIB_to_supLTS,
& num_supLTS),
& map_tuftIB_to_spinstell(num_tuftIB_to_spinstell,
& num_spinstell),
& map_tuftIB_to_tuftIB(num_tuftIB_to_tuftIB,
& num_tuftIB),
& map_tuftIB_to_tuftRS(num_tuftIB_to_tuftRS,
& num_tuftRS),
& map_tuftIB_to_deepbask(num_tuftIB_to_deepbask,
& num_deepbask),
& map_tuftIB_to_deepng (num_tuftIB_to_deepng ,
& num_deepng ),
& map_tuftIB_to_deepaxax(num_tuftIB_to_deepaxax,
& num_deepaxax),
& map_tuftIB_to_supVIP (num_tuftIB_to_supVIP ,
& num_supVIP ),
& map_tuftIB_to_nontuftRS(num_tuftIB_to_nontuftRS,
& num_nontuftRS),
& map_tuftRS_to_suppyrRS(num_tuftRS_to_suppyrRS,
& num_suppyrRS),
& map_tuftRS_to_supbask(num_tuftRS_to_supbask,
& num_supbask),
& map_tuftRS_to_supaxax(num_tuftRS_to_supaxax,
& num_supaxax),
& map_tuftRS_to_supLTS(num_tuftRS_to_supLTS,
& num_supLTS)
INTEGER
& map_tuftRS_to_spinstell(num_tuftRS_to_spinstell,
& num_spinstell),
& map_tuftRS_to_tuftIB(num_tuftRS_to_tuftIB,
& num_tuftIB),
& map_tuftRS_to_tuftRS(num_tuftRS_to_tuftRS,
& num_tuftRS),
& map_tuftRS_to_deepbask(num_tuftRS_to_deepbask,
& num_deepbask),
& map_tuftRS_to_deepng (num_tuftRS_to_deepng ,
& num_deepng ),
& map_tuftRS_to_deepaxax(num_tuftRS_to_deepaxax,
& num_deepaxax),
& map_tuftRS_to_supVIP (num_tuftRS_to_supVIP ,
& num_supVIP ),
& map_tuftRS_to_nontuftRS(num_tuftRS_to_nontuftRS,
& num_nontuftRS),
& map_deepbask_to_spinstell(num_deepbask_to_spinstell,
& num_spinstell),
& map_deepbask_to_tuftIB(num_deepbask_to_tuftIB,
& num_tuftIB),
& map_deepbask_to_tuftRS(num_deepbask_to_tuftRS,
& num_tuftRS),
& map_deepbask_to_deepbask(num_deepbask_to_deepbask,
& num_deepbask),
& map_deepbask_to_deepng (num_deepbask_to_deepng ,
& num_deepng ),
& map_deepbask_to_deepaxax(num_deepbask_to_deepaxax,
& num_deepaxax),
& map_deepbask_to_supVIP (num_deepbask_to_supVIP ,
& num_supVIP )
INTEGER
& map_deepbask_to_nontuftRS(num_deepbask_to_nontuftRS,
& num_nontuftRS),
& map_deepng_to_tuftIB (num_deepng_to_tuftIB ,
& num_tuftIB ),
& map_deepng_to_tuftRS (num_deepng_to_tuftRS ,
& num_tuftRS ),
& map_deepng_to_nontuftRS (num_deepng_to_nontuftRS ,
& num_nontuftRS ),
& map_deepng_to_spinstell (num_deepng_to_spinstell ,
& num_spinstell ),
& map_deepng_to_deepng (num_deepng_to_deepng ,
& num_deepng ),
& map_deepng_to_deepbask (num_deepng_to_deepbask ,
& num_deepbask )
INTEGER
& map_deepaxax_to_suppyrRS(num_deepaxax_to_suppyrRS,
& num_suppyrRS),
& map_deepaxax_to_spinstell(num_deepaxax_to_spinstell,
& num_spinstell),
& map_deepaxax_to_tuftIB(num_deepaxax_to_tuftIB,
& num_tuftIB),
& map_deepaxax_to_tuftRS(num_deepaxax_to_tuftRS,
& num_tuftRS),
& map_deepaxax_to_nontuftRS(num_deepaxax_to_nontuftRS,
& num_nontuftRS)
INTEGER
& map_supVIP_to_suppyrRS(num_supVIP_to_suppyrRS,
& num_suppyrRS),
& map_supVIP_to_supbask(num_supVIP_to_supbask,
& num_supbask),
& map_supVIP_to_supaxax(num_supVIP_to_supaxax,
& num_supaxax),
& map_supVIP_to_supLTS(num_supVIP_to_supLTS,
& num_supLTS),
& map_supVIP_to_supng (num_supVIP_to_supng ,
& num_supng ),
& map_supVIP_to_spinstell(num_supVIP_to_spinstell,
& num_spinstell),
& map_supVIP_to_tuftIB(num_supVIP_to_tuftIB,
& num_tuftIB),
& map_supVIP_to_tuftRS(num_supVIP_to_tuftRS,
& num_tuftRS),
& map_supVIP_to_deepbask(num_supVIP_to_deepbask,
& num_deepbask),
& map_supVIP_to_deepaxax(num_supVIP_to_deepaxax,
& num_deepaxax),
& map_supVIP_to_supVIP(num_supVIP_to_supVIP,
& num_supVIP),
& map_supVIP_to_nontuftRS(num_supVIP_to_nontuftRS,
& num_nontuftRS),
& map_TCR_to_suppyrRS(num_TCR_to_suppyrRS,
& num_suppyrRS),
& map_TCR_to_supbask(num_TCR_to_supbask,
& num_supbask)
INTEGER
& map_TCR_to_supng (num_TCR_to_supng ,
& num_supng ),
& map_TCR_to_supaxax(num_TCR_to_supaxax,num_supaxax),
& map_TCR_to_spinstell(num_TCR_to_spinstell,num_spinstell),
& map_TCR_to_tuftIB(num_TCR_to_tuftIB,num_tuftIB),
& map_TCR_to_tuftRS(num_TCR_to_tuftRS,num_tuftRS),
& map_TCR_to_deepbask(num_TCR_to_deepbask,num_deepbask),
& map_TCR_to_deepng (num_TCR_to_deepng ,num_deepng ),
& map_TCR_to_deepaxax(num_TCR_to_deepaxax,num_deepaxax),
& map_TCR_to_nRT(num_TCR_to_nRT,num_nRT),
& map_TCR_to_nontuftRS(num_TCR_to_nontuftRS,num_nontuftRS),
& map_nRT_to_TCR(num_nRT_to_TCR,num_TCR),
& map_nRT_to_nRT(num_nRT_to_nRT,num_nRT),
& map_nontuftRS_to_suppyrRS(num_nontuftRS_to_suppyrRS,
& num_suppyrRS),
& map_nontuftRS_to_supbask(num_nontuftRS_to_supbask,
& num_supbask),
& map_nontuftRS_to_supaxax(num_nontuftRS_to_supaxax,
& num_supaxax),
& map_nontuftRS_to_supLTS(num_nontuftRS_to_supLTS,
& num_supLTS),
& map_nontuftRS_to_spinstell(num_nontuftRS_to_spinstell,
& num_spinstell),
& map_nontuftRS_to_tuftIB(num_nontuftRS_to_tuftIB,
& num_tuftIB),
& map_nontuftRS_to_tuftRS(num_nontuftRS_to_tuftRS,
& num_tuftRS),
& map_nontuftRS_to_deepbask(num_nontuftRS_to_deepbask,
& num_deepbask),
& map_nontuftRS_to_deepng (num_nontuftRS_to_deepng ,
& num_deepng ),
& map_nontuftRS_to_deepaxax(num_nontuftRS_to_deepaxax,
& num_deepaxax),
& map_nontuftRS_to_supVIP (num_nontuftRS_to_supVIP ,
& num_supVIP ),
& map_nontuftRS_to_TCR(num_nontuftRS_to_TCR,num_TCR),
& map_nontuftRS_to_nRT(num_nontuftRS_to_nRT,num_nRT),
& map_nontuftRS_to_nontuftRS(num_nontuftRS_to_nontuftRS,
& num_nontuftRS)
c Maps of synaptic compartments. For simplicity, all contacts
c only made to one compartment. Axoaxonic cells forced to contact
c initial axon segments; other compartments will be listed in arrays.
INTEGER
& com_suppyrRS_to_suppyrRS(num_suppyrRS_to_suppyrRS,
& num_suppyrRS),
& com_suppyrRS_to_supbask(num_suppyrRS_to_supbask,
& num_supbask),
& com_suppyrRS_to_supng (num_suppyrRS_to_supng ,
& num_supng ),
& com_suppyrRS_to_supaxax(num_suppyrRS_to_supaxax,
& num_supaxax),
& com_suppyrRS_to_supLTS(num_suppyrRS_to_supLTS,
& num_supLTS),
& com_suppyrRS_to_spinstell(num_suppyrRS_to_spinstell,
& num_spinstell),
& com_suppyrRS_to_tuftIB(num_suppyrRS_to_tuftIB,
& num_tuftIB),
& com_suppyrRS_to_tuftRS(num_suppyrRS_to_tuftRS,
& num_tuftRS),
& com_suppyrRS_to_deepbask(num_suppyrRS_to_deepbask,
& num_deepbask),
& com_suppyrRS_to_deepaxax(num_suppyrRS_to_deepaxax,
& num_deepaxax),
& com_suppyrRS_to_supVIP (num_suppyrRS_to_supVIP ,
& num_supVIP ),
& com_suppyrRS_to_nontuftrS(num_suppyrRS_to_nontuftRS,
& num_nontuftRS)
INTEGER
& com_supbask_to_suppyrRS(num_supbask_to_suppyrRS,
& num_suppyrRS),
& com_supbask_to_supbask(num_supbask_to_supbask,
& num_supbask),
& com_supbask_to_supng (num_supbask_to_supng ,
& num_supng ),
& com_supbask_to_supaxax(num_supbask_to_supaxax,
& num_supaxax),
& com_supbask_to_supLTS(num_supbask_to_supLTS,
& num_supLTS),
& com_supbask_to_spinstell(num_supbask_to_spinstell,
& num_spinstell)
INTEGER
& com_supng_to_suppyrRS (num_supng_to_suppyrRS,
& num_suppyrRS),
& com_supng_to_nontuftRS (num_supng_to_nontuftRS,
& num_nontuftRS),
& com_supng_to_tuftIB (num_supng_to_tuftIB ,
& num_tuftIB ),
& com_supng_to_tuftRS (num_supng_to_tuftRS ,
& num_tuftRS ),
& com_supng_to_supng (num_supng_to_supng ,
& num_supng ),
& com_supng_to_supbask (num_supng_to_supbask ,
& num_supbask )
INTEGER
& com_supaxax_to_suppyrRS(num_supaxax_to_suppyrRS,
& num_suppyrRS),
& com_supaxax_to_spinstell(num_supaxax_to_spinstell,
& num_spinstell)
INTEGER
& com_supaxax_to_tuftIB(num_supaxax_to_tuftIB,
& num_tuftIB),
& com_supaxax_to_tuftRS(num_supaxax_to_tuftRS,
& num_tuftRS),
& com_supaxax_to_nontuftRS(num_supaxax_to_nontuftRS,
& num_nontuftRS),
& com_supLTS_to_suppyrRS(num_supLTS_to_suppyrRS,
& num_suppyrRS),
& com_supLTS_to_supbask(num_supLTS_to_supbask,
& num_supbask),
& com_supLTS_to_supaxax(num_supLTS_to_supaxax,
& num_supaxax),
& com_supLTS_to_supLTS(num_supLTS_to_supLTS,
& num_supLTS),
& com_supLTS_to_spinstell(num_supLTS_to_spinstell,
& num_spinstell),
& com_supLTS_to_tuftIB(num_supLTS_to_tuftIB,
& num_tuftIB),
& com_supLTS_to_tuftRS(num_supLTS_to_tuftRS,
& num_tuftRS),
& com_supLTS_to_deepbask(num_supLTS_to_deepbask,
& num_deepbask),
& com_supLTS_to_deepaxax(num_supLTS_to_deepaxax,
& num_deepaxax),
& com_supLTS_to_supVIP (num_supLTS_to_supVIP ,
& num_supVIP ),
& com_supLTS_to_nontuftRS(num_supLTS_to_nontuftRS,
& num_nontuftRS),
& com_spinstell_to_suppyrRS(num_spinstell_to_suppyrRS,
& num_suppyrRS),
& com_spinstell_to_supbask(num_spinstell_to_supbask,
& num_supbask),
& com_spinstell_to_supaxax(num_spinstell_to_supaxax,
& num_supaxax)
INTEGER
& com_spinstell_to_supLTS(num_spinstell_to_supLTS,
& num_supLTS),
& com_spinstell_to_spinstell(num_spinstell_to_spinstell,
& num_spinstell),
& com_spinstell_to_tuftIB(num_spinstell_to_tuftIB,
& num_tuftIB),
& com_spinstell_to_tuftRS(num_spinstell_to_tuftRS,
& num_tuftRS),
& com_spinstell_to_deepbask(num_spinstell_to_deepbask,
& num_deepbask),
& com_spinstell_to_deepng (num_spinstell_to_deepng ,
& num_deepng ),
& com_spinstell_to_deepaxax(num_spinstell_to_deepaxax,
& num_deepaxax),
& com_spinstell_to_supVIP (num_spinstell_to_supVIP ,
& num_supVIP ),
& com_spinstell_to_nontuftRS(num_spinstell_to_nontuftRS,
& num_nontuftRS),
& com_tuftIB_to_suppyrRS(num_tuftIB_to_suppyrRS,
& num_suppyrRS),
& com_tuftIB_to_supbask(num_tuftIB_to_supbask,
& num_supbask),
& com_tuftIB_to_supaxax(num_tuftIB_to_supaxax,
& num_supaxax),
& com_tuftIB_to_supLTS(num_tuftIB_to_supLTS,
& num_supLTS),
& com_tuftIB_to_spinstell(num_tuftIB_to_spinstell,
& num_spinstell),
& com_tuftIB_to_tuftIB(num_tuftIB_to_tuftIB,
& num_tuftIB),
& com_tuftIB_to_tuftRS(num_tuftIB_to_tuftRS,
& num_tuftRS),
& com_tuftIB_to_deepbask(num_tuftIB_to_deepbask,
& num_deepbask),
& com_tuftIB_to_deepng (num_tuftIB_to_deepng ,
& num_deepng ),
& com_tuftIB_to_deepaxax(num_tuftIB_to_deepaxax,
& num_deepaxax),
& com_tuftIB_to_supVIP (num_tuftIB_to_supVIP ,
& num_supVIP ),
& com_tuftIB_to_nontuftRS(num_tuftIB_to_nontuftRS,
& num_nontuftRS)
INTEGER
& com_tuftRS_to_suppyrRS(num_tuftRS_to_suppyrRS,
& num_suppyrRS),
& com_tuftRS_to_supbask(num_tuftRS_to_supbask,
& num_supbask),
& com_tuftRS_to_supaxax(num_tuftRS_to_supaxax,
& num_supaxax),
& com_tuftRS_to_supLTS(num_tuftRS_to_supLTS,
& num_supLTS),
& com_tuftRS_to_spinstell(num_tuftRS_to_spinstell,
& num_spinstell),
& com_tuftRS_to_tuftIB(num_tuftRS_to_tuftIB,
& num_tuftIB),
& com_tuftRS_to_tuftRS(num_tuftRS_to_tuftRS,
& num_tuftRS),
& com_tuftRS_to_deepbask(num_tuftRS_to_deepbask,
& num_deepbask),
& com_tuftRS_to_deepng (num_tuftRS_to_deepng ,
& num_deepng ),
& com_tuftRS_to_deepaxax(num_tuftRS_to_deepaxax,
& num_deepaxax),
& com_tuftRS_to_supVIP (num_tuftRS_to_supVIP ,
& num_supVIP ),
& com_tuftRS_to_nontuftRS(num_tuftRS_to_nontuftRS,
& num_nontuftRS),
& com_deepbask_to_spinstell(num_deepbask_to_spinstell,
& num_spinstell),
& com_deepbask_to_tuftIB(num_deepbask_to_tuftIB,
& num_tuftIB),
& com_deepbask_to_tuftRS(num_deepbask_to_tuftRS,
& num_tuftRS),
& com_deepbask_to_deepbask(num_deepbask_to_deepbask,
& num_deepbask),
& com_deepbask_to_deepng (num_deepbask_to_deepng ,
& num_deepng ),
& com_deepbask_to_deepaxax(num_deepbask_to_deepaxax,
& num_deepaxax),
& com_deepbask_to_supVIP (num_deepbask_to_supVIP ,
& num_supVIP ),
& com_deepbask_to_nontuftRS(num_deepbask_to_nontuftRS,
& num_nontuftRS)
INTEGER
& com_deepng_to_tuftIB (num_deepng_to_tuftIB ,
& num_tuftIB ),
& com_deepng_to_tuftRS (num_deepng_to_tuftRS ,
& num_tuftRS ),
& com_deepng_to_nontuftRS (num_deepng_to_nontuftRS ,
& num_nontuftRS ),
& com_deepng_to_spinstell (num_deepng_to_spinstell ,
& num_spinstell ),
& com_deepng_to_deepng (num_deepng_to_deepng ,
& num_deepng ),
& com_deepng_to_deepbask (num_deepng_to_deepbask ,
& num_deepbask )
INTEGER
& com_deepaxax_to_suppyrRS(num_deepaxax_to_suppyrRS,
& num_suppyrRS),
& com_deepaxax_to_spinstell(num_deepaxax_to_spinstell,
& num_spinstell),
& com_deepaxax_to_tuftIB(num_deepaxax_to_tuftIB,
& num_tuftIB),
& com_deepaxax_to_tuftRS(num_deepaxax_to_tuftRS,
& num_tuftRS),
& com_deepaxax_to_nontuftRS(num_deepaxax_to_nontuftRS,
& num_nontuftRS),
& com_supVIP_to_suppyrRS(num_supVIP_to_suppyrRS,
& num_suppyrRS),
& com_supVIP_to_supbask(num_supVIP_to_supbask,
& num_supbask),
& com_supVIP_to_supaxax(num_supVIP_to_supaxax,
& num_supaxax),
& com_supVIP_to_supLTS(num_supVIP_to_supLTS,
& num_supLTS),
& com_supVIP_to_supng (num_supVIP_to_supng ,
& num_supng ),
& com_supVIP_to_spinstell(num_supVIP_to_spinstell,
& num_spinstell),
& com_supVIP_to_tuftIB(num_supVIP_to_tuftIB,
& num_tuftIB),
& com_supVIP_to_tuftRS(num_supVIP_to_tuftRS,
& num_tuftRS),
& com_supVIP_to_deepbask(num_supVIP_to_deepbask,
& num_deepbask),
& com_supVIP_to_deepaxax(num_supVIP_to_deepaxax,
& num_deepaxax),
& com_supVIP_to_supVIP(num_supVIP_to_supVIP,
& num_supVIP)
INTEGER
& com_supVIP_to_nontuftRS(num_supVIP_to_nontuftRS,
& num_nontuftRS),
& com_TCR_to_suppyrRS(num_TCR_to_suppyrRS,
& num_suppyrRS),
& com_TCR_to_supbask(num_TCR_to_supbask,
& num_supbask),
& com_TCR_to_supng (num_TCR_to_supng ,
& num_supng ),
& com_TCR_to_supaxax(num_TCR_to_supaxax,num_supaxax),
& com_TCR_to_spinstell(num_TCR_to_spinstell,num_spinstell),
& com_TCR_to_tuftIB(num_TCR_to_tuftIB,num_tuftIB),
& com_TCR_to_tuftRS(num_TCR_to_tuftRS,num_tuftRS),
& com_TCR_to_deepbask(num_TCR_to_deepbask,num_deepbask),
& com_TCR_to_deepng (num_TCR_to_deepng ,num_deepng ),
& com_TCR_to_deepaxax(num_TCR_to_deepaxax,num_deepaxax),
& com_TCR_to_nRT(num_TCR_to_nRT,num_nRT),
& com_TCR_to_nontuftRS(num_TCR_to_nontuftRS,num_nontuftRS),
& com_nRT_to_TCR(num_nRT_to_TCR,num_TCR),
& com_nRT_to_nRT(num_nRT_to_nRT,num_nRT),
& com_nontuftRS_to_suppyrRS(num_nontuftRS_to_suppyrRS,
& num_suppyrRS),
& com_nontuftRS_to_supbask(num_nontuftRS_to_supbask,
& num_supbask),
& com_nontuftRS_to_supaxax(num_nontuftRS_to_supaxax,
& num_supaxax),
& com_nontuftRS_to_supLTS(num_nontuftRS_to_supLTS,
& num_supLTS),
& com_nontuftRS_to_spinstell(num_nontuftRS_to_spinstell,
& num_spinstell),
& com_nontuftRS_to_tuftIB(num_nontuftRS_to_tuftIB,
& num_tuftIB)
INTEGER
& com_nontuftRS_to_tuftRS(num_nontuftRS_to_tuftRS,
& num_tuftRS),
& com_nontuftRS_to_deepbask(num_nontuftRS_to_deepbask,
& num_deepbask),
& com_nontuftRS_to_deepng (num_nontuftRS_to_deepng ,
& num_deepng ),
& com_nontuftRS_to_deepaxax(num_nontuftRS_to_deepaxax,
& num_deepaxax),
& com_nontuftRS_to_supVIP (num_nontuftRS_to_supVIP ,
& num_supVIP ),
& com_nontuftRS_to_TCR(num_nontuftRS_to_TCR,num_TCR),
& com_nontuftRS_to_nRT(num_nontuftRS_to_nRT,num_nRT),
& com_nontuftRS_to_nontuftRS(num_nontuftRS_to_nontuftRS,
& num_nontuftRS)
c Entries in gjtable are cell a, compart. of cell a with gj,
c cell b, compart. of cell b with gj; entries not repeated,
c which means that, for given cell being integrated, table
c must be searched through cols. 1 and 3.
integer gjtable_suppyrRS(totaxgj_suppyrRS,4),
& gjtable_supbask (totSDgj_supbask,4),
& gjtable_supng (totSDgj_supng ,4),
& gjtable_supaxax (1 ,4),
& gjtable_supLTS (totSDgj_supLTS,4),
& gjtable_spinstell(totaxgj_spinstell,4),
& gjtable_tuftIB (totaxgj_tuftIB,4),
& gjtable_tuftRS (totaxgj_tuftRS,4),
& gjtable_nontuftRS(totaxgj_nontuftRS,4),
& gjtable_deepbask (totSDgj_deepbask,4),
& gjtable_deepng (totSDgj_deepng ,4),
& gjtable_deepaxax (1 ,4),
& gjtable_supVIP (totSDgj_supVIP ,4),
& gjtable_TCR (totaxgj_TCR,4),
& gjtable_nRT (totSDgj_nRT,4)
c define compartments on which gj can form
INTEGER
&table_axgjcompallow_suppyrRS(num_axgjcompallow_suppyrRS)
& /74/,
c & /73/, ! 28 Nov. 2005, move proximally, to get more inhib. control.
c Ectopics to superficial pyr. cells then go to #72, see
c supergj.f
&table_SDgjcompallow_supbask (num_SDgjcompallow_supbask )
& /3,4,16,17,29,30,42,43/,
&table_SDgjcompallow_supng (num_SDgjcompallow_supng )
& /3,4,16,17,29,30,42,43/,
&table_SDgjcompallow_supLTS (num_SDgjcompallow_supLTS )
& /3,4,16,17,29,30,42,43/,
&table_axgjcompallow_spinstell(num_axgjcompallow_spinstell)
& /59/,
c Ectopics to spiny stellates then go to #57
&table_axgjcompallow_tuftIB (num_axgjcompallow_tuftIB )
& /61/,
&table_axgjcompallow_tuftRS (num_axgjcompallow_tuftRS )
& /61/,
c Ectopics to tufted pyr. cells then go to #60
&table_axgjcompallow_nontuftRS(num_axgjcompallow_nontuftRS)
& /50/,
c Ectopics to nontufted deep pyr. cells then to #48
&table_SDgjcompallow_deepbask (num_SDgjcompallow_deepbask )
& /3,4,16,17,29,30,42,43/,
&table_SDgjcompallow_deepng (num_SDgjcompallow_deepng )
& /3,4,16,17,29,30,42,43/,
&table_SDgjcompallow_supVIP (num_SDgjcompallow_supVIP )
& /3,4,16,17,29,30,42,43/,
&table_axgjcompallow_TCR (num_axgjcompallow_TCR )
& /137/,
c Ectopics to TCR cells to #135
&table_SDgjcompallow_nRT (num_SDgjcompallow_nRT )
& /3,4,16,17,29,30,42,43/
real*8 field_1mm, field_2mm ! scalars to pass to subroutines
real*8 field_1mm_local(1), field_2mm_local(1) ! for mpi
real*8 field_1mm_global(numnodes), field_2mm_global(numnodes) ! for mpi
real*8 field_1mm_tot, field_2mm_tot ! sums of global vectors
c Define tables used for computing dexp & GABA-B timecourse:
c dexptablesmall(i) = dexp(-z), i = int (z*1000.), 0<=z<=5.
c dexptablebig (i) = dexp(-z), i = int (z*10.), 0<=z<=100.
double precision:: dexptablesmall(0:5000)
double precision:: dexptablebig (0:1000)
double precision:: otis_table (0:50000)
! if how_often = 50 and dt = .002, then otis_table structure
! corresponds to time steps of 0.1 ms, and it gives 5 s of data.
real*8 noisepe_tuftIB ! noisepe_tuftIB_save defined as parameter above
real*8 noisepe_tuftRS ! noisepe_tuftRS_save defined as parameter above
real*8 gapcon_tuftRS, gapcon_suppyrRS
real*8 z1ai, z1bi, z1ap, z1bp
c Define arrays, constants, for voltages, applied currents,
c synaptic conductances, random numbers, etc.
double precision::
& V_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& V_supbask (numcomp_supbask, num_supbask),
& V_supng (numcomp_supng , num_supng ),
& V_supaxax (numcomp_supaxax, num_supaxax),
& V_supLTS (numcomp_supLTS, num_supLTS),
& V_spinstell (numcomp_spinstell,num_spinstell),
& V_tuftIB (numcomp_tuftIB, num_tuftIB),
& V_tuftRS (numcomp_tuftRS, num_tuftRS),
& V_nontuftRS (numcomp_nontuftRS,num_nontuftRS),
& V_deepbask (numcomp_deepbask, num_deepbask),
& V_deepng (numcomp_deepng , num_deepng ),
& V_deepaxax (numcomp_deepaxax, num_deepaxax),
& V_supVIP (numcomp_supVIP , num_supVIP ),
& V_TCR (numcomp_TCR, num_TCR),
& V_nRT (numcomp_nRT, num_nRT)
double precision::
& curr_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& curr_supbask (numcomp_supbask, num_supbask),
& curr_supng (numcomp_supng , num_supng ),
& curr_supaxax (numcomp_supaxax, num_supaxax),
& curr_supLTS (numcomp_supLTS, num_supLTS),
& curr_spinstell (numcomp_spinstell,num_spinstell),
& curr_tuftIB (numcomp_tuftIB, num_tuftIB),
& curr_tuftRS (numcomp_tuftRS, num_tuftRS),
& curr_nontuftRS (numcomp_nontuftRS,num_nontuftRS),
& curr_deepbask (numcomp_deepbask, num_deepbask),
& curr_deepng (numcomp_deepng , num_deepng ),
& curr_deepaxax (numcomp_deepaxax, num_deepaxax),
& curr_supVIP (numcomp_supVIP , num_supVIP ),
& curr_TCR (numcomp_TCR, num_TCR),
& curr_nRT (numcomp_nRT, num_nRT)
double precision::
& gAMPA_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& gAMPA_supbask (numcomp_supbask, num_supbask),
& gAMPA_supng (numcomp_supng , num_supng ),
& gAMPA_supaxax (numcomp_supaxax, num_supaxax),
& gAMPA_supLTS (numcomp_supLTS, num_supLTS),
& gAMPA_spinstell (numcomp_spinstell,num_spinstell),
& gAMPA_tuftIB (numcomp_tuftIB, num_tuftIB),
& gAMPA_tuftRS (numcomp_tuftRS, num_tuftRS),
& gAMPA_nontuftRS (numcomp_nontuftRS,num_nontuftRS),
& gAMPA_deepbask (numcomp_deepbask, num_deepbask),
& gAMPA_deepng (numcomp_deepng , num_deepng ),
& gAMPA_deepaxax (numcomp_deepaxax, num_deepaxax),
& gAMPA_supVIP (numcomp_supVIP , num_supVIP ),
& gAMPA_TCR (numcomp_TCR, num_TCR),
& gAMPA_nRT (numcomp_nRT, num_nRT)
double precision::
& gNMDA_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& gNMDA_supbask (numcomp_supbask, num_supbask),
& gNMDA_supng (numcomp_supng , num_supng ),
& gNMDA_supaxax (numcomp_supaxax, num_supaxax),
& gNMDA_supLTS (numcomp_supLTS, num_supLTS),
& gNMDA_spinstell (numcomp_spinstell,num_spinstell),
& gNMDA_tuftIB (numcomp_tuftIB, num_tuftIB),
& gNMDA_tuftRS (numcomp_tuftRS, num_tuftRS),
& gNMDA_nontuftRS (numcomp_nontuftRS,num_nontuftRS),
& gNMDA_deepbask (numcomp_deepbask, num_deepbask),
& gNMDA_deepng (numcomp_deepng , num_deepng ),
& gNMDA_deepaxax (numcomp_deepaxax, num_deepaxax),
& gNMDA_supVIP (numcomp_supVIP , num_supVIP ),
& gNMDA_TCR (numcomp_TCR, num_TCR),
& gNMDA_nRT (numcomp_nRT, num_nRT)
double precision::
& gGABA_A_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& gGABA_A_supbask (numcomp_supbask, num_supbask),
& gGABA_A_supng (numcomp_supng , num_supng ),
& gGABA_A_supaxax (numcomp_supaxax, num_supaxax),
& gGABA_A_supLTS (numcomp_supLTS, num_supLTS),
& gGABA_A_spinstell(numcomp_spinstell,num_spinstell),
& gGABA_A_tuftIB (numcomp_tuftIB, num_tuftIB),
& gGABA_A_tuftRS (numcomp_tuftRS, num_tuftRS),
& gGABA_A_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
& gGABA_A_deepbask (numcomp_deepbask, num_deepbask),
& gGABA_A_deepng (numcomp_deepng , num_deepng ),
& gGABA_A_deepaxax (numcomp_deepaxax, num_deepaxax),
& gGABA_A_supVIP (numcomp_supVIP , num_supVIP ),
& gGABA_A_TCR (numcomp_TCR, num_TCR),
& gGABA_A_nRT (numcomp_nRT, num_nRT)
double precision::
& gGABA_B_suppyrRS (numcomp_suppyrRS, num_suppyrRS),
& gGABA_B_spinstell(numcomp_spinstell,num_spinstell),
& gGABA_B_tuftIB (numcomp_tuftIB, num_tuftIB),
& gGABA_B_tuftRS (numcomp_tuftRS, num_tuftRS),
& gGABA_B_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
& gGABA_B_TCR (numcomp_TCR, num_TCR),
& gGABA_B_nRT (numcomp_nRT, num_nRT)
! define membrane and Ca state variables that must be passed
! to subroutines
real*8 chi_suppyrRS(numcomp_suppyrRS,num_suppyrRS)
real*8 mnaf_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
& mnap_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x hnaf_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mkdr_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mka_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x hka_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mk2_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x hk2_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mkm_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mkc_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mkahp_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mcat_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x hcat_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mcal_suppyrRS(numcomp_suppyrRS,num_suppyrRS),
x mar_suppyrRS(numcomp_suppyrRS,num_suppyrRS)
real*8 chi_supbask (numcomp_supbask ,num_supbask )
real*8 mnaf_supbask (numcomp_supbask ,num_supbask ),
& mnap_supbask (numcomp_supbask ,num_supbask ),
x hnaf_supbask (numcomp_supbask ,num_supbask ),
x mkdr_supbask (numcomp_supbask ,num_supbask ),
x mka_supbask (numcomp_supbask ,num_supbask ),
x hka_supbask (numcomp_supbask ,num_supbask ),
x mk2_supbask (numcomp_supbask ,num_supbask ),
x hk2_supbask (numcomp_supbask ,num_supbask ),
x mkm_supbask (numcomp_supbask ,num_supbask ),
x mkc_supbask (numcomp_supbask ,num_supbask ),
x mkahp_supbask (numcomp_supbask ,num_supbask ),
x mcat_supbask (numcomp_supbask ,num_supbask ),
x hcat_supbask (numcomp_supbask ,num_supbask ),
x mcal_supbask (numcomp_supbask ,num_supbask ),
x mar_supbask (numcomp_supbask ,num_supbask )
real*8 chi_supng (numcomp_supng ,num_supng )
real*8 mnaf_supng (numcomp_supng ,num_supng ),
& mnap_supng (numcomp_supng ,num_supng ),
x hnaf_supng (numcomp_supng ,num_supng ),
x mkdr_supng (numcomp_supng ,num_supng ),
x mka_supng (numcomp_supng ,num_supng ),
x hka_supng (numcomp_supng ,num_supng ),
x mk2_supng (numcomp_supng ,num_supng ),
x hk2_supng (numcomp_supng ,num_supng ),
x mkm_supng (numcomp_supng ,num_supng ),
x mkc_supng (numcomp_supng ,num_supng ),
x mkahp_supng (numcomp_supng ,num_supng ),
x mcat_supng (numcomp_supng ,num_supng ),
x hcat_supng (numcomp_supng ,num_supng ),
x mcal_supng (numcomp_supng ,num_supng ),
x mar_supng (numcomp_supng ,num_supng )
real*8 chi_supaxax (numcomp_supaxax ,num_supaxax )
real*8 mnaf_supaxax (numcomp_supaxax ,num_supaxax ),
& mnap_supaxax (numcomp_supaxax ,num_supaxax ),
x hnaf_supaxax (numcomp_supaxax ,num_supaxax ),
x mkdr_supaxax (numcomp_supaxax ,num_supaxax ),
x mka_supaxax (numcomp_supaxax ,num_supaxax ),
x hka_supaxax (numcomp_supaxax ,num_supaxax ),
x mk2_supaxax (numcomp_supaxax ,num_supaxax ),
x hk2_supaxax (numcomp_supaxax ,num_supaxax ),
x mkm_supaxax (numcomp_supaxax ,num_supaxax ),
x mkc_supaxax (numcomp_supaxax ,num_supaxax ),
x mkahp_supaxax (numcomp_supaxax ,num_supaxax ),
x mcat_supaxax (numcomp_supaxax ,num_supaxax ),
x hcat_supaxax (numcomp_supaxax ,num_supaxax ),
x mcal_supaxax (numcomp_supaxax ,num_supaxax ),
x mar_supaxax (numcomp_supaxax ,num_supaxax )
real*8 chi_supLTS(numcomp_supLTS,num_supLTS)
real*8 mnaf_supLTS(numcomp_supLTS,num_supLTS),
& mnap_supLTS(numcomp_supLTS,num_supLTS),
x hnaf_supLTS(numcomp_supLTS,num_supLTS),
x mkdr_supLTS(numcomp_supLTS,num_supLTS),
x mka_supLTS(numcomp_supLTS,num_supLTS),
x hka_supLTS(numcomp_supLTS,num_supLTS),
x mk2_supLTS(numcomp_supLTS,num_supLTS),
x hk2_supLTS(numcomp_supLTS,num_supLTS),
x mkm_supLTS(numcomp_supLTS,num_supLTS),
x mkc_supLTS(numcomp_supLTS,num_supLTS),
x mkahp_supLTS(numcomp_supLTS,num_supLTS),
x mcat_supLTS(numcomp_supLTS,num_supLTS),
x hcat_supLTS(numcomp_supLTS,num_supLTS),
x mcal_supLTS(numcomp_supLTS,num_supLTS),
x mar_supLTS(numcomp_supLTS,num_supLTS)
real*8 chi_spinstell(numcomp_spinstell,num_spinstell)
real*8 mnaf_spinstell(numcomp_spinstell,num_spinstell),
& mnap_spinstell(numcomp_spinstell,num_spinstell),
x hnaf_spinstell(numcomp_spinstell,num_spinstell),
x mkdr_spinstell(numcomp_spinstell,num_spinstell),
x mka_spinstell(numcomp_spinstell,num_spinstell),
x hka_spinstell(numcomp_spinstell,num_spinstell),
x mk2_spinstell(numcomp_spinstell,num_spinstell),
x hk2_spinstell(numcomp_spinstell,num_spinstell),
x mkm_spinstell(numcomp_spinstell,num_spinstell),
x mkc_spinstell(numcomp_spinstell,num_spinstell),
x mkahp_spinstell(numcomp_spinstell,num_spinstell),
x mcat_spinstell(numcomp_spinstell,num_spinstell),
x hcat_spinstell(numcomp_spinstell,num_spinstell),
x mcal_spinstell(numcomp_spinstell,num_spinstell),
x mar_spinstell(numcomp_spinstell,num_spinstell)
real*8 chi_tuftIB(numcomp_tuftIB,num_tuftIB)
real*8 mnaf_tuftIB(numcomp_tuftIB,num_tuftIB),
& mnap_tuftIB(numcomp_tuftIB,num_tuftIB),
x hnaf_tuftIB(numcomp_tuftIB,num_tuftIB),
x mkdr_tuftIB(numcomp_tuftIB,num_tuftIB),
x mka_tuftIB(numcomp_tuftIB,num_tuftIB),
x hka_tuftIB(numcomp_tuftIB,num_tuftIB),
x mk2_tuftIB(numcomp_tuftIB,num_tuftIB),
x hk2_tuftIB(numcomp_tuftIB,num_tuftIB),
x mkm_tuftIB(numcomp_tuftIB,num_tuftIB),
x mkc_tuftIB(numcomp_tuftIB,num_tuftIB),
x mkahp_tuftIB(numcomp_tuftIB,num_tuftIB),
x mcat_tuftIB(numcomp_tuftIB,num_tuftIB),
x hcat_tuftIB(numcomp_tuftIB,num_tuftIB),
x mcal_tuftIB(numcomp_tuftIB,num_tuftIB),
x mar_tuftIB(numcomp_tuftIB,num_tuftIB)
real*8 chi_tuftRS(numcomp_tuftRS,num_tuftRS)
real*8 mnaf_tuftRS(numcomp_tuftRS,num_tuftRS),
& mnap_tuftRS(numcomp_tuftRS,num_tuftRS),
x hnaf_tuftRS(numcomp_tuftRS,num_tuftRS),
x mkdr_tuftRS(numcomp_tuftRS,num_tuftRS),
x mka_tuftRS(numcomp_tuftRS,num_tuftRS),
x hka_tuftRS(numcomp_tuftRS,num_tuftRS),
x mk2_tuftRS(numcomp_tuftRS,num_tuftRS),
x hk2_tuftRS(numcomp_tuftRS,num_tuftRS),
x mkm_tuftRS(numcomp_tuftRS,num_tuftRS),
x mkc_tuftRS(numcomp_tuftRS,num_tuftRS),
x mkahp_tuftRS(numcomp_tuftRS,num_tuftRS),
x mcat_tuftRS(numcomp_tuftRS,num_tuftRS),
x hcat_tuftRS(numcomp_tuftRS,num_tuftRS),
x mcal_tuftRS(numcomp_tuftRS,num_tuftRS),
x mar_tuftRS(numcomp_tuftRS,num_tuftRS)
real*8 chi_nontuftRS(numcomp_nontuftRS,num_nontuftRS)
real*8 mnaf_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
& mnap_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x hnaf_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mkdr_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mka_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x hka_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mk2_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x hk2_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mkm_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mkc_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mkahp_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mcat_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x hcat_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mcal_nontuftRS(numcomp_nontuftRS,num_nontuftRS),
x mar_nontuftRS(numcomp_nontuftRS,num_nontuftRS)
real*8 chi_deepbask(numcomp_deepbask,num_deepbask)
real*8 mnaf_deepbask(numcomp_deepbask,num_deepbask),
& mnap_deepbask(numcomp_deepbask,num_deepbask),
x hnaf_deepbask(numcomp_deepbask,num_deepbask),
x mkdr_deepbask(numcomp_deepbask,num_deepbask),
x mka_deepbask(numcomp_deepbask,num_deepbask),
x hka_deepbask(numcomp_deepbask,num_deepbask),
x mk2_deepbask(numcomp_deepbask,num_deepbask),
x hk2_deepbask(numcomp_deepbask,num_deepbask),
x mkm_deepbask(numcomp_deepbask,num_deepbask),
x mkc_deepbask(numcomp_deepbask,num_deepbask),
x mkahp_deepbask(numcomp_deepbask,num_deepbask),
x mcat_deepbask(numcomp_deepbask,num_deepbask),
x hcat_deepbask(numcomp_deepbask,num_deepbask),
x mcal_deepbask(numcomp_deepbask,num_deepbask),
x mar_deepbask(numcomp_deepbask,num_deepbask)
real*8 chi_deepng(numcomp_deepng,num_deepng)
real*8 mnaf_deepng(numcomp_deepng,num_deepng),
& mnap_deepng(numcomp_deepng,num_deepng),
x hnaf_deepng(numcomp_deepng,num_deepng),
x mkdr_deepng(numcomp_deepng,num_deepng),
x mka_deepng(numcomp_deepng,num_deepng),
x hka_deepng(numcomp_deepng,num_deepng),
x mk2_deepng(numcomp_deepng,num_deepng),
x hk2_deepng(numcomp_deepng,num_deepng),
x mkm_deepng(numcomp_deepng,num_deepng),
x mkc_deepng(numcomp_deepng,num_deepng),
x mkahp_deepng(numcomp_deepng,num_deepng),
x mcat_deepng(numcomp_deepng,num_deepng),
x hcat_deepng(numcomp_deepng,num_deepng),
x mcal_deepng(numcomp_deepng,num_deepng),
x mar_deepng(numcomp_deepng,num_deepng)
real*8 chi_deepaxax(numcomp_deepaxax,num_deepaxax)
real*8 mnaf_deepaxax(numcomp_deepaxax,num_deepaxax),
& mnap_deepaxax(numcomp_deepaxax,num_deepaxax),
x hnaf_deepaxax(numcomp_deepaxax,num_deepaxax),
x mkdr_deepaxax(numcomp_deepaxax,num_deepaxax),
x mka_deepaxax(numcomp_deepaxax,num_deepaxax),
x hka_deepaxax(numcomp_deepaxax,num_deepaxax),
x mk2_deepaxax(numcomp_deepaxax,num_deepaxax),
x hk2_deepaxax(numcomp_deepaxax,num_deepaxax),
x mkm_deepaxax(numcomp_deepaxax,num_deepaxax),
x mkc_deepaxax(numcomp_deepaxax,num_deepaxax),
x mkahp_deepaxax(numcomp_deepaxax,num_deepaxax),
x mcat_deepaxax(numcomp_deepaxax,num_deepaxax),
x hcat_deepaxax(numcomp_deepaxax,num_deepaxax),
x mcal_deepaxax(numcomp_deepaxax,num_deepaxax),
x mar_deepaxax(numcomp_deepaxax,num_deepaxax)
real*8 chi_supVIP(numcomp_supVIP,num_supVIP)
real*8 mnaf_supVIP(numcomp_supVIP,num_supVIP),
& mnap_supVIP(numcomp_supVIP,num_supVIP),
x hnaf_supVIP(numcomp_supVIP,num_supVIP),
x mkdr_supVIP(numcomp_supVIP,num_supVIP),
x mka_supVIP(numcomp_supVIP,num_supVIP),
x hka_supVIP(numcomp_supVIP,num_supVIP),
x mk2_supVIP(numcomp_supVIP,num_supVIP),
x hk2_supVIP(numcomp_supVIP,num_supVIP),
x mkm_supVIP(numcomp_supVIP,num_supVIP),
x mkc_supVIP(numcomp_supVIP,num_supVIP),
x mkahp_supVIP(numcomp_supVIP,num_supVIP),
x mcat_supVIP(numcomp_supVIP,num_supVIP),
x hcat_supVIP(numcomp_supVIP,num_supVIP),
x mcal_supVIP(numcomp_supVIP,num_supVIP),
x mar_supVIP(numcomp_supVIP,num_supVIP)
real*8 chi_tcr(numcomp_tcr,num_tcr)
real*8 mnaf_tcr(numcomp_tcr,num_tcr),
& mnap_tcr(numcomp_tcr,num_tcr),
x hnaf_tcr(numcomp_tcr,num_tcr),
x mkdr_tcr(numcomp_tcr,num_tcr),
x mka_tcr(numcomp_tcr,num_tcr),
x hka_tcr(numcomp_tcr,num_tcr),
x mk2_tcr(numcomp_tcr,num_tcr),
x hk2_tcr(numcomp_tcr,num_tcr),
x mkm_tcr(numcomp_tcr,num_tcr),
x mkc_tcr(numcomp_tcr,num_tcr),
x mkahp_tcr(numcomp_tcr,num_tcr),
x mcat_tcr(numcomp_tcr,num_tcr),
x hcat_tcr(numcomp_tcr,num_tcr),
x mcal_tcr(numcomp_tcr,num_tcr),
x mar_tcr(numcomp_tcr,num_tcr)
real*8 chi_nRT(numcomp_nRT,num_nRT)
real*8 mnaf_nRT(numcomp_nRT,num_nRT),
& mnap_nRT(numcomp_nRT,num_nRT),
x hnaf_nRT(numcomp_nRT,num_nRT),
x mkdr_nRT(numcomp_nRT,num_nRT),
x mka_nRT(numcomp_nRT,num_nRT),
x hka_nRT(numcomp_nRT,num_nRT),
x mk2_nRT(numcomp_nRT,num_nRT),
x hk2_nRT(numcomp_nRT,num_nRT),
x mkm_nRT(numcomp_nRT,num_nRT),
x mkc_nRT(numcomp_nRT,num_nRT),
x mkahp_nRT(numcomp_nRT,num_nRT),
x mcat_nRT(numcomp_nRT,num_nRT),
x hcat_nRT(numcomp_nRT,num_nRT),
x mcal_nRT(numcomp_nRT,num_nRT),
x mar_nRT(numcomp_nRT,num_nRT)
double precision
& ranvec_suppyrRS (num_suppyrRS),
& ranvec_supbask (num_supbask),
& ranvec_supng (num_supng ),
& ranvec_supaxax (num_supaxax),
& ranvec_supLTS (num_supLTS),
& ranvec_spinstell (num_spinstell),
& ranvec_tuftIB (num_tuftIB),
& ranvec_tuftRS (num_tuftRS),
& ranvec_nontuftRS (num_nontuftRS),
& ranvec_deepbask (num_deepbask),
& ranvec_deepng (num_deepng ),
& ranvec_deepaxax (num_deepaxax),
& ranvec_supVIP (num_supVIP ),
& ranvec_TCR (num_TCR),
& ranvec_nRT (num_nRT),
& seed /137.d0/
c Define arrays for distal axon voltages which will be shared
c between nodes, and for axonal sites of possible gj
double precision::
& distal_axon_suppyrRS (maxcellspernode),
& ldistal_axon_suppyrRS (num_suppyrRS), ! use for outtime
& distal_axon_supintern (maxcellspernode),
& ldistal_axon_supbask (num_supbask ),
& ldistal_axon_supaxax (num_supaxax ),
& ldistal_axon_supLTS (num_supLTS ),
& ldistal_axon_supng (num_supng ),
& ldistal_axon_supVIP (num_supVIP )
double precision::
& distal_axon_spinstell (maxcellspernode),
& ldistal_axon_spinstell(num_spinstell),
& distal_axon_tuftIB (maxcellspernode),
& ldistal_axon_tuftIB (num_tuftIB),
& distal_axon_tuftRS (maxcellspernode),
& ldistal_axon_tuftRS (num_tuftRS),
& distal_axon_nontuftRS (maxcellspernode),
& ldistal_axon_nontuftRS(num_nontuftRS),
& distal_axon_deepintern(maxcellspernode),
& ldistal_axon_deepbask (num_deepbask ),
& ldistal_axon_deepaxax (num_deepaxax ),
& ldistal_axon_deepng (num_deepng ),
& distal_axon_TCR (maxcellspernode),
& ldistal_axon_TCR (num_TCR),
& distal_axon_nRT (maxcellspernode),
& ldistal_axon_nRT (num_nRT),
! Communication will be complicated, however, because - say - a tuftIB
! will have to communicate only the tuftIB axons it has integrated.
& distal_axon_global (numnodes * maxcellspernode)
! distal_axon_global will be concatenation of individual
! distal_axon vectors
double precision::
& outtime_suppyrRS (5000, num_suppyrRS),
& outtime_supbask (5000, num_supbask),
& outtime_supng (5000, num_supng ),
& outtime_supaxax (5000, num_supaxax),
& outtime_supLTS (5000, num_supLTS),
& outtime_spinstell (5000, num_spinstell),
& outtime_tuftIB (5000, num_tuftIB),
& outtime_tuftRS (5000, num_tuftRS),
& outtime_nontuftRS (5000, num_nontuftRS),
& outtime_deepbask (5000, num_deepbask),
& outtime_deepng (5000, num_deepng ),
& outtime_deepaxax (5000, num_deepaxax),
& outtime_supVIP (5000, num_supVIP ),
& outtime_TCR (5000, num_TCR),
& outtime_nRT (5000, num_nRT)
INTEGER
& outctr_suppyrRS (num_suppyrRS),
& outctr_supbask (num_supbask),
& outctr_supng (num_supng ),
& outctr_supaxax (num_supaxax),
& outctr_supLTS (num_supLTS),
& outctr_spinstell (num_spinstell),
& outctr_tuftIB (num_tuftIB),
& outctr_tuftRS (num_tuftRS),
& outctr_nontuftRS (num_nontuftRS),
& outctr_deepbask (num_deepbask),
& outctr_deepng (num_deepng ),
& outctr_deepaxax (num_deepaxax),
& outctr_supVIP (num_supVIP ),
& outctr_TCR (num_TCR),
& outctr_nRT (num_nRT)
CHARACTER(LEN=10) nodecell(0:numnodes-1) ! will define which cell type is to be handled by each node
INTEGER place(0:numnodes-1) ! this will define whether a node is 1st, 2nd... in the set of nodes
! used by a given type of cell
integer initialize, firstcell, lastcell ! used in integration calls
integer ictr, ioffset
REAL*8 gettime, time1, time2, time, timtot
REAL*8 presyntime, delta, dexparg, dexparg1, dexparg2
INTEGER thisno, display /0/, O
REAL*8 z, z1, z2, outrcd(20), z3, z4, z3a, z4a, z5, z6, z7
REAL*8 z10, z11, z12, z13, z14, z10a, z10b
REAL*8 zz, tscale_ggabab, tscale_gCaL, tscale_gKDR ! new for
! PlateauT
INTEGER i, j, k, L, k0, m
double precision scale_tuftIB_gNaP(61)
double precision scale_tuftIB_gKM(61), Mshift ! for shifting gKM rate functions.
double precision scale_tuftIB_gCaL (num_tuftIB)
double precision gCaL_tuftIB(numcomp_tuftIB, num_tuftIB)
! declare this gCaL here, because there are problems in integration routine in
! making sure this conductance gets saved
double precision rel_axonshift_tuftIB, rel_axonshift_suppyrRS
c START EXECUTION PHASE
include 'mpif.h'
call mpi_init (info)
call mpi_comm_rank(mpi_comm_world, thisno, info)
call mpi_comm_size(mpi_comm_world, nodes , info)
time1 = gettime()
c Define gCaL scaling for tuftIB - depends on cell rather than compartment
call durand(seed,num_tuftIB,ranvec_tuftIB)
do L = 1, num_tuftIB
scale_tuftIB_gCaL(L) =
& 0.20d0 + 0.10d0 * ranvec_tuftIB(L)
c & 1.20d0 + 0.01d0 * ranvec_tuftIB(L)
c & 0.30d0 + 0.20d0 * ranvec_tuftIB(L)
c & 0.00d0 + 0.00d0 * ranvec_tuftIB(L)
end do
c Define variable for shifting gKM rate functions in tuftIB
Mshift = 0.d0
c Define gKM scaling for tufted IB pyramids
do i = 1, 55 ! soma & dendrites
c scale_tuftIB_gKM(i) = 1.00d0
! scale_tuftIB_gKM(i) = 0.30d0
c scale_tuftIB_gKM(i) = 0.40d0
c scale_tuftIB_gKM(i) = 0.10d0
c scale_tuftIB_gKM(i) = 0.05d0
scale_tuftIB_gKM(i) = 0.01d0
c scale_tuftIB_gNaP(i) = 0.0d0
scale_tuftIB_gNaP(i) = 0.05d0
end do
do i = 56, 61 ! axon
c scale_tuftIB_gKM(i) = 1.00d0
! scale_tuftIB_gKM(i) = 0.50d0
c scale_tuftIB_gKM(i) = 0.40d0
c scale_tuftIB_gKM(i) = 0.10d0
scale_tuftIB_gKM(i) = 0.00d0
c scale_tuftIB_gKM(i) = 0.05d0
c scale_tuftIB_gNaP(i) = 1.0d0
c scale_tuftIB_gNaP(i) = 0.0d0
scale_tuftIB_gNaP(i) = 0.01d0
end do
c Define which cell type is handled by each processor
nodecell(0) = 'suppyrRS '
nodecell(1) = 'suppyrRS '
nodecell(2) = 'supintern '
nodecell(3) = 'spinstell '
nodecell(4) = 'tuftIB '
nodecell(5) = 'tuftRS '
nodecell(6) = 'nontuftRS '
nodecell(7) = 'deepintern'
nodecell(8) = 'TCR '
nodecell(9) = 'nRT '
if (thisno.eq.0) then
do i = 0, numnodes - 1
write(6,786) i, nodecell(i)
786 format(i5,a10)
end do
end if
c Define "rank" of nodes assigned to each cell-type - will
c be used in figuring out how to partition the cells.
place( 0) = 1 ! suppyrRS: 1
place( 1) = 2 ! suppyrRS: 2
place( 2) = 1 ! supintern
place( 3) = 1 ! spinstell
place( 4) = 1 ! tuftIB
place( 5) = 1 ! tuftRS
place( 6) = 1 ! nontuftRS
place( 7) = 1 ! deepintern
place( 8) = 1 ! TCR
place( 9) = 1 ! nRT
do i = 1, 5000
do j = 1, num_suppyrRS
outtime_suppyrRS(i,j) = -1.d5
end do ! j
do j = 1, num_supbask
outtime_supbask(i,j) = -1.d5
end do ! j
do j = 1, num_supng
outtime_supng (i,j) = -1.d5
end do ! j
do j = 1, num_supaxax
outtime_supaxax(i,j) = -1.d5
end do ! j
do j = 1, num_supLTS
outtime_supLTS(i,j) = -1.d5
end do ! j
do j = 1, num_spinstell
outtime_spinstell(i,j) = -1.d5
end do ! j
do j = 1, num_tuftIB
outtime_tuftIB(i,j) = -1.d5
end do ! j
do j = 1, num_tuftRS
outtime_tuftRS(i,j) = -1.d5
end do ! j
do j = 1, num_nontuftRS
outtime_nontuftRS(i,j) = -1.d5
end do ! j
do j = 1, num_deepbask
outtime_deepbask(i,j) = -1.d5
end do ! j
do j = 1, num_deepng
outtime_deepng (i,j) = -1.d5
end do ! j
do j = 1, num_deepaxax
outtime_deepaxax(i,j) = -1.d5
end do ! j
do j = 1, num_supVIP
outtime_supVIP (i,j) = -1.d5
end do ! j
do j = 1, num_TCR
outtime_TCR(i,j) = -1.d5
end do ! j
do j = 1, num_nRT
outtime_nRT(i,j) = -1.d5
end do ! j
end do ! do i
c timtot = 1000.d0
timtot = 3750.d0
c timtot = 0.5d0
c Setup tables for calculating exponentials
call dexptablesmall_setup (dexptablesmall)
call dexptablebig_setup (dexptablebig)
call otis_table_setup (otis_table,how_often,dt)
c Compartments contacted by axoaxonic interneurons are IS only
do i = 1, num_suppyrRS
do j = 1, num_supaxax_to_suppyrRS
com_supaxax_to_suppyrRS (j,i) = 69
end do
end do
do i = 1, num_spinstell
do j = 1, num_supaxax_to_spinstell
com_supaxax_to_spinstell(j,i) = 54
end do
end do
do i = 1, num_tuftIB
do j = 1, num_supaxax_to_tuftIB
com_supaxax_to_tuftIB (j,i) = 56
end do
end do
do i = 1, num_tuftRS
do j = 1, num_supaxax_to_tuftRS
com_supaxax_to_tuftRS (j,i) = 56
end do
end do
do i = 1, num_nontuftRS
do j = 1, num_supaxax_to_nontuftRS
com_supaxax_to_nontuftRS (j,i) = 45
end do
end do
do i = 1, num_suppyrRS
do j = 1, num_deepaxax_to_suppyrRS
com_deepaxax_to_suppyrRS (j,i) = 69
end do
end do
do i = 1, num_spinstell
do j = 1, num_deepaxax_to_spinstell
com_deepaxax_to_spinstell (j,i) = 54
end do
end do
do i = 1, num_tuftIB
do j = 1, num_deepaxax_to_tuftIB
com_deepaxax_to_tuftIB (j,i) = 56
end do
end do
do i = 1, num_tuftRS
do j = 1, num_deepaxax_to_tuftRS
com_deepaxax_to_tuftRS (j,i) = 56
end do
end do
do i = 1, num_nontuftRS
do j = 1, num_deepaxax_to_nontuftRS
com_deepaxax_to_nontuftRS (j,i) = 45
end do
end do
c End section on making axoaxonic cells connect to IS's
c Construct synaptic connectivity tables
display = 0
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_suppyrRS,
& map_suppyrRS_to_suppyrRS,
& num_suppyrRS_to_suppyrRS, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_supbask,
& map_suppyrRS_to_supbask,
& num_suppyrRS_to_supbask, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_supng ,
& map_suppyrRS_to_supng ,
& num_suppyrRS_to_supng , display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_supaxax,
& map_suppyrRS_to_supaxax,
& num_suppyrRS_to_supaxax, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_supLTS,
& map_suppyrRS_to_supLTS,
& num_suppyrRS_to_supLTS, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_spinstell,
& map_suppyrRS_to_spinstell,
& num_suppyrRS_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_tuftIB,
& map_suppyrRS_to_tuftIB,
& num_suppyrRS_to_tuftIB, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_tuftRS,
& map_suppyrRS_to_tuftRS,
& num_suppyrRS_to_tuftRS, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_deepbask,
& map_suppyrRS_to_deepbask,
& num_suppyrRS_to_deepbask, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_deepaxax,
& map_suppyrRS_to_deepaxax,
& num_suppyrRS_to_deepaxax, display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_supVIP ,
& map_suppyrRS_to_supVIP ,
& num_suppyrRS_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_suppyrRS, num_nontuftRS,
& map_suppyrRS_to_nontuftRS,
& num_suppyrRS_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_suppyrRS,
& map_supbask_to_suppyrRS,
& num_supbask_to_suppyrRS, display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_supbask,
& map_supbask_to_supbask,
& num_supbask_to_supbask, display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_supng ,
& map_supbask_to_supng ,
& num_supbask_to_supng , display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_supaxax,
& map_supbask_to_supaxax,
& num_supbask_to_supaxax, display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_supLTS,
& map_supbask_to_supLTS,
& num_supbask_to_supLTS, display)
CALL synaptic_map_construct (thisno,
& num_supbask, num_spinstell,
& map_supbask_to_spinstell,
& num_supbask_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_supng , num_suppyrRS ,
& map_supng_to_suppyrRS ,
& num_supng_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_supng , num_nontuftRS,
& map_supng_to_nontuftRS,
& num_supng_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_supng , num_tuftIB ,
& map_supng_to_tuftIB ,
& num_supng_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_supng , num_tuftRS ,
& map_supng_to_tuftRS ,
& num_supng_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_supng , num_supng ,
& map_supng_to_supng ,
& num_supng_to_supng , display)
CALL synaptic_map_construct (thisno,
& num_supng , num_supbask ,
& map_supng_to_supbask ,
& num_supng_to_supbask , display)
CALL synaptic_map_construct (thisno,
& num_supaxax, num_suppyrRS,
& map_supaxax_to_suppyrRS,
& num_supaxax_to_suppyrRS, display)
CALL synaptic_map_construct (thisno,
& num_supaxax, num_spinstell,
& map_supaxax_to_spinstell,
& num_supaxax_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_supaxax, num_tuftIB,
& map_supaxax_to_tuftIB,
& num_supaxax_to_tuftIB, display)
CALL synaptic_map_construct (thisno,
& num_supaxax, num_tuftRS,
& map_supaxax_to_tuftRS,
& num_supaxax_to_tuftRS, display)
CALL synaptic_map_construct (thisno,
& num_supaxax, num_nontuftRS,
& map_supaxax_to_nontuftRS,
& num_supaxax_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_suppyrRS,
& map_supLTS_to_suppyrRS,
& num_supLTS_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_supbask,
& map_supLTS_to_supbask,
& num_supLTS_to_supbask, display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_supaxax,
& map_supLTS_to_supaxax,
& num_supLTS_to_supaxax, display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_supLTS,
& map_supLTS_to_supLTS,
& num_supLTS_to_supLTS, display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_spinstell,
& map_supLTS_to_spinstell,
& num_supLTS_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_tuftIB,
& map_supLTS_to_tuftIB,
& num_supLTS_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_tuftRS,
& map_supLTS_to_tuftRS,
& num_supLTS_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_deepbask,
& map_supLTS_to_deepbask,
& num_supLTS_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_deepaxax,
& map_supLTS_to_deepaxax,
& num_supLTS_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_supVIP ,
& map_supLTS_to_supVIP ,
& num_supLTS_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_supLTS, num_nontuftRS,
& map_supLTS_to_nontuftRS,
& num_supLTS_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_suppyrRS,
& map_spinstell_to_suppyrRS,
& num_spinstell_to_suppyrRS, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_supbask,
& map_spinstell_to_supbask,
& num_spinstell_to_supbask, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_supaxax,
& map_spinstell_to_supaxax,
& num_spinstell_to_supaxax, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_supLTS,
& map_spinstell_to_supLTS,
& num_spinstell_to_supLTS, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_spinstell,
& map_spinstell_to_spinstell,
& num_spinstell_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_tuftIB,
& map_spinstell_to_tuftIB,
& num_spinstell_to_tuftIB, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_tuftRS,
& map_spinstell_to_tuftRS,
& num_spinstell_to_tuftRS, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_deepbask,
& map_spinstell_to_deepbask,
& num_spinstell_to_deepbask, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_deepng ,
& map_spinstell_to_deepng ,
& num_spinstell_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_deepaxax,
& map_spinstell_to_deepaxax,
& num_spinstell_to_deepaxax, display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_supVIP ,
& map_spinstell_to_supVIP ,
& num_spinstell_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_spinstell, num_nontuftRS,
& map_spinstell_to_nontuftRS,
& num_spinstell_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_suppyrRS,
& map_tuftIB_to_suppyrRS,
& num_tuftIB_to_suppyrRS, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_supbask,
& map_tuftIB_to_supbask,
& num_tuftIB_to_supbask, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_supaxax,
& map_tuftIB_to_supaxax,
& num_tuftIB_to_supaxax, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_supLTS,
& map_tuftIB_to_supLTS,
& num_tuftIB_to_supLTS, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_spinstell,
& map_tuftIB_to_spinstell,
& num_tuftIB_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_tuftIB ,
& map_tuftIB_to_tuftIB ,
& num_tuftIB_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_tuftRS ,
& map_tuftIB_to_tuftRS ,
& num_tuftIB_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_deepbask ,
& map_tuftIB_to_deepbask ,
& num_tuftIB_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_deepng ,
& map_tuftIB_to_deepng ,
& num_tuftIB_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_deepaxax ,
& map_tuftIB_to_deepaxax ,
& num_tuftIB_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_supVIP ,
& map_tuftIB_to_supVIP ,
& num_tuftIB_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_tuftIB, num_nontuftRS,
& map_tuftIB_to_nontuftRS,
& num_tuftIB_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_suppyrRS ,
& map_tuftRS_to_suppyrRS ,
& num_tuftRS_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_supbask ,
& map_tuftRS_to_supbask ,
& num_tuftRS_to_supbask , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_supaxax ,
& map_tuftRS_to_supaxax ,
& num_tuftRS_to_supaxax , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_supLTS ,
& map_tuftRS_to_supLTS ,
& num_tuftRS_to_supLTS , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_spinstell,
& map_tuftRS_to_spinstell,
& num_tuftRS_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_tuftIB ,
& map_tuftRS_to_tuftIB ,
& num_tuftRS_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_tuftRS ,
& map_tuftRS_to_tuftRS ,
& num_tuftRS_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_deepbask ,
& map_tuftRS_to_deepbask ,
& num_tuftRS_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_deepng ,
& map_tuftRS_to_deepng ,
& num_tuftRS_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_deepaxax ,
& map_tuftRS_to_deepaxax ,
& num_tuftRS_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_supVIP ,
& map_tuftRS_to_supVIP ,
& num_tuftRS_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_tuftRS, num_nontuftRS,
& map_tuftRS_to_nontuftRS,
& num_tuftRS_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_spinstell,
& map_deepbask_to_spinstell,
& num_deepbask_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_tuftIB ,
& map_deepbask_to_tuftIB ,
& num_deepbask_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_tuftRS ,
& map_deepbask_to_tuftRS ,
& num_deepbask_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_deepbask ,
& map_deepbask_to_deepbask ,
& num_deepbask_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_deepng ,
& map_deepbask_to_deepng ,
& num_deepbask_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_deepaxax ,
& map_deepbask_to_deepaxax ,
& num_deepbask_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_supVIP ,
& map_deepbask_to_supVIP ,
& num_deepbask_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_deepbask, num_nontuftRS,
& map_deepbask_to_nontuftRS,
& num_deepbask_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_tuftIB ,
& map_deepng_to_tuftIB ,
& num_deepng_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_tuftRS ,
& map_deepng_to_tuftRS ,
& num_deepng_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_nontuftRS,
& map_deepng_to_nontuftRS,
& num_deepng_to_nontuftRS, display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_spinstell,
& map_deepng_to_spinstell,
& num_deepng_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_deepng ,
& map_deepng_to_deepng ,
& num_deepng_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_deepng , num_deepbask ,
& map_deepng_to_deepbask ,
& num_deepng_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_deepaxax, num_suppyrRS ,
& map_deepaxax_to_suppyrRS ,
& num_deepaxax_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_deepaxax, num_spinstell,
& map_deepaxax_to_spinstell,
& num_deepaxax_to_spinstell, display)
CALL synaptic_map_construct (thisno,
& num_deepaxax, num_tuftIB ,
& map_deepaxax_to_tuftIB ,
& num_deepaxax_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_deepaxax, num_tuftRS ,
& map_deepaxax_to_tuftRS ,
& num_deepaxax_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_deepaxax, num_nontuftRS ,
& map_deepaxax_to_nontuftRS ,
& num_deepaxax_to_nontuftRS , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_suppyrRS ,
& map_supVIP_to_suppyrRS ,
& num_supVIP_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_supbask ,
& map_supVIP_to_supbask ,
& num_supVIP_to_supbask , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_supaxax ,
& map_supVIP_to_supaxax ,
& num_supVIP_to_supaxax , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_supLTS ,
& map_supVIP_to_supLTS ,
& num_supVIP_to_supLTS , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_supng ,
& map_supVIP_to_supng ,
& num_supVIP_to_supng , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_spinstell ,
& map_supVIP_to_spinstell ,
& num_supVIP_to_spinstell , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_tuftIB ,
& map_supVIP_to_tuftIB ,
& num_supVIP_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_tuftRS ,
& map_supVIP_to_tuftRS ,
& num_supVIP_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_deepbask ,
& map_supVIP_to_deepbask ,
& num_supVIP_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_deepaxax ,
& map_supVIP_to_deepaxax ,
& num_supVIP_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_supVIP ,
& map_supVIP_to_supVIP ,
& num_supVIP_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_supVIP , num_nontuftRS ,
& map_supVIP_to_nontuftRS ,
& num_supVIP_to_nontuftRS , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_suppyrRS ,
& map_TCR_to_suppyrRS ,
& num_TCR_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_supbask ,
& map_TCR_to_supbask ,
& num_TCR_to_supbask , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_supng ,
& map_TCR_to_supng ,
& num_TCR_to_supng , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_supaxax ,
& map_TCR_to_supaxax ,
& num_TCR_to_supaxax , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_spinstell ,
& map_TCR_to_spinstell ,
& num_TCR_to_spinstell , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_tuftIB ,
& map_TCR_to_tuftIB ,
& num_TCR_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_tuftRS ,
& map_TCR_to_tuftRS ,
& num_TCR_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_deepbask ,
& map_TCR_to_deepbask ,
& num_TCR_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_deepng ,
& map_TCR_to_deepng ,
& num_TCR_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_deepaxax ,
& map_TCR_to_deepaxax ,
& num_TCR_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_nRT ,
& map_TCR_to_nRT ,
& num_TCR_to_nRT , display)
CALL synaptic_map_construct (thisno,
& num_TCR , num_nontuftRS ,
& map_TCR_to_nontuftRS ,
& num_TCR_to_nontuftRS , display)
CALL synaptic_map_construct (thisno,
& num_nRT , num_TCR ,
& map_nRT_to_TCR ,
& num_nRT_to_TCR , display)
CALL synaptic_map_construct (thisno,
& num_nRT , num_nRT ,
& map_nRT_to_nRT ,
& num_nRT_to_nRT , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_suppyrRS ,
& map_nontuftRS_to_suppyrRS ,
& num_nontuftRS_to_suppyrRS , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_supbask ,
& map_nontuftRS_to_supbask ,
& num_nontuftRS_to_supbask , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_supaxax ,
& map_nontuftRS_to_supaxax ,
& num_nontuftRS_to_supaxax , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_supLTS ,
& map_nontuftRS_to_supLTS ,
& num_nontuftRS_to_supLTS , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_spinstell ,
& map_nontuftRS_to_spinstell ,
& num_nontuftRS_to_spinstell , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_tuftIB ,
& map_nontuftRS_to_tuftIB ,
& num_nontuftRS_to_tuftIB , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_tuftRS ,
& map_nontuftRS_to_tuftRS ,
& num_nontuftRS_to_tuftRS , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_deepbask ,
& map_nontuftRS_to_deepbask ,
& num_nontuftRS_to_deepbask , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_deepng ,
& map_nontuftRS_to_deepng ,
& num_nontuftRS_to_deepng , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_deepaxax ,
& map_nontuftRS_to_deepaxax ,
& num_nontuftRS_to_deepaxax , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_supVIP ,
& map_nontuftRS_to_supVIP ,
& num_nontuftRS_to_supVIP , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_TCR ,
& map_nontuftRS_to_TCR ,
& num_nontuftRS_to_TCR , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_nRT ,
& map_nontuftRS_to_nRT ,
& num_nontuftRS_to_nRT , display)
CALL synaptic_map_construct (thisno,
& num_nontuftRS , num_nontuftRS ,
& map_nontuftRS_to_nontuftRS ,
& num_nontuftRS_to_nontuftRS , display)
c Finish construction of synaptic connection tables.
c Construct synaptic compartment maps.
display = 0
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS, com_suppyrRS_to_suppyrRS,
& num_suppyrRS_to_suppyrRS,
& ncompallow_suppyrRS_to_suppyrRS,
& compallow_suppyrRS_to_suppyrRS, display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_suppyrRS_to_supbask,
& num_suppyrRS_to_supbask,
& ncompallow_suppyrRS_to_supbask,
& compallow_suppyrRS_to_supbask, display)
CALL synaptic_compmap_construct (thisno,
& num_supng , com_suppyrRS_to_supng ,
& num_suppyrRS_to_supng ,
& ncompallow_suppyrRS_to_supng ,
& compallow_suppyrRS_to_supng , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_suppyrRS_to_supaxax,
& num_suppyrRS_to_supaxax,
& ncompallow_suppyrRS_to_supaxax,
& compallow_suppyrRS_to_supaxax, display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_suppyrRS_to_supLTS,
& num_suppyrRS_to_supLTS,
& ncompallow_suppyrRS_to_supLTS,
& compallow_suppyrRS_to_supLTS, display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_suppyrRS_to_spinstell,
& num_suppyrRS_to_spinstell,
& ncompallow_suppyrRS_to_spinstell,
& compallow_suppyrRS_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_suppyrRS_to_tuftIB ,
& num_suppyrRS_to_tuftIB ,
& ncompallow_suppyrRS_to_tuftIB ,
& compallow_suppyrRS_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_suppyrRS_to_tuftRS ,
& num_suppyrRS_to_tuftRS ,
& ncompallow_suppyrRS_to_tuftRS ,
& compallow_suppyrRS_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_suppyrRS_to_deepbask ,
& num_suppyrRS_to_deepbask ,
& ncompallow_suppyrRS_to_deepbask ,
& compallow_suppyrRS_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_suppyrRS_to_deepaxax ,
& num_suppyrRS_to_deepaxax ,
& ncompallow_suppyrRS_to_deepaxax ,
& compallow_suppyrRS_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_suppyrRS_to_supVIP ,
& num_suppyrRS_to_supVIP ,
& ncompallow_suppyrRS_to_supVIP ,
& compallow_suppyrRS_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_suppyrRS_to_nontuftRS,
& num_suppyrRS_to_nontuftRS,
& ncompallow_suppyrRS_to_nontuftRS,
& compallow_suppyrRS_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_supbask_to_suppyrRS ,
& num_supbask_to_suppyrRS ,
& ncompallow_supbask_to_suppyrRS ,
& compallow_supbask_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_supbask_to_supbask ,
& num_supbask_to_supbask ,
& ncompallow_supbask_to_supbask ,
& compallow_supbask_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supng , com_supbask_to_supng ,
& num_supbask_to_supng ,
& ncompallow_supbask_to_supng ,
& compallow_supbask_to_supng , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_supbask_to_supaxax ,
& num_supbask_to_supaxax ,
& ncompallow_supbask_to_supaxax ,
& compallow_supbask_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_supbask_to_supLTS ,
& num_supbask_to_supLTS ,
& ncompallow_supbask_to_supLTS ,
& compallow_supbask_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_supbask_to_spinstell,
& num_supbask_to_spinstell,
& ncompallow_supbask_to_spinstell,
& compallow_supbask_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_supng_to_suppyrRS ,
& num_supng_to_suppyrRS ,
& ncompallow_supng_to_suppyrRS ,
& compallow_supng_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_supng_to_nontuftRS,
& num_supng_to_nontuftRS,
& ncompallow_supng_to_nontuftRS,
& compallow_supng_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_supng_to_tuftIB ,
& num_supng_to_tuftIB ,
& ncompallow_supng_to_tuftIB ,
& compallow_supng_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_supng_to_tuftRS ,
& num_supng_to_tuftRS ,
& ncompallow_supng_to_tuftRS ,
& compallow_supng_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supng , com_supng_to_supng ,
& num_supng_to_supng ,
& ncompallow_supng_to_supng ,
& compallow_supng_to_supng , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_supng_to_supbask ,
& num_supng_to_supbask ,
& ncompallow_supng_to_supbask ,
& compallow_supng_to_supbask , display)
! Calls below not necessary
c CALL synaptic_compmap_construct (thisno,
c & num_suppyrRS , com_supaxax_to_suppyrRS ,
c & num_supaxax_to_suppyrRS ,
c & ncompallow_supaxax_to_suppyrRS ,
c & compallow_supaxax_to_suppyrRS , display)
c CALL synaptic_compmap_construct (thisno,
c & num_spinstell, com_supaxax_to_spinstell,
c & num_supaxax_to_spinstell,
c & ncompallow_supaxax_to_spinstell,
c & compallow_supaxax_to_spinstell, display)
c CALL synaptic_compmap_construct (thisno,
c & num_tuftIB , com_supaxax_to_tuftIB ,
c & num_supaxax_to_tuftIB ,
c & ncompallow_supaxax_to_tuftIB ,
c & compallow_supaxax_to_tuftIB , display)
c CALL synaptic_compmap_construct (thisno,
c & num_tuftRS , com_supaxax_to_tuftRS ,
c & num_supaxax_to_tuftRS ,
c & ncompallow_supaxax_to_tuftRS ,
c & compallow_supaxax_to_tuftRS , display)
c CALL synaptic_compmap_construct (thisno,
c & num_nontuftRS, com_supaxax_to_nontuftRS,
c & num_supaxax_to_nontuftRS,
c & ncompallow_supaxax_to_nontuftRS,
c & compallow_supaxax_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_supLTS_to_suppyrRS ,
& num_supLTS_to_suppyrRS ,
& ncompallow_supLTS_to_suppyrRS ,
& compallow_supLTS_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_supLTS_to_supbask ,
& num_supLTS_to_supbask ,
& ncompallow_supLTS_to_supbask ,
& compallow_supLTS_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_supLTS_to_supaxax ,
& num_supLTS_to_supaxax ,
& ncompallow_supLTS_to_supaxax ,
& compallow_supLTS_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_supLTS_to_supLTS ,
& num_supLTS_to_supLTS ,
& ncompallow_supLTS_to_supLTS ,
& compallow_supLTS_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_supLTS_to_spinstell,
& num_supLTS_to_spinstell,
& ncompallow_supLTS_to_spinstell,
& compallow_supLTS_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_supLTS_to_tuftIB ,
& num_supLTS_to_tuftIB ,
& ncompallow_supLTS_to_tuftIB ,
& compallow_supLTS_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_supLTS_to_tuftRS ,
& num_supLTS_to_tuftRS ,
& ncompallow_supLTS_to_tuftRS ,
& compallow_supLTS_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_supLTS_to_deepbask ,
& num_supLTS_to_deepbask ,
& ncompallow_supLTS_to_deepbask ,
& compallow_supLTS_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_supLTS_to_deepaxax ,
& num_supLTS_to_deepaxax ,
& ncompallow_supLTS_to_deepaxax ,
& compallow_supLTS_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_supLTS_to_supVIP ,
& num_supLTS_to_supVIP ,
& ncompallow_supLTS_to_supVIP ,
& compallow_supLTS_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_supLTS_to_nontuftRS,
& num_supLTS_to_nontuftRS,
& ncompallow_supLTS_to_nontuftRS,
& compallow_supLTS_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_spinstell_to_suppyrRS ,
& num_spinstell_to_suppyrRS ,
& ncompallow_spinstell_to_suppyrRS ,
& compallow_spinstell_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_spinstell_to_supbask ,
& num_spinstell_to_supbask ,
& ncompallow_spinstell_to_supbask ,
& compallow_spinstell_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_spinstell_to_supaxax ,
& num_spinstell_to_supaxax ,
& ncompallow_spinstell_to_supaxax ,
& compallow_spinstell_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_spinstell_to_supLTS ,
& num_spinstell_to_supLTS ,
& ncompallow_spinstell_to_supLTS ,
& compallow_spinstell_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_spinstell_to_spinstell,
& num_spinstell_to_spinstell,
& ncompallow_spinstell_to_spinstell,
& compallow_spinstell_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_spinstell_to_tuftIB ,
& num_spinstell_to_tuftIB ,
& ncompallow_spinstell_to_tuftIB ,
& compallow_spinstell_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_spinstell_to_tuftRS ,
& num_spinstell_to_tuftRS ,
& ncompallow_spinstell_to_tuftRS ,
& compallow_spinstell_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_spinstell_to_deepbask ,
& num_spinstell_to_deepbask ,
& ncompallow_spinstell_to_deepbask ,
& compallow_spinstell_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_spinstell_to_deepng ,
& num_spinstell_to_deepng ,
& ncompallow_spinstell_to_deepng ,
& compallow_spinstell_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_spinstell_to_deepaxax ,
& num_spinstell_to_deepaxax ,
& ncompallow_spinstell_to_deepaxax ,
& compallow_spinstell_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_spinstell_to_supVIP ,
& num_spinstell_to_supVIP ,
& ncompallow_spinstell_to_supVIP ,
& compallow_spinstell_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_spinstell_to_nontuftRS,
& num_spinstell_to_nontuftRS,
& ncompallow_spinstell_to_nontuftRS,
& compallow_spinstell_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_tuftIB_to_suppyrRS ,
& num_tuftIB_to_suppyrRS ,
& ncompallow_tuftIB_to_suppyrRS ,
& compallow_tuftIB_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_tuftIB_to_supbask ,
& num_tuftIB_to_supbask ,
& ncompallow_tuftIB_to_supbask ,
& compallow_tuftIB_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_tuftIB_to_supaxax ,
& num_tuftIB_to_supaxax ,
& ncompallow_tuftIB_to_supaxax ,
& compallow_tuftIB_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_tuftIB_to_supLTS ,
& num_tuftIB_to_supLTS ,
& ncompallow_tuftIB_to_supLTS ,
& compallow_tuftIB_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_tuftIB_to_spinstell,
& num_tuftIB_to_spinstell,
& ncompallow_tuftIB_to_spinstell,
& compallow_tuftIB_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_tuftIB_to_tuftIB ,
& num_tuftIB_to_tuftIB ,
& ncompallow_tuftIB_to_tuftIB ,
& compallow_tuftIB_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_tuftIB_to_tuftRS ,
& num_tuftIB_to_tuftRS ,
& ncompallow_tuftIB_to_tuftRS ,
& compallow_tuftIB_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_tuftIB_to_deepbask ,
& num_tuftIB_to_deepbask ,
& ncompallow_tuftIB_to_deepbask ,
& compallow_tuftIB_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_tuftIB_to_deepng ,
& num_tuftIB_to_deepng ,
& ncompallow_tuftIB_to_deepng ,
& compallow_tuftIB_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_tuftIB_to_deepaxax ,
& num_tuftIB_to_deepaxax ,
& ncompallow_tuftIB_to_deepaxax ,
& compallow_tuftIB_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_tuftIB_to_supVIP ,
& num_tuftIB_to_supVIP ,
& ncompallow_tuftIB_to_supVIP ,
& compallow_tuftIB_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_tuftIB_to_nontuftRS,
& num_tuftIB_to_nontuftRS,
& ncompallow_tuftIB_to_nontuftRS,
& compallow_tuftIB_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_tuftRS_to_suppyrRS ,
& num_tuftRS_to_suppyrRS ,
& ncompallow_tuftRS_to_suppyrRS ,
& compallow_tuftRS_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_tuftRS_to_supbask ,
& num_tuftRS_to_supbask ,
& ncompallow_tuftRS_to_supbask ,
& compallow_tuftRS_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_tuftRS_to_supaxax ,
& num_tuftRS_to_supaxax ,
& ncompallow_tuftRS_to_supaxax ,
& compallow_tuftRS_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_tuftRS_to_supLTS ,
& num_tuftRS_to_supLTS ,
& ncompallow_tuftRS_to_supLTS ,
& compallow_tuftRS_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_tuftRS_to_spinstell,
& num_tuftRS_to_spinstell,
& ncompallow_tuftRS_to_spinstell,
& compallow_tuftRS_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_tuftRS_to_tuftIB ,
& num_tuftRS_to_tuftIB ,
& ncompallow_tuftRS_to_tuftIB ,
& compallow_tuftRS_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_tuftRS_to_tuftRS ,
& num_tuftRS_to_tuftRS ,
& ncompallow_tuftRS_to_tuftRS ,
& compallow_tuftRS_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_tuftRS_to_deepbask ,
& num_tuftRS_to_deepbask ,
& ncompallow_tuftRS_to_deepbask ,
& compallow_tuftRS_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_tuftRS_to_deepng ,
& num_tuftRS_to_deepng ,
& ncompallow_tuftRS_to_deepng ,
& compallow_tuftRS_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_tuftRS_to_deepaxax ,
& num_tuftRS_to_deepaxax ,
& ncompallow_tuftRS_to_deepaxax ,
& compallow_tuftRS_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_tuftRS_to_supVIP ,
& num_tuftRS_to_supVIP ,
& ncompallow_tuftRS_to_supVIP ,
& compallow_tuftRS_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_tuftRS_to_nontuftRS,
& num_tuftRS_to_nontuftRS,
& ncompallow_tuftRS_to_nontuftRS,
& compallow_tuftRS_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_deepbask_to_spinstell,
& num_deepbask_to_spinstell,
& ncompallow_deepbask_to_spinstell,
& compallow_deepbask_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_deepbask_to_tuftIB ,
& num_deepbask_to_tuftIB ,
& ncompallow_deepbask_to_tuftIB ,
& compallow_deepbask_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_deepbask_to_tuftRS ,
& num_deepbask_to_tuftRS ,
& ncompallow_deepbask_to_tuftRS ,
& compallow_deepbask_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_deepbask_to_deepbask ,
& num_deepbask_to_deepbask ,
& ncompallow_deepbask_to_deepbask ,
& compallow_deepbask_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_deepbask_to_deepng ,
& num_deepbask_to_deepng ,
& ncompallow_deepbask_to_deepng ,
& compallow_deepbask_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_deepbask_to_deepaxax ,
& num_deepbask_to_deepaxax ,
& ncompallow_deepbask_to_deepaxax ,
& compallow_deepbask_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_deepbask_to_supVIP ,
& num_deepbask_to_supVIP ,
& ncompallow_deepbask_to_supVIP ,
& compallow_deepbask_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_deepbask_to_nontuftRS,
& num_deepbask_to_nontuftRS,
& ncompallow_deepbask_to_nontuftRS,
& compallow_deepbask_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_deepng_to_tuftIB ,
& num_deepng_to_tuftIB ,
& ncompallow_deepng_to_tuftIB ,
& compallow_deepng_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_deepng_to_tuftRS ,
& num_deepng_to_tuftRS ,
& ncompallow_deepng_to_tuftRS ,
& compallow_deepng_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_deepng_to_nontuftRS,
& num_deepng_to_nontuftRS,
& ncompallow_deepng_to_nontuftRS,
& compallow_deepng_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_deepng_to_spinstell,
& num_deepng_to_spinstell,
& ncompallow_deepng_to_spinstell,
& compallow_deepng_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_deepng_to_deepng ,
& num_deepng_to_deepng ,
& ncompallow_deepng_to_deepng ,
& compallow_deepng_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_deepng_to_deepbask ,
& num_deepng_to_deepbask ,
& ncompallow_deepng_to_deepbask ,
& compallow_deepng_to_deepbask , display)
! Below calls not necessary
c CALL synaptic_compmap_construct (thisno,
c & num_suppyrRS , com_deepaxax_to_suppyrRS ,
c & num_deepaxax_to_suppyrRS ,
c & ncompallow_deepaxax_to_suppyrRS ,
c & compallow_deepaxax_to_suppyrRS , display)
c CALL synaptic_compmap_construct (thisno,
c & num_spinstell, com_deepaxax_to_spinstell,
c & num_deepaxax_to_spinstell,
c & ncompallow_deepaxax_to_spinstell,
c & compallow_deepaxax_to_spinstell, display)
c CALL synaptic_compmap_construct (thisno,
c & num_tuftIB , com_deepaxax_to_tuftIB ,
c & num_deepaxax_to_tuftIB ,
c & ncompallow_deepaxax_to_tuftIB ,
c & compallow_deepaxax_to_tuftIB , display)
c CALL synaptic_compmap_construct (thisno,
c & num_tuftRS , com_deepaxax_to_tuftRS ,
c & num_deepaxax_to_tuftRS ,
c & ncompallow_deepaxax_to_tuftRS ,
c & compallow_deepaxax_to_tuftRS , display)
c CALL synaptic_compmap_construct (thisno,
c & num_nontuftRS, com_deepaxax_to_nontuftRS,
c & num_deepaxax_to_nontuftRS,
c & ncompallow_deepaxax_to_nontuftRS,
c & compallow_deepaxax_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_supVIP_to_suppyrRS ,
& num_supVIP_to_suppyrRS ,
& ncompallow_supVIP_to_suppyrRS ,
& compallow_supVIP_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_supVIP_to_supbask ,
& num_supVIP_to_supbask ,
& ncompallow_supVIP_to_supbask ,
& compallow_supVIP_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_supVIP_to_supaxax ,
& num_supVIP_to_supaxax ,
& ncompallow_supVIP_to_supaxax ,
& compallow_supVIP_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_supVIP_to_supLTS ,
& num_supVIP_to_supLTS ,
& ncompallow_supVIP_to_supLTS ,
& compallow_supVIP_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_supng , com_supVIP_to_supng ,
& num_supVIP_to_supng ,
& ncompallow_supVIP_to_supng ,
& compallow_supVIP_to_supng , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_supVIP_to_spinstell,
& num_supVIP_to_spinstell,
& ncompallow_supVIP_to_spinstell,
& compallow_supVIP_to_spinstell, display)
c CALL synaptic_compmap_construct (thisno,
c & num_tuftIB , com_supVIP_to_tuftIB ,
c & num_supVIP_to_tuftIB ,
c & ncompallow_supVIP_to_tuftIB ,
c & compallow_supVIP_to_tuftIB , display)
! Make connections explicit, so one cell to one compartment
do L = 1, num_tuftIB
do i = 1, num_supVIP_to_tuftIB ! should equal ncompallow
com_supVIP_to_tuftIB (i,L) =
& compallow_supVIP_to_tuftIB (i)
end do
end do
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_supVIP_to_tuftRS ,
& num_supVIP_to_tuftRS ,
& ncompallow_supVIP_to_tuftRS ,
& compallow_supVIP_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_supVIP_to_deepbask ,
& num_supVIP_to_deepbask ,
& ncompallow_supVIP_to_deepbask ,
& compallow_supVIP_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_supVIP_to_deepaxax ,
& num_supVIP_to_deepaxax ,
& ncompallow_supVIP_to_deepaxax ,
& compallow_supVIP_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_supVIP_to_supVIP ,
& num_supVIP_to_supVIP ,
& ncompallow_supVIP_to_supVIP ,
& compallow_supVIP_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_supVIP_to_nontuftRS,
& num_supVIP_to_nontuftRS,
& ncompallow_supVIP_to_nontuftRS,
& compallow_supVIP_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_TCR_to_suppyrRS ,
& num_TCR_to_suppyrRS ,
& ncompallow_TCR_to_suppyrRS ,
& compallow_TCR_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_TCR_to_supbask ,
& num_TCR_to_supbask ,
& ncompallow_TCR_to_supbask ,
& compallow_TCR_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supng , com_TCR_to_supng ,
& num_TCR_to_supng ,
& ncompallow_TCR_to_supng ,
& compallow_TCR_to_supng , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_TCR_to_supaxax ,
& num_TCR_to_supaxax ,
& ncompallow_TCR_to_supaxax ,
& compallow_TCR_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_TCR_to_spinstell,
& num_TCR_to_spinstell,
& ncompallow_TCR_to_spinstell,
& compallow_TCR_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_TCR_to_tuftIB ,
& num_TCR_to_tuftIB ,
& ncompallow_TCR_to_tuftIB ,
& compallow_TCR_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_TCR_to_tuftRS ,
& num_TCR_to_tuftRS ,
& ncompallow_TCR_to_tuftRS ,
& compallow_TCR_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_TCR_to_deepbask ,
& num_TCR_to_deepbask ,
& ncompallow_TCR_to_deepbask ,
& compallow_TCR_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_TCR_to_deepng ,
& num_TCR_to_deepng ,
& ncompallow_TCR_to_deepng ,
& compallow_TCR_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_TCR_to_deepaxax ,
& num_TCR_to_deepaxax ,
& ncompallow_TCR_to_deepaxax ,
& compallow_TCR_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_nRT , com_TCR_to_nRT ,
& num_TCR_to_nRT ,
& ncompallow_TCR_to_nRT ,
& compallow_TCR_to_nRT , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_TCR_to_nontuftRS,
& num_TCR_to_nontuftRS,
& ncompallow_TCR_to_nontuftRS,
& compallow_TCR_to_nontuftRS, display)
CALL synaptic_compmap_construct (thisno,
& num_TCR , com_nRT_to_TCR ,
& num_nRT_to_TCR ,
& ncompallow_nRT_to_TCR ,
& compallow_nRT_to_TCR , display)
CALL synaptic_compmap_construct (thisno,
& num_nRT , com_nRT_to_nRT ,
& num_nRT_to_nRT ,
& ncompallow_nRT_to_nRT ,
& compallow_nRT_to_nRT , display)
CALL synaptic_compmap_construct (thisno,
& num_suppyrRS , com_nontuftRS_to_suppyrRS ,
& num_nontuftRS_to_suppyrRS ,
& ncompallow_nontuftRS_to_suppyrRS ,
& compallow_nontuftRS_to_suppyrRS , display)
CALL synaptic_compmap_construct (thisno,
& num_supbask , com_nontuftRS_to_supbask ,
& num_nontuftRS_to_supbask ,
& ncompallow_nontuftRS_to_supbask ,
& compallow_nontuftRS_to_supbask , display)
CALL synaptic_compmap_construct (thisno,
& num_supaxax , com_nontuftRS_to_supaxax ,
& num_nontuftRS_to_supaxax ,
& ncompallow_nontuftRS_to_supaxax ,
& compallow_nontuftRS_to_supaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supLTS , com_nontuftRS_to_supLTS ,
& num_nontuftRS_to_supLTS ,
& ncompallow_nontuftRS_to_supLTS ,
& compallow_nontuftRS_to_supLTS , display)
CALL synaptic_compmap_construct (thisno,
& num_spinstell, com_nontuftRS_to_spinstell,
& num_nontuftRS_to_spinstell,
& ncompallow_nontuftRS_to_spinstell,
& compallow_nontuftRS_to_spinstell, display)
CALL synaptic_compmap_construct (thisno,
& num_tuftIB , com_nontuftRS_to_tuftIB ,
& num_nontuftRS_to_tuftIB ,
& ncompallow_nontuftRS_to_tuftIB ,
& compallow_nontuftRS_to_tuftIB , display)
CALL synaptic_compmap_construct (thisno,
& num_tuftRS , com_nontuftRS_to_tuftRS ,
& num_nontuftRS_to_tuftRS ,
& ncompallow_nontuftRS_to_tuftRS ,
& compallow_nontuftRS_to_tuftRS , display)
CALL synaptic_compmap_construct (thisno,
& num_deepbask , com_nontuftRS_to_deepbask ,
& num_nontuftRS_to_deepbask ,
& ncompallow_nontuftRS_to_deepbask ,
& compallow_nontuftRS_to_deepbask , display)
CALL synaptic_compmap_construct (thisno,
& num_deepng , com_nontuftRS_to_deepng ,
& num_nontuftRS_to_deepng ,
& ncompallow_nontuftRS_to_deepng ,
& compallow_nontuftRS_to_deepng , display)
CALL synaptic_compmap_construct (thisno,
& num_deepaxax , com_nontuftRS_to_deepaxax ,
& num_nontuftRS_to_deepaxax ,
& ncompallow_nontuftRS_to_deepaxax ,
& compallow_nontuftRS_to_deepaxax , display)
CALL synaptic_compmap_construct (thisno,
& num_supVIP , com_nontuftRS_to_supVIP ,
& num_nontuftRS_to_supVIP ,
& ncompallow_nontuftRS_to_supVIP ,
& compallow_nontuftRS_to_supVIP , display)
CALL synaptic_compmap_construct (thisno,
& num_TCR , com_nontuftRS_to_TCR ,
& num_nontuftRS_to_TCR ,
& ncompallow_nontuftRS_to_TCR ,
& compallow_nontuftRS_to_TCR , display)
CALL synaptic_compmap_construct (thisno,
& num_nRT , com_nontuftRS_to_nRT ,
& num_nontuftRS_to_nRT ,
& ncompallow_nontuftRS_to_nRT ,
& compallow_nontuftRS_to_nRT , display)
CALL synaptic_compmap_construct (thisno,
& num_nontuftRS, com_nontuftRS_to_nontuftRS,
& num_nontuftRS_to_nontuftRS,
& ncompallow_nontuftRS_to_nontuftRS,
& compallow_nontuftRS_to_nontuftRS, display)
c Finish construction of synaptic compartment maps.
c Construct gap-junction tables
! axax interneurons a special case
gjtable_supaxax(1,1) = 1
gjtable_supaxax(1,2) = 12
gjtable_supaxax(1,3) = 2
gjtable_supaxax(1,4) = 12
gjtable_deepaxax(1,1) = 1
gjtable_deepaxax(1,2) = 12
gjtable_deepaxax(1,3) = 2
gjtable_deepaxax(1,4) = 12
c CALL BELOW WILL HAVE TO BE ADJUSTED, SO CONNECTIONS REMAIN WITHIN NODE
c ASSUME 2 NODES FOR suppyrRS
CALL groucho_gapbld (thisno, num_suppyrRS,
& totaxgj_suppyrRS , gjtable_suppyrRS,
& table_axgjcompallow_suppyrRS,
& num_axgjcompallow_suppyrRS, 0)
do i = 1, totaxgj_suppyrRS
j = gjtable_suppyrRS (i,1)
k = gjtable_suppyrRS (i,3)
if ((j.le.ncellspernode).and.(k.gt.ncellspernode)) then
gjtable_suppyrRS(i,3) = gjtable_suppyrRS(i,3) - ncellspernode
else if ((j.gt.ncellspernode).and.(k.le.ncellspernode)) then
gjtable_suppyrRS(i,3) = gjtable_suppyrRS(i,3) + ncellspernode
endif
end do ! i
CALL groucho_gapbld (thisno, num_spinstell,
& totaxgj_spinstell , gjtable_spinstell,
& table_axgjcompallow_spinstell,
& num_axgjcompallow_spinstell, 0)
CALL groucho_gapbld (thisno, num_tuftIB,
& totaxgj_tuftIB , gjtable_tuftIB ,
& table_axgjcompallow_tuftIB ,
& num_axgjcompallow_tuftIB , 0)
CALL groucho_gapbld (thisno, num_tuftRS,
& totaxgj_tuftRS , gjtable_tuftRS ,
& table_axgjcompallow_tuftRS ,
& num_axgjcompallow_tuftRS , 0)
CALL groucho_gapbld (thisno, num_nontuftRS,
& totaxgj_nontuftRS , gjtable_nontuftRS ,
& table_axgjcompallow_nontuftRS ,
& num_axgjcompallow_nontuftRS , 0)
CALL groucho_gapbld (thisno, num_supbask ,
& totSDgj_supbask , gjtable_supbask ,
& table_SDgjcompallow_supbask ,
& num_SDgjcompallow_supbask , 0)
CALL groucho_gapbld (thisno, num_supng ,
& totSDgj_supng , gjtable_supng ,
& table_SDgjcompallow_supng ,
& num_SDgjcompallow_supng , 0)
CALL groucho_gapbld (thisno, num_supLTS ,
& totSDgj_supLTS , gjtable_supLTS ,
& table_SDgjcompallow_supLTS ,
& num_SDgjcompallow_supLTS , 0)
CALL groucho_gapbld (thisno, num_deepbask ,
& totSDgj_deepbask , gjtable_deepbask ,
& table_SDgjcompallow_deepbask ,
& num_SDgjcompallow_deepbask , 0)
CALL groucho_gapbld (thisno, num_deepng ,
& totSDgj_deepng , gjtable_deepng ,
& table_SDgjcompallow_deepng ,
& num_SDgjcompallow_deepng , 0)
CALL groucho_gapbld (thisno, num_supVIP ,
& totSDgj_supVIP , gjtable_supVIP ,
& table_SDgjcompallow_supVIP ,
& num_SDgjcompallow_supVIP , 0)
CALL groucho_gapbld (thisno, num_TCR ,
& totaxgj_TCR , gjtable_TCR ,
& table_axgjcompallow_TCR ,
& num_axgjcompallow_TCR , 0)
CALL groucho_gapbld (thisno, num_nRT ,
& totSDgj_nRT , gjtable_nRT ,
& table_SDgjcompallow_nRT ,
& num_SDgjcompallow_nRT , 0)
! Define spread of values for gGABA_nRT_to_TCR
call durand(seed,num_nRT,ranvec_nRT)
do L = 1, num_nRT
c gGABA_nRT_to_TCR(L) = 0.7d-3 + 1.4d-3 * ranvec_nRT(L)
gGABA_nRT_to_TCR(L) = 1.8d-3 + 0.2d-3 * ranvec_nRT(L)
end do
! Define tonic currents to different cell types
call durand(seed,num_suppyrRS ,ranvec_suppyrRS )
do L = 1, num_suppyrRS
do i = 69, 74 ! axonal compartments
curr_suppyrRS (i,L) = -0.013d0
c curr_suppyrRS (i,L) = 0.050d0 + 0.005d0 *
if (L.le.500) then
curr_suppyrRS (1,L) = 0.30d0 + 0.15d0 *
& dble (L) / 500.d0 ! note gradient
else
curr_suppyrRS (1,L) = 0.30d0 + 0.15d0 *
& dble (L-500) / 500.d0 ! note gradient
endif
c & ranvec_suppyrRS (L)
end do
end do
c curr_suppyrRS (1,4) = 0.15d0 ! DEPOLARIZE 1 CELL
call durand(seed,num_supbask ,ranvec_supbask )
do L = 1, num_supbask
c curr_supbask (1,L) = -0.10d0 + 0.02d0 *
curr_supbask (1,L) = -0.04d0 + 0.02d0 *
& ranvec_supbask (L)
end do
call durand(seed,num_supaxax ,ranvec_supaxax )
do L = 1, num_supaxax
c curr_supaxax (1,L) = -0.10d0 + 0.02d0 *
curr_supaxax (1,L) = -0.04d0 + 0.02d0 *
& ranvec_supaxax (L)
end do
call durand(seed,num_supVIP ,ranvec_supVIP )
do L = 1, num_supVIP
c curr_supVIP (1,L) = -0.10d0 + 0.02d0 *
curr_supVIP (1,L) = 0.040d0 + 0.01d0 *
& ranvec_supVIP (L)
end do
call durand(seed,num_deepbask ,ranvec_deepbask )
do L = 1, num_deepbask
curr_deepbask (1,L) = -0.10d0 + 0.02d0 *
& ranvec_deepbask (L)
end do
do L = 1, num_supng
curr_supng (1,L) = -0.03d0 ! to suppress spontaneous firing
end do
call durand(seed,num_spinstell,ranvec_spinstell)
do L = 1, num_spinstell
c curr_spinstell (1,L) = -0.10d0 + 0.05d0 *
c curr_spinstell (1,L) = -0.25d0 + 0.05d0 *
curr_spinstell (1,L) = 0.00d0 + 0.05d0 *
& ranvec_spinstell(L)
end do
call durand(seed,num_tuftIB ,ranvec_tuftIB )
do L = 1, num_tuftIB
do i = 2, 34
c curr_tuftIB (i,L) = 0.055d0 + 0.001d0 * ! current to basal/oblique dendrites
curr_tuftIB (i,L) = 0.075d0 + 0.001d0 * ! current to basal/oblique dendrites
& ranvec_tuftIB (L)
end do
do i = 43, 49 ! parts of shaft, tuft
curr_tuftIB (i,L) = 0.2d0
end do
c curr_tuftIB (57,L) = -0.015d0 ! axon
curr_tuftIB (57,L) = 0.060d0 ! axon
curr_tuftIB (58,L) = 0.060d0 ! axon
curr_tuftIB (59,L) = 0.060d0 ! axon
curr_tuftIB (60,L) = 0.060d0 ! axon
curr_tuftIB (61,L) = 0.060d0 ! axon
end do
call durand(seed,num_tuftRS ,ranvec_tuftRS )
do L = 1, num_tuftRS
! curr_tuftRS (1,L) = 0.10d0 + 0.1d0 *
! curr_tuftRS (1,L) = 0.00d0 + 0.1d0 *
curr_tuftRS (1,L) = 0.10d0 + 0.3d0 *
& dble (L) / dble (num_tuftRS) ! note gradient
c & ranvec_tuftRS (L)
do i = 2, 34
c curr_tuftRS (i,L) = -0.01d0 + 0.01d0 * ! current to basal/oblique dendrites
curr_tuftRS (i,L) = 0.00d0 + 0.01d0 * ! current to basal/oblique dendrites
& ranvec_tuftRS (L)
end do
c curr_tuftRS (57,L) = -0.04d0 ! axon
c curr_tuftRS (58,L) = -0.04d0 ! axon
c curr_tuftRS (59,L) = -0.04d0 ! axon
c curr_tuftRS (60,L) = -0.04d0 ! axon
c curr_tuftRS (61,L) = -0.04d0 ! axon
curr_tuftRS (57,L) = -0.02d0 ! axon
curr_tuftRS (58,L) = -0.02d0 ! axon
curr_tuftRS (59,L) = -0.02d0 ! axon
curr_tuftRS (60,L) = -0.02d0 ! axon
curr_tuftRS (61,L) = -0.02d0 ! axon
end do
do L = 1, num_supng
curr_supng (1,L) = -0.03d0 ! to suppress spontaneous firing
end do
do L = 1, num_deepng
c curr_deepng (1,L) = -0.03d0 ! to suppress spontaneous firing
c curr_deepng (1,L) = -0.025d0 ! to suppress spontaneous firing
curr_deepng (1,L) = -0.045d0 ! to suppress spontaneous firing
c curr_deepng (1,L) = -0.06d0 ! increase the hyperpol. curr for delta90
end do
call durand(seed,num_nontuftRS ,ranvec_nontuftRS )
z = 0.70d0
do L = 1, num_nontuftRS
c curr_nontuftRS (1,L) = z - 0.2d0 * ! decrease spont. firing
curr_nontuftRS (1,L) = z - 0.1d0 * ! decrease spont. firing
& ranvec_nontuftRS (L)
end do
call durand(seed,num_nRT ,ranvec_nRT )
do L = 1, num_nRT
curr_nRT (1,L) = -0.05d0 + 0.05d0 *
& ranvec_nRT (L)
c if (thisno.eq.0) then
c write(6,8782) L, curr_nRT(1,L)
c endif
8782 format(i4,3x,f8.3)
end do
! During sz, curr to TCR can be zero
call durand(seed,num_TCR ,ranvec_TCR )
do L = 1, num_TCR
! curr_TCR (1,L) = 1.40d0 + 0.01d0 *
curr_TCR (1,L) = 0.00d0 + 0.01d0 *
& ranvec_TCR (L)
end do
! ? remove from the picture layers 2/3 and 4, by hyperpolarizing the respective axons
go to 9901
do L = 1, num_suppyrRS
curr_suppyrRS(numcomp_suppyrRS,L) = -0.25d0
end do
do L = 1, num_supbask
curr_supbask (numcomp_supbask ,L) = -0.25d0
end do
do L = 1, num_supng
curr_supng (numcomp_supng ,L) = -0.25d0
end do
do L = 1, num_supaxax
curr_supaxax (numcomp_supaxax ,L) = -0.25d0
end do
do L = 1, num_supLTS
curr_supLTS (numcomp_supLTS ,L) = -0.25d0
end do
do L = 1, num_supVIP
curr_supVIP (numcomp_supVIP ,L) = -0.25d0
end do
do L = 1, num_spinstell
curr_spinstell(numcomp_spinstell,L) = -0.25d0
end do
9901 continue
! ? remove from the picture layers 5 and 6, by hyperpolarizing the respective axons
go to 9902
do L = 1, num_tuftIB
curr_tuftIB (numcomp_tuftIB ,L) = -0.25d0
end do
do L = 1, num_tuftRS
curr_tuftRS (numcomp_tuftRS ,L) = -0.25d0
end do
do L = 1, num_nontuftRS
curr_nontuftRS(numcomp_nontuftRS,L) = -0.25d0
end do
do L = 1, num_deepbask
curr_deepbask (numcomp_deepbask ,L) = -0.25d0
end do
do L = 1, num_deepng
curr_deepng (numcomp_deepng ,L) = -0.25d0
end do
do L = 1, num_deepaxax
curr_deepaxax (numcomp_deepaxax ,L) = -0.25d0
end do
do L = 1, num_supVIP
curr_supVIP (numcomp_supVIP ,L) = -0.25d0
end do
9902 continue
seed = 137.d0
O = 0
time = 0.d0
c CODE BELOW FOR "PICROTOXIN": scale all GABA-A
! GOTO 30
z1ap = 0.50d0 ! for intracortical IPSCs, basket, ng, and axoaxonal->princ.
z1ai = 0.10d0 ! for intracortical IPSCs, basket and ng->inh.
c z1bp = 0.05d0 ! for intracortical IPSCs, LTS -> princ. ! groucho1334 in effect uses 1.25
z1bp = 1.00d0 ! for intracortical IPSCs, LTS -> princ. ! groucho1334 in effect uses 1.25
z1bi = 1.00d0 ! for intracortical IPSCs, LTS -> inh.
z2 = 1.00d0 ! for intrathalamic IPSCs, usual 1.00
gGABA_supbask_to_suppyrRS = z1ap * gGABA_supbask_to_suppyrRS
gGABA_supbask_to_supbask = z1ai * gGABA_supbask_to_supbask
gGABA_supbask_to_supng = z1ai * gGABA_supbask_to_supng
gGABA_supbask_to_supaxax = z1ai * gGABA_supbask_to_supaxax
gGABA_supbask_to_supLTS = z1ai * gGABA_supbask_to_supLTS
gGABA_supbask_to_spinstell = z1ap * gGABA_supbask_to_spinstell
gGABA_supng_to_suppyrRS = z1ap * gGABA_supng_to_suppyrRS
gGABA_supng_to_nontuftRS = z1ap * gGABA_supng_to_nontuftRS
gGABA_supng_to_tuftIB = z1ap * gGABA_supng_to_tuftIB
gGABA_supng_to_tuftRS = z1ap * gGABA_supng_to_tuftRS
gGABA_supng_to_supng = z1ai * gGABA_supng_to_supng
gGABA_supng_to_supbask = z1ai * gGABA_supng_to_supbask
gGABA_supaxax_to_suppyrRS = z1ap * gGABA_supaxax_to_suppyrRS
gGABA_supaxax_to_spinstell = z1ap * gGABA_supaxax_to_spinstell
gGABA_supaxax_to_tuftIB = z1ap * gGABA_supaxax_to_tuftIB
gGABA_supaxax_to_tuftRS = z1ap * gGABA_supaxax_to_tuftRS
gGABA_supaxax_to_nontuftRS = z1ap * gGABA_supaxax_to_nontuftRS
gGABA_supLTS_to_suppyrRS = z1bp * gGABA_supLTS_to_suppyrRS
gGABA_supLTS_to_supbask = z1bi * gGABA_supLTS_to_supbask
gGABA_supLTS_to_supaxax = z1bi * gGABA_supLTS_to_supaxax
gGABA_supLTS_to_supLTS = z1bi * gGABA_supLTS_to_supLTS
gGABA_supLTS_to_spinstell = z1bp * gGABA_supLTS_to_spinstell
gGABA_supLTS_to_tuftIB = z1bp * gGABA_supLTS_to_tuftIB
gGABA_supLTS_to_tuftRS = z1bp * gGABA_supLTS_to_tuftRS
gGABA_supLTS_to_deepbask = z1bi * gGABA_supLTS_to_deepbask
gGABA_supLTS_to_deepaxax = z1bi * gGABA_supLTS_to_deepaxax
gGABA_supLTS_to_supVIP = z1bi * gGABA_supLTS_to_supVIP
gGABA_supLTS_to_nontuftRS = z1bp * gGABA_supLTS_to_nontuftRS
gGABA_deepbask_to_spinstell = z1ap * gGABA_deepbask_to_spinstell
gGABA_deepbask_to_tuftIB = z1ap * gGABA_deepbask_to_tuftIB
gGABA_deepbask_to_tuftRS = z1ap * gGABA_deepbask_to_tuftRS
gGABA_deepbask_to_deepbask = z1ai * gGABA_deepbask_to_deepbask
gGABA_deepbask_to_deepng = z1ai * gGABA_deepbask_to_deepng
gGABA_deepbask_to_deepaxax = z1ai * gGABA_deepbask_to_deepaxax
gGABA_deepbask_to_supVIP = z1ai * gGABA_deepbask_to_supVIP
gGABA_deepbask_to_nontuftRS = z1ap * gGABA_deepbask_to_nontuftRS
gGABA_deepng_to_tuftIB = z1ap * gGABA_deepng_to_tuftIB
gGABA_deepng_to_tuftRS = z1ap * gGABA_deepng_to_tuftRS
gGABA_deepng_to_nontuftRS = z1ap * gGABA_deepng_to_nontuftRS
gGABA_deepng_to_spinstell = z1ap * gGABA_deepng_to_spinstell
gGABA_deepng_to_deepng = z1ai * gGABA_deepng_to_deepng
gGABA_deepng_to_deepbask = z1ai * gGABA_deepng_to_deepbask
gGABA_deepaxax_to_suppyrRS = z1ap * gGABA_deepaxax_to_suppyrRS
gGABA_deepaxax_to_spinstell = z1ap * gGABA_deepaxax_to_spinstell
gGABA_deepaxax_to_tuftIB = z1ap * gGABA_deepaxax_to_tuftIB
gGABA_deepaxax_to_tuftRS = z1ap * gGABA_deepaxax_to_tuftRS
gGABA_deepaxax_to_nontuftRS = z1ap * gGABA_deepaxax_to_nontuftRS
gGABA_supVIP_to_suppyrRS = z1bp * gGABA_supVIP_to_suppyrRS
gGABA_supVIP_to_supbask = z1bi * gGABA_supVIP_to_supbask
gGABA_supVIP_to_supaxax = z1bi * gGABA_supVIP_to_supaxax
gGABA_supVIP_to_supLTS = z1bi * gGABA_supVIP_to_supLTS
gGABA_supVIP_to_spinstell = z1bp * gGABA_supVIP_to_spinstell
gGABA_supVIP_to_tuftIB = z1bp * gGABA_supVIP_to_tuftIB
gGABA_supVIP_to_tuftRS = z1bp * gGABA_supVIP_to_tuftRS
gGABA_supVIP_to_deepbask = z1bi * gGABA_supVIP_to_deepbask
gGABA_supVIP_to_deepaxax = z1bi * gGABA_supVIP_to_deepaxax
gGABA_supVIP_to_supVIP = z1bi * gGABA_supVIP_to_supVIP
gGABA_supVIP_to_nontuftRS = z1bp * gGABA_supVIP_to_nontuftRS
do L = 1, num_nRT
gGABA_nRT_to_TCR(L) = z2 * gGABA_nRT_to_TCR(L)
end do
gGABA_nRT_to_nRT = z2 * gGABA_nRT_to_nRT
30 CONTINUE
c End "PICROTOXIN" code
! Code below is "NBQX": scale all AMPA; see also below for possibility
! of further additional scaling of connections between layers
! GOTO 35
z1 = 0.30d0 ! intracortical e/i ! usual 1.00; use 2.0 for delta78
z3 = 0.00d0 ! TCR -> cortical i ! usual 1.0
z4 = 1.00d0 ! TCR -> nRT & nontuftRS ->nRT ! usual 1.00
z5 = 0.10d0 ! spinstell -> spinstell; may reduce as in spindle series, 8 May'04
z6 = 0.25d0 ! layer 5 tuftIB or RS -> layer 5 tuftIB or RS; 16 May '07, further reduction
c In groucho1334, z2 = 2.00d0
z2 = 0.40d0 ! everything else; note that this may be INCREASED, usual 1.0
gAMPA_suppyrRS_to_suppyrRS= z2 * gAMPA_suppyrRS_to_suppyrRS
gAMPA_suppyrRS_to_supbask = z1 * gAMPA_suppyrRS_to_supbask
gAMPA_suppyrRS_to_supng = z1 * gAMPA_suppyrRS_to_supng
gAMPA_suppyrRS_to_supaxax = z1 * gAMPA_suppyrRS_to_supaxax
gAMPA_suppyrRS_to_supLTS = z1 * gAMPA_suppyrRS_to_supLTS
gAMPA_suppyrRS_to_spinstell= z2 * gAMPA_suppyrRS_to_spinstell
gAMPA_suppyrRS_to_tuftIB = z2 * gAMPA_suppyrRS_to_tuftIB
gAMPA_suppyrRS_to_tuftRS = z2 * gAMPA_suppyrRS_to_tuftRS
gAMPA_suppyrRS_to_deepbask = z1 * gAMPA_suppyrRS_to_deepbask
gAMPA_suppyrRS_to_deepaxax = z1 * gAMPA_suppyrRS_to_deepaxax
gAMPA_suppyrRS_to_supVIP = z1 * gAMPA_suppyrRS_to_supVIP
gAMPA_suppyrRS_to_nontuftRS= z2 * gAMPA_suppyrRS_to_nontuftRS
gAMPA_spinstell_to_suppyrRS = z2 * gAMPA_spinstell_to_suppyrRS
gAMPA_spinstell_to_supbask = z1 * gAMPA_spinstell_to_supbask
gAMPA_spinstell_to_supaxax = z1 * gAMPA_spinstell_to_supaxax
gAMPA_spinstell_to_supLTS = z1 * gAMPA_spinstell_to_supLTS
gAMPA_spinstell_to_spinstell= z5 * gAMPA_spinstell_to_spinstell
gAMPA_spinstell_to_tuftIB = z2 * gAMPA_spinstell_to_tuftIB
gAMPA_spinstell_to_tuftRS = z2 * gAMPA_spinstell_to_tuftRS
gAMPA_spinstell_to_deepbask = z1 * gAMPA_spinstell_to_deepbask
gAMPA_spinstell_to_deepng = z1 * gAMPA_spinstell_to_deepng
gAMPA_spinstell_to_deepaxax = z1 * gAMPA_spinstell_to_deepaxax
gAMPA_spinstell_to_supVIP = z1 * gAMPA_spinstell_to_supVIP
gAMPA_spinstell_to_nontuftRS= z2 * gAMPA_spinstell_to_nontuftRS
gAMPA_tuftIB_to_suppyrRS = z2 * gAMPA_tuftIB_to_suppyrRS
gAMPA_tuftIB_to_supbask = z1 * gAMPA_tuftIB_to_supbask
gAMPA_tuftIB_to_supaxax = z1 * gAMPA_tuftIB_to_supaxax
gAMPA_tuftIB_to_supLTS = z1 * gAMPA_tuftIB_to_supLTS
gAMPA_tuftIB_to_spinstell = z2 * gAMPA_tuftIB_to_spinstell
gAMPA_tuftIB_to_tuftIB = z6 * gAMPA_tuftIB_to_tuftIB
gAMPA_tuftIB_to_tuftRS = z6 * gAMPA_tuftIB_to_tuftRS
gAMPA_tuftIB_to_deepbask = z1 * gAMPA_tuftIB_to_deepbask
gAMPA_tuftIB_to_deepng = z1 * gAMPA_tuftIB_to_deepng
gAMPA_tuftIB_to_deepaxax = z1 * gAMPA_tuftIB_to_deepaxax
gAMPA_tuftIB_to_supVIP = z1 * gAMPA_tuftIB_to_supVIP
gAMPA_tuftIB_to_nontuftRS = z2 * gAMPA_tuftIB_to_nontuftRS
gAMPA_tuftRS_to_suppyrRS = z2 * gAMPA_tuftRS_to_suppyrRS
gAMPA_tuftRS_to_supbask = z1 * gAMPA_tuftRS_to_supbask
gAMPA_tuftRS_to_supaxax = z1 * gAMPA_tuftRS_to_supaxax
gAMPA_tuftRS_to_supLTS = z1 * gAMPA_tuftRS_to_supLTS
gAMPA_tuftRS_to_spinstell = z2 * gAMPA_tuftRS_to_spinstell
gAMPA_tuftRS_to_tuftIB = z6 * gAMPA_tuftRS_to_tuftIB
gAMPA_tuftRS_to_tuftRS = z6 * gAMPA_tuftRS_to_tuftRS
gAMPA_tuftRS_to_deepbask = z1 * gAMPA_tuftRS_to_deepbask
gAMPA_tuftRS_to_deepng = z1 * gAMPA_tuftRS_to_deepng
gAMPA_tuftRS_to_deepaxax = z1 * gAMPA_tuftRS_to_deepaxax
gAMPA_tuftRS_to_supVIP = z1 * gAMPA_tuftRS_to_supVIP
gAMPA_tuftRS_to_nontuftRS = z2 * gAMPA_tuftRS_to_nontuftRS
gAMPA_TCR_to_suppyrRS = z2 * gAMPA_TCR_to_suppyrRS
gAMPA_TCR_to_supbask = z3 * gAMPA_TCR_to_supbask
gAMPA_TCR_to_supng = z3 * gAMPA_TCR_to_supng
gAMPA_TCR_to_supaxax = z3 * gAMPA_TCR_to_supaxax
gAMPA_TCR_to_spinstell = z2 * gAMPA_TCR_to_spinstell
gAMPA_TCR_to_tuftIB = z2 * gAMPA_TCR_to_tuftIB
gAMPA_TCR_to_tuftRS = z2 * gAMPA_TCR_to_tuftRS
gAMPA_TCR_to_deepbask = z3 * gAMPA_TCR_to_deepbask
gAMPA_TCR_to_deepng = z3 * gAMPA_TCR_to_deepng
gAMPA_TCR_to_deepaxax = z3 * gAMPA_TCR_to_deepaxax
gAMPA_TCR_to_nRT = z4 * gAMPA_TCR_to_nRT
gAMPA_TCR_to_nontuftRS = z2 * gAMPA_TCR_to_nontuftRS
gAMPA_nontuftRS_to_suppyrRS = z2 * gAMPA_nontuftRS_to_suppyrRS
gAMPA_nontuftRS_to_supbask = z1 * gAMPA_nontuftRS_to_supbask
gAMPA_nontuftRS_to_supaxax = z1 * gAMPA_nontuftRS_to_supaxax
gAMPA_nontuftRS_to_supLTS = z1 * gAMPA_nontuftRS_to_supLTS
gAMPA_nontuftRS_to_spinstell = z2 * gAMPA_nontuftRS_to_spinstell
gAMPA_nontuftRS_to_tuftIB = z2 * gAMPA_nontuftRS_to_tuftIB
gAMPA_nontuftRS_to_tuftRS = z2 * gAMPA_nontuftRS_to_tuftRS
gAMPA_nontuftRS_to_deepbask = z1 * gAMPA_nontuftRS_to_deepbask
gAMPA_nontuftRS_to_deepng = z1 * gAMPA_nontuftRS_to_deepng
gAMPA_nontuftRS_to_deepaxax = z1 * gAMPA_nontuftRS_to_deepaxax
gAMPA_nontuftRS_to_supVIP = z1 * gAMPA_nontuftRS_to_supVIP
gAMPA_nontuftRS_to_TCR = z2 * gAMPA_nontuftRS_to_TCR
gAMPA_nontuftRS_to_nRT = z4 * gAMPA_nontuftRS_to_nRT
gAMPA_nontuftRS_to_nontuftRS = z2 * gAMPA_nontuftRS_to_nontuftRS
! Code below: allows for
! further additional scaling of connections between layers
z10b = 0.5d0 ! scales deep pyramids to superficial inhibitory cells
gAMPA_tuftIB_to_supbask = z10b* gAMPA_tuftIB_to_supbask
gAMPA_tuftIB_to_supaxax = z10b* gAMPA_tuftIB_to_supaxax
gAMPA_tuftIB_to_supLTS = z10b* gAMPA_tuftIB_to_supLTS
gAMPA_tuftRS_to_supbask = z10b* gAMPA_tuftRS_to_supbask
gAMPA_tuftRS_to_supaxax = z10b* gAMPA_tuftRS_to_supaxax
gAMPA_tuftRS_to_supLTS = z10b* gAMPA_tuftRS_to_supLTS
gAMPA_nontuftRS_to_supbask = z10b* gAMPA_nontuftRS_to_supbask
gAMPA_nontuftRS_to_supaxax = z10b* gAMPA_nontuftRS_to_supaxax
gAMPA_nontuftRS_to_supLTS = z10b* gAMPA_nontuftRS_to_supLTS
35 CONTINUE
c End "NBQX" section.
c Code below scales TCR output to cortex (not to nRT), AMPA & NMDA
! goto 60
c z = 1.d0
z = 0.d0
gAMPA_TCR_to_suppyrRS = z * gAMPA_TCR_to_suppyrRS
gNMDA_TCR_to_suppyrRS = z * gNMDA_TCR_to_suppyrRS
gAMPA_TCR_to_supbask = z * gAMPA_TCR_to_supbask
gNMDA_TCR_to_supbask = z * gNMDA_TCR_to_supbask
gAMPA_TCR_to_supaxax = z * gAMPA_TCR_to_supaxax
gNMDA_TCR_to_supaxax = z * gNMDA_TCR_to_supaxax
gAMPA_TCR_to_spinstell = z * gAMPA_TCR_to_spinstell
gNMDA_TCR_to_spinstell = z * gNMDA_TCR_to_spinstell
gAMPA_TCR_to_tuftIB = z * gAMPA_TCR_to_tuftIB
gNMDA_TCR_to_tuftIB = z * gNMDA_TCR_to_tuftIB
gAMPA_TCR_to_tuftRS = z * gAMPA_TCR_to_tuftRS
gNMDA_TCR_to_tuftRS = z * gNMDA_TCR_to_tuftRS
gAMPA_TCR_to_deepbask = z * gAMPA_TCR_to_deepbask
gNMDA_TCR_to_deepbask = z * gNMDA_TCR_to_deepbask
gAMPA_TCR_to_deepaxax = z * gAMPA_TCR_to_deepaxax
gNMDA_TCR_to_deepaxax = z * gNMDA_TCR_to_deepaxax
gAMPA_TCR_to_nontuftRS = z * gAMPA_TCR_to_nontuftRS
gNMDA_TCR_to_nontuftRS = z * gNMDA_TCR_to_nontuftRS
60 CONTINUE
c Code below scales some/all NMDA conductances. APV.
! GOTO 40
z1 = 1.0d0 ! to interneurons
z2 = 1.00d0 ! to cort. principal cells
z4 = 0.0d0 ! to TCR and nRT and from TCR to cort. princ.
gNMDA_suppyrRS_to_suppyrRS= z2 *
& gNMDA_suppyrRS_to_suppyrRS
gNMDA_suppyrRS_to_supbask = z1 *
& gNMDA_suppyrRS_to_supbask
gNMDA_suppyrRS_to_supng = z1 *
& gNMDA_suppyrRS_to_supng
gNMDA_suppyrRS_to_supaxax = z1 *
& gNMDA_suppyrRS_to_supaxax
gNMDA_suppyrRS_to_supLTS = z1 *
& gNMDA_suppyrRS_to_supLTS
gNMDA_suppyrRS_to_spinstell= z2 *
& gNMDA_suppyrRS_to_spinstell
gNMDA_suppyrRS_to_tuftIB = z2 *
& gNMDA_suppyrRS_to_tuftIB
gNMDA_suppyrRS_to_tuftRS = z2 *
& gNMDA_suppyrRS_to_tuftRS
gNMDA_suppyrRS_to_deepbask = z1 *
& gNMDA_suppyrRS_to_deepbask
gNMDA_suppyrRS_to_deepaxax = z1 *
& gNMDA_suppyrRS_to_deepaxax
gNMDA_suppyrRS_to_supVIP = z1 *
& gNMDA_suppyrRS_to_supVIP
gNMDA_suppyrRS_to_nontuftRS= z2 *
& gNMDA_suppyrRS_to_nontuftRS
gNMDA_spinstell_to_suppyrRS = z2 *
& gNMDA_spinstell_to_suppyrRS
gNMDA_spinstell_to_supbask = z1 *
& gNMDA_spinstell_to_supbask
gNMDA_spinstell_to_supaxax = z1 *
& gNMDA_spinstell_to_supaxax
gNMDA_spinstell_to_supLTS = z1 *
& gNMDA_spinstell_to_supLTS
gNMDA_spinstell_to_tuftIB = z2 *
& gNMDA_spinstell_to_tuftIB
gNMDA_spinstell_to_tuftRS = z2 *
& gNMDA_spinstell_to_tuftRS
gNMDA_spinstell_to_deepbask = z1 *
& gNMDA_spinstell_to_deepbask
gNMDA_spinstell_to_deepng = z1 *
& gNMDA_spinstell_to_deepng
gNMDA_spinstell_to_deepaxax = z1 *
& gNMDA_spinstell_to_deepaxax
gNMDA_spinstell_to_supVIP = z1 *
& gNMDA_spinstell_to_supVIP
gNMDA_spinstell_to_nontuftRS= z2 *
& gNMDA_spinstell_to_nontuftRS
gNMDA_tuftIB_to_suppyrRS = z2 *
& gNMDA_tuftIB_to_suppyrRS
gNMDA_tuftIB_to_supbask = z1 *
& gNMDA_tuftIB_to_supbask
gNMDA_tuftIB_to_supaxax = z1 *
& gNMDA_tuftIB_to_supaxax
gNMDA_tuftIB_to_supLTS = z1 *
& gNMDA_tuftIB_to_supLTS
gNMDA_tuftIB_to_spinstell = z2 *
& gNMDA_tuftIB_to_spinstell
gNMDA_tuftIB_to_tuftIB = z2 *
& gNMDA_tuftIB_to_tuftIB
gNMDA_tuftIB_to_tuftRS = z2 *
& gNMDA_tuftIB_to_tuftRS
gNMDA_tuftIB_to_deepbask = z1 *
& gNMDA_tuftIB_to_deepbask
gNMDA_tuftIB_to_deepng = z1 *
& gNMDA_tuftIB_to_deepng
gNMDA_tuftIB_to_deepaxax = z1 *
& gNMDA_tuftIB_to_deepaxax
gNMDA_tuftIB_to_supVIP = z1 *
& gNMDA_tuftIB_to_supVIP
gNMDA_tuftIB_to_nontuftRS = z2 *
& gNMDA_tuftIB_to_nontuftRS
gNMDA_tuftRS_to_suppyrRS = z2 *
& gNMDA_tuftRS_to_suppyrRS
gNMDA_tuftRS_to_supbask = z1 *
& gNMDA_tuftRS_to_supbask
gNMDA_tuftRS_to_supaxax = z1 *
& gNMDA_tuftRS_to_supaxax
gNMDA_tuftRS_to_supLTS = z1 *
& gNMDA_tuftRS_to_supLTS
gNMDA_tuftRS_to_spinstell = z2 *
& gNMDA_tuftRS_to_spinstell
gNMDA_tuftRS_to_tuftIB = z2 *
& gNMDA_tuftRS_to_tuftIB
gNMDA_tuftRS_to_tuftRS = z2 *
& gNMDA_tuftRS_to_tuftRS
gNMDA_tuftRS_to_deepbask = z1 *
& gNMDA_tuftRS_to_deepbask
gNMDA_tuftRS_to_deepng = z1 *
& gNMDA_tuftRS_to_deepng
gNMDA_tuftRS_to_deepaxax = z1 *
& gNMDA_tuftRS_to_deepaxax
gNMDA_tuftRS_to_supVIP = z1 *
& gNMDA_tuftRS_to_supVIP
gNMDA_tuftRS_to_nontuftRS = z2 *
& gNMDA_tuftRS_to_nontuftRS
gNMDA_TCR_to_suppyrRS = z4 *
& gNMDA_TCR_to_suppyrRS
gNMDA_TCR_to_supbask = z1 *
& gNMDA_TCR_to_supbask
gNMDA_TCR_to_supng = z1 *
& gNMDA_TCR_to_supng
gNMDA_TCR_to_supaxax = z1 *
& gNMDA_TCR_to_supaxax
gNMDA_TCR_to_spinstell = z4 *
& gNMDA_TCR_to_spinstell
gNMDA_TCR_to_tuftIB = z4 *
& gNMDA_TCR_to_tuftIB
gNMDA_TCR_to_tuftRS = z4 *
& gNMDA_TCR_to_tuftRS
gNMDA_TCR_to_deepbask = z1 *
& gNMDA_TCR_to_deepbask
gNMDA_TCR_to_deepng = z1 *
& gNMDA_TCR_to_deepng
gNMDA_TCR_to_deepaxax = z1 *
& gNMDA_TCR_to_deepaxax
gNMDA_TCR_to_nRT = z1 *
& gNMDA_TCR_to_nRT
gNMDA_TCR_to_nontuftRS = z4 *
& gNMDA_TCR_to_nontuftRS
gNMDA_nontuftRS_to_suppyrRS = z2 *
& gNMDA_nontuftRS_to_suppyrRS
gNMDA_nontuftRS_to_supbask = z1 *
& gNMDA_nontuftRS_to_supbask
gNMDA_nontuftRS_to_supaxax = z1 *
& gNMDA_nontuftRS_to_supaxax
gNMDA_nontuftRS_to_supLTS = z1 *
& gNMDA_nontuftRS_to_supLTS
gNMDA_nontuftRS_to_spinstell = z2 *
& gNMDA_nontuftRS_to_spinstell
gNMDA_nontuftRS_to_tuftIB = z2 *
& gNMDA_nontuftRS_to_tuftIB
gNMDA_nontuftRS_to_tuftRS = z2 *
& gNMDA_nontuftRS_to_tuftRS
gNMDA_nontuftRS_to_deepbask = z1 *
& gNMDA_nontuftRS_to_deepbask
gNMDA_nontuftRS_to_deepaxax = z1 *
& gNMDA_nontuftRS_to_deepaxax
gNMDA_nontuftRS_to_supVIP = z1 *
& gNMDA_nontuftRS_to_supVIP
gNMDA_nontuftRS_to_TCR = z4 *
& gNMDA_nontuftRS_to_TCR
gNMDA_nontuftRS_to_nRT = z4 *
& gNMDA_nontuftRS_to_nRT
gNMDA_nontuftRS_to_nontuftRS = z2 *
& gNMDA_nontuftRS_to_nontuftRS
40 CONTINUE
c End section scaling all NMDA conductances.
c INITIALIZE ALL THE INTEGRATION SUBROUTINES
initialize = 0
firstcell = 1
lastcell = 1
IF (nodecell(thisno).eq.'suppyrRS ') then
CALL INTEGRATE_suppyrRSXPB (O, time, num_suppyrRS,
& V_suppyrRS, curr_suppyrRS,
& initialize, firstcell, lastcell,
& gAMPA_suppyrRS, gNMDA_suppyrRS, gGABA_A_suppyrRS,
& gGABA_B_suppyrRS, Mg,
& gapcon_suppyrRS ,totaxgj_suppyrRS ,gjtable_suppyrRS, dt,
& chi_suppyrRS,mnaf_suppyrRS,mnap_suppyrRS,
& hnaf_suppyrRS,mkdr_suppyrRS,mka_suppyrRS,
& hka_suppyrRS,mk2_suppyrRS,hk2_suppyrRS,
& mkm_suppyrRS,mkc_suppyrRS,mkahp_suppyrRS,
& mcat_suppyrRS,hcat_suppyrRS,mcal_suppyrRS,
& mar_suppyrRS,field_1mm ,field_2mm,rel_axonshift_suppyrRS)
c ELSE if (nodecell(thisno).eq.'supbask ') then
ELSE if (nodecell(thisno).eq.'supintern ') then
CALL INTEGRATE_supbaskx (O, time, num_supbask ,
& V_supbask , curr_supbask ,
$ initialize, firstcell, lastcell,
& gAMPA_supbask , gNMDA_supbask , gGABA_A_supbask ,
& Mg,
& gapcon_supbask ,totSDgj_supbask ,gjtable_supbask , dt,
& chi_supbask,mnaf_supbask,mnap_supbask,
& hnaf_supbask,mkdr_supbask,mka_supbask,
& hka_supbask,mk2_supbask,hk2_supbask,
& mkm_supbask,mkc_supbask,mkahp_supbask,
& mcat_supbask,hcat_supbask,mcal_supbask,
& mar_supbask)
c ELSE if (nodecell(thisno).eq.'supng ') then
CALL INTEGRATE_supng (O, time, num_supng ,
& V_supng , curr_supng ,
$ initialize, firstcell, lastcell,
& gAMPA_supng , gNMDA_supng , gGABA_A_supng ,
& Mg,
& gapcon_supng ,totSDgj_supng ,gjtable_supng , dt,
& chi_supng ,mnaf_supng ,mnap_supng ,
& hnaf_supng ,mkdr_supng ,mka_supng ,
& hka_supng ,mk2_supng ,hk2_supng ,
& mkm_supng ,mkc_supng ,mkahp_supng ,
& mcat_supng ,hcat_supng ,mcal_supng ,
& mar_supng )
c ELSE if (nodecell(thisno).eq.'supaxax ') then
CALL INTEGRATE_supaxaxx (O, time, num_supaxax ,
& V_supaxax , curr_supaxax ,
& initialize, firstcell, lastcell,
& gAMPA_supaxax , gNMDA_supaxax , gGABA_A_supaxax ,
& Mg,
& gapcon_supaxax ,totSDgj_supaxax ,gjtable_supaxax , dt,
& chi_supaxax,mnaf_supaxax,mnap_supaxax,
& hnaf_supaxax,mkdr_supaxax,mka_supaxax,
& hka_supaxax,mk2_supaxax,hk2_supaxax,
& mkm_supaxax,mkc_supaxax,mkahp_supaxax,
& mcat_supaxax,hcat_supaxax,mcal_supaxax,
& mar_supaxax)
c ELSE if (nodecell(thisno).eq.'supLTS ') then
CALL INTEGRATE_supLTSx (O, time, num_supLTS ,
& V_supLTS , curr_supLTS ,
& initialize, firstcell, lastcell,
& gAMPA_supLTS , gNMDA_supLTS , gGABA_A_supLTS ,
& Mg,
& gapcon_supLTS ,totSDgj_supLTS ,gjtable_supLTS , dt,
& chi_supLTS,mnaf_supLTS,mnap_supLTS,
& hnaf_supLTS,mkdr_supLTS,mka_supLTS,
& hka_supLTS,mk2_supLTS,hk2_supLTS,
& mkm_supLTS,mkc_supLTS,mkahp_supLTS,
& mcat_supLTS,hcat_supLTS,mcal_supLTS,
& mar_supLTS)
CALL INTEGRATE_supVIP (O, time, num_supVIP ,
& V_supVIP , curr_supVIP ,
& initialize, firstcell, lastcell,
& gAMPA_supVIP , gNMDA_supVIP , gGABA_A_supVIP ,
& Mg,
& gapcon_supVIP ,totSDgj_supVIP ,gjtable_supVIP , dt,
& chi_supVIP,mnaf_supVIP,mnap_supVIP,
& hnaf_supVIP,mkdr_supVIP,mka_supVIP,
& hka_supVIP,mk2_supVIP,hk2_supVIP,
& mkm_supVIP,mkc_supVIP,mkahp_supVIP,
& mcat_supVIP,hcat_supVIP,mcal_supVIP,
& mar_supVIP)
ELSE if (nodecell(thisno).eq.'spinstell ') then
CALL INTEGRATE_spinstelldiegoxB (O, time, num_spinstell,
& V_spinstell, curr_spinstell,
& initialize, firstcell, lastcell,
& gAMPA_spinstell, gNMDA_spinstell, gGABA_A_spinstell,
& gGABA_B_spinstell, Mg,
& gapcon_spinstell,totaxgj_spinstell,gjtable_spinstell, dt,
& chi_spinstell,mnaf_spinstell,mnap_spinstell,
& hnaf_spinstell,mkdr_spinstell,mka_spinstell,
& hka_spinstell,mk2_spinstell,hk2_spinstell,
& mkm_spinstell,mkc_spinstell,mkahp_spinstell,
& mcat_spinstell,hcat_spinstell,mcal_spinstell,
& mar_spinstell)
ELSE if (nodecell(thisno).eq.'tuftIB ') then
CALL INTEGRATE_tuftIBVx3C (O, time, num_tuftIB,
& V_tuftIB, curr_tuftIB,
& initialize, firstcell, lastcell,
& gAMPA_tuftIB, gNMDA_tuftIB, gGABA_A_tuftIB,
& gGABA_B_tuftIB, Mg,
& gapcon_tuftIB,totaxgj_tuftIB,gjtable_tuftIB, dt,
& chi_tuftIB,mnaf_tuftIB,mnap_tuftIB,
& hnaf_tuftIB,mkdr_tuftIB,mka_tuftIB,
& hka_tuftIB,mk2_tuftIB,hk2_tuftIB,
& mkm_tuftIB,mkc_tuftIB,mkahp_tuftIB,
& mcat_tuftIB,hcat_tuftIB,mcal_tuftIB,
& mar_tuftIB,field_1mm ,field_2mm ,
& scale_tuftIB_gKAHP, scale_tuftIB_gNaP,
& scale_tuftIB_gKM , scale_tuftIB_gKA,
& scale_tuftIB_gCaL, scale_tuftIB_gKC,
& rel_axonshift_tuftIB,gCaL_tuftIB,Mshift,
& scale_tuftIB_gAR,
& tscale_ggabaB, tscale_gCaL, tscale_gKDR)
ELSE if (nodecell(thisno).eq.'tuftRS ') then
CALL INTEGRATE_tuftRSXXC (O, time, num_tuftRS,
& V_tuftRS, curr_tuftRS,
& initialize, firstcell, lastcell,
& gAMPA_tuftRS, gNMDA_tuftRS, gGABA_A_tuftRS,
& gGABA_B_tuftRS, Mg,
& gapcon_tuftRS,totaxgj_tuftRS,gjtable_tuftRS, dt,
& chi_tuftRS,mnaf_tuftRS,mnap_tuftRS,
& hnaf_tuftRS,mkdr_tuftRS,mka_tuftRS,
& hka_tuftRS,mk2_tuftRS,hk2_tuftRS,
& mkm_tuftRS,mkc_tuftRS,mkahp_tuftRS,
& mcat_tuftRS,hcat_tuftRS,mcal_tuftRS,
& mar_tuftRS,field_1mm ,field_2mm )
ELSE if (nodecell(thisno).eq.'nontuftRS ') then
CALL INTEGRATE_nontuftRSXXB (O, time, num_nontuftRS,
& V_nontuftRS, curr_nontuftRS,
& initialize, firstcell, lastcell,
& gAMPA_nontuftRS, gNMDA_nontuftRS, gGABA_A_nontuftRS,
& gGABA_B_nontuftRS, Mg,
& gapcon_nontuftRS,totaxgj_nontuftRS,gjtable_nontuftRS, dt,
& chi_nontuftRS,mnaf_nontuftRS,mnap_nontuftRS,
& hnaf_nontuftRS,mkdr_nontuftRS,mka_nontuftRS,
& hka_nontuftRS,mk2_nontuftRS,hk2_nontuftRS,
& mkm_nontuftRS,mkc_nontuftRS,mkahp_nontuftRS,
& mcat_nontuftRS,hcat_nontuftRS,mcal_nontuftRS,
& mar_nontuftRS,field_1mm ,field_2mm )
c ELSE if (nodecell(thisno).eq.'deepbask ') then
ELSE if (nodecell(thisno).eq.'deepintern') then
CALL INTEGRATE_deepbaskx (O, time, num_deepbask ,
& V_deepbask , curr_deepbask ,
& initialize, firstcell, lastcell,
& gAMPA_deepbask, gNMDA_deepbask, gGABA_A_deepbask,
& Mg,
& gapcon_deepbask ,totSDgj_deepbask ,gjtable_deepbask, dt,
& chi_deepbask,mnaf_deepbask,mnap_deepbask,
& hnaf_deepbask,mkdr_deepbask,mka_deepbask,
& hka_deepbask,mk2_deepbask,hk2_deepbask,
& mkm_deepbask,mkc_deepbask,mkahp_deepbask,
& mcat_deepbask,hcat_deepbask,mcal_deepbask,
& mar_deepbask)
c ELSE if (nodecell(thisno).eq.'deepng ') then
CALL INTEGRATE_deepng (O, time, num_deepng ,
& V_deepng , curr_deepng ,
& initialize, firstcell, lastcell,
& gAMPA_deepng , gNMDA_deepng , gGABA_A_deepng ,
& Mg,
& gapcon_deepng ,totSDgj_deepng ,gjtable_deepng , dt,
& chi_deepng ,mnaf_deepng ,mnap_deepng ,
& hnaf_deepng ,mkdr_deepng ,mka_deepng ,
& hka_deepng ,mk2_deepng ,hk2_deepng ,
& mkm_deepng ,mkc_deepng ,mkahp_deepng ,
& mcat_deepng ,hcat_deepng ,mcal_deepng ,
& mar_deepng )
c ELSE if (nodecell(thisno).eq.'deepaxax ') then
CALL INTEGRATE_deepaxaxx (O, time, num_deepaxax ,
& V_deepaxax , curr_deepaxax ,
& initialize, firstcell, lastcell,
& gAMPA_deepaxax, gNMDA_deepaxax, gGABA_A_deepaxax,
& Mg,
& gapcon_deepaxax ,totSDgj_deepaxax ,gjtable_deepaxax, dt,
& chi_deepaxax,mnaf_deepaxax,mnap_deepaxax,
& hnaf_deepaxax,mkdr_deepaxax,mka_deepaxax,
& hka_deepaxax,mk2_deepaxax,hk2_deepaxax,
& mkm_deepaxax,mkc_deepaxax,mkahp_deepaxax,
& mcat_deepaxax,hcat_deepaxax,mcal_deepaxax,
& mar_deepaxax)
c ELSE if (nodecell(thisno).eq.'supVIP ') then
ELSE if (nodecell(thisno).eq.'TCR ') then
CALL INTEGRATE_tcrxB (O, time, num_tcr ,
& V_tcr , curr_tcr ,
& initialize, firstcell, lastcell,
& gAMPA_tcr , gNMDA_tcr , gGABA_A_tcr ,
& gGABA_B_tcr, Mg,
& gapcon_tcr ,totaxgj_tcr ,gjtable_tcr , dt,
& chi_tcr,mnaf_tcr,mnap_tcr,
& hnaf_tcr,mkdr_tcr,mka_tcr,
& hka_tcr,mk2_tcr,hk2_tcr,
& mkm_tcr,mkc_tcr,mkahp_tcr,
& mcat_tcr,hcat_tcr,mcal_tcr,
& mar_tcr)
ELSE if (nodecell(thisno).eq.'nRT ') then
CALL INTEGRATE_nRTxB (O, time, num_nRT ,
& V_nRT , curr_nRT ,
& initialize, firstcell, lastcell,
& gAMPA_nRT , gNMDA_nRT , gGABA_A_nRT ,
& gGABA_B_nRT, Mg,
& gapcon_nRT ,totSDgj_nRT ,gjtable_nRT , dt,
& chi_nRT,mnaf_nRT,mnap_nRT,
& hnaf_nRT,mkdr_nRT,mka_nRT,
& hka_nRT,mk2_nRT,hk2_nRT,
& mkm_nRT,mkc_nRT,mkahp_nRT,
& mcat_nRT,hcat_nRT,mcal_nRT,
& mar_nRT)
ENDIF
c END INITIALIZATION OF INTEGRATION SUBROUTINES
c Note how superficial and deep interneuron calls lumped together
c BEGIN guts of main program.
c Each node takes care of all the cells of a particular type.
c On a node: enumerate the cells of its type; calculate their
c synaptic inputs; set applied currents, including those
c required by ectopic generation; call the numerical integration
c subroutine; set up the distal_axon vector. Each node
c broadcasts its own distal_axon vector to all the others, and also
c receives distal_axon vectors from all the others.
c Then, update outtime array and outctr vector. Repeat.
1000 O = O + 1
time = time + dt
if (time.gt.timtot) goto 2000
c Define variable ggabaB, gCaL, gKDR scaling for tuftIB
if (time.le.1250.d0) then
zz = 0.d0
else if (time.le.1500.d0) then
zz = (time-1250.d0)/250.d0
else if (time.le.2500.d0) then
zz = 1.d0
else if (time.le.2750.d0) then
zz=1.d0-(time-2500.d0)/250.d0
else
zz = 0.d0
endif
c zz = 0.3d0 * time / timtot
tscale_ggabaB = 1.d0 - zz
tscale_gCaL = 1.d0 + 5.d0 * zz
tscale_gKDR = 1.d0 - zz
! OR possibly use postsynaptic block of inhibition, at integration step
! FOR suppyrRS
c time-dependent hyperpolarization to some interneuron types
c if ((time.ge.600.d0).and.(time.le.1100.d0)) then
c do L = 1, num_supbask
c curr_supbask(1,L) = -0.25d0
c end do
c do L = 1, num_supaxax
c curr_supaxax(1,L) = -0.25d0
c end do
c do L = 1, num_supLTS
c curr_supLTS (1,L) = -0.25d0
c end do
c do L = 1, num_supng
c curr_supng (1,L) = -0.25d0
c end do
c ELSE
c do L = 1, num_supbask
c curr_supbask(1,L) = -0.04d0+.02d0*ranvec_supbask(L)
c end do
c do L = 1, num_supaxax
c curr_supaxax(1,L) = -0.04d0+.02d0*ranvec_supaxax(L)
c end do
c do L = 1, num_supLTS
c curr_supLTS(1,L) = 0.0d0
c end do
c do L = 1, num_supng
c curr_supng(1,L) = -0.03d0
c end do
c ENDIF
c time-dependent gapcon_tuftRS
c if (time.le.1400.d0) then
if ((time.ge.1250.d0).and.(time.le.2400.d0)) then
c gapcon_tuftRS = 10.d-3
gapcon_tuftRS = 2.d-3
gapcon_suppyrRS = 10.d-3
else
c gapcon_tuftRS = 10.d-3
gapcon_tuftRS = 2.d-3
gapcon_suppyrRS = 2.d-3
c gapcon_suppyrRS = 10.d-3
endif
c Define shift of tuftIB axonal gNa rate functions, & other axon shifts
rel_axonshift_tuftIB = 5.0d0 + 0.0d0 * time/timtot
rel_axonshift_suppyrRS = 5.d0
noisepe_tuftIB = noisepe_tuftIB_save
noisepe_tuftRS = noisepe_tuftRS_save
initialize = 1 ! so integration subroutines actually integrate
c IF (THISNO.EQ.0) THEN
IF (nodecell(thisno) .eq. 'suppyrRS ') THEN
c suppyrRS
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1 + (i-1) * ncellspernode
lastcell = firstcell - 1 + ncellspernode
IF (MOD(O,how_often).eq.0) then
c 1st set suppyrRS synaptic conductances to 0:
do i = 1, numcomp_suppyrRS
! do j = 1, num_suppyrRS
do j = firstcell, lastcell ! Note
gAMPA_suppyrRS(i,j) = 0.d0
gNMDA_suppyrRS(i,j) = 0.d0
gGABA_A_suppyrRS(i,j) = 0.d0
gGABA_B_suppyrRS(i,j) = 0.d0
end do
end do
! do L = 1, num_suppyrRS
do L = firstcell, lastcell ! Note
c Handle suppyrRS -> suppyrRS
do i = 1, num_suppyrRS_to_suppyrRS
j = map_suppyrRS_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_suppyrRS_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_suppyrRS_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_suppyrRS_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> suppyrRS
do i = 1, num_supbask_to_suppyrRS
j = map_supbask_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_supbask_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_supbask_to_suppyrRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supng -> suppyrRS
do i = 1, num_supng_to_suppyrRS
j = map_supng_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_supng_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part ! NOTE DIFFERENT GABA-B HERE, NOW
dexparg = delta / tauGABA_supng_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_supng_to_suppyrRS * z
! end GABA-A part
dexparg = delta / tauGABAB_supng_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABAB_supng_to_suppyrRS * z
! end GABA-A part
c k0 must be properly defined
c gGABA_B_suppyrRS(k,L) = gGABA_B_suppyrRS(k,L) +
c & gGABAB_supng_to_suppyrRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle supaxax -> suppyrRS
do i = 1, num_supaxax_to_suppyrRS
j = map_supaxax_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_supaxax_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supaxax(j) ! enumerate presyn. spikes
presyntime = outtime_supaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supaxax_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_supaxax_to_suppyrRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> suppyrRS
do i = 1, num_supLTS_to_suppyrRS
j = map_supLTS_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_supLTS_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_supLTS_to_suppyrRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> suppyrRS
do i = 1, num_spinstell_to_suppyrRS
j = map_spinstell_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_spinstell_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_spinstell_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_spinstell_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_spinstell_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> suppyrRS
do i = 1, num_tuftIB_to_suppyrRS
j = map_tuftIB_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_tuftIB_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_tuftIB_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_tuftIB_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_tuftIB_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> suppyrRS
do i = 1, num_tuftRS_to_suppyrRS
j = map_tuftRS_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_tuftRS_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_tuftRS_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_tuftRS_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_tuftRS_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepaxax -> suppyrRS
do i = 1, num_deepaxax_to_suppyrRS
j = map_deepaxax_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_deepaxax_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepaxax(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepaxax_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_deepaxax_to_suppyrRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> suppyrRS
do i = 1, num_supVIP_to_suppyrRS
j = map_supVIP_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_supVIP_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! 0.1 ms units, for otis
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_suppyrRS(k,L) = gGABA_A_suppyrRS(k,L) +
& gGABA_supVIP_to_suppyrRS * z
! end GABA-A part
c k0 must be properly defined
gGABA_B_suppyrRS(k,L) = gGABA_B_suppyrRS(k,L) +
& gGABAB_supVIP_to_suppyrRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle TCR -> suppyrRS
do i = 1, num_TCR_to_suppyrRS
j = map_TCR_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_TCR_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_TCR_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_TCR_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_TCR_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> suppyrRS
do i = 1, num_nontuftRS_to_suppyrRS
j = map_nontuftRS_to_suppyrRS(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_suppyrRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_suppyrRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_suppyrRS(k,L) = gAMPA_suppyrRS(k,L) +
& gAMPA_nontuftRS_to_suppyrRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_nontuftRS_to_suppyrRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_suppyrRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_suppyrRS(k,L) = gNMDA_suppyrRS(k,L) +
& gNMDA_nontuftRS_to_suppyrRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_suppyrRS
if (gNMDA_suppyrRS(k,L).gt.z)
& gNMDA_suppyrRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of suppyrRS
ENDIF ! if (mod(O,how_often).eq.0)...
! Define phasic currents to suppyrRS cells, ectopic spikes,
! tonic synaptic conductances
if (mod(O,200).eq.0) then
call durand(seed,num_suppyrRS,ranvec_suppyrRS)
! do L = 1, num_suppyrRS
do L = firstcell, lastcell ! Note
if ((ranvec_suppyrRS(L).gt.0.d0).and.
& (ranvec_suppyrRS(L).le.noisepe_suppyrRS)) then
c curr_suppyrRS(72,L) = 0.4d0
curr_suppyrRS(72,L) = 0.8d0
else
curr_suppyrRS(72,L) = 0.d0
endif
end do
endif
! perhaps have time-dependent block of inhibition
if ((time.ge.600.d0).and.(time.le.1100.d0)) then
do i = 1, numcomp_suppyrRS
do L = 1, num_suppyrRS
gGABA_A_suppyrRS (i,L) = 0.d0
gGABA_B_suppyrRS (i,L) = 0.d0
end do
end do
endif
! Call integration routine for suppyrRS cells
CALL INTEGRATE_suppyrRSXPB (O, time, num_suppyrRS,
& V_suppyrRS, curr_suppyrRS,
& initialize, firstcell, lastcell,
& gAMPA_suppyrRS, gNMDA_suppyrRS, gGABA_A_suppyrRS,
& gGABA_B_suppyrRS, Mg,
& gapcon_suppyrRS ,totaxgj_suppyrRS ,gjtable_suppyrRS, dt,
& chi_suppyrRS,mnaf_suppyrRS,mnap_suppyrRS,
& hnaf_suppyrRS,mkdr_suppyrRS,mka_suppyrRS,
& hka_suppyrRS,mk2_suppyrRS,hk2_suppyrRS,
& mkm_suppyrRS,mkc_suppyrRS,mkahp_suppyrRS,
& mcat_suppyrRS,hcat_suppyrRS,mcal_suppyrRS,
& mar_suppyrRS,field_1mm ,field_2mm, rel_axonshift_suppyrRS)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
! also field data
c do L = 1, num_suppyrRS
do L = firstcell, lastcell
distal_axon_suppyrRS (L-firstcell+1) = V_suppyrRS (72,L)
end do
call mpi_allgather (distal_axon_suppyrRS,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = field_1mm
field_2mm_local(1) = field_2mm
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ....
! END thisno for suppyrRS
c ELSE IF (nodecell(thisno) .eq. 'supbask ') THEN
ELSE IF (nodecell(thisno) .eq. 'supintern ') THEN
c supbask
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_supbask
IF (mod(O,how_often).eq.0) then
c 1st set supbask synaptic conductances to 0:
do i = 1, numcomp_supbask
do j = firstcell, lastcell
gAMPA_supbask(i,j) = 0.d0
gNMDA_supbask(i,j) = 0.d0
gGABA_A_supbask(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> supbask
do i = 1, num_suppyrRS_to_supbask
j = map_suppyrRS_to_supbask(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_suppyrRS_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_suppyrRS_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_suppyrRS_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> supbask
do i = 1, num_supbask_to_supbask
j = map_supbask_to_supbask(i,L) ! j = presynaptic cell
k = com_supbask_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supbask(k,L) = gGABA_A_supbask(k,L) +
& gGABA_supbask_to_supbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle supng -> supbask
do i = 1, num_supng_to_supbask
j = map_supng_to_supbask (i,L) ! j = presynaptic cell
k = com_supng_to_supbask (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supng_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supbask (k,L) = gGABA_A_supbask (k,L) +
& gGABA_supng_to_supbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> supbask
do i = 1, num_supLTS_to_supbask
j = map_supLTS_to_supbask(i,L) ! j = presynaptic cell
k = com_supLTS_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supbask(k,L) = gGABA_A_supbask(k,L) +
& gGABA_supLTS_to_supbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> supbask
do i = 1, num_spinstell_to_supbask
j = map_spinstell_to_supbask(i,L) ! j = presynaptic cell
k = com_spinstell_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_spinstell_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_spinstell_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_spinstell_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> supbask
do i = 1, num_tuftIB_to_supbask
j = map_tuftIB_to_supbask(i,L) ! j = presynaptic cell
k = com_tuftIB_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_tuftIB_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_tuftIB_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_tuftIB_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> supbask
do i = 1, num_tuftRS_to_supbask
j = map_tuftRS_to_supbask(i,L) ! j = presynaptic cell
k = com_tuftRS_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_tuftRS_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_tuftRS_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_tuftRS_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supVIP -> supbask
do i = 1, num_supVIP_to_supbask
j = map_supVIP_to_supbask(i,L) ! j = presynaptic cell
k = com_supVIP_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supbask(k,L) = gGABA_A_supbask(k,L) +
& gGABA_supVIP_to_supbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepTCR -> supbask
do i = 1, num_TCR_to_supbask
j = map_TCR_to_supbask(i,L) ! j = presynaptic cell
k = com_TCR_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_TCR_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_TCR_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_TCR_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> supbask
do i = 1, num_nontuftRS_to_supbask
j = map_nontuftRS_to_supbask(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_supbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_supbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supbask(k,L) = gAMPA_supbask(k,L) +
& gAMPA_nontuftRS_to_supbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_nontuftRS_to_supbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_supbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supbask(k,L) = gNMDA_supbask(k,L) +
& gNMDA_nontuftRS_to_supbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_supbask
if (gNMDA_supbask(k,L).gt.z)
& gNMDA_supbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of supbask
ENDIF ! if (mod(O,how_often).eq.0) ....
! Define currents to supbask cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for supbask cells
CALL INTEGRATE_supbaskx (O, time, num_supbask ,
& V_supbask , curr_supbask ,
$ initialize, firstcell, lastcell,
& gAMPA_supbask , gNMDA_supbask , gGABA_A_supbask ,
& Mg,
& gapcon_supbask ,totSDgj_supbask ,gjtable_supbask , dt,
& chi_supbask,mnaf_supbask,mnap_supbask,
& hnaf_supbask,mkdr_supbask,mka_supbask,
& hka_supbask,mk2_supbask,hk2_supbask,
& mkm_supbask,mkc_supbask,mkahp_supbask,
& mcat_supbask,hcat_supbask,mcal_supbask,
& mar_supbask)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_supbask
do L = firstcell, lastcell
c distal_axon_supbask (L-firstcell+1) = V_supbask (59,L)
distal_axon_supintern (L-firstcell+1) = V_supbask (59,L)
end do
c call mpi_allgather (distal_axon_supbask,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ....
! END thisno for supbask
c ELSE IF (nodecell(thisno) .eq. 'supng ') THEN
c supng
c Determine which particular cells this node will be concerned with.
c i = place (thisno)
firstcell = 1
lastcell = num_supng
IF (mod(O,how_often).eq.0) then
c 1st set supng synaptic conductances to 0:
do i = 1, numcomp_supbask
do j = firstcell, lastcell
gAMPA_supng (i,j) = 0.d0
gNMDA_supng (i,j) = 0.d0
gGABA_A_supng (i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> supng
do i = 1, num_suppyrRS_to_supng
j = map_suppyrRS_to_supng (i,L) ! j = presynaptic cell
k = com_suppyrRS_to_supng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_supng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supng (k,L) = gAMPA_supng (k,L) +
& gAMPA_suppyrRS_to_supng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supng (k,L) = gNMDA_supng (k,L) +
& gNMDA_suppyrRS_to_supng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_supng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supng (k,L) = gNMDA_supng (k,L) +
& gNMDA_suppyrRS_to_supng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_supng
if (gNMDA_supng (k,L).gt.z)
& gNMDA_supng (k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> supng
do i = 1, num_supbask_to_supng
j = map_supbask_to_supng (i,L) ! j = presynaptic cell
k = com_supbask_to_supng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_supng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supng (k,L) = gGABA_A_supng (k,L) +
& gGABA_supbask_to_supng * z
! end GABA-A part
end do ! m
end do ! i
c Handle supng -> supng
do i = 1, num_supng_to_supng
j = map_supng_to_supng (i,L) ! j = presynaptic cell
k = com_supng_to_supng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supng_to_supng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supng (k,L) = gGABA_A_supng (k,L) +
& gGABA_supng_to_supng * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> supng
do i = 1, num_supVIP_to_supng
j = map_supVIP_to_supng (i,L) ! j = presynaptic cell
k = com_supVIP_to_supng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supVIP_to_supng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supng (k,L) = gGABA_A_supng (k,L) +
& gGABA_supVIP_to_supng * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepTCR -> supng
do i = 1, num_TCR_to_supng
j = map_TCR_to_supng (i,L) ! j = presynaptic cell
k = com_TCR_to_supng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_supng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supng (k,L) = gAMPA_supng (k,L) +
& gAMPA_TCR_to_supng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supng (k,L) = gNMDA_supng (k,L) +
& gNMDA_TCR_to_supng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_supng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supng (k,L) = gNMDA_supng (k,L) +
& gNMDA_TCR_to_supng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_supng
if (gNMDA_supng (k,L).gt.z)
& gNMDA_supng (k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
end do
c End enumeration of supng
ENDIF ! if (mod(O,how_often).eq.0) ....
! Define currents to supng cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for supng cells
CALL INTEGRATE_supng (O, time, num_supng ,
& V_supng , curr_supng ,
$ initialize, firstcell, lastcell,
& gAMPA_supng , gNMDA_supng , gGABA_A_supng ,
& Mg,
& gapcon_supng ,totSDgj_supng ,gjtable_supng , dt,
& chi_supng ,mnaf_supng ,mnap_supng ,
& hnaf_supng ,mkdr_supng ,mka_supng ,
& hka_supng ,mk2_supng ,hk2_supng ,
& mkm_supng ,mkc_supng ,mkahp_supng ,
& mcat_supng ,hcat_supng ,mcal_supng ,
& mar_supng )
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_supbask
do L = firstcell, lastcell
distal_axon_supintern (L + 400) = V_supng (59,L)
end do
c call mpi_allgather (distal_axon_supng ,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ....
! END thisno for supng
c ELSE IF (THISNO.EQ.3) THEN
c ELSE IF (nodecell(thisno) .eq. 'supaxax ') THEN
c supaxax
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_supaxax
IF (mod(O,how_often).eq.0) then
c 1st set supaxax synaptic conductances to 0:
do i = 1, numcomp_supaxax
do j = firstcell, lastcell
gAMPA_supaxax(i,j) = 0.d0
gNMDA_supaxax(i,j) = 0.d0
gGABA_A_supaxax(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> supaxax
do i = 1, num_suppyrRS_to_supaxax
j = map_suppyrRS_to_supaxax(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_suppyrRS_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_suppyrRS_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_suppyrRS_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> supaxax
do i = 1, num_supbask_to_supaxax
j = map_supbask_to_supaxax(i,L) ! j = presynaptic cell
k = com_supbask_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supaxax(k,L) = gGABA_A_supaxax(k,L) +
& gGABA_supbask_to_supaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> supaxax
do i = 1, num_supLTS_to_supaxax
j = map_supLTS_to_supaxax(i,L) ! j = presynaptic cell
k = com_supLTS_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supaxax(k,L) = gGABA_A_supaxax(k,L) +
& gGABA_supLTS_to_supaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> supaxax
do i = 1, num_spinstell_to_supaxax
j = map_spinstell_to_supaxax(i,L) ! j = presynaptic cell
k = com_spinstell_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_spinstell_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_spinstell_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_spinstell_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> supaxax
do i = 1, num_tuftIB_to_supaxax
j = map_tuftIB_to_supaxax(i,L) ! j = presynaptic cell
k = com_tuftIB_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_tuftIB_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_tuftIB_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_tuftIB_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> supaxax
do i = 1, num_tuftRS_to_supaxax
j = map_tuftRS_to_supaxax(i,L) ! j = presynaptic cell
k = com_tuftRS_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_tuftRS_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_tuftRS_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_tuftRS_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supVIP -> supaxax
do i = 1, num_supVIP_to_supaxax
j = map_supVIP_to_supaxax(i,L) ! j = presynaptic cell
k = com_supVIP_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supaxax(k,L) = gGABA_A_supaxax(k,L) +
& gGABA_supVIP_to_supaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle TCR -> supaxax
do i = 1, num_TCR_to_supaxax
j = map_TCR_to_supaxax(i,L) ! j = presynaptic cell
k = com_TCR_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_TCR_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_TCR_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_TCR_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> supaxax
do i = 1, num_nontuftRS_to_supaxax
j = map_nontuftRS_to_supaxax(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_supaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_supaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supaxax(k,L) = gAMPA_supaxax(k,L) +
& gAMPA_nontuftRS_to_supaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_nontuftRS_to_supaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_supaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supaxax(k,L) = gNMDA_supaxax(k,L) +
& gNMDA_nontuftRS_to_supaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_supaxax
if (gNMDA_supaxax(k,L).gt.z)
& gNMDA_supaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of supaxax
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to supaxax cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for supaxax cells
CALL INTEGRATE_supaxaxx (O, time, num_supaxax ,
& V_supaxax , curr_supaxax ,
& initialize, firstcell, lastcell,
& gAMPA_supaxax , gNMDA_supaxax , gGABA_A_supaxax ,
& Mg,
& gapcon_supaxax ,totSDgj_supaxax ,gjtable_supaxax , dt,
& chi_supaxax,mnaf_supaxax,mnap_supaxax,
& hnaf_supaxax,mkdr_supaxax,mka_supaxax,
& hka_supaxax,mk2_supaxax,hk2_supaxax,
& mkm_supaxax,mkc_supaxax,mkahp_supaxax,
& mcat_supaxax,hcat_supaxax,mcal_supaxax,
& mar_supaxax)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_supaxax
do L = firstcell, lastcell
distal_axon_supintern (L + 100 ) = V_supaxax (59,L)
end do
c call mpi_allgather (distal_axon_supaxax,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for supaxax
c ELSE IF (THISNO.EQ.4) THEN
c ELSE IF (nodecell(thisno) .eq. 'supLTS ') THEN
c supLTS
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_supLTS
IF (mod(O,how_often).eq.0) then
c 1st set supLTS synaptic conductances to 0:
do i = 1, numcomp_supLTS
do j = firstcell, lastcell
gAMPA_supLTS(i,j) = 0.d0
gNMDA_supLTS(i,j) = 0.d0
gGABA_A_supLTS(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> supLTS
do i = 1, num_suppyrRS_to_supLTS
j = map_suppyrRS_to_supLTS(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supLTS(k,L) = gAMPA_supLTS(k,L) +
& gAMPA_suppyrRS_to_supLTS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_suppyrRS_to_supLTS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_supLTS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_suppyrRS_to_supLTS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_supLTS
if (gNMDA_supLTS(k,L).gt.z)
& gNMDA_supLTS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> supLTS
do i = 1, num_supbask_to_supLTS
j = map_supbask_to_supLTS(i,L) ! j = presynaptic cell
k = com_supbask_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supLTS(k,L) = gGABA_A_supLTS(k,L) +
& gGABA_supbask_to_supLTS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> supLTS
do i = 1, num_supLTS_to_supLTS
j = map_supLTS_to_supLTS(i,L) ! j = presynaptic cell
k = com_supLTS_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supLTS(k,L) = gGABA_A_supLTS(k,L) +
& gGABA_supLTS_to_supLTS * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> supLTS
do i = 1, num_spinstell_to_supLTS
j = map_spinstell_to_supLTS(i,L) ! j = presynaptic cell
k = com_spinstell_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supLTS(k,L) = gAMPA_supLTS(k,L) +
& gAMPA_spinstell_to_supLTS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_spinstell_to_supLTS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_supLTS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_spinstell_to_supLTS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_supLTS
if (gNMDA_supLTS(k,L).gt.z)
& gNMDA_supLTS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> supLTS
do i = 1, num_tuftIB_to_supLTS
j = map_tuftIB_to_supLTS(i,L) ! j = presynaptic cell
k = com_tuftIB_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supLTS(k,L) = gAMPA_supLTS(k,L) +
& gAMPA_tuftIB_to_supLTS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_tuftIB_to_supLTS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_supLTS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_tuftIB_to_supLTS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_supLTS
if (gNMDA_supLTS(k,L).gt.z)
& gNMDA_supLTS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> supLTS
do i = 1, num_tuftRS_to_supLTS
j = map_tuftRS_to_supLTS(i,L) ! j = presynaptic cell
k = com_tuftRS_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supLTS(k,L) = gAMPA_supLTS(k,L) +
& gAMPA_tuftRS_to_supLTS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_tuftRS_to_supLTS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_supLTS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_tuftRS_to_supLTS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_supLTS
if (gNMDA_supLTS(k,L).gt.z)
& gNMDA_supLTS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supVIP -> supLTS
do i = 1, num_supVIP_to_supLTS
j = map_supVIP_to_supLTS(i,L) ! j = presynaptic cell
k = com_supVIP_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supLTS(k,L) = gGABA_A_supLTS(k,L) +
& gGABA_supVIP_to_supLTS * z
! end GABA-A part
end do ! m
end do ! i
c Handle nontuftRS -> supLTS
do i = 1, num_nontuftRS_to_supLTS
j = map_nontuftRS_to_supLTS(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_supLTS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_supLTS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supLTS(k,L) = gAMPA_supLTS(k,L) +
& gAMPA_nontuftRS_to_supLTS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_nontuftRS_to_supLTS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_supLTS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supLTS(k,L) = gNMDA_supLTS(k,L) +
& gNMDA_nontuftRS_to_supLTS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_supLTS
if (gNMDA_supLTS(k,L).gt.z)
& gNMDA_supLTS(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of supLTS
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to supLTS cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for supLTS cells
CALL INTEGRATE_supLTSx (O, time, num_supLTS ,
& V_supLTS , curr_supLTS ,
& initialize, firstcell, lastcell,
& gAMPA_supLTS , gNMDA_supLTS , gGABA_A_supLTS ,
& Mg,
& gapcon_supLTS ,totSDgj_supLTS ,gjtable_supLTS , dt,
& chi_supLTS,mnaf_supLTS,mnap_supLTS,
& hnaf_supLTS,mkdr_supLTS,mka_supLTS,
& hka_supLTS,mk2_supLTS,hk2_supLTS,
& mkm_supLTS,mkc_supLTS,mkahp_supLTS,
& mcat_supLTS,hcat_supLTS,mcal_supLTS,
& mar_supLTS)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
do L = 1, num_supLTS
distal_axon_supintern (L + 200 ) = V_supLTS (59,L)
end do
c call mpi_allgather (distal_axon_supLTS,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for supLTS
c ELSE IF (nodecell(thisno) .eq. 'supVIP ') THEN
c supVIP
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_supVIP
IF (mod(O,how_often).eq.0) then
c 1st set supVIP synaptic conductances to 0:
do i = 1, numcomp_supVIP
do j = firstcell, lastcell
gAMPA_supVIP(i,j) = 0.d0
gNMDA_supVIP(i,j) = 0.d0
gGABA_A_supVIP(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> supVIP
do i = 1, num_suppyrRS_to_supVIP
j = map_suppyrRS_to_supVIP(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supVIP(k,L) = gAMPA_supVIP(k,L) +
& gAMPA_suppyrRS_to_supVIP * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_suppyrRS_to_supVIP * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_supVIP
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_suppyrRS_to_supVIP * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_supVIP
if (gNMDA_supVIP(k,L).gt.z)
& gNMDA_supVIP(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supLTS -> supVIP
do i = 1, num_supLTS_to_supVIP
j = map_supLTS_to_supVIP(i,L) ! j = presynaptic cell
k = com_supLTS_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supVIP(k,L) = gGABA_A_supVIP(k,L) +
& gGABA_supLTS_to_supVIP * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> supVIP
do i = 1, num_spinstell_to_supVIP
j = map_spinstell_to_supVIP(i,L) ! j = presynaptic cell
k = com_spinstell_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supVIP(k,L) = gAMPA_supVIP(k,L) +
& gAMPA_spinstell_to_supVIP * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_spinstell_to_supVIP * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_supVIP
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_spinstell_to_supVIP * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_supVIP
if (gNMDA_supVIP(k,L).gt.z)
& gNMDA_supVIP(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> supVIP
do i = 1, num_tuftIB_to_supVIP
j = map_tuftIB_to_supVIP(i,L) ! j = presynaptic cell
k = com_tuftIB_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supVIP(k,L) = gAMPA_supVIP(k,L) +
& gAMPA_tuftIB_to_supVIP * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_tuftIB_to_supVIP * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_supVIP
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_tuftIB_to_supVIP * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_supVIP
if (gNMDA_supVIP(k,L).gt.z)
& gNMDA_supVIP(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> supVIP
do i = 1, num_tuftRS_to_supVIP
j = map_tuftRS_to_supVIP(i,L) ! j = presynaptic cell
k = com_tuftRS_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supVIP(k,L) = gAMPA_supVIP(k,L) +
& gAMPA_tuftRS_to_supVIP * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_tuftRS_to_supVIP * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_supVIP
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_tuftRS_to_supVIP * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_supVIP
if (gNMDA_supVIP(k,L).gt.z)
& gNMDA_supVIP(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> supVIP
do i = 1, num_deepbask_to_supVIP
j = map_deepbask_to_supVIP(i,L) ! j = presynaptic cell
k = com_deepbask_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supVIP(k,L) = gGABA_A_supVIP(k,L) +
& gGABA_deepbask_to_supVIP * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> supVIP
do i = 1, num_supVIP_to_supVIP
j = map_supVIP_to_supVIP(i,L) ! j = presynaptic cell
k = com_supVIP_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_supVIP(k,L) = gGABA_A_supVIP(k,L) +
& gGABA_supVIP_to_supVIP * z
! end GABA-A part
end do ! m
end do ! i
c Handle nontuftRS -> supVIP
do i = 1, num_nontuftRS_to_supVIP
j = map_nontuftRS_to_supVIP(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_supVIP(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_supVIP
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_supVIP(k,L) = gAMPA_supVIP(k,L) +
& gAMPA_nontuftRS_to_supVIP * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_nontuftRS_to_supVIP * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_supVIP
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_supVIP(k,L) = gNMDA_supVIP(k,L) +
& gNMDA_nontuftRS_to_supVIP * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_supVIP
if (gNMDA_supVIP(k,L).gt.z)
& gNMDA_supVIP(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of supVIP
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to supVIP cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for supVIP cells
CALL INTEGRATE_supVIP (O, time, num_supVIP ,
& V_supVIP , curr_supVIP ,
& initialize, firstcell, lastcell,
& gAMPA_supVIP , gNMDA_supVIP , gGABA_A_supVIP ,
& Mg,
& gapcon_supVIP ,totSDgj_supVIP ,gjtable_supVIP , dt,
& chi_supVIP,mnaf_supVIP,mnap_supVIP,
& hnaf_supVIP,mkdr_supVIP,mka_supVIP,
& hka_supVIP,mk2_supVIP,hk2_supVIP,
& mkm_supVIP,mkc_supVIP,mkahp_supVIP,
& mcat_supVIP,hcat_supVIP,mcal_supVIP,
& mar_supVIP)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
do L = 1, num_supVIP
distal_axon_supintern (L + 300 ) = V_supVIP (59,L)
end do
call mpi_allgather (distal_axon_supintern,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for supVIP
c ELSE IF (THISNO.EQ.5) THEN
ELSE IF (nodecell(thisno) .eq. 'spinstell') THEN
c spinstell
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_spinstell
IF (mod(O,how_often).eq.0) then
c 1st set spinstell synaptic conductances to 0:
do i = 1, numcomp_spinstell
do j = firstcell, lastcell
gAMPA_spinstell(i,j) = 0.d0
gNMDA_spinstell(i,j) = 0.d0
gGABA_A_spinstell(i,j) = 0.d0
gGABA_B_spinstell(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> spinstell
do i = 1, num_suppyrRS_to_spinstell
j = map_suppyrRS_to_spinstell(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_suppyrRS_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_suppyrRS_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_suppyrRS_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supbask -> spinstell
do i = 1, num_supbask_to_spinstell
j = map_supbask_to_spinstell(i,L) ! j = presynaptic cell
k = com_supbask_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supbask(j) ! enumerate presyn. spikes
presyntime = outtime_supbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supbask_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_supbask_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle supaxax -> spinstell
do i = 1, num_supaxax_to_spinstell
j = map_supaxax_to_spinstell(i,L) ! j = presynaptic cell
k = com_supaxax_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supaxax(j) ! enumerate presyn. spikes
presyntime = outtime_supaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supaxax_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_supaxax_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> spinstell
do i = 1, num_supLTS_to_spinstell
j = map_supLTS_to_spinstell(i,L) ! j = presynaptic cell
k = com_supLTS_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_supLTS_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> spinstell
do i = 1, num_spinstell_to_spinstell
j = map_spinstell_to_spinstell(i,L) ! j = presynaptic cell
k = com_spinstell_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_spinstell_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_spinstell_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_spinstell_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> spinstell
do i = 1, num_tuftIB_to_spinstell
j = map_tuftIB_to_spinstell(i,L) ! j = presynaptic cell
k = com_tuftIB_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_tuftIB_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_tuftIB_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_tuftIB_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> spinstell
do i = 1, num_tuftRS_to_spinstell
j = map_tuftRS_to_spinstell(i,L) ! j = presynaptic cell
k = com_tuftRS_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_tuftRS_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_tuftRS_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_tuftRS_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> spinstell
do i = 1, num_deepbask_to_spinstell
j = map_deepbask_to_spinstell(i,L) ! j = presynaptic cell
k = com_deepbask_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_deepbask_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> spinstell
do i = 1, num_deepng_to_spinstell
j = map_deepng_to_spinstell(i,L) ! j = presynaptic cell
k = com_deepng_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_deepng_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_deepng_to_spinstell * z
! end GABA-A part
dexparg = delta / tauGABAB_deepng_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_spinstell(k,L) = gGABA_B_spinstell(k,L) +
& gGABAB_deepng_to_spinstell * z
! end GABA-A part
c gGABA_B_spinstell(k,L) = gGABA_B_spinstell(k,L) +
c & gGABAB_deepng_to_spinstell * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle deepaxax -> spinstell
do i = 1, num_deepaxax_to_spinstell
j = map_deepaxax_to_spinstell(i,L) ! j = presynaptic cell
k = com_deepaxax_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepaxax(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepaxax_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_deepaxax_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> spinstell
do i = 1, num_supVIP_to_spinstell
j = map_supVIP_to_spinstell(i,L) ! j = presynaptic cell
k = com_supVIP_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_spinstell(k,L) = gGABA_A_spinstell(k,L) +
& gGABA_supVIP_to_spinstell * z
! end GABA-A part
end do ! m
end do ! i
c Handle TCR -> spinstell
do i = 1, num_TCR_to_spinstell
j = map_TCR_to_spinstell(i,L) ! j = presynaptic cell
k = com_TCR_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_TCR_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_TCR_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_TCR_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> spinstell
do i = 1, num_nontuftRS_to_spinstell
j = map_nontuftRS_to_spinstell(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_spinstell(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_spinstell
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_spinstell(k,L) = gAMPA_spinstell(k,L) +
& gAMPA_nontuftRS_to_spinstell * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_nontuftRS_to_spinstell * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_spinstell
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_spinstell(k,L) = gNMDA_spinstell(k,L) +
& gNMDA_nontuftRS_to_spinstell * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_spinstell
if (gNMDA_spinstell(k,L).gt.z)
& gNMDA_spinstell(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of spinstell
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to spinstell cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for spinstell cells
CALL INTEGRATE_spinstelldiegoxB (O, time, num_spinstell,
& V_spinstell, curr_spinstell,
& initialize, firstcell, lastcell,
& gAMPA_spinstell, gNMDA_spinstell, gGABA_A_spinstell,
& gGABA_B_spinstell, Mg,
& gapcon_spinstell,totaxgj_spinstell,gjtable_spinstell, dt,
& chi_spinstell,mnaf_spinstell,mnap_spinstell,
& hnaf_spinstell,mkdr_spinstell,mka_spinstell,
& hka_spinstell,mk2_spinstell,hk2_spinstell,
& mkm_spinstell,mkc_spinstell,mkahp_spinstell,
& mcat_spinstell,hcat_spinstell,mcal_spinstell,
& mar_spinstell)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_spinstell
do L = firstcell, lastcell
distal_axon_spinstell (L-firstcell+1) = V_spinstell (57,L)
end do
call mpi_allgather (distal_axon_spinstell,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for spinstell
c ELSE IF (THISNO.EQ.6) THEN
ELSE IF (nodecell(thisno) .eq. 'tuftIB ') THEN
c tuftIB
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_tuftIB
IF (mod(O,how_often).eq.0) then
c 1st set tuftIB synaptic conductances to 0:
do i = 1, numcomp_tuftIB
do j = firstcell, lastcell
gAMPA_tuftIB(i,j) = 0.d0
gNMDA_tuftIB(i,j) = 0.d0
gGABA_A_tuftIB(i,j) = 0.d0
gGABA_B_tuftIB(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> tuftIB
do i = 1, num_suppyrRS_to_tuftIB
j = map_suppyrRS_to_tuftIB(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_suppyrRS_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_suppyrRS_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_suppyrRS_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supng -> tuftIB
do i = 1, num_supng_to_tuftIB
j = map_supng_to_tuftIB(i,L) ! j = presynaptic cell
k = com_supng_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supng_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_supng_to_tuftIB * z
! end GABA-A part
dexparg = delta / tauGABAB_supng_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_tuftIB(k,L) = gGABA_B_tuftIB(k,L) +
& gGABAB_supng_to_tuftIB * z
! end GABA-A part
c gGABA_B_tuftIB(k,L) = gGABA_B_tuftIB(k,L) +
c & gGABAB_supng_to_tuftIB * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle supaxax -> tuftIB
do i = 1, num_supaxax_to_tuftIB
j = map_supaxax_to_tuftIB(i,L) ! j = presynaptic cell
k = com_supaxax_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supaxax(j) ! enumerate presyn. spikes
presyntime = outtime_supaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supaxax_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_supaxax_to_tuftIB * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> tuftIB
do i = 1, num_supLTS_to_tuftIB
j = map_supLTS_to_tuftIB(i,L) ! j = presynaptic cell
k = com_supLTS_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_supLTS_to_tuftIB * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> tuftIB
do i = 1, num_spinstell_to_tuftIB
j = map_spinstell_to_tuftIB(i,L) ! j = presynaptic cell
k = com_spinstell_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_spinstell_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_spinstell_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_spinstell_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> tuftIB
do i = 1, num_tuftIB_to_tuftIB
j = map_tuftIB_to_tuftIB(i,L) ! j = presynaptic cell
k = com_tuftIB_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_tuftIB_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_tuftIB_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_tuftIB_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> tuftIB
do i = 1, num_tuftRS_to_tuftIB
j = map_tuftRS_to_tuftIB(i,L) ! j = presynaptic cell
k = com_tuftRS_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_tuftRS_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_tuftRS_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_tuftRS_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> tuftIB
do i = 1, num_deepbask_to_tuftIB
j = map_deepbask_to_tuftIB(i,L) ! j = presynaptic cell
k = com_deepbask_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_deepbask_to_tuftIB * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> tuftIB
do i = 1, num_deepng_to_tuftIB
j = map_deepng_to_tuftIB(i,L) ! j = presynaptic cell
k = com_deepng_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_deepng_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_deepng_to_tuftIB * z
! end GABA-A part
dexparg = delta / tauGABAB_deepng_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_tuftIB(k,L) = gGABA_B_tuftIB(k,L) +
& gGABAB_deepng_to_tuftIB * z
c gGABA_B_tuftIB(k,L) = gGABA_B_tuftIB(k,L) +
c & gGABAB_deepng_to_tuftIB * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle deepaxax -> tuftIB
do i = 1, num_deepaxax_to_tuftIB
j = map_deepaxax_to_tuftIB(i,L) ! j = presynaptic cell
k = com_deepaxax_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepaxax(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepaxax_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_deepaxax_to_tuftIB * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> tuftIB
do i = 1, num_supVIP_to_tuftIB
j = map_supVIP_to_tuftIB(i,L) ! j = presynaptic cell
k = com_supVIP_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta)
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftIB(k,L) = gGABA_A_tuftIB(k,L) +
& gGABA_supVIP_to_tuftIB * z
! end GABA-A part
c k0 must be properly defined
gGABA_B_tuftIB (k,L) = gGABA_B_tuftIB (k,L) +
& gGABAB_supVIP_to_tuftIB * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle TCR -> tuftIB
do i = 1, num_TCR_to_tuftIB
j = map_TCR_to_tuftIB(i,L) ! j = presynaptic cell
k = com_TCR_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_TCR_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_TCR_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_TCR_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> tuftIB
do i = 1, num_nontuftRS_to_tuftIB
j = map_nontuftRS_to_tuftIB(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_tuftIB(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_tuftIB
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftIB(k,L) = gAMPA_tuftIB(k,L) +
& gAMPA_nontuftRS_to_tuftIB * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_nontuftRS_to_tuftIB * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_tuftIB
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftIB(k,L) = gNMDA_tuftIB(k,L) +
& gNMDA_nontuftRS_to_tuftIB * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_tuftIB
if (gNMDA_tuftIB(k,L).gt.z)
& gNMDA_tuftIB(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of tuftIB
ENDIF ! if (mod(O,how_often).eq.0) ....
! Define currents to tuftIB cells, ectopic spikes,
! tonic synaptic conductances
if (mod(O,200).eq.0) then
call durand(seed,num_tuftIB ,ranvec_tuftIB )
do L = firstcell, lastcell
if ((ranvec_tuftIB (L).gt.0.d0).and.
& (ranvec_tuftIB (L).le.noisepe_tuftIB )) then
curr_tuftIB (60,L) = 0.4d0
else
curr_tuftIB (60,L) = 0.d0
endif
end do
endif
! Call integration routine for tuftIB cells
c CALL INTEGRATE_tuftIB (O, time, num_tuftIB,
CALL INTEGRATE_tuftIBVx3C (O, time, num_tuftIB,
& V_tuftIB, curr_tuftIB,
& initialize, firstcell, lastcell,
& gAMPA_tuftIB, gNMDA_tuftIB, gGABA_A_tuftIB,
& gGABA_B_tuftIB, Mg,
& gapcon_tuftIB,totaxgj_tuftIB,gjtable_tuftIB, dt,
& chi_tuftIB,mnaf_tuftIB,mnap_tuftIB,
& hnaf_tuftIB,mkdr_tuftIB,mka_tuftIB,
& hka_tuftIB,mk2_tuftIB,hk2_tuftIB,
& mkm_tuftIB,mkc_tuftIB,mkahp_tuftIB,
& mcat_tuftIB,hcat_tuftIB,mcal_tuftIB,
& mar_tuftIB,field_1mm ,field_2mm ,
& scale_tuftIB_gKAHP, scale_tuftIB_gNaP,
& scale_tuftIB_gKM , scale_tuftIB_gKA,
& scale_tuftIB_gCaL, scale_tuftIB_gKC,
& rel_axonshift_tuftIB,gCal_tuftIB,Mshift,
& scale_tuftIB_gAR,
& tscale_ggabaB, tscale_gCaL, tscale_gKDR)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_tuftIB
do L = firstcell, lastcell
distal_axon_tuftIB (L-firstcell+1) = V_tuftIB (60,L)
end do
call mpi_allgather (distal_axon_tuftIB,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = field_1mm
field_2mm_local(1) = field_2mm
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for tuftIB
c ELSE IF (THISNO.EQ.7) THEN
ELSE IF (nodecell(thisno) .eq. 'tuftRS ') THEN
c tuftRS
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_tuftRS
IF (mod(O,how_often).eq.0) then
c 1st set tuftRS synaptic conductances to 0:
do i = 1, numcomp_tuftRS
do j = firstcell, lastcell
gAMPA_tuftRS(i,j) = 0.d0
gNMDA_tuftRS(i,j) = 0.d0
gGABA_A_tuftRS(i,j) = 0.d0
gGABA_B_tuftRS(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> tuftRS
do i = 1, num_suppyrRS_to_tuftRS
j = map_suppyrRS_to_tuftRS(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_suppyrRS_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_suppyrRS_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_suppyrRS_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supng -> tuftRS
do i = 1, num_supng_to_tuftRS
j = map_supng_to_tuftRS(i,L) ! j = presynaptic cell
k = com_supng_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supng_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_supng_to_tuftRS * z
! end GABA-A part
dexparg = delta / tauGABAB_supng_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_tuftRS(k,L) = gGABA_B_tuftRS(k,L) +
& gGABAB_supng_to_tuftRS * z
c gGABA_B_tuftRS(k,L) = gGABA_B_tuftRS(k,L) +
c & gGABAB_supng_to_tuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle supaxax -> tuftRS
do i = 1, num_supaxax_to_tuftRS
j = map_supaxax_to_tuftRS(i,L) ! j = presynaptic cell
k = com_supaxax_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supaxax(j) ! enumerate presyn. spikes
presyntime = outtime_supaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supaxax_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_supaxax_to_tuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> tuftRS
do i = 1, num_supLTS_to_tuftRS
j = map_supLTS_to_tuftRS(i,L) ! j = presynaptic cell
k = com_supLTS_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_supLTS_to_tuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> tuftRS
do i = 1, num_spinstell_to_tuftRS
j = map_spinstell_to_tuftRS(i,L) ! j = presynaptic cell
k = com_spinstell_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_spinstell_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_spinstell_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_spinstell_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> tuftRS
do i = 1, num_tuftIB_to_tuftRS
j = map_tuftIB_to_tuftRS(i,L) ! j = presynaptic cell
k = com_tuftIB_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_tuftIB_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_tuftIB_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_tuftIB_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> tuftRS
do i = 1, num_tuftRS_to_tuftRS
j = map_tuftRS_to_tuftRS(i,L) ! j = presynaptic cell
k = com_tuftRS_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_tuftRS_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_tuftRS_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_tuftRS_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> tuftRS
do i = 1, num_deepbask_to_tuftRS
j = map_deepbask_to_tuftRS(i,L) ! j = presynaptic cell
k = com_deepbask_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_deepbask_to_tuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> tuftRS
do i = 1, num_deepng_to_tuftRS
j = map_deepng_to_tuftRS(i,L) ! j = presynaptic cell
k = com_deepng_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_deepng_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_deepng_to_tuftRS * z
! end GABA-A part
dexparg = delta / tauGABAB_deepng_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_tuftRS(k,L) = gGABA_B_tuftRS(k,L) +
& gGABAB_deepng_to_tuftRS * z
c gGABA_B_tuftRS(k,L) = gGABA_B_tuftRS(k,L) +
c & gGABAB_deepng_to_tuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle deepaxax -> tuftRS
do i = 1, num_deepaxax_to_tuftRS
j = map_deepaxax_to_tuftRS(i,L) ! j = presynaptic cell
k = com_deepaxax_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepaxax(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepaxax_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_deepaxax_to_tuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> tuftRS
do i = 1, num_supVIP_to_tuftRS
j = map_supVIP_to_tuftRS(i,L) ! j = presynaptic cell
k = com_supVIP_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta)
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_tuftRS(k,L) = gGABA_A_tuftRS(k,L) +
& gGABA_supVIP_to_tuftRS * z
! end GABA-A part
c k0 must be properly defined
gGABA_B_tuftRS(k,L) = gGABA_B_tuftRS(k,L) +
& gGABAB_supVIP_to_tuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle TCR -> tuftRS
do i = 1, num_TCR_to_tuftRS
j = map_TCR_to_tuftRS(i,L) ! j = presynaptic cell
k = com_TCR_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_TCR_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_TCR_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_TCR_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> tuftRS
do i = 1, num_nontuftRS_to_tuftRS
j = map_nontuftRS_to_tuftRS(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_tuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_tuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_tuftRS(k,L) = gAMPA_tuftRS(k,L) +
& gAMPA_nontuftRS_to_tuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_nontuftRS_to_tuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_tuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_tuftRS(k,L) = gNMDA_tuftRS(k,L) +
& gNMDA_nontuftRS_to_tuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_tuftRS
if (gNMDA_tuftRS(k,L).gt.z)
& gNMDA_tuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of tuftRS
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to tuftRS cells, ectopic spikes,
! tonic synaptic conductances
if (mod(O,200).eq.0) then
call durand(seed,num_tuftRS ,ranvec_tuftRS )
do L = firstcell, lastcell
if ((ranvec_tuftRS (L).gt.0.d0).and.
& (ranvec_tuftRS (L).le.noisepe_tuftRS )) then
curr_tuftRS (60,L) = 0.4d0
else
curr_tuftRS (60,L) = 0.d0
endif
end do
endif
! Call integration routine for tuftRS cells
CALL INTEGRATE_tuftRSXXC (O, time, num_tuftRS,
& V_tuftRS, curr_tuftRS,
& initialize, firstcell, lastcell,
& gAMPA_tuftRS, gNMDA_tuftRS, gGABA_A_tuftRS,
& gGABA_B_tuftRS, Mg,
& gapcon_tuftRS,totaxgj_tuftRS,gjtable_tuftRS, dt,
& chi_tuftRS,mnaf_tuftRS,mnap_tuftRS,
& hnaf_tuftRS,mkdr_tuftRS,mka_tuftRS,
& hka_tuftRS,mk2_tuftRS,hk2_tuftRS,
& mkm_tuftRS,mkc_tuftRS,mkahp_tuftRS,
& mcat_tuftRS,hcat_tuftRS,mcal_tuftRS,
& mar_tuftRS,field_1mm ,field_2mm )
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_tuftRS
do L = firstcell, lastcell
distal_axon_tuftRS (L-firstcell+1) = V_tuftRS (60,L)
end do
call mpi_allgather (distal_axon_tuftRS,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = field_1mm
field_2mm_local(1) = field_2mm
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for tuftRS
c ELSE IF (THISNO.EQ.8) THEN
ELSE IF (nodecell(thisno) .eq. 'nontuftRS') THEN
c nontuftRS
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_nontuftRS
IF (mod(O,how_often).eq.0) then
c 1st set nontuftRS synaptic conductances to 0:
do i = 1, numcomp_nontuftRS
do j = firstcell, lastcell
gAMPA_nontuftRS(i,j) = 0.d0
gNMDA_nontuftRS(i,j) = 0.d0
gGABA_A_nontuftRS(i,j) = 0.d0
gGABA_B_nontuftRS(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> nontuftRS
do i = 1, num_suppyrRS_to_nontuftRS
j = map_suppyrRS_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_suppyrRS_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_suppyrRS_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_suppyrRS_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supng -> nontuftRS
do i = 1, num_supng_to_nontuftRS
j = map_supng_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_supng_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supng(j) ! enumerate presyn. spikes
presyntime = outtime_supng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_supng_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_supng_to_nontuftRS * z
! end GABA-A part
dexparg = delta / tauGABAB_supng_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_nontuftRS(k,L) = gGABA_B_nontuftRS(k,L) +
& gGABAB_supng_to_nontuftRS * z
c gGABA_B_nontuftRS(k,L) = gGABA_B_nontuftRS(k,L) +
c & gGABAB_supng_to_nontuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle supaxax -> nontuftRS
do i = 1, num_supaxax_to_nontuftRS
j = map_supaxax_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_supaxax_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supaxax(j) ! enumerate presyn. spikes
presyntime = outtime_supaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supaxax_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_supaxax_to_nontuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supLTS -> nontuftRS
do i = 1, num_supLTS_to_nontuftRS
j = map_supLTS_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_supLTS_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_supLTS_to_nontuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> nontuftRS
do i = 1, num_spinstell_to_nontuftRS
j = map_spinstell_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_spinstell_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_spinstell_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_spinstell_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_spinstell_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> nontuftRS
do i = 1, num_tuftIB_to_nontuftRS
j = map_tuftIB_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_tuftIB_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_tuftIB_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_tuftIB_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_tuftIB_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> nontuftRS
do i = 1, num_tuftRS_to_nontuftRS
j = map_tuftRS_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_tuftRS_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_tuftRS_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_tuftRS_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_tuftRS_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> nontuftRS
do i = 1, num_deepbask_to_nontuftRS
j = map_deepbask_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_deepbask_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_deepbask_to_nontuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> nontuftRS
do i = 1, num_deepng_to_nontuftRS
j = map_deepng_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_deepng_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part AND GABA-B part
dexparg = delta / tauGABA_deepng_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_deepng_to_nontuftRS * z
! end GABA-A part
dexparg = delta / tauGABAB_deepng_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_B_nontuftRS(k,L) = gGABA_B_nontuftRS(k,L) +
& gGABAB_deepng_to_nontuftRS * z
c gGABA_B_nontuftRS(k,L) = gGABA_B_nontuftRS(k,L) +
c & gGABAB_deepng_to_nontuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle deepaxax -> nontuftRS
do i = 1, num_deepaxax_to_nontuftRS
j = map_deepaxax_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_deepaxax_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepaxax(j) ! enumerate presyn. spikes
presyntime = outtime_deepaxax(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepaxax_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_deepaxax_to_nontuftRS * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> nontuftRS
do i = 1, num_supVIP_to_nontuftRS
j = map_supVIP_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_supVIP_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta)
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_nontuftRS(k,L) = gGABA_A_nontuftRS(k,L) +
& gGABA_supVIP_to_nontuftRS * z
! end GABA-A part
c k0 must be properly defined
gGABA_B_nontuftRS(k,L) = gGABA_B_nontuftRS(k,L) +
& gGABAB_supVIP_to_nontuftRS * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle TCR -> nontuftRS
do i = 1, num_TCR_to_nontuftRS
j = map_TCR_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_TCR_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_TCR_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_TCR_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_TCR_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> nontuftRS
do i = 1, num_nontuftRS_to_nontuftRS
j = map_nontuftRS_to_nontuftRS(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_nontuftRS(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_nontuftRS
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nontuftRS(k,L) = gAMPA_nontuftRS(k,L) +
& gAMPA_nontuftRS_to_nontuftRS * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_nontuftRS_to_nontuftRS * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_nontuftRS
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nontuftRS(k,L) = gNMDA_nontuftRS(k,L) +
& gNMDA_nontuftRS_to_nontuftRS * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_nontuftRS
if (gNMDA_nontuftRS(k,L).gt.z)
& gNMDA_nontuftRS(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of nontuftRS
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to nontuftRS cells, ectopic spikes,
! tonic synaptic conductances
if (mod(O,200).eq.0) then
call durand(seed,num_nontuftRS ,ranvec_nontuftRS )
do L = firstcell, lastcell
if ((ranvec_nontuftRS (L).gt.0.d0).and.
& (ranvec_nontuftRS (L).le.noisepe_nontuftRS )) then
curr_nontuftRS (48,L) = 0.4d0
else
curr_nontuftRS (48,L) = 0.d0
endif
end do
endif
! Call integration routine for nontuftRS cells
CALL INTEGRATE_nontuftRSXXB (O, time, num_nontuftRS,
& V_nontuftRS, curr_nontuftRS,
& initialize, firstcell, lastcell,
& gAMPA_nontuftRS, gNMDA_nontuftRS, gGABA_A_nontuftRS,
& gGABA_B_nontuftRS, Mg,
& gapcon_nontuftRS,totaxgj_nontuftRS,gjtable_nontuftRS, dt,
& chi_nontuftRS,mnaf_nontuftRS,mnap_nontuftRS,
& hnaf_nontuftRS,mkdr_nontuftRS,mka_nontuftRS,
& hka_nontuftRS,mk2_nontuftRS,hk2_nontuftRS,
& mkm_nontuftRS,mkc_nontuftRS,mkahp_nontuftRS,
& mcat_nontuftRS,hcat_nontuftRS,mcal_nontuftRS,
& mar_nontuftRS,field_1mm ,field_2mm )
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_nontuftRS
do L = firstcell, lastcell
distal_axon_nontuftRS (L-firstcell+1) = V_nontuftRS (48,L)
end do
call mpi_allgather (distal_axon_nontuftRS,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = field_1mm
field_2mm_local(1) = field_2mm
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for nontuftRS
c ELSE IF (THISNO.EQ.9) THEN
c ELSE IF (nodecell(thisno) .eq. 'deepbask ') THEN
ELSE IF (nodecell(thisno) .eq. 'deepintern') THEN
c deepbask
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_deepbask
IF (mod(O,how_often).eq.0) then
c 1st set deepbask synaptic conductances to 0:
do i = 1, numcomp_deepbask
do j = firstcell, lastcell
gAMPA_deepbask(i,j) = 0.d0
gNMDA_deepbask(i,j) = 0.d0
gGABA_A_deepbask(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> deepbask
do i = 1, num_suppyrRS_to_deepbask
j = map_suppyrRS_to_deepbask(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_suppyrRS_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_suppyrRS_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_suppyrRS_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supLTS -> deepbask
do i = 1, num_supLTS_to_deepbask
j = map_supLTS_to_deepbask(i,L) ! j = presynaptic cell
k = com_supLTS_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepbask(k,L) = gGABA_A_deepbask(k,L) +
& gGABA_supLTS_to_deepbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> deepbask
do i = 1, num_spinstell_to_deepbask
j = map_spinstell_to_deepbask(i,L) ! j = presynaptic cell
k = com_spinstell_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_spinstell_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_spinstell_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_spinstell_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> deepbask
do i = 1, num_tuftIB_to_deepbask
j = map_tuftIB_to_deepbask(i,L) ! j = presynaptic cell
k = com_tuftIB_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_tuftIB_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_tuftIB_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_tuftIB_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> deepbask
do i = 1, num_tuftRS_to_deepbask
j = map_tuftRS_to_deepbask(i,L) ! j = presynaptic cell
k = com_tuftRS_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_tuftRS_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_tuftRS_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_tuftRS_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> deepbask
do i = 1, num_deepbask_to_deepbask
j = map_deepbask_to_deepbask(i,L) ! j = presynaptic cell
k = com_deepbask_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepbask(k,L) = gGABA_A_deepbask(k,L) +
& gGABA_deepbask_to_deepbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> deepbask
do i = 1, num_deepng_to_deepbask
j = map_deepng_to_deepbask(i,L) ! j = presynaptic cell
k = com_deepng_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepng_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepbask(k,L) = gGABA_A_deepbask(k,L) +
& gGABA_deepng_to_deepbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> deepbask
do i = 1, num_supVIP_to_deepbask
j = map_supVIP_to_deepbask(i,L) ! j = presynaptic cell
k = com_supVIP_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepbask(k,L) = gGABA_A_deepbask(k,L) +
& gGABA_supVIP_to_deepbask * z
! end GABA-A part
end do ! m
end do ! i
c Handle TCR -> deepbask
do i = 1, num_TCR_to_deepbask
j = map_TCR_to_deepbask(i,L) ! j = presynaptic cell
k = com_TCR_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_TCR_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_TCR_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_TCR_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> deepbask
do i = 1, num_nontuftRS_to_deepbask
j = map_nontuftRS_to_deepbask(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_deepbask(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_deepbask
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepbask(k,L) = gAMPA_deepbask(k,L) +
& gAMPA_nontuftRS_to_deepbask * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_nontuftRS_to_deepbask * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_deepbask
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepbask(k,L) = gNMDA_deepbask(k,L) +
& gNMDA_nontuftRS_to_deepbask * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_deepbask
if (gNMDA_deepbask(k,L).gt.z)
& gNMDA_deepbask(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of deepbask
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to deepbask cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for deepbask cells
CALL INTEGRATE_deepbaskx (O, time, num_deepbask ,
& V_deepbask , curr_deepbask ,
& initialize, firstcell, lastcell,
& gAMPA_deepbask, gNMDA_deepbask, gGABA_A_deepbask,
& Mg,
& gapcon_deepbask ,totSDgj_deepbask ,gjtable_deepbask, dt,
& chi_deepbask,mnaf_deepbask,mnap_deepbask,
& hnaf_deepbask,mkdr_deepbask,mka_deepbask,
& hka_deepbask,mk2_deepbask,hk2_deepbask,
& mkm_deepbask,mkc_deepbask,mkahp_deepbask,
& mcat_deepbask,hcat_deepbask,mcal_deepbask,
& mar_deepbask)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
do L = 1, num_deepbask
c do L = firstcell, lastcell
distal_axon_deepintern (L ) = V_deepbask (59,L)
end do
c call mpi_allgather (distal_axon_deepbask,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for deepbask
c ELSE IF (nodecell(thisno) .eq. 'deepng ') THEN
c deepng
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_deepng
IF (mod(O,how_often).eq.0) then
c 1st set deepng synaptic conductances to 0:
do i = 1, numcomp_deepng
do j = firstcell, lastcell
gAMPA_deepng (i,j) = 0.d0
gNMDA_deepng (i,j) = 0.d0
gGABA_A_deepng (i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle spinstell -> deepng
do i = 1, num_spinstell_to_deepng
j = map_spinstell_to_deepng(i,L) ! j = presynaptic cell
k = com_spinstell_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepng(k,L) = gAMPA_deepng(k,L) +
& gAMPA_spinstell_to_deepng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_spinstell_to_deepng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_deepng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_spinstell_to_deepng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_deepng
if (gNMDA_deepng(k,L).gt.z)
& gNMDA_deepng(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> deepng
do i = 1, num_tuftIB_to_deepng
j = map_tuftIB_to_deepng(i,L) ! j = presynaptic cell
k = com_tuftIB_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepng(k,L) = gAMPA_deepng(k,L) +
& gAMPA_tuftIB_to_deepng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_tuftIB_to_deepng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_deepng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_tuftIB_to_deepng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_deepng
if (gNMDA_deepng(k,L).gt.z)
& gNMDA_deepng(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> deepng
do i = 1, num_tuftRS_to_deepng
j = map_tuftRS_to_deepng(i,L) ! j = presynaptic cell
k = com_tuftRS_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepng(k,L) = gAMPA_deepng(k,L) +
& gAMPA_tuftRS_to_deepng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_tuftRS_to_deepng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_deepng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_tuftRS_to_deepng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_deepng
if (gNMDA_deepng(k,L).gt.z)
& gNMDA_deepng(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> deepng
do i = 1, num_deepbask_to_deepng
j = map_deepbask_to_deepng (i,L) ! j = presynaptic cell
k = com_deepbask_to_deepng (i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepng (k,L) = gGABA_A_deepng (k,L) +
& gGABA_deepbask_to_deepng * z
! end GABA-A part
end do ! m
end do ! i
c Handle deepng -> deepng
do i = 1, num_deepng_to_deepng
j = map_deepng_to_deepng(i,L) ! j = presynaptic cell
k = com_deepng_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepng(j) ! enumerate presyn. spikes
presyntime = outtime_deepng(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepng_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepng(k,L) = gGABA_A_deepng(k,L) +
& gGABA_deepng_to_deepng * z
! end GABA-A part
end do ! m
end do ! i
c Handle TCR -> deepng
do i = 1, num_TCR_to_deepng
j = map_TCR_to_deepng(i,L) ! j = presynaptic cell
k = com_TCR_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepng(k,L) = gAMPA_deepng(k,L) +
& gAMPA_TCR_to_deepng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_TCR_to_deepng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_deepng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_TCR_to_deepng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_deepng
if (gNMDA_deepng(k,L).gt.z)
& gNMDA_deepng(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> deepng
do i = 1, num_nontuftRS_to_deepng
j = map_nontuftRS_to_deepng(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_deepng(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_deepng
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepng(k,L) = gAMPA_deepng(k,L) +
& gAMPA_nontuftRS_to_deepng * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_nontuftRS_to_deepng * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_deepng
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepng(k,L) = gNMDA_deepng(k,L) +
& gNMDA_nontuftRS_to_deepng * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_deepng
if (gNMDA_deepng(k,L).gt.z)
& gNMDA_deepng (k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of deepng
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to deepng cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for deepng cells
CALL INTEGRATE_deepng (O, time, num_deepng ,
& V_deepng , curr_deepng ,
& initialize, firstcell, lastcell,
& gAMPA_deepng, gNMDA_deepng, gGABA_A_deepng,
& Mg,
& gapcon_deepng ,totSDgj_deepng ,gjtable_deepng, dt,
& chi_deepng,mnaf_deepng,mnap_deepng,
& hnaf_deepng,mkdr_deepng,mka_deepng,
& hka_deepng,mk2_deepng,hk2_deepng,
& mkm_deepng,mkc_deepng,mkahp_deepng,
& mcat_deepng,hcat_deepng,mcal_deepng,
& mar_deepng)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
do L = 1, num_deepng
distal_axon_deepintern (L + 300 ) = V_deepng (59,L)
end do
c call mpi_allgather (distal_axon_deepng,
c & maxcellspernode, mpi_double_precision,
c & distal_axon_global,maxcellspernode,mpi_double_precision,
c & MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
c call mpi_allgather (field_1mm_local,
c & 1 , mpi_double_precision,
c & field_1mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
c call mpi_allgather (field_2mm_local,
c & 1 , mpi_double_precision,
c & field_2mm_global , 1 ,mpi_double_precision,
c & MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for deepng
c ELSE IF (THISNO.EQ.10) THEN
c ELSE IF (nodecell(thisno) .eq. 'deepaxax ') THEN
c deepaxax
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_deepaxax
IF (mod(O,how_often).eq.0) then
c 1st set deepaxax synaptic conductances to 0:
do i = 1, numcomp_deepaxax
do j = firstcell, lastcell
gAMPA_deepaxax(i,j) = 0.d0
gNMDA_deepaxax(i,j) = 0.d0
gGABA_A_deepaxax(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle suppyrRS -> deepaxax
do i = 1, num_suppyrRS_to_deepaxax
j = map_suppyrRS_to_deepaxax(i,L) ! j = presynaptic cell
k = com_suppyrRS_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_suppyrRS(j) ! enumerate presyn. spikes
presyntime = outtime_suppyrRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_suppyrRS_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_suppyrRS_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_suppyrRS_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_suppyrRS_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_suppyrRS_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_suppyrRS_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle supLTS -> deepaxax
do i = 1, num_supLTS_to_deepaxax
j = map_supLTS_to_deepaxax(i,L) ! j = presynaptic cell
k = com_supLTS_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supLTS(j) ! enumerate presyn. spikes
presyntime = outtime_supLTS(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supLTS_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepaxax(k,L) = gGABA_A_deepaxax(k,L) +
& gGABA_supLTS_to_deepaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle spinstell -> deepaxax
do i = 1, num_spinstell_to_deepaxax
j = map_spinstell_to_deepaxax(i,L) ! j = presynaptic cell
k = com_spinstell_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_spinstell(j) ! enumerate presyn. spikes
presyntime = outtime_spinstell(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_spinstell_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_spinstell_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_spinstell_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_spinstell_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_spinstell_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_spinstell_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftIB -> deepaxax
do i = 1, num_tuftIB_to_deepaxax
j = map_tuftIB_to_deepaxax(i,L) ! j = presynaptic cell
k = com_tuftIB_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftIB(j) ! enumerate presyn. spikes
presyntime = outtime_tuftIB(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftIB_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_tuftIB_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_tuftIB_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftIB_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_tuftIB_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftIB_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle tuftRS -> deepaxax
do i = 1, num_tuftRS_to_deepaxax
j = map_tuftRS_to_deepaxax(i,L) ! j = presynaptic cell
k = com_tuftRS_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_tuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_tuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_tuftRS_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_tuftRS_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_tuftRS_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_tuftRS_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_tuftRS_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_tuftRS_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle deepbask -> deepaxax
do i = 1, num_deepbask_to_deepaxax
j = map_deepbask_to_deepaxax(i,L) ! j = presynaptic cell
k = com_deepbask_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_deepbask(j) ! enumerate presyn. spikes
presyntime = outtime_deepbask(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_deepbask_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepaxax(k,L) = gGABA_A_deepaxax(k,L) +
& gGABA_deepbask_to_deepaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle supVIP -> deepaxax
do i = 1, num_supVIP_to_deepaxax
j = map_supVIP_to_deepaxax(i,L) ! j = presynaptic cell
k = com_supVIP_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_supVIP(j) ! enumerate presyn. spikes
presyntime = outtime_supVIP(m,j)
delta = time - presyntime
! GABA-A part
dexparg = delta / tauGABA_supVIP_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gGABA_A_deepaxax(k,L) = gGABA_A_deepaxax(k,L) +
& gGABA_supVIP_to_deepaxax * z
! end GABA-A part
end do ! m
end do ! i
c Handle TCR -> deepaxax
do i = 1, num_TCR_to_deepaxax
j = map_TCR_to_deepaxax(i,L) ! j = presynaptic cell
k = com_TCR_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime - thal_cort_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_TCR_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_TCR_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_TCR_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_TCR_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
c Handle nontuftRS -> deepaxax
do i = 1, num_nontuftRS_to_deepaxax
j = map_nontuftRS_to_deepaxax(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_deepaxax(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_deepaxax
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_deepaxax(k,L) = gAMPA_deepaxax(k,L) +
& gAMPA_nontuftRS_to_deepaxax * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_nontuftRS_to_deepaxax * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_deepaxax
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_deepaxax(k,L) = gNMDA_deepaxax(k,L) +
& gNMDA_nontuftRS_to_deepaxax * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_deepaxax
if (gNMDA_deepaxax(k,L).gt.z)
& gNMDA_deepaxax(k,L) = z
! end NMDA part
end do ! m
end do ! i
end do
c End enumeration of deepaxax
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to deepaxax cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for deepaxax cells
CALL INTEGRATE_deepaxaxx (O, time, num_deepaxax ,
& V_deepaxax , curr_deepaxax ,
& initialize, firstcell, lastcell,
& gAMPA_deepaxax, gNMDA_deepaxax, gGABA_A_deepaxax,
& Mg,
& gapcon_deepaxax ,totSDgj_deepaxax ,gjtable_deepaxax, dt,
& chi_deepaxax,mnaf_deepaxax,mnap_deepaxax,
& hnaf_deepaxax,mkdr_deepaxax,mka_deepaxax,
& hka_deepaxax,mk2_deepaxax,hk2_deepaxax,
& mkm_deepaxax,mkc_deepaxax,mkahp_deepaxax,
& mcat_deepaxax,hcat_deepaxax,mcal_deepaxax,
& mar_deepaxax)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
do L = 1, num_deepaxax
distal_axon_deepintern (L + 200 ) = V_deepaxax (59,L)
end do
call mpi_allgather (distal_axon_deepintern,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for deepaxax
c ELSE IF (THISNO.EQ.12) THEN
ELSE IF (nodecell(thisno) .eq. 'TCR ') THEN
c TCR
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_TCR
IF (mod(O,how_often).eq.0) then
c 1st set TCR synaptic conductances to 0:
do i = 1, numcomp_TCR
do j = firstcell, lastcell
gAMPA_TCR(i,j) = 0.d0
gNMDA_TCR(i,j) = 0.d0
gGABA_A_TCR(i,j) = 0.d0
gGABA_B_TCR(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle nRT -> TCR
do i = 1, num_nRT_to_TCR
j = map_nRT_to_TCR(i,L) ! j = presynaptic cell
k = com_nRT_to_TCR(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nRT(j) ! enumerate presyn. spikes
presyntime = outtime_nRT(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part
dexparg1 = delta / tauGABA1_nRT_to_TCR
c note that dexparg1 = MINUS the actual arg. to dexp
if (dexparg1.le.5.d0) then
z1 = dexptablesmall (int(dexparg1*1000.d0))
else if (dexparg1.le.100.d0) then
z1 = dexptablebig (int(dexparg1*10.d0))
else
z1 = 0.d0
endif
dexparg2 = delta / tauGABA2_nRT_to_TCR
c note that dexparg2 = MINUS the actual arg. to dexp
if (dexparg2.le.5.d0) then
z2 = dexptablesmall (int(dexparg2*1000.d0))
else if (dexparg2.le.100.d0) then
z2 = dexptablebig (int(dexparg2*10.d0))
else
z2 = 0.d0
endif
gGABA_A_TCR(k,L) = gGABA_A_TCR(k,L) +
& gGABA_nRT_to_TCR(j) * (0.625d0 * z1 + 0.375d0 * z2)
! end GABA-A part
gGABA_B_TCR(k,L) = gGABA_B_TCR(k,L) +
& gGABAB_nRT_to_TCR * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle nontuftRS -> TCR
do i = 1, num_nontuftRS_to_TCR
j = map_nontuftRS_to_TCR(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_TCR(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime - cort_thal_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_TCR
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_TCR(k,L) = gAMPA_TCR(k,L) +
& gAMPA_nontuftRS_to_TCR * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_TCR(k,L) = gNMDA_TCR(k,L) +
& gNMDA_nontuftRS_to_TCR * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_TCR
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_TCR(k,L) = gNMDA_TCR(k,L) +
& gNMDA_nontuftRS_to_TCR * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_TCR
if (gNMDA_TCR(k,L).gt.z)
& gNMDA_TCR(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
end do
c End enumeration of TCR
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to TCR cells, ectopic spikes,
! tonic synaptic conductances
if (mod(O,200).eq.0) then
call durand(seed,num_TCR ,ranvec_TCR )
do L = firstcell, lastcell
if ((ranvec_TCR (L).gt.0.d0).and.
& (ranvec_TCR (L).le.noisepe_TCR )) then
curr_TCR (135,L) = 0.4d0
else
curr_TCR (135,L) = 0.d0
endif
end do
endif
c GOTO 9144 ! SKIP TCR INTEGRATION IN ISOLATED CTX
! Call integration routine for TCR cells
CALL INTEGRATE_tcrxB (O, time, num_tcr ,
& V_tcr , curr_tcr ,
& initialize, firstcell, lastcell,
& gAMPA_tcr , gNMDA_tcr , gGABA_A_tcr ,
& gGABA_B_tcr, Mg,
& gapcon_tcr ,totaxgj_tcr ,gjtable_tcr , dt,
& chi_tcr,mnaf_tcr,mnap_tcr,
& hnaf_tcr,mkdr_tcr,mka_tcr,
& hka_tcr,mk2_tcr,hk2_tcr,
& mkm_tcr,mkc_tcr,mkahp_tcr,
& mcat_tcr,hcat_tcr,mcal_tcr,
& mar_tcr)
9144 CONTINUE
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_TCR
do L = firstcell, lastcell
distal_axon_TCR (L-firstcell+1) = V_TCR (135,L)
end do
call mpi_allgather (distal_axon_TCR,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for TCR
c ELSE IF (THISNO.EQ.13) THEN
ELSE IF (nodecell(thisno) .eq. 'nRT ') THEN
c nRT
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_nRT
IF (mod(O,how_often).eq.0) then
c 1st set nRT synaptic conductances to 0:
do i = 1, numcomp_nRT
do j = firstcell, lastcell
gAMPA_nRT(i,j) = 0.d0
gNMDA_nRT(i,j) = 0.d0
gGABA_A_nRT(i,j) = 0.d0
gGABA_B_nRT(i,j) = 0.d0
end do
end do
do L = firstcell, lastcell
c Handle TCR -> nRT
do i = 1, num_TCR_to_nRT
j = map_TCR_to_nRT(i,L) ! j = presynaptic cell
k = com_TCR_to_nRT(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_TCR(j) ! enumerate presyn. spikes
presyntime = outtime_TCR(m,j)
delta = time - presyntime
! AMPA part
dexparg = delta / tauAMPA_TCR_to_nRT
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nRT(k,L) = gAMPA_nRT(k,L) +
& gAMPA_TCR_to_nRT * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nRT(k,L) = gNMDA_nRT(k,L) +
& gNMDA_TCR_to_nRT * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_TCR_to_nRT
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nRT(k,L) = gNMDA_nRT(k,L) +
& gNMDA_TCR_to_nRT * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_TCR_to_nRT
if (gNMDA_nRT(k,L).gt.z)
& gNMDA_nRT(k,L) = z
! end NMDA part
end do ! m
end do ! i
c Handle nRT -> nRT
do i = 1, num_nRT_to_nRT
j = map_nRT_to_nRT(i,L) ! j = presynaptic cell
k = com_nRT_to_nRT(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nRT(j) ! enumerate presyn. spikes
presyntime = outtime_nRT(m,j)
delta = time - presyntime
k0 = nint (10.d0 * delta) ! time, in units of 0.1 ms, to pass to otis_table
if (k0 .gt. 50000) k = 50000 ! limit on size of otis_table
! GABA-A part
dexparg1 = delta / tauGABA1_nRT_to_nRT
c note that dexparg1 = MINUS the actual arg. to dexp
if (dexparg1.le.5.d0) then
z1 = dexptablesmall (int(dexparg1*1000.d0))
else if (dexparg1.le.100.d0) then
z1 = dexptablebig (int(dexparg1*10.d0))
else
z1 = 0.d0
endif
dexparg2 = delta / tauGABA2_nRT_to_nRT
c note that dexparg2 = MINUS the actual arg. to dexp
if (dexparg2.le.5.d0) then
z2 = dexptablesmall (int(dexparg2*1000.d0))
else if (dexparg2.le.100.d0) then
z2 = dexptablebig (int(dexparg2*10.d0))
else
z2 = 0.d0
endif
gGABA_A_nRT(k,L) = gGABA_A_nRT(k,L) +
& gGABA_nRT_to_nRT * (0.56d0 * z1 + 0.44d0 * z2)
! end GABA-A part
gGABA_B_nRT(k,L) = gGABA_B_nRT(k,L) +
& gGABAB_nRT_to_nRT * otis_table(k0)
! end GABA-B part
end do ! m
end do ! i
c Handle nontuftRS -> nRT
do i = 1, num_nontuftRS_to_nRT
j = map_nontuftRS_to_nRT(i,L) ! j = presynaptic cell
k = com_nontuftRS_to_nRT(i,L) ! k = comp. on postsyn. cell
do m = 1, outctr_nontuftRS(j) ! enumerate presyn. spikes
presyntime = outtime_nontuftRS(m,j)
delta = time - presyntime - cort_thal_delay
IF (DELTA.GE.0.d0) THEN
! AMPA part
dexparg = delta / tauAMPA_nontuftRS_to_nRT
c note that dexparg = MINUS the actual arg. to dexp
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gAMPA_nRT(k,L) = gAMPA_nRT(k,L) +
& gAMPA_nontuftRS_to_nRT * delta * z
! end AMPA part
! NMDA part
if (delta.le.5.d0) then
gNMDA_nRT(k,L) = gNMDA_nRT(k,L) +
& gNMDA_nontuftRS_to_nRT * delta * 0.2d0
else
dexparg = (delta - 5.d0)/tauNMDA_nontuftRS_to_nRT
if (dexparg.le.5.d0) then
z = dexptablesmall (int(dexparg*1000.d0))
else if (dexparg.le.100.d0) then
z = dexptablebig (int(dexparg*10.d0))
else
z = 0.d0
endif
gNMDA_nRT(k,L) = gNMDA_nRT(k,L) +
& gNMDA_nontuftRS_to_nRT * z
endif
c Test for NMDA saturation
z = NMDA_saturation_fact * gNMDA_nontuftRS_to_nRT
if (gNMDA_nRT(k,L).gt.z)
& gNMDA_nRT(k,L) = z
! end NMDA part
ENDIF ! condition for checking that delta >= 0.
end do ! m
end do ! i
end do
c End enumeration of nRT
ENDIF ! if (mod(O,how_often).eq.0) ...
! Define currents to nRT cells, ectopic spikes,
! tonic synaptic conductances
! Call integration routine for nRT cells
CALL INTEGRATE_nrtxB (O, time, num_nRT ,
& V_nRT , curr_nRT ,
& initialize, firstcell, lastcell,
& gAMPA_nRT , gNMDA_nRT , gGABA_A_nRT ,
& gGABA_B_nRT, Mg,
& gapcon_nRT ,totSDgj_nRT ,gjtable_nRT , dt,
& chi_nRT,mnaf_nRT,mnap_nRT,
& hnaf_nRT,mkdr_nRT,mka_nRT,
& hka_nRT,mk2_nRT,hk2_nRT,
& mkm_nRT,mkc_nRT,mkahp_nRT,
& mcat_nRT,hcat_nRT,mcal_nRT,
& mar_nRT)
IF (mod(O,how_often).eq.0) then
! Set up distal axon voltage array and broadcast it.
c do L = 1, num_nRT
do L = firstcell, lastcell
distal_axon_nRT (L-firstcell+1) = V_nRT (59,L)
end do
call mpi_allgather (distal_axon_nRT,
& maxcellspernode, mpi_double_precision,
& distal_axon_global,maxcellspernode,mpi_double_precision,
& MPI_COMM_WORLD, info)
field_1mm_local(1) = 0.d0
field_2mm_local(1) = 0.d0
call mpi_allgather (field_1mm_local,
& 1 , mpi_double_precision,
& field_1mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
call mpi_allgather (field_2mm_local,
& 1 , mpi_double_precision,
& field_2mm_global , 1 ,mpi_double_precision,
& MPI_COMM_WORLD, info)
ENDIF ! if (mod(O,how_often).eq.0) ...
! END thisno for nRT
ENDIF ! if (mod(O,how_often).eq.0) then ...
! Update distal axon vectors, then outctr's and outtime tables.
! This code is common to all the nodes.
! Some of this section adapted from supergj.f
c IF (mod(O,how_often).eq.0) then
IF (mod(O, 5 ).eq.0) then ! Necessary because gj data also
! being updated, not just synaptic
c Construct distal axon vectors, taking into account the structure of
c distal_axon_global: let m = maxcellspernode;
c then nodesfor_suppyrRS segments, each m entries long;
! Do the same for voltages at sites of possible axonal gj - now obsolete
ictr = 0 ! will keep track of which segment in distal_axon_global
c Make the unpacking "explicit"
do L = 1, 1000
ldistal_axon_suppyrRS(L) = distal_axon_global (L)
end do
do L = 1, 100
ldistal_axon_supbask(L) = distal_axon_global (1000+L)
end do
do L = 1, 100
ldistal_axon_supaxax(L) = distal_axon_global (1100+L)
end do
do L = 1, 100
ldistal_axon_supLTS (L) = distal_axon_global (1200+L)
end do
do L = 1, 100
ldistal_axon_supVIP (L) = distal_axon_global (1300+L)
end do
do L = 1, 100
ldistal_axon_supng (L) = distal_axon_global (1400+L)
end do
do L = 1, 500
ldistal_axon_spinstell(L) = distal_axon_global (1500+L)
end do
do L = 1, 500
ldistal_axon_tuftIB (L) = distal_axon_global (2000+L)
end do
do L = 1, 500
ldistal_axon_tuftRS (L) = distal_axon_global (2500+L)
end do
do L = 1, 500
ldistal_axon_nontuftRS(L) = distal_axon_global (3000+L)
end do
do L = 1, 200
ldistal_axon_deepbask(L) = distal_axon_global (3500+L)
end do
do L = 1, 100
ldistal_axon_deepaxax(L) = distal_axon_global (3700+L)
end do
do L = 1, 200
ldistal_axon_deepng (L) = distal_axon_global (3800+L)
end do
do L = 1, 500
ldistal_axon_TCR (L) = distal_axon_global (4000+L)
end do
do L = 1, 500
ldistal_axon_nRT (L) = distal_axon_global (4500+L)
end do
c End updating of distal axon vectors.
do L = 1, num_suppyrRS
if (ldistal_axon_suppyrRS(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_suppyrRS(L).eq.0) then
outctr_suppyrRS(L) = 1
outtime_suppyrRS(1,L) = time
else
if ((time-outtime_suppyrRS(outctr_suppyrRS(L),L))
& .gt. axon_refrac_time) then
outctr_suppyrRS(L) = outctr_suppyrRS(L) + 1
outtime_suppyrRS (outctr_suppyrRS(L),L) = time
endif
endif
endif
end do ! do L = 1, num_suppyrRS
do L = 1, num_supbask
if (ldistal_axon_supbask(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_supbask(L).eq.0) then
outctr_supbask(L) = 1
outtime_supbask(1,L) = time
else
if ((time-outtime_supbask(outctr_supbask(L),L))
& .gt. axon_refrac_time) then
outctr_supbask(L) = outctr_supbask(L) + 1
outtime_supbask (outctr_supbask(L),L) = time
endif
endif
endif
end do ! do L = 1, num_supbask
do L = 1, num_supng
if (ldistal_axon_supng(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_supng(L).eq.0) then
outctr_supng(L) = 1
outtime_supng(1,L) = time
else
if ((time-outtime_supng(outctr_supng(L),L))
& .gt. axon_refrac_time) then
outctr_supng(L) = outctr_supng(L) + 1
outtime_supng (outctr_supng(L),L) = time
endif
endif
endif
end do ! do L = 1, num_supng
do L = 1, num_supaxax
if (ldistal_axon_supaxax(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_supaxax(L).eq.0) then
outctr_supaxax(L) = 1
outtime_supaxax(1,L) = time
else
if ((time-outtime_supaxax(outctr_supaxax(L),L))
& .gt. axon_refrac_time) then
outctr_supaxax(L) = outctr_supaxax(L) + 1
outtime_supaxax (outctr_supaxax(L),L) = time
endif
endif
endif
end do ! do L = 1, num_supaxax
do L = 1, num_supLTS
if (ldistal_axon_supLTS(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_supLTS(L).eq.0) then
outctr_supLTS(L) = 1
outtime_supLTS(1,L) = time
else
if ((time-outtime_supLTS(outctr_supLTS(L),L))
& .gt. axon_refrac_time) then
outctr_supLTS(L) = outctr_supLTS(L) + 1
outtime_supLTS (outctr_supLTS(L),L) = time
endif
endif
endif
end do ! do L = 1, num_supLTS
do L = 1, num_spinstell
if (ldistal_axon_spinstell(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_spinstell(L).eq.0) then
outctr_spinstell(L) = 1
outtime_spinstell(1,L) = time
else
if ((time-outtime_spinstell(outctr_spinstell(L),L))
& .gt. axon_refrac_time) then
outctr_spinstell(L) = outctr_spinstell(L) + 1
outtime_spinstell (outctr_spinstell(L),L) = time
endif
endif
endif
end do ! do L = 1, num_spinstell
do L = 1, num_tuftIB
if (ldistal_axon_tuftIB(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_tuftIB(L).eq.0) then
outctr_tuftIB(L) = 1
outtime_tuftIB(1,L) = time
else
if ((time-outtime_tuftIB(outctr_tuftIB(L),L))
& .gt. axon_refrac_time) then
outctr_tuftIB(L) = outctr_tuftIB(L) + 1
outtime_tuftIB (outctr_tuftIB(L),L) = time
endif
endif
endif
end do ! do L = 1, num_tuftIB
do L = 1, num_tuftRS
if (ldistal_axon_tuftRS(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_tuftRS(L).eq.0) then
outctr_tuftRS(L) = 1
outtime_tuftRS(1,L) = time
else
if ((time-outtime_tuftRS(outctr_tuftRS(L),L))
& .gt. axon_refrac_time) then
outctr_tuftRS(L) = outctr_tuftRS(L) + 1
outtime_tuftRS (outctr_tuftRS(L),L) = time
endif
endif
endif
end do ! do L = 1, num_tuftRS
do L = 1, num_nontuftRS
if (ldistal_axon_nontuftRS(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_nontuftRS(L).eq.0) then
outctr_nontuftRS(L) = 1
outtime_nontuftRS(1,L) = time
else
if ((time-outtime_nontuftRS(outctr_nontuftRS(L),L))
& .gt. axon_refrac_time) then
outctr_nontuftRS(L) = outctr_nontuftRS(L) + 1
outtime_nontuftRS (outctr_nontuftRS(L),L) = time
endif
endif
endif
end do ! do L = 1, num_nontuftRS
do L = 1, num_deepbask
if (ldistal_axon_deepbask(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_deepbask(L).eq.0) then
outctr_deepbask(L) = 1
outtime_deepbask(1,L) = time
else
if ((time-outtime_deepbask(outctr_deepbask(L),L))
& .gt. axon_refrac_time) then
outctr_deepbask(L) = outctr_deepbask(L) + 1
outtime_deepbask (outctr_deepbask(L),L) = time
endif
endif
endif
end do ! do L = 1, num_deepbask
do L = 1, num_deepng
if (ldistal_axon_deepng(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_deepng(L).eq.0) then
outctr_deepng(L) = 1
outtime_deepng(1,L) = time
else
if ((time-outtime_deepng(outctr_deepng(L),L))
& .gt. axon_refrac_time) then
outctr_deepng(L) = outctr_deepng(L) + 1
outtime_deepng (outctr_deepng(L),L) = time
endif
endif
endif
end do ! do L = 1, num_deepng
do L = 1, num_deepaxax
if (ldistal_axon_deepaxax(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_deepaxax(L).eq.0) then
outctr_deepaxax(L) = 1
outtime_deepaxax(1,L) = time
else
if ((time-outtime_deepaxax(outctr_deepaxax(L),L))
& .gt. axon_refrac_time) then
outctr_deepaxax(L) = outctr_deepaxax(L) + 1
outtime_deepaxax (outctr_deepaxax(L),L) = time
endif
endif
endif
end do ! do L = 1, num_deepaxax
do L = 1, num_supVIP
if (ldistal_axon_supVIP(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_supVIP(L).eq.0) then
outctr_supVIP(L) = 1
outtime_supVIP(1,L) = time
else
if ((time-outtime_supVIP(outctr_supVIP(L),L))
& .gt. axon_refrac_time) then
outctr_supVIP(L) = outctr_supVIP(L) + 1
outtime_supVIP (outctr_supVIP(L),L) = time
endif
endif
endif
end do ! do L = 1, num_supVIP
do L = 1, num_TCR
if (ldistal_axon_TCR(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_TCR(L).eq.0) then
outctr_TCR(L) = 1
outtime_TCR(1,L) = time
else
if ((time-outtime_TCR(outctr_TCR(L),L))
& .gt. axon_refrac_time) then
outctr_TCR(L) = outctr_TCR(L) + 1
outtime_TCR (outctr_TCR(L),L) = time
endif
endif
endif
end do ! do L = 1, num_TCR
do L = 1, num_nRT
if (ldistal_axon_nRT(L).ge.0.d0) then
c with threshold = 0, means axonal spike must be overshooting.
if (outctr_nRT(L).eq.0) then
outctr_nRT(L) = 1
outtime_nRT(1,L) = time
else
if ((time-outtime_nRT(outctr_nRT(L),L))
& .gt. axon_refrac_time) then
outctr_nRT(L) = outctr_nRT(L) + 1
outtime_nRT (outctr_nRT(L),L) = time
endif
endif
endif
end do ! do L = 1, num_nRT
field_1mm_tot = 0.d0
field_2mm_tot = 0.d0
do i = 1, numnodes
field_1mm_tot = field_1mm_tot + field_1mm_global(i)
field_2mm_tot = field_2mm_tot + field_2mm_global(i)
end do
ENDIF ! if (mod(O,how_often).eq.0) ...
! CHANGED to if (mod(O,5).eq.0)...
! End updating outctr's and outtime tables, and computing fields
! Set up output data to be written
if (mod(O, 50) == 0) then
c if (thisno.eq.0) then
IF (nodecell(thisno) .eq. 'suppyrRS ') THEN
c suppyrRS
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = ncellspernode
outrcd( 1) = time
outrcd( 2) = v_suppyrRS(1,firstcell+1)
outrcd( 3) = v_suppyrRS(numcomp_suppyrRS,firstcell+1)
outrcd( 4) = v_suppyrRS(43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_suppyrRS(1,i)
end do
outrcd( 5) = z / dble(lastcell - firstcell + 1) ! - av. cell somata
z = 0.d0
do i = 1, numcomp_suppyrRS
z = z + gAMPA_suppyrRS(i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_suppyrRS
z = z + gNMDA_suppyrRS(i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_suppyrRS
z = z + gGABA_A_suppyrRS(i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_suppyrRS
z = z + gGABA_B_suppyrRS(i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_suppyrRS(1,firstcell+2)
outrcd(11) = v_suppyrRS(1,firstcell+3)
z = 0.d0
do i = firstcell, lastcell
if(v_suppyrRS(numcomp_suppyrRS,i) .gt. 0.d0) z = z + 1.d0
end do
outrcd(12) = z
outrcd(13) = field_1mm_tot
outrcd(14) = field_2mm_tot
outrcd(15) = v_suppyrRS(1,firstcell+4)
outrcd(16) = v_suppyrRS(1,firstcell+5)
outrcd(17) = v_suppyrRS(1,firstcell+6)
outrcd(18) = v_suppyrRS(1,firstcell+7)
if (place(thisno).eq.1) then
OPEN(11,FILE='plateauVFO11.suppyrRS')
WRITE (11,FMT='(18F10.4)') (OUTRCD(I),I=1,18)
end if
do L = 1, lastcell
if (v_suppyrRS (1,L) .ge. -15.d0) then
c OPEN(41,FILE='plateauVFO11.suppyrRSrast')
c WRITE (41,8789) time, L
c This only records the 1st 500 suppyrRS cells
8789 FORMAT (f8.2,3x,i5)
end if
end do
c else if (thisno.eq.2) then
else IF (nodecell(thisno) .eq. 'supintern ') THEN
c supbask
c Determine which particular cells this node will be concerned with.
i = place (thisno)
firstcell = 1
lastcell = num_supbask
outrcd( 1) = time
outrcd( 2) = v_supbask (1,firstcell+1)
outrcd( 3) = v_supbask (numcomp_supbask,firstcell+1)
outrcd( 4) = v_supbask (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_supbask(1,i)
end do
outrcd( 5) = z / dble(lastcell - firstcell + 1 ) ! - av. cell somata
z = 0.d0
do i = 1, numcomp_supbask
z = z + gAMPA_supbask (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_supbask
z = z + gNMDA_supbask (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_supbask
z = z + gGABA_A_supbask (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_supbask (1,firstcell+2)
outrcd(10) = v_supbask (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
OPEN(13,FILE='plateauVFO11.supbask')
WRITE (13,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
c supng
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_supng
outrcd( 1) = time
outrcd( 2) = v_supng (1,firstcell+1)
outrcd( 3) = v_supng (numcomp_supng,firstcell+1)
outrcd( 4) = v_supng (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_supng(1,i)
end do
outrcd( 5) = z / dble(lastcell - firstcell + 1 ) ! - av. cell somata
z = 0.d0
do i = 1, numcomp_supng
z = z + gAMPA_supng (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_supng
z = z + gNMDA_supng (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_supng
z = z + gGABA_A_supng (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_supng (1,firstcell+2)
outrcd(10) = v_supng (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
if (place(thisno).eq.1) then
OPEN(33,FILE='plateauVFO11.supng')
WRITE (33,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
endif
c supaxax
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_supaxax
outrcd( 1) = time
outrcd( 2) = v_supaxax (1,firstcell+1)
outrcd( 3) = v_supaxax (numcomp_supaxax ,firstcell+1)
outrcd( 4) = v_supaxax (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_supaxax(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_supaxax
z = z + gAMPA_supaxax (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_supaxax
z = z + gNMDA_supaxax (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_supaxax
z = z + gGABA_A_supaxax (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_supaxax (1,firstcell+2)
outrcd(10) = v_supaxax (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
if (place(thisno).eq.1) then
c OPEN(14,FILE='plateauVFO11.supaxax')
c WRITE (14,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
endif
c supLTS
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_supLTS
outrcd( 1) = time
outrcd( 2) = v_supLTS (1,firstcell+1)
outrcd( 3) = v_supLTS (numcomp_supLTS ,firstcell+1)
outrcd( 4) = v_supLTS (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_supLTS(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_supLTS
z = z + gAMPA_supLTS (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_supLTS
z = z + gNMDA_supLTS (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_supLTS
z = z + gGABA_A_supLTS (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_supLTS (1,firstcell+2)
outrcd(10) = v_supLTS (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
c OPEN(15,FILE='plateauVFO11.supLTS')
c WRITE (15,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
c supVIP
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_supVIP
outrcd( 1) = time
outrcd( 2) = v_supVIP (1,firstcell+1)
outrcd( 3) = v_supVIP (numcomp_supVIP ,firstcell+1)
outrcd( 4) = v_supVIP (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_supVIP(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_supVIP
z = z + gAMPA_supVIP (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_supVIP
z = z + gNMDA_supVIP (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_supVIP
z = z + gGABA_A_supVIP (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_supVIP (1,firstcell+2)
outrcd(10) = v_supVIP (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
OPEN(22,FILE='plateauVFO11.supVIP')
WRITE (22,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
else IF (nodecell(thisno) .eq. 'spinstell') THEN
c spinstell
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_spinstell
outrcd( 1) = time
outrcd( 2) = v_spinstell(1,firstcell+1)
outrcd( 3) = v_spinstell(numcomp_spinstell,firstcell+1)
outrcd( 4) = v_spinstell(43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_spinstell(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_spinstell
z = z + gAMPA_spinstell(i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 1
z = 0.d0
do i = 1, numcomp_spinstell
z = z + gNMDA_spinstell(i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 1
z = 0.d0
do i = 1, numcomp_spinstell
z = z + gGABA_A_spinstell(i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 1
z = 0.d0
do i = 1, numcomp_spinstell
z = z + gGABA_B_spinstell(i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 1
outrcd(10) = v_spinstell(1,firstcell+2)
outrcd(11) = v_spinstell(1,firstcell+3)
outrcd(12) = field_1mm_tot
outrcd(13) = field_2mm_tot
if (place(thisno).eq.1) then
c OPEN(16,FILE='plateauVFO11.spinstell')
c WRITE (16,FMT='(13F10.4)') (OUTRCD(I),I=1,13)
endif
else IF (nodecell(thisno) .eq. 'tuftIB ') THEN
if (mod(O,500).eq.0) then
write(6,3835) time, v_tuftIB(1,5)
3835 format(' tuftIB ',f10.4,2x,f10.3)
endif ! just to make sure job is running
c tuftIB
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_tuftIB
outrcd( 1) = time
outrcd( 2) = v_tuftIB (1,firstcell+1)
outrcd( 3) = v_tuftIB (numcomp_tuftIB ,firstcell+1)
c outrcd( 3) = 0.01d0 * chi_tuftIB (48 ,firstcell+1)
outrcd( 4) = v_tuftIB (48,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_tuftIB(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gAMPA_tuftIB (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gNMDA_tuftIB (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gGABA_A_tuftIB (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gGABA_B_tuftIB (i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_tuftIB (1,firstcell+2)
outrcd(11) = v_tuftIB (1,firstcell+3)
outrcd(12) = v_tuftIB (43,firstcell+3)
c outrcd(12) = field_1mm_tot
c outrcd(13) = field_2mm_tot
outrcd(13) = 0.01d0 * chi_tuftIB(48,firstcell+3)
outrcd(14) = v_tuftIB (1,firstcell+4)
outrcd(15) = v_tuftIB (numcomp_tuftIB ,firstcell+4)
z = 0.d0
do L = 1, num_tuftIB
if (ldistal_axon_tuftIB(L).ge.0.d0) z = z + 1.d0
end do
outrcd(16) = z ! should be number of distal tuftIB axons overshooting
outrcd(17) = v_tuftIB (1,firstcell + 5)
outrcd(18) = v_tuftIB (1,firstcell + 7)
outrcd(19) = v_tuftIB (43,firstcell + 7)
c outrcd(20) = v_tuftIB (1,firstcell + 8)
outrcd(20) = zz
if (place(thisno).eq.1) then
OPEN(17,FILE='plateauVFO11.tuftIB')
WRITE (17,FMT='(20F11.3)') (OUTRCD(I),I=1,20)
else
c write(6,9091) 'tuftIB', thisno, time, v_tuftIB(1,firstcell),
c & v_tuftIB(1,lastcell)
9091 format(a6,i4,3f10.4)
endif
outrcd( 1) = time
outrcd( 2) = v_tuftIB (1,firstcell+3)
outrcd( 3) = v_tuftIB (numcomp_tuftIB ,firstcell+3)
outrcd( 4) = v_tuftIB (48,firstcell+3)
z = 0.d0
do i = firstcell, lastcell
z = z - v_tuftIB(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gAMPA_tuftIB (i,firstcell+3)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gNMDA_tuftIB (i,firstcell+3)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gGABA_A_tuftIB (i,firstcell+3)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_tuftIB
z = z + gGABA_B_tuftIB (i,firstcell+3)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_tuftIB (54,firstcell+3)
outrcd(11) = v_tuftIB (41,firstcell+3)
outrcd(12) = v_tuftIB (43,firstcell+3)
outrcd(13) = 0.01d0 * chi_tuftIB(48,firstcell+3)
outrcd(14) = v_tuftIB (31,firstcell+4)
outrcd(15) = v_tuftIB ( 56 ,firstcell+3)
z = 0.d0
do L = 1, num_tuftIB
if (ldistal_axon_tuftIB(L).ge.0.d0) z = z + 1.d0
end do
outrcd(16) = z ! should be number of distal tuftIB axons overshooting
outrcd(17) = v_tuftIB (24,firstcell + 3)
outrcd(18) = v_tuftIB (25,firstcell + 3)
outrcd(19) = v_tuftIB (33,firstcell + 3)
outrcd(20) = 1000.d0 * noisepe_tuftIB
if (place(thisno).eq.1) then
c OPEN(87,FILE='plateauVFO11.tuftIBA')
c WRITE (87,FMT='(20F10.4)') (OUTRCD(I),I=1,20)
else
endif
else IF (nodecell(thisno) .eq. 'tuftRS ') THEN
c tuftRS
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_tuftRS
outrcd( 1) = time
outrcd( 2) = v_tuftRS (1,firstcell+1)
outrcd( 3) = v_tuftRS (numcomp_tuftRS ,firstcell+1)
outrcd( 4) = v_tuftRS (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_tuftRS(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gNMDA_tuftRS (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_A_tuftRS (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_B_tuftRS (i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_tuftRS (1,firstcell+2)
outrcd(11) = v_tuftRS (1,firstcell+3)
outrcd(12) = field_1mm_tot
outrcd(13) = field_2mm_tot
outrcd(14) = v_tuftRS (1,firstcell+4)
outrcd(15) = v_tuftRS (1,firstcell+5)
outrcd(16) = v_tuftRS (1,firstcell+6)
outrcd(17) = v_tuftRS (1,firstcell+7)
outrcd(18) = v_tuftRS (1,firstcell+8)
z = 0.d0
do I = firstcell, lastcell
if (v_tuftRS(1,i).ge.0.d0) z = z + 1.d0
end do
outrcd(19) = z ! overshooting somata
outrcd(20) = 1.d3 * gapcon_tuftRS
if (place(thisno).eq.1) then
OPEN(18,FILE='plateauVFO11.tuftRS')
WRITE (18,FMT='(20F10.4)') (OUTRCD(I),I=1,20)
end if
outrcd( 1) = time
outrcd( 2) = v_tuftRS (1,71)
outrcd( 3) = v_tuftRS (numcomp_tuftRS ,71)
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,71)
end do
outrcd( 4) = z * 1000.d0 ! total AMPA cell 71
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_A_tuftRS (i,71)
end do
outrcd( 5) = z * 1000.d0 ! total GABA-A cell 71
outrcd( 6) = v_tuftRS (1,166)
outrcd( 7) = v_tuftRS (numcomp_tuftRS ,166)
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,166)
end do
outrcd( 8) = z * 1000.d0 ! total AMPA cell 166
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_A_tuftRS (i,166)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-A cell 166
outrcd(10) = v_tuftRS (1,231)
outrcd(11) = v_tuftRS (numcomp_tuftRS ,231)
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,231)
end do
outrcd(12) = z * 1000.d0 ! total AMPA cell 231
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_A_tuftRS (i,231)
end do
outrcd(13) = z * 1000.d0 ! total GABA-A cell 231
outrcd(14) = v_tuftRS (1,105)
outrcd(15) = v_tuftRS (numcomp_tuftRS ,105)
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,105)
end do
outrcd(16) = z * 1000.d0 ! total AMPA cell 105
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gGABA_A_tuftRS (i,105)
end do
outrcd(17) = z * 1000.d0 ! total GABA-A cell 105
outrcd(18) = v_tuftRS (1,248)
outrcd(19) = v_tuftRS (numcomp_tuftRS ,248)
z = 0.d0
do i = 1, numcomp_tuftRS
z = z + gAMPA_tuftRS (i,248)
end do
outrcd(20) = z * 1000.d0 ! total AMPA cell 248
if (place(thisno).eq.1) then
c OPEN(58,FILE='plateauVFO11.tuftRSA')
c WRITE (58,FMT='(20F10.4)') (OUTRCD(I),I=1,20)
end if
do L = 1, num_tuftRS
if (v_tuftRS (1,L) .ge. 0.d0) then
c OPEN(40,FILE='plateauVFO11.tuftRSrast')
c WRITE (40,8787) time, L
8787 FORMAT (f8.2,3x,i5)
end if
end do
else IF (nodecell(thisno) .eq. 'nontuftRS') THEN
c nontuftRS
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_nontuftRS
outrcd( 1) = time
outrcd( 2) = v_nontuftRS(1,firstcell+1)
outrcd( 3) = v_nontuftRS(numcomp_nontuftRS,firstcell+1)
outrcd( 4) = v_nontuftRS(43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_nontuftRS(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_nontuftRS
z = z + gAMPA_nontuftRS(i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_nontuftRS
z = z + gNMDA_nontuftRS(i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_nontuftRS
z = z + gGABA_A_nontuftRS(i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_nontuftRS
z = z + gGABA_B_nontuftRS(i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_nontuftRS(1,firstcell+2)
outrcd(11) = v_nontuftRS(1,firstcell+3)
outrcd(12) = field_1mm_tot
outrcd(13) = field_2mm_tot
outrcd(14) = v_nontuftRS(1,lastcell -2)
outrcd(15) = v_nontuftRS(1,lastcell -1)
outrcd(16) = v_nontuftRS(1,lastcell )
if (place(thisno).eq.1) then
OPEN(19,FILE='plateauVFO11.nontuftRS')
WRITE (19,FMT='(16F10.4)') (OUTRCD(I),I=1,16)
else
c write(6,9092) 'nontuftRS',thisno,time,v_nontuftRS(1,firstcell),
c & v_nontuftRS(1,lastcell)
9092 format(a9,i4,3f10.4)
endif
else IF (nodecell(thisno) .eq. 'deepintern') THEN
c deepbask
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_deepbask
outrcd( 1) = time
outrcd( 2) = v_deepbask (1,firstcell+1)
outrcd( 3) = v_deepbask (numcomp_deepbask ,firstcell+1)
outrcd( 4) = v_deepbask (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_deepbask(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_deepbask
z = z + gAMPA_deepbask (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_deepbask
z = z + gNMDA_deepbask (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_deepbask
z = z + gGABA_A_deepbask (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_deepbask (1,firstcell+2)
outrcd(10) = v_deepbask (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
if (place(thisno).eq.1) then
c OPEN(20,FILE='plateauVFO11.deepbask')
c WRITE (20,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
endif
c deepng
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_deepng
outrcd( 1) = time
outrcd( 2) = v_deepng (1,firstcell+1)
outrcd( 3) = v_deepng (numcomp_deepng ,firstcell+1)
outrcd( 4) = v_deepng (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_deepng(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_deepng
z = z + gAMPA_deepng (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_deepng
z = z + gNMDA_deepng (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_deepng
z = z + gGABA_A_deepng (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_deepng (1,firstcell+2)
outrcd(10) = v_deepng (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
OPEN(34,FILE='plateauVFO11.deepng')
WRITE (34,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
c deepaxax
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_deepaxax
outrcd( 1) = time
outrcd( 2) = v_deepaxax (1,firstcell+1)
outrcd( 3) = v_deepaxax (numcomp_deepaxax ,firstcell+1)
outrcd( 4) = v_deepaxax (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_deepaxax(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_deepaxax
z = z + gAMPA_deepaxax (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_deepaxax
z = z + gNMDA_deepaxax (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_deepaxax
z = z + gGABA_A_deepaxax (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
outrcd( 9) = v_deepaxax (1,firstcell+2)
outrcd(10) = v_deepaxax (1,firstcell+3)
outrcd(11) = field_1mm_tot
outrcd(12) = field_2mm_tot
if (place(thisno).eq.1) then
c OPEN(21,FILE='plateauVFO11.deepaxax')
c WRITE (21,FMT='(12F10.4)') (OUTRCD(I),I=1,12)
endif
else IF (nodecell(thisno) .eq. 'TCR ') THEN
c TCR
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_TCR
outrcd( 1) = time
outrcd( 2) = v_TCR (1,firstcell+1)
outrcd( 3) = v_TCR (numcomp_TCR ,firstcell+1)
outrcd( 4) = v_TCR (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_TCR(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_TCR
z = z + gAMPA_TCR (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_TCR
z = z + gNMDA_TCR (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_TCR
z = z + gGABA_A_TCR (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_TCR
z = z + gGABA_B_TCR (i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_TCR (1,firstcell+2)
outrcd(11) = v_TCR (1,firstcell+3)
z = 0.d0
do i = firstcell, lastcell
if(v_TCR (numcomp_TCR ,i) .gt. 0.d0) z = z + 1.d0
end do
outrcd(12) = z
outrcd(13) = v_TCR (1,33)
outrcd(14) = field_1mm_tot
outrcd(15) = field_2mm_tot
OPEN(23,FILE='plateauVFO11.TCR')
WRITE (23,FMT='(15F10.4)') (OUTRCD(I),I=1,15)
else IF (nodecell(thisno) .eq. 'nRT ') THEN
c nRT
c Determine which particular cells this node will be concerned with.
firstcell = 1
lastcell = num_nRT
outrcd( 1) = time
outrcd( 2) = v_nRT (1,firstcell+1)
outrcd( 3) = v_nRT (numcomp_nRT ,firstcell+1)
outrcd( 4) = v_nRT (43,firstcell+1)
z = 0.d0
do i = firstcell, lastcell
z = z - v_nRT(1,i)
end do
outrcd( 5) = z / dble(lastcell-firstcell+1) ! -av. cell somata
z = 0.d0
do i = 1, numcomp_nRT
z = z + gAMPA_nRT (i,firstcell+1)
end do
outrcd( 6) = z * 1000.d0 ! total AMPA cell 2
z = 0.d0
do i = 1, numcomp_nRT
z = z + gNMDA_nRT (i,firstcell+1)
end do
outrcd( 7) = z * 1000.d0 ! total NMDA cell 2
z = 0.d0
do i = 1, numcomp_nRT
z = z + gGABA_A_nRT (i,firstcell+1)
end do
outrcd( 8) = z * 1000.d0 ! total GABA-A, cell 2
z = 0.d0
do i = 1, numcomp_nRT
z = z + gGABA_B_nRT (i,firstcell+1)
end do
outrcd( 9) = z * 1000.d0 ! total GABA-B, cell 2
outrcd(10) = v_nRT (1,firstcell+2)
outrcd(11) = v_nRT (1,firstcell+3)
z = 0.d0
do i = firstcell, lastcell
if(v_nRT (numcomp_nRT ,i) .gt. 0.d0) z = z + 1.d0
end do
outrcd(12) = z
outrcd(13) = field_1mm_tot
outrcd(14) = field_2mm_tot
OPEN(24,FILE='plateauVFO11.nRT')
WRITE (24,FMT='(14F10.4)') (OUTRCD(I),I=1,14)
endif ! checking thisno
endif ! mod(O, 50) = 0
goto 1000
c END guts of main program
2000 CONTINUE
time2 = gettime()
if (thisno.eq.0) then
write(6,3434) time2 - time1
endif
3434 format(' elapsed time = ',f8.0,' secs')
call mpi_finalize (info)
END
c end main routine
c 11 Sept 2006, start with /interact/integrate_suppyrRSXP.f & add GABA-B
! 7 Nov. 2005: modify integrate_suppyrRSX.f to allow for Colbert-Pan axon.
!29 July 2005: modify groucho/integrate_suppyrRS.f, for a separate
! call for initialization, and to integrate only selected cells.
! Integration routine for suppyrRS cells
! Routine adapted from scortn in supergj.f
SUBROUTINE INTEGRATE_suppyrRSXPB (O, time, numcell,
& V, curr, initialize, firstcell, lastcell,
& gAMPA, gNMDA, gGABA_A, gGABA_B,
& Mg,
& gapcon ,totaxgj ,gjtable, dt,
& chi,mnaf,mnap,
& hnaf,mkdr,mka,
& hka,mk2,hk2,
& mkm,mkc,mkahp,
& mcat,hcat,mcal,
& mar,field_1mm,field_2mm,rel_axonshift)
SAVE
INTEGER, PARAMETER:: numcomp = 74
! numcomp here must be compatible with numcomp_suppyrRS in calling prog.
INTEGER numcell, num_other
INTEGER initialize, firstcell, lastcell
INTEGER J1, I, J, K, K1, K2, K3, L, L1, O
REAL*8 c(numcomp), curr(numcomp,numcell)
REAL*8 Z, Z1, Z2, Z3, Z4, DT, time
integer totaxgj, gjtable(totaxgj,4)
real*8 gapcon, gAMPA(numcomp,numcell),
& gNMDA(numcomp,numcell), gGABA_A(numcomp,numcell),
& gGABA_B(numcomp,numcell)
real*8 Mg, V(numcomp,numcell), rel_axonshift
c CINV is 1/C, i.e. inverse capacitance
real*8 chi(numcomp,numcell),
& mnaf(numcomp,numcell),mnap(numcomp,numcell),
x hnaf(numcomp,numcell), mkdr(numcomp,numcell),
x mka(numcomp,numcell),hka(numcomp,numcell),
x mk2(numcomp,numcell), cinv(numcomp),
x hk2(numcomp,numcell),mkm(numcomp,numcell),
x mkc(numcomp,numcell),mkahp(numcomp,numcell),
x mcat(numcomp,numcell),hcat(numcomp,numcell),
x mcal(numcomp,numcell), betchi(numcomp),
x mar(numcomp,numcell),jacob(numcomp,numcomp),
x gam(0: numcomp,0: numcomp),gL(numcomp),gnaf(numcomp),
x gnap(numcomp),gkdr(numcomp),gka(numcomp),
x gk2(numcomp),gkm(numcomp),
x gkc(numcomp),gkahp(numcomp),
x gcat(numcomp),gcaL(numcomp),gar(numcomp),
x cafor(numcomp)
real*8
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
real*8 vL(numcomp),vk(numcomp),vna,var,vca,vgaba_a
real*8 depth(12), membcurr(12), field_1mm, field_2mm
integer level(numcomp)
INTEGER NEIGH(numcomp,10), NNUM(numcomp)
INTEGER igap1, igap2
c the f's are the functions giving 1st derivatives for evolution of
c the differential equations for the voltages (v), calcium (chi), and
c other state variables.
real*8 fv(numcomp), fchi(numcomp),
x fmnaf(numcomp),fhnaf(numcomp),fmkdr(numcomp),
x fmka(numcomp),fhka(numcomp),fmk2(numcomp),
x fhk2(numcomp),fmnap(numcomp),
x fmkm(numcomp),fmkc(numcomp),fmkahp(numcomp),
x fmcat(numcomp),fhcat(numcomp),fmcal(numcomp),
x fmar(numcomp)
c below are for calculating the partial derivatives
real*8 dfv_dv(numcomp,numcomp), dfv_dchi(numcomp),
x dfv_dmnaf(numcomp), dfv_dmnap(numcomp),
x dfv_dhnaf(numcomp),dfv_dmkdr(numcomp),
x dfv_dmka(numcomp),dfv_dhka(numcomp),
x dfv_dmk2(numcomp),dfv_dhk2(numcomp),
x dfv_dmkm(numcomp),dfv_dmkc(numcomp),
x dfv_dmkahp(numcomp),dfv_dmcat(numcomp),
x dfv_dhcat(numcomp),dfv_dmcal(numcomp),
x dfv_dmar(numcomp)
real*8 dfchi_dv(numcomp), dfchi_dchi(numcomp),
x dfmnaf_dmnaf(numcomp), dfmnaf_dv(numcomp),
x dfhnaf_dhnaf(numcomp),
x dfmnap_dmnap(numcomp), dfmnap_dv(numcomp),
x dfhnaf_dv(numcomp),dfmkdr_dmkdr(numcomp),
x dfmkdr_dv(numcomp),
x dfmka_dmka(numcomp),dfmka_dv(numcomp),
x dfhka_dhka(numcomp),dfhka_dv(numcomp),
x dfmk2_dmk2(numcomp),dfmk2_dv(numcomp),
x dfhk2_dhk2(numcomp),dfhk2_dv(numcomp),
x dfmkm_dmkm(numcomp),dfmkm_dv(numcomp),
x dfmkc_dmkc(numcomp),dfmkc_dv(numcomp),
x dfmcat_dmcat(numcomp),dfmcat_dv(numcomp),dfhcat_dhcat(numcomp),
x dfhcat_dv(numcomp),dfmcal_dmcal(numcomp),dfmcal_dv(numcomp),
x dfmar_dmar(numcomp),dfmar_dv(numcomp),dfmkahp_dchi(numcomp),
x dfmkahp_dmkahp(numcomp), dt2
REAL*8 OPEN(numcomp),gamma(numcomp),gamma_prime(numcomp)
c gamma is function of chi used in calculating KC conductance
REAL*8 alpham_ahp(numcomp), alpham_ahp_prime(numcomp)
REAL*8 gna_tot(numcomp),gk_tot(numcomp),gca_tot(numcomp)
REAL*8 gca_high(numcomp), gar_tot(numcomp)
c this will be gCa conductance corresponding to high-thresh channels
real*8 persistentNa_shift, fastNa_shift_SD,
x fastNa_shift_axon
REAL*8 A, BB1, BB2 ! params. for FNMDA.f
c if (O.eq.1) then
if (initialize.eq.0) then
c do initialization
c Program fnmda assumes A, BB1, BB2 defined in calling program
c as follows:
A = DEXP(-2.847d0)
BB1 = DEXP(-.693d0)
BB2 = DEXP(-3.101d0)
c goto 4000
CALL SCORT_SETUP_suppyrRS
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
CALL SCORTMAJ_suppyrRS
X (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
do i = 1, numcomp
cinv(i) = 1.d0 / c(i)
end do
4000 CONTINUE
do i = 1, numcomp
vL(i) = -70.d0
vK(i) = -95.d0
end do
VNA = 50.d0
VCA = 125.d0
VAR = -43.d0
VAR = -35.d0
c -43 mV from Huguenard & McCormick
VGABA_A = -81.d0
c write(6,901) VNa, VCa, VK(1), O
901 format('VNa =',f6.2,' VCa =',f6.2,' VK =',f6.2,
& ' O = ',i3)
c ? initialize membrane state variables?
do L = 1, numcell
do i = 1, numcomp
v(i,L) = VL(i)
chi(i,L) = 0.d0
mnaf(i,L) = 0.d0
mkdr(i,L) = 0.d0
mk2(i,L) = 0.d0
mkm(i,L) = 0.d0
mkc(i,L) = 0.d0
mkahp(i,L) = 0.d0
mcat(i,L) = 0.d0
mcal(i,L) = 0.d0
end do
end do
do L = 1, numcell
k1 = idnint (4.d0 * (v(1,L) + 120.d0))
do i = 1, numcomp
hnaf(i,L) = alphah_naf(k1)/(alphah_naf(k1)
& +betah_naf(k1))
hka(i,L) = alphah_ka(k1)/(alphah_ka(k1)
& +betah_ka(k1))
hk2(i,L) = alphah_k2(k1)/(alphah_k2(k1)
& +betah_k2(k1))
hcat(i,L)=alphah_cat(k1)/(alphah_cat(k1)
& +betah_cat(k1))
c mar=alpham_ar(k1)/(alpham_ar(k1)+betam_ar(k1))
mar(i,L) = .25d0
end do
end do
do i = 1, numcomp
open(i) = 0.d0
gkm(i) = 2.d0 * gkm(i)
end do
do i = 1, 68
c gnaf(i) = 0.8d0 * 1.25d0 * gnaf(i) ! factor of 0.8 added 19 Nov. 2005
c gnaf(i) = 0.9d0 * 1.25d0 * gnaf(i) ! Back to 0.9, 29 Nov. 2005
gnaf(i) = 0.6d0 * 1.25d0 * gnaf(i) !
! NOTE THAT THERE IS QUESTION OF HOW TO COMPARE BEHAVIOR OF PYRAMID IN NETWORK WITH
! SIMULATIONS OF SINGLE CELL. IN FORMER CASE, THERE IS LARGE AXONAL SHUNT THROUGH
! gj(s), NOT PRESENT IN SINGLE CELL MODEL. THEREFORE, HIGHER AXONAL gNa MIGHT BE
! NECESSARY FOR SPIKE PROPAGATION.
c gnaf(i) = 0.9d0 * 1.25d0 * gnaf(i) ! factor of 0.9 added 20 Nov. 2005
gkdr(i) = 1.25d0 * gkdr(i)
end do
c Perhaps reduce fast gNa on IS
gnaf(69) = 1.00d0 * gnaf(69)
c gnaf(69) = 0.25d0 * gnaf(69)
gnaf(70) = 1.00d0 * gnaf(70)
c gnaf(70) = 0.25d0 * gnaf(70)
c Perhaps reduce coupling between soma and IS
c gam(1,69) = 0.15d0 * gam(1,69)
c gam(69,1) = 0.15d0 * gam(69,1)
z1 = 0.0d0
c z2 = 1.2d0 ! value 1.2 tried Feb. 21, 2013
z2 = 1.5d0 ! value 1.2 tried Feb. 21, 2013
z3 = 1.0d0
c z3 = 0.0d0 ! Note reduction from 0.4, to prevent
c slow hyperpolarization that seems to mess up gamma.
z4 = 0.3d0
c RS cell
do i = 1, numcomp
gnap(i) = z1 * gnap(i)
gkc (i) = z2 * gkc (i)
gkahp(i) = z3 * gkahp(i)
gkm (i) = z4 * gkm (i)
end do
goto 6000
endif
c End initialization
do i = 1, 12
membcurr(i) = 0.d0
end do
c goto 2001
c do L = 1, numcell
do L = firstcell, lastcell
do i = 1, numcomp
do j = 1, nnum(i)
if (neigh(i,j).gt.numcomp) then
write(6,433) i, j, L
433 format(' ls ',3x,3i5)
endif
end do
end do
DO I = 1, numcomp
FV(I) = -GL(I) * (V(I,L) - VL(i)) * cinv(i)
DO J = 1, NNUM(I)
K = NEIGH(I,J)
302 FV(I) = FV(I) + GAM(I,K) * (V(K,L) - V(I,L)) * cinv(i)
END DO
END DO
301 CONTINUE
CALL FNMDA (V, OPEN, numcell, numcomp, MG, L,
& A, BB1, BB2)
DO I = 1, numcomp
FV(I) = FV(I) + ( CURR(I,L)
X - (gampa(I,L) + open(i) * gnmda(I,L))*V(I,L)
X - ggaba_a(I,L)*(V(I,L)-Vgaba_a)
X - ggaba_b(I,L)*(V(I,L)-VK(i) ) ) * cinv(i)
c above assumes equil. potential for AMPA & NMDA = 0 mV
END DO
421 continue
do m = 1, totaxgj
if (gjtable(m,1).eq.L) then
L1 = gjtable(m,3)
igap1 = gjtable(m,2)
igap2 = gjtable(m,4)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
else if (gjtable(m,3).eq.L) then
L1 = gjtable(m,1)
igap1 = gjtable(m,4)
igap2 = gjtable(m,2)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
endif
end do ! do m
do i = 1, numcomp
gamma(i) = dmin1 (1.d0, .004d0 * chi(i,L))
if (chi(i,L).le.250.d0) then
gamma_prime(i) = .004d0
else
gamma_prime(i) = 0.d0
endif
c endif
end do
DO I = 1, numcomp
gna_tot(i) = gnaf(i) * (mnaf(i,L)**3) * hnaf(i,L) +
x gnap(i) * mnap(i,L)
gk_tot(i) = gkdr(i) * (mkdr(i,L)**4) +
x gka(i) * (mka(i,L)**4) * hka(i,L) +
x gk2(i) * mk2(i,L) * hk2(i,L) +
x gkm(i) * mkm(i,L) +
x gkc(i) * mkc(i,L) * gamma(i) +
x gkahp(i)* mkahp(i,L)
gca_tot(i) = gcat(i) * (mcat(i,L)**2) * hcat(i,L) +
x gcaL(i) * (mcaL(i,L)**2)
gca_high(i) =
x gcaL(i) * (mcaL(i,L)**2)
gar_tot(i) = gar(i) * mar(i,L)
FV(I) = FV(I) - ( gna_tot(i) * (v(i,L) - vna)
X + gk_tot(i) * (v(i,L) - vK(i))
X + gca_tot(i) * (v(i,L) - vCa)
X + gar_tot(i) * (v(i,L) - var) ) * cinv(i)
c endif
END DO
88 continue
do i = 1, numcomp
do j = 1, numcomp
if (i.ne.j) then
dfv_dv(i,j) = jacob(i,j)
else
dfv_dv(i,j) = jacob(i,i) - cinv(i) *
X (gna_tot(i) + gk_tot(i) + gca_tot(i) + gar_tot(i)
X + ggaba_a(i,L) + ggaba_b(i,L) + gampa(i,L)
X + open(i) * gnmda(I,L) )
endif
end do
end do
do i = 1, numcomp
dfv_dchi(i) = - cinv(i) * gkc(i) * mkc(i,L) *
x gamma_prime(i) * (v(i,L)-vK(i))
dfv_dmnaf(i) = -3.d0 * cinv(i) * (mnaf(i,L)**2) *
X (gnaf(i) * hnaf(i,L) ) * (v(i,L) - vna)
dfv_dmnap(i) = - cinv(i) *
X ( gnap(i)) * (v(i,L) - vna)
dfv_dhnaf(i) = - cinv(i) * gnaf(i) * (mnaf(i,L)**3) *
X (v(i,L) - vna)
dfv_dmkdr(i) = -4.d0 * cinv(i) * gkdr(i) * (mkdr(i,L)**3)
X * (v(i,L) - vK(i))
dfv_dmka(i) = -4.d0 * cinv(i) * gka(i) * (mka(i,L)**3) *
X hka(i,L) * (v(i,L) - vK(i))
dfv_dhka(i) = - cinv(i) * gka(i) * (mka(i,L)**4) *
X (v(i,L) - vK(i))
dfv_dmk2(i) = - cinv(i) * gk2(i) * hk2(i,L) * (v(i,L)-vK(i))
dfv_dhk2(i) = - cinv(i) * gk2(i) * mk2(i,L) * (v(i,L)-vK(i))
dfv_dmkm(i) = - cinv(i) * gkm(i) * (v(i,L) - vK(i))
dfv_dmkc(i) = - cinv(i)*gkc(i) * gamma(i) * (v(i,L)-vK(i))
dfv_dmkahp(i)= - cinv(i) * gkahp(i) * (v(i,L) - vK(i))
dfv_dmcat(i) = -2.d0 * cinv(i) * gcat(i) * mcat(i,L) *
X hcat(i,L) * (v(i,L) - vCa)
dfv_dhcat(i) = - cinv(i) * gcat(i) * (mcat(i,L)**2) *
X (v(i,L) - vCa)
dfv_dmcal(i) = -2.d0 * cinv(i) * gcal(i) * mcal(i,L) *
X (v(i,L) - vCa)
dfv_dmar(i) = - cinv(i) * gar(i) * (v(i,L) - var)
end do
do i = 1, numcomp
fchi(i) = - cafor(i) * gca_high(i) * (v(i,L) - vca)
x - betchi(i) * chi(i,L)
dfchi_dv(i) = - cafor(i) * gca_high(i)
dfchi_dchi(i) = - betchi(i)
end do
do i = 1, numcomp
c Note possible increase in rate at which AHP current develops
c alpham_ahp(i) = dmin1(0.2d-4 * chi(i,L),0.01d0)
alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.01d0)
if (chi(i,L).le.500.d0) then
c alpham_ahp_prime(i) = 0.2d-4
alpham_ahp_prime(i) = 1.0d-4
else
alpham_ahp_prime(i) = 0.d0
endif
end do
do i = 1, numcomp
fmkahp(i) = alpham_ahp(i) * (1.d0 - mkahp(i,L))
c x -.001d0 * mkahp(i,L)
x -.010d0 * mkahp(i,L)
c dfmkahp_dmkahp(i) = - alpham_ahp(i) - .001d0
dfmkahp_dmkahp(i) = - alpham_ahp(i) - .010d0
dfmkahp_dchi(i) = alpham_ahp_prime(i) *
x (1.d0 - mkahp(i,L))
end do
do i = 1, numcomp
K1 = IDNINT ( 4.d0 * (V(I,L) + 120.d0) )
IF (K1.GT.640) K1 = 640
IF (K1.LT. 0) K1 = 0
c persistentNa_shift = 0.d0
c persistentNa_shift = 8.d0
persistentNa_shift = 10.d0
K2 = IDNINT ( 4.d0 * (V(I,L)+persistentNa_shift+ 120.d0) )
IF (K2.GT.640) K2 = 640
IF (K2.LT. 0) K2 = 0
c fastNa_shift = -2.0d0
c fastNa_shift = -2.5d0
fastNa_shift_SD = -3.5d0
fastNa_shift_axon = fastNa_shift_SD + rel_axonshift
K0 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_SD+ 120.d0) )
IF (K0.GT.640) K0 = 640
IF (K0.LT. 0) K0 = 0
K3 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_axon+ 120.d0) )
IF (K3.GT.640) K3 = 640
IF (K3.LT. 0) K3 = 0
if (i.le.68) then ! FOR SD
fmnaf(i) = alpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X betam_naf(k0) * mnaf(i,L)
fhnaf(i) = alphah_naf(k0) * (1.d0 - hnaf(i,L)) -
X betah_naf(k0) * hnaf(i,L)
else ! for axon
fmnaf(i) = alpham_naf(k3) * (1.d0 - mnaf(i,L)) -
X betam_naf(k3) * mnaf(i,L)
fhnaf(i) = alphah_naf(k3) * (1.d0 - hnaf(i,L)) -
X betah_naf(k3) * hnaf(i,L)
endif
fmnap(i) = alpham_naf(k2) * (1.d0 - mnap(i,L)) -
X betam_naf(k2) * mnap(i,L)
fmkdr(i) = alpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X betam_kdr(k1) * mkdr(i,L)
fmka(i) = alpham_ka (k1) * (1.d0 - mka(i,L)) -
X betam_ka (k1) * mka(i,L)
fhka(i) = alphah_ka (k1) * (1.d0 - hka(i,L)) -
X betah_ka (k1) * hka(i,L)
fmk2(i) = alpham_k2 (k1) * (1.d0 - mk2(i,L)) -
X betam_k2 (k1) * mk2(i,L)
fhk2(i) = alphah_k2 (k1) * (1.d0 - hk2(i,L)) -
X betah_k2 (k1) * hk2(i,L)
fmkm(i) = alpham_km (k1) * (1.d0 - mkm(i,L)) -
X betam_km (k1) * mkm(i,L)
fmkc(i) = alpham_kc (k1) * (1.d0 - mkc(i,L)) -
X betam_kc (k1) * mkc(i,L)
fmcat(i) = alpham_cat(k1) * (1.d0 - mcat(i,L)) -
X betam_cat(k1) * mcat(i,L)
fhcat(i) = alphah_cat(k1) * (1.d0 - hcat(i,L)) -
X betah_cat(k1) * hcat(i,L)
fmcaL(i) = alpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X betam_caL(k1) * mcaL(i,L)
fmar(i) = alpham_ar (k1) * (1.d0 - mar(i,L)) -
X betam_ar (k1) * mar(i,L)
dfmnaf_dv(i) = dalpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X dbetam_naf(k0) * mnaf(i,L)
dfmnap_dv(i) = dalpham_naf(k2) * (1.d0 - mnap(i,L)) -
X dbetam_naf(k2) * mnap(i,L)
dfhnaf_dv(i) = dalphah_naf(k1) * (1.d0 - hnaf(i,L)) -
X dbetah_naf(k1) * hnaf(i,L)
dfmkdr_dv(i) = dalpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X dbetam_kdr(k1) * mkdr(i,L)
dfmka_dv(i) = dalpham_ka(k1) * (1.d0 - mka(i,L)) -
X dbetam_ka(k1) * mka(i,L)
dfhka_dv(i) = dalphah_ka(k1) * (1.d0 - hka(i,L)) -
X dbetah_ka(k1) * hka(i,L)
dfmk2_dv(i) = dalpham_k2(k1) * (1.d0 - mk2(i,L)) -
X dbetam_k2(k1) * mk2(i,L)
dfhk2_dv(i) = dalphah_k2(k1) * (1.d0 - hk2(i,L)) -
X dbetah_k2(k1) * hk2(i,L)
dfmkm_dv(i) = dalpham_km(k1) * (1.d0 - mkm(i,L)) -
X dbetam_km(k1) * mkm(i,L)
dfmkc_dv(i) = dalpham_kc(k1) * (1.d0 - mkc(i,L)) -
X dbetam_kc(k1) * mkc(i,L)
dfmcat_dv(i) = dalpham_cat(k1) * (1.d0 - mcat(i,L)) -
X dbetam_cat(k1) * mcat(i,L)
dfhcat_dv(i) = dalphah_cat(k1) * (1.d0 - hcat(i,L)) -
X dbetah_cat(k1) * hcat(i,L)
dfmcaL_dv(i) = dalpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X dbetam_caL(k1) * mcaL(i,L)
dfmar_dv(i) = dalpham_ar(k1) * (1.d0 - mar(i,L)) -
X dbetam_ar(k1) * mar(i,L)
dfmnaf_dmnaf(i) = - alpham_naf(k0) - betam_naf(k0)
dfmnap_dmnap(i) = - alpham_naf(k2) - betam_naf(k2)
dfhnaf_dhnaf(i) = - alphah_naf(k1) - betah_naf(k1)
dfmkdr_dmkdr(i) = - alpham_kdr(k1) - betam_kdr(k1)
dfmka_dmka(i) = - alpham_ka (k1) - betam_ka (k1)
dfhka_dhka(i) = - alphah_ka (k1) - betah_ka (k1)
dfmk2_dmk2(i) = - alpham_k2 (k1) - betam_k2 (k1)
dfhk2_dhk2(i) = - alphah_k2 (k1) - betah_k2 (k1)
dfmkm_dmkm(i) = - alpham_km (k1) - betam_km (k1)
dfmkc_dmkc(i) = - alpham_kc (k1) - betam_kc (k1)
dfmcat_dmcat(i) = - alpham_cat(k1) - betam_cat(k1)
dfhcat_dhcat(i) = - alphah_cat(k1) - betah_cat(k1)
dfmcaL_dmcaL(i) = - alpham_caL(k1) - betam_caL(k1)
dfmar_dmar(i) = - alpham_ar (k1) - betam_ar (k1)
end do
dt2 = 0.5d0 * dt * dt
do i = 1, numcomp
v(i,L) = v(i,L) + dt * fv(i)
do j = 1, numcomp
v(i,L) = v(i,L) + dt2 * dfv_dv(i,j) * fv(j)
end do
v(i,L) = v(i,L) + dt2 * ( dfv_dchi(i) * fchi(i)
X + dfv_dmnaf(i) * fmnaf(i)
X + dfv_dmnap(i) * fmnap(i)
X + dfv_dhnaf(i) * fhnaf(i)
X + dfv_dmkdr(i) * fmkdr(i)
X + dfv_dmka(i) * fmka(i)
X + dfv_dhka(i) * fhka(i)
X + dfv_dmk2(i) * fmk2(i)
X + dfv_dhk2(i) * fhk2(i)
X + dfv_dmkm(i) * fmkm(i)
X + dfv_dmkc(i) * fmkc(i)
X + dfv_dmkahp(i)* fmkahp(i)
X + dfv_dmcat(i) * fmcat(i)
X + dfv_dhcat(i) * fhcat(i)
X + dfv_dmcaL(i) * fmcaL(i)
X + dfv_dmar(i) * fmar(i) )
chi(i,L) = chi(i,L) + dt * fchi(i) + dt2 *
X (dfchi_dchi(i) * fchi(i) + dfchi_dv(i) * fv(i))
mnaf(i,L) = mnaf(i,L) + dt * fmnaf(i) + dt2 *
X (dfmnaf_dmnaf(i) * fmnaf(i) + dfmnaf_dv(i)*fv(i))
mnap(i,L) = mnap(i,L) + dt * fmnap(i) + dt2 *
X (dfmnap_dmnap(i) * fmnap(i) + dfmnap_dv(i)*fv(i))
hnaf(i,L) = hnaf(i,L) + dt * fhnaf(i) + dt2 *
X (dfhnaf_dhnaf(i) * fhnaf(i) + dfhnaf_dv(i)*fv(i))
mkdr(i,L) = mkdr(i,L) + dt * fmkdr(i) + dt2 *
X (dfmkdr_dmkdr(i) * fmkdr(i) + dfmkdr_dv(i)*fv(i))
mka(i,L) = mka(i,L) + dt * fmka(i) + dt2 *
X (dfmka_dmka(i) * fmka(i) + dfmka_dv(i) * fv(i))
hka(i,L) = hka(i,L) + dt * fhka(i) + dt2 *
X (dfhka_dhka(i) * fhka(i) + dfhka_dv(i) * fv(i))
mk2(i,L) = mk2(i,L) + dt * fmk2(i) + dt2 *
X (dfmk2_dmk2(i) * fmk2(i) + dfmk2_dv(i) * fv(i))
hk2(i,L) = hk2(i,L) + dt * fhk2(i) + dt2 *
X (dfhk2_dhk2(i) * fhk2(i) + dfhk2_dv(i) * fv(i))
mkm(i,L) = mkm(i,L) + dt * fmkm(i) + dt2 *
X (dfmkm_dmkm(i) * fmkm(i) + dfmkm_dv(i) * fv(i))
mkc(i,L) = mkc(i,L) + dt * fmkc(i) + dt2 *
X (dfmkc_dmkc(i) * fmkc(i) + dfmkc_dv(i) * fv(i))
mkahp(i,L) = mkahp(i,L) + dt * fmkahp(i) + dt2 *
X (dfmkahp_dmkahp(i)*fmkahp(i) + dfmkahp_dchi(i)*fchi(i))
mcat(i,L) = mcat(i,L) + dt * fmcat(i) + dt2 *
X (dfmcat_dmcat(i) * fmcat(i) + dfmcat_dv(i) * fv(i))
hcat(i,L) = hcat(i,L) + dt * fhcat(i) + dt2 *
X (dfhcat_dhcat(i) * fhcat(i) + dfhcat_dv(i) * fv(i))
mcaL(i,L) = mcaL(i,L) + dt * fmcaL(i) + dt2 *
X (dfmcaL_dmcaL(i) * fmcaL(i) + dfmcaL_dv(i) * fv(i))
mar(i,L) = mar(i,L) + dt * fmar(i) + dt2 *
X (dfmar_dmar(i) * fmar(i) + dfmar_dv(i) * fv(i))
c endif
end do
! Add membrane currents into membcurr for appropriate compartments
do i = 1, 9
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 14, 21
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 26, 33
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 39, 68
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
end do
c Finish loop L = 1 to numcell
field_1mm = 0.d0
field_2mm = 0.d0
do i = 1, 12
field_1mm = field_1mm + membcurr(i) / dabs(1000.d0 - depth(i))
field_2mm = field_2mm + membcurr(i) / dabs(2000.d0 - depth(i))
end do
2001 CONTINUE
6000 END
C SETS UP TABLES FOR RATE FUNCTIONS
SUBROUTINE SCORT_SETUP_suppyrRS
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
INTEGER I,J,K
real*8 minf, hinf, taum, tauh, V, Z, shift_hnaf,
X shift_mkdr,
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
C FOR VOLTAGE, RANGE IS -120 TO +40 MV (absol.), 0.25 MV RESOLUTION
DO 1, I = 0, 640
V = dble(I)
V = (V / 4.d0) - 120.d0
c gNa
minf = 1.d0/(1.d0 + dexp((-V-38.d0)/10.d0))
if (v.le.-30.d0) then
taum = .025d0 + .14d0*dexp((v+30.d0)/10.d0)
else
taum = .02d0 + .145d0*dexp((-v-30.d0)/10.d0)
endif
c from principal c. data, Martina & Jonas 1997, tau x 0.5
c Note that minf about the same for interneuron & princ. cell.
alpham_naf(i) = minf / taum
betam_naf(i) = 1.d0/taum - alpham_naf(i)
shift_hnaf = 0.d0
hinf = 1.d0/(1.d0 +
x dexp((v + shift_hnaf + 62.9d0)/10.7d0))
tauh = 0.15d0 + 1.15d0/(1.d0+dexp((v+37.d0)/15.d0))
c from princ. cell data, Martina & Jonas 1997, tau x 0.5
alphah_naf(i) = hinf / tauh
betah_naf(i) = 1.d0/tauh - alphah_naf(i)
shift_mkdr = 0.d0
c delayed rectifier, non-inactivating
minf = 1.d0/(1.d0+dexp((-v-shift_mkdr-29.5d0)/10.0d0))
if (v.le.-10.d0) then
taum = .25d0 + 4.35d0*dexp((v+10.d0)/10.d0)
else
taum = .25d0 + 4.35d0*dexp((-v-10.d0)/10.d0)
endif
alpham_kdr(i) = minf / taum
betam_kdr(i) = 1.d0 /taum - alpham_kdr(i)
c from Martina, Schultz et al., 1998. See espec. Table 1.
c A current: Huguenard & McCormick 1992, J Neurophysiol (TCR)
minf = 1.d0/(1.d0 + dexp((-v-60.d0)/8.5d0))
hinf = 1.d0/(1.d0 + dexp((v+78.d0)/6.d0))
taum = .185d0 + .5d0/(dexp((v+35.8d0)/19.7d0) +
x dexp((-v-79.7d0)/12.7d0))
if (v.le.-63.d0) then
tauh = .5d0/(dexp((v+46.d0)/5.d0) +
x dexp((-v-238.d0)/37.5d0))
else
tauh = 9.5d0
endif
alpham_ka(i) = minf/taum
betam_ka(i) = 1.d0 / taum - alpham_ka(i)
alphah_ka(i) = hinf / tauh
betah_ka(i) = 1.d0 / tauh - alphah_ka(i)
c h-current (anomalous rectifier), Huguenard & McCormick, 1992
minf = 1.d0/(1.d0 + dexp((v+75.d0)/5.5d0))
taum = 1.d0/(dexp(-14.6d0 -0.086d0*v) +
x dexp(-1.87 + 0.07d0*v))
alpham_ar(i) = minf / taum
betam_ar(i) = 1.d0 / taum - alpham_ar(i)
c K2 K-current, McCormick & Huguenard
minf = 1.d0/(1.d0 + dexp((-v-10.d0)/17.d0))
hinf = 1.d0/(1.d0 + dexp((v+58.d0)/10.6d0))
taum = 4.95d0 + 0.5d0/(dexp((v-81.d0)/25.6d0) +
x dexp((-v-132.d0)/18.d0))
tauh = 60.d0 + 0.5d0/(dexp((v-1.33d0)/200.d0) +
x dexp((-v-130.d0)/7.1d0))
alpham_k2(i) = minf / taum
betam_k2(i) = 1.d0/taum - alpham_k2(i)
alphah_k2(i) = hinf / tauh
betah_k2(i) = 1.d0 / tauh - alphah_k2(i)
c voltage part of C-current, using 1994 kinetics, shift 60 mV
if (v.le.-10.d0) then
alpham_kc(i) = (2.d0/37.95d0)*dexp((v+50.d0)/11.d0 -
x (v+53.5)/27.d0)
betam_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)-alpham_kc(i)
else
alpham_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)
betam_kc(i) = 0.d0
endif
c high-threshold gCa, from 1994, with 60 mV shift & no inactivn.
alpham_cal(i) = 1.6d0/(1.d0+dexp(-.072d0*(v-5.d0)))
betam_cal(i) = 0.1d0 * ((v+8.9d0)/5.d0) /
x (dexp((v+8.9d0)/5.d0) - 1.d0)
c M-current, from plast.f, with 60 mV shift
alpham_km(i) = .02d0/(1.d0+dexp((-v-20.d0)/5.d0))
betam_km(i) = .01d0 * dexp((-v-43.d0)/18.d0)
c T-current, from Destexhe, Neubig et al., 1998
minf = 1.d0/(1.d0 + dexp((-v-56.d0)/6.2d0))
hinf = 1.d0/(1.d0 + dexp((v+80.d0)/4.d0))
taum = 0.204d0 + .333d0/(dexp((v+15.8d0)/18.2d0) +
x dexp((-v-131.d0)/16.7d0))
if (v.le.-81.d0) then
tauh = 0.333 * dexp((v+466.d0)/66.6d0)
else
tauh = 9.32d0 + 0.333d0*dexp((-v-21.d0)/10.5d0)
endif
alpham_cat(i) = minf / taum
betam_cat(i) = 1.d0/taum - alpham_cat(i)
alphah_cat(i) = hinf / tauh
betah_cat(i) = 1.d0 / tauh - alphah_cat(i)
1 CONTINUE
do i = 0, 639
dalpham_naf(i) = (alpham_naf(i+1)-alpham_naf(i))/.25d0
dbetam_naf(i) = (betam_naf(i+1)-betam_naf(i))/.25d0
dalphah_naf(i) = (alphah_naf(i+1)-alphah_naf(i))/.25d0
dbetah_naf(i) = (betah_naf(i+1)-betah_naf(i))/.25d0
dalpham_kdr(i) = (alpham_kdr(i+1)-alpham_kdr(i))/.25d0
dbetam_kdr(i) = (betam_kdr(i+1)-betam_kdr(i))/.25d0
dalpham_ka(i) = (alpham_ka(i+1)-alpham_ka(i))/.25d0
dbetam_ka(i) = (betam_ka(i+1)-betam_ka(i))/.25d0
dalphah_ka(i) = (alphah_ka(i+1)-alphah_ka(i))/.25d0
dbetah_ka(i) = (betah_ka(i+1)-betah_ka(i))/.25d0
dalpham_k2(i) = (alpham_k2(i+1)-alpham_k2(i))/.25d0
dbetam_k2(i) = (betam_k2(i+1)-betam_k2(i))/.25d0
dalphah_k2(i) = (alphah_k2(i+1)-alphah_k2(i))/.25d0
dbetah_k2(i) = (betah_k2(i+1)-betah_k2(i))/.25d0
dalpham_km(i) = (alpham_km(i+1)-alpham_km(i))/.25d0
dbetam_km(i) = (betam_km(i+1)-betam_km(i))/.25d0
dalpham_kc(i) = (alpham_kc(i+1)-alpham_kc(i))/.25d0
dbetam_kc(i) = (betam_kc(i+1)-betam_kc(i))/.25d0
dalpham_cat(i) = (alpham_cat(i+1)-alpham_cat(i))/.25d0
dbetam_cat(i) = (betam_cat(i+1)-betam_cat(i))/.25d0
dalphah_cat(i) = (alphah_cat(i+1)-alphah_cat(i))/.25d0
dbetah_cat(i) = (betah_cat(i+1)-betah_cat(i))/.25d0
dalpham_caL(i) = (alpham_cal(i+1)-alpham_cal(i))/.25d0
dbetam_caL(i) = (betam_cal(i+1)-betam_cal(i))/.25d0
dalpham_ar(i) = (alpham_ar(i+1)-alpham_ar(i))/.25d0
dbetam_ar(i) = (betam_ar(i+1)-betam_ar(i))/.25d0
end do
2 CONTINUE
do i = 640, 640
dalpham_naf(i) = dalpham_naf(i-1)
dbetam_naf(i) = dbetam_naf(i-1)
dalphah_naf(i) = dalphah_naf(i-1)
dbetah_naf(i) = dbetah_naf(i-1)
dalpham_kdr(i) = dalpham_kdr(i-1)
dbetam_kdr(i) = dbetam_kdr(i-1)
dalpham_ka(i) = dalpham_ka(i-1)
dbetam_ka(i) = dbetam_ka(i-1)
dalphah_ka(i) = dalphah_ka(i-1)
dbetah_ka(i) = dbetah_ka(i-1)
dalpham_k2(i) = dalpham_k2(i-1)
dbetam_k2(i) = dbetam_k2(i-1)
dalphah_k2(i) = dalphah_k2(i-1)
dbetah_k2(i) = dbetah_k2(i-1)
dalpham_km(i) = dalpham_km(i-1)
dbetam_km(i) = dbetam_km(i-1)
dalpham_kc(i) = dalpham_kc(i-1)
dbetam_kc(i) = dbetam_kc(i-1)
dalpham_cat(i) = dalpham_cat(i-1)
dbetam_cat(i) = dbetam_cat(i-1)
dalphah_cat(i) = dalphah_cat(i-1)
dbetah_cat(i) = dbetah_cat(i-1)
dalpham_caL(i) = dalpham_caL(i-1)
dbetam_caL(i) = dbetam_caL(i-1)
dalpham_ar(i) = dalpham_ar(i-1)
dbetam_ar(i) = dbetam_ar(i-1)
end do
4000 END
SUBROUTINE SCORTMAJ_suppyrRS
C BRANCHED ACTIVE DENDRITES
X (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
c Conductances: leak gL, coupling g, delayed rectifier gKDR, A gKA,
c C gKC, AHP gKAHP, K2 gK2, M gKM, low thresh Ca gCAT, high thresh
c gCAL, fast Na gNAF, persistent Na gNAP, h or anom. rectif. gAR.
c Note VAR = equil. potential for anomalous rectifier.
c Soma = comp. 1; 10 dendrites each with 13 compartments, 6-comp. axon
c Drop "glc"-like terms, just using "gl"-like
c CAFOR corresponds to "phi" in Traub et al., 1994
c Consistent set of units: nF, mV, ms, nA, microS
INTEGER, PARAMETER:: numcomp = 74
! numcomp here must be compatible with numcomp_suppyrRS in calling prog.
REAL*8 C(numcomp),GL(numcomp), GAM(0:numcomp, 0:numcomp)
REAL*8 GNAF(numcomp),GCAT(numcomp), GKAHP(numcomp)
REAL*8 GKDR(numcomp),GKA(numcomp),GKC(numcomp)
REAL*8 GK2(numcomp),GNAP(numcomp),GAR(numcomp)
REAL*8 GKM(numcomp), gcal(numcomp), CDENS
REAL*8 JACOB(numcomp,numcomp),RI_SD,RI_AXON,RM_SD,RM_AXON
INTEGER LEVEL(numcomp)
REAL*8 GNAF_DENS(0:12), GCAT_DENS(0:12), GKDR_DENS(0:12)
REAL*8 GKA_DENS(0:12), GKC_DENS(0:12), GKAHP_DENS(0:12)
REAL*8 GCAL_DENS(0:12), GK2_DENS(0:12), GKM_DENS(0:12)
REAL*8 GNAP_DENS(0:12), GAR_DENS(0:12)
REAL*8 RES, RINPUT, Z, ELEN(numcomp)
REAL*8 RSOMA, PI, BETCHI(numcomp), CAFOR(numcomp)
REAL*8 RAD(numcomp), LEN(numcomp), GAM1, GAM2
REAL*8 RIN, D(numcomp), AREA(numcomp), RI
INTEGER NEIGH(numcomp,10), NNUM(numcomp), i, j, k, it
C FOR ESTABLISHING TOPOLOGY OF COMPARTMENTS
real*8 depth(12) ! depth in microns of levels 1-12, assuming soma in middle
! of layer 2/3 at depth 850 mu
depth(1) = 850.d0
depth(2) = 885.d0
depth(3) = 920.d0
depth(4) = 955.d0
depth(5) = 825.d0
depth(6) = 775.d0
depth(7) = 725.d0
depth(8) = 690.d0
depth(9) = 655.d0
depth(10) = 620.d0
depth(11) = 585.d0
depth(12) = 550.d0
RI_SD = 250.d0
RM_SD = 50000.d0
RI_AXON = 100.d0
RM_AXON = 1000.d0
CDENS = 0.9d0
PI = 3.14159d0
do i = 0, 12
gnaf_dens(i) = 10.d0
end do
c gnaf_dens(0) = 400.d0
! gnaf_dens(0) = 120.d0
gnaf_dens(0) = 200.d0
gnaf_dens(1) = 120.d0
gnaf_dens(2) = 75.d0
gnaf_dens(5) = 100.d0
gnaf_dens(6) = 75.d0
do i = 0, 12
gkdr_dens(i) = 0.d0
end do
c gkdr_dens(0) = 400.d0
c gkdr_dens(0) = 100.d0
c gkdr_dens(0) = 170.d0
gkdr_dens(0) = 250.d0
c gkdr_dens(1) = 100.d0
gkdr_dens(1) = 150.d0
gkdr_dens(2) = 75.d0
gkdr_dens(5) = 100.d0
gkdr_dens(6) = 75.d0
gnap_dens(0) = 0.d0
do i = 1, 12
gnap_dens(i) = 0.0040d0 * gnaf_dens(i)
c gnap_dens(i) = 0.002d0 * gnaf_dens(i)
c gnap_dens(i) = 0.0030d0 * gnaf_dens(i)
end do
gcat_dens(0) = 0.d0
do i = 1, 12
c gcat_dens(i) = 0.5d0
gcat_dens(i) = 0.1d0
end do
gcaL_dens(0) = 0.d0
do i = 1, 6
gcaL_dens(i) = 0.5d0
end do
do i = 7, 12
gcaL_dens(i) = 0.5d0
end do
do i = 0, 12
gka_dens(i) = 2.d0
end do
gka_dens(0) =100.d0 ! NOTE
gka_dens(1) = 30.d0
gka_dens(5) = 30.d0
do i = 0, 12
c gkc_dens(i) = 12.00d0
gkc_dens(i) = 0.00d0
c gkc_dens(i) = 2.00d0
c gkc_dens(i) = 7.00d0
end do
gkc_dens(0) = 0.00d0
c gkc_dens(1) = 7.5d0
c gkc_dens(1) = 12.d0
gkc_dens(1) = 15.d0
c gkc_dens(2) = 7.5d0
gkc_dens(2) = 10.d0
gkc_dens(5) = 7.5d0
gkc_dens(6) = 7.5d0
c gkm_dens(0) = 2.d0 ! 9 Nov. 2005, see scort-pan.f of today
gkm_dens(0) = 8.d0 ! 9 Nov. 2005, see scort-pan.f of today
! Above suppresses doublets, but still allows FRB with appropriate
! gNaP, gKC, and rel_axonshift (e.g. 6 mV)
do i = 1, 12
gkm_dens(i) = 2.5d0 * 1.50d0
end do
do i = 0, 12
c gk2_dens(i) = 1.d0
gk2_dens(i) = 0.1d0
end do
gk2_dens(0) = 0.d0
gkahp_dens(0) = 0.d0
do i = 1, 12
c gkahp_dens(i) = 0.200d0
gkahp_dens(i) = 0.100d0
c gkahp_dens(i) = 0.050d0
end do
gar_dens(0) = 0.d0
do i = 1, 12
gar_dens(i) = 0.25d0
end do
c WRITE (6,9988)
9988 FORMAT(2X,'I',4X,'NADENS',' CADENS(T)',' KDRDEN',' KAHPDE',
X ' KCDENS',' KADENS')
DO 9989, I = 0, 12
c WRITE (6,9990) I, gnaf_dens(i), gcat_dens(i), gkdr_dens(i),
c X gkahp_dens(i), gkc_dens(i), gka_dens(i)
9990 FORMAT(2X,I2,2X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2)
9989 CONTINUE
level(1) = 1
do i = 2, 13
level(i) = 2
end do
do i = 14, 25
level(i) = 3
end do
do i = 26, 37
level(i) = 4
end do
level(38) = 5
level(39) = 6
level(40) = 7
level(41) = 8
level(42) = 8
level(43) = 9
level(44) = 9
do i = 45, 52
level(i) = 10
end do
do i = 53, 60
level(i) = 11
end do
do i = 61, 68
level(i) = 12
end do
do i = 69, 74
level(i) = 0
end do
c connectivity of axon
nnum( 69) = 2
nnum( 70) = 3
nnum( 71) = 3
nnum( 73) = 3
nnum( 72) = 1
nnum( 74) = 1
neigh(69,1) = 1
neigh(69,2) = 70
neigh(70,1) = 69
neigh(70,2) = 71
neigh(70,3) = 73
neigh(71,1) = 70
neigh(71,2) = 72
neigh(71,3) = 73
neigh(73,1) = 70
neigh(73,2) = 71
neigh(73,3) = 74
neigh(72,1) = 71
neigh(74,1) = 73
c connectivity of SD part
nnum(1) = 10
neigh(1,1) = 69
neigh(1,2) = 2
neigh(1,3) = 3
neigh(1,4) = 4
neigh(1,5) = 5
neigh(1,6) = 6
neigh(1,7) = 7
neigh(1,8) = 8
neigh(1,9) = 9
neigh(1,10) = 38
do i = 2, 9
nnum(i) = 2
neigh(i,1) = 1
neigh(i,2) = i + 12
end do
do i = 14, 21
nnum(i) = 2
neigh(i,1) = i - 12
neigh(i,2) = i + 12
end do
do i = 26, 33
nnum(i) = 1
neigh(i,1) = i - 12
end do
do i = 10, 13
nnum(i) = 2
neigh(i,1) = 38
neigh(i,2) = i + 12
end do
do i = 22, 25
nnum(i) = 2
neigh(i,1) = i - 12
neigh(i,2) = i + 12
end do
do i = 34, 37
nnum(i) = 1
neigh(i,1) = i - 12
end do
nnum(38) = 6
neigh(38,1) = 1
neigh(38,2) = 39
neigh(38,3) = 10
neigh(38,4) = 11
neigh(38,5) = 12
neigh(38,6) = 13
nnum(39) = 2
neigh(39,1) = 38
neigh(39,2) = 40
nnum(40) = 3
neigh(40,1) = 39
neigh(40,2) = 41
neigh(40,3) = 42
nnum(41) = 3
neigh(41,1) = 40
neigh(41,2) = 42
neigh(41,3) = 43
nnum(42) = 3
neigh(42,1) = 40
neigh(42,2) = 41
neigh(42,3) = 44
nnum(43) = 5
neigh(43,1) = 41
neigh(43,2) = 45
neigh(43,3) = 46
neigh(43,4) = 47
neigh(43,5) = 48
nnum(44) = 5
neigh(44,1) = 42
neigh(44,2) = 49
neigh(44,3) = 50
neigh(44,4) = 51
neigh(44,5) = 52
nnum(45) = 5
neigh(45,1) = 43
neigh(45,2) = 53
neigh(45,3) = 46
neigh(45,4) = 47
neigh(45,5) = 48
nnum(46) = 5
neigh(46,1) = 43
neigh(46,2) = 54
neigh(46,3) = 45
neigh(46,4) = 47
neigh(46,5) = 48
nnum(47) = 5
neigh(47,1) = 43
neigh(47,2) = 55
neigh(47,3) = 45
neigh(47,4) = 46
neigh(47,5) = 48
nnum(48) = 5
neigh(48,1) = 43
neigh(48,2) = 56
neigh(48,3) = 45
neigh(48,4) = 46
neigh(48,5) = 47
nnum(49) = 5
neigh(49,1) = 44
neigh(49,2) = 57
neigh(49,3) = 50
neigh(49,4) = 51
neigh(49,5) = 52
nnum(50) = 5
neigh(50,1) = 44
neigh(50,2) = 58
neigh(50,3) = 49
neigh(50,4) = 51
neigh(50,5) = 52
nnum(51) = 5
neigh(51,1) = 44
neigh(51,2) = 59
neigh(51,3) = 49
neigh(51,4) = 50
neigh(51,5) = 52
nnum(52) = 5
neigh(52,1) = 44
neigh(52,2) = 60
neigh(52,3) = 49
neigh(52,4) = 51
neigh(52,5) = 50
do i = 53, 60
nnum(i) = 2
neigh(i,1) = i - 8
neigh(i,2) = i + 8
end do
do i = 61, 68
nnum(i) = 1
neigh(i,1) = i - 8
end do
c DO 332, I = 1, 74
DO I = 1, 74
c WRITE(6,3330) I, NEIGH(I,1),NEIGH(I,2),NEIGH(I,3),NEIGH(I,4),
c X NEIGH(I,5),NEIGH(I,6),NEIGH(I,7),NEIGH(I,8),NEIGH(I,9),
c X NEIGH(I,10)
3330 FORMAT(2X,11I5)
END DO
332 CONTINUE
c DO 858, I = 1, 74
DO I = 1, 74
c DO 858, J = 1, NNUM(I)
DO J = 1, NNUM(I)
K = NEIGH(I,J)
IT = 0
c DO 859, L = 1, NNUM(K)
DO L = 1, NNUM(K)
IF (NEIGH(K,L).EQ.I) IT = 1
END DO
859 CONTINUE
IF (IT.EQ.0) THEN
c WRITE(6,8591) I, K
8591 FORMAT(' ASYMMETRY IN NEIGH MATRIX ',I4,I4)
STOP
ENDIF
END DO
END DO
858 CONTINUE
c length and radius of axonal compartments
c Note shortened "initial segment"
len(69) = 25.d0
do i = 70, 74
len(i) = 50.d0
end do
rad( 69) = 0.90d0
c rad( 69) = 0.80d0
rad( 70) = 0.7d0
do i = 71, 74
rad(i) = 0.5d0
end do
c length and radius of SD compartments
len(1) = 15.d0
rad(1) = 8.d0
do i = 2, 68
len(i) = 50.d0
end do
do i = 2, 37
rad(i) = 0.5d0
end do
z = 4.0d0
rad(38) = z
rad(39) = 0.9d0 * z
rad(40) = 0.8d0 * z
rad(41) = 0.5d0 * z
rad(42) = 0.5d0 * z
rad(43) = 0.5d0 * z
rad(44) = 0.5d0 * z
do i = 45, 68
rad(i) = 0.2d0 * z
end do
c WRITE(6,919)
919 FORMAT('COMPART.',' LEVEL ',' RADIUS ',' LENGTH(MU)')
c DO 920, I = 1, 74
c920 WRITE(6,921) I, LEVEL(I), RAD(I), LEN(I)
921 FORMAT(I3,5X,I2,3X,F6.2,1X,F6.1,2X,F4.3)
DO 120, I = 1, 74
AREA(I) = 2.d0 * PI * RAD(I) * LEN(I)
if((i.gt.1).and.(i.le.68)) area(i) = 2.d0 * area(i)
C CORRECTION FOR CONTRIBUTION OF SPINES TO AREA
K = LEVEL(I)
C(I) = CDENS * AREA(I) * (1.D-8)
if (k.ge.1) then
GL(I) = (1.D-2) * AREA(I) / RM_SD
else
GL(I) = (1.D-2) * AREA(I) / RM_AXON
endif
GNAF(I) = GNAF_DENS(K) * AREA(I) * (1.D-5)
GNAP(I) = GNAP_DENS(K) * AREA(I) * (1.D-5)
GCAT(I) = GCAT_DENS(K) * AREA(I) * (1.D-5)
GKDR(I) = GKDR_DENS(K) * AREA(I) * (1.D-5)
GKA(I) = GKA_DENS(K) * AREA(I) * (1.D-5)
GKC(I) = GKC_DENS(K) * AREA(I) * (1.D-5)
GKAHP(I) = GKAHP_DENS(K) * AREA(I) * (1.D-5)
GKM(I) = GKM_DENS(K) * AREA(I) * (1.D-5)
GCAL(I) = GCAL_DENS(K) * AREA(I) * (1.D-5)
GK2(I) = GK2_DENS(K) * AREA(I) * (1.D-5)
GAR(I) = GAR_DENS(K) * AREA(I) * (1.D-5)
c above conductances should be in microS
120 continue
Z = 0.d0
c DO 1019, I = 2, 68
DO I = 2, 68
Z = Z + AREA(I)
END DO
1019 CONTINUE
c WRITE(6,1020) Z
1020 FORMAT(2X,' TOTAL DENDRITIC AREA ',F7.0)
c DO 140, I = 1, 74
DO I = 1, 74
c DO 140, K = 1, NNUM(I)
DO K = 1, NNUM(I)
J = NEIGH(I,K)
if (level(i).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM1 =100.d0 * PI * RAD(I) * RAD(I) / ( RI * LEN(I) )
if (level(j).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM2 =100.d0 * PI * RAD(J) * RAD(J) / ( RI * LEN(J) )
GAM(I,J) = 2.d0/( (1.d0/GAM1) + (1.d0/GAM2) )
END DO
END DO
140 CONTINUE
c gam computed in microS
c DO 299, I = 1, 74
DO I = 1, 74
299 BETCHI(I) = .05d0
END DO
BETCHI( 1) = .01d0
c DO 300, I = 1, 74
DO I = 1, 74
c300 D(I) = 2.D-4
300 D(I) = 5.D-4
END DO
c DO 301, I = 1, 74
DO I = 1, 74
IF (LEVEL(I).EQ.1) D(I) = 2.D-3
END DO
301 CONTINUE
C NOTE NOTE NOTE (DIFFERENT FROM SWONG)
c DO 160, I = 1, 74
DO I = 1, 74
160 CAFOR(I) = 5200.d0 / (AREA(I) * D(I))
END DO
C NOTE CORRECTION
c do 200, i = 1, 74
do i = 1, numcomp
200 C(I) = 1000.d0 * C(I)
end do
C TO GO FROM MICROF TO NF.
c DO 909, I = 1, 74
DO I = 1, numcomp
JACOB(I,I) = - GL(I)
c DO 909, J = 1, NNUM(I)
DO J = 1, NNUM(I)
K = NEIGH(I,J)
IF (I.EQ.K) THEN
c WRITE(6,510) I
510 FORMAT(' UNEXPECTED SYMMETRY IN NEIGH ',I4)
ENDIF
JACOB(I,K) = GAM(I,K)
JACOB(I,I) = JACOB(I,I) - GAM(I,K)
END DO
END DO
909 CONTINUE
c 15 Jan. 2001: make correction for c(i)
do i = 1, numcomp
do j = 1, numcomp
jacob(i,j) = jacob(i,j) / c(i)
end do
end do
c DO 500, I = 1, 74
DO I = 1, 74
c WRITE (6,501) I,C(I)
501 FORMAT(1X,I3,' C(I) = ',F7.4)
END DO
500 CONTINUE
END
! 9 Sept. 2006: start with integrate_nontuftRSXX.f from isoldeepVFOK, and
! add GABA-B
c 31 Mar. 2005, modify with lower axonal fast gNa, shift axonal gNaF
c 11 Oct. 2004, allow for some of the cells (highest nontuftRS_nFRB
c of them) to be FRB, with altered gNaP, gKC & gCaL - see
c layVtup.f.3Feb04 - March 2017: no FRB
c 3 Nov. 2003, modify layVrsp.f (layer 5 nontufted. pyr cell with thin
c apical dendrite), for use in groucho.f
c 14 May 2003. Copy program from Rose and modify for mpi.
c 19 June 2001. Taken from scortpd.f. Parallel.
c 19 June 2001: layer V RS cell with "thin" dendrite, no apical tuft.
c See Kim & Connors, Mason & Larkman.
c 44 SD compartments, 6 axonal, total 50.
c 5 basal and 6 apical oblique dendrites, each with 3 compartments.
c 10-compartment apical dendrite, no branches (apart from obliques)
c 13 April 2001, version of scortp.f, for looking at dendritic activities.
c 7 April 2001, parallel version of scort.f
c 30 March 2001: layer 2/3 pyramidal cell, with geometry (as much as
c possible) from Guy Major thesis; start with tcr.f.
c Total 74 compartments: 6 axon. 8 basal and 3 oblique dendrites, each
c with 3 compartments: apical shaft and branch; 8 3-segment pieces in
c the "apical tuft".
c Revised tcr.f, using modifications developed in short.f
c 22 Feb. 2001: alter persistent gNaP to have lower threshold and
c 1st power activation; in addition, try increasing activation
c threshold of fast gNa, as per Parri & Crunelli 1998.
c 25 Jan. 2001, single TCR cell, modification of nrt.f
c TCR cell has 10 short dendrites, each with 13 compartments.
c Soma is compartment 1; axon is 132-137, with structure as in
c nRT cell model. Each dendrite has 2 layers of trifurcations.
c 28 Dec. 2000, begin converting interneuron program to nRT cell.
c Soma will be comp. 1. 4 equivalent dendrites, each with 13 comps.
c (so 53 SD compartments). Branching axon with 6 compartments - 59
c compartments in all. Try one integration program for whole structure.
c Currents: leak, fast Na (naf), persistent Na (nap), fast DR (kdr),
c A-current (ka), K2 current, M-current (km), C current (kc), AHP
c (kahp), T-current (cat), high-thresh. Ca (CAL), h-current = anomalous
c rectifier (ar).
SUBROUTINE integrate_nontuftRSXXB (O, time, numcell, V, curr,
& initialize, firstcell, lastcell,
& gAMPA, gNMDA, gGABA_A, gGABA_B,
& Mg, gapcon, totaxgj, gjtable, dt,
& chi,mnaf,mnap,
& hnaf,mkdr,mka,
& hka,mk2,hk2,
& mkm,mkc,mkahp,
& mcat,hcat,mcal,
& mar,field_1mm,field_2mm)
SAVE
integer, parameter:: numcomp = 50
c numcomp = number of compartments, including 6 in the axon.
integer numcell, totaxgj, gjtable(totaxgj,4)
integer initialize, firstcell, lastcell
INTEGER J1, I, J, K, L, O, k0, K1, k2
REAL*8 Z, Z1, Z2, Z3, curr(numcomp,numcell)
REAL*8 mg, time, gapcon, dt, c(numcomp)
c CINV is 1/C, i.e. inverse capacitance
real*8 v(numcomp,numcell),chi(numcomp,numcell),
x mnaf(numcomp,numcell),mnap(numcomp,numcell),
x hnaf(numcomp,numcell),mkdr(numcomp,numcell),
x mka(numcomp,numcell),hka(numcomp,numcell),
x mk2(numcomp,numcell), cinv(numcomp),
x hk2(numcomp,numcell),mkm(numcomp,numcell),
x mkc(numcomp,numcell),mkahp(numcomp,numcell),
x mcat(numcomp,numcell),hcat(numcomp,numcell),
x mcal(numcomp,numcell),
x mar(numcomp,numcell),
x jacob(numcomp,numcomp),betchi(numcomp),
x gam(0: numcomp,0: numcomp),gL(numcomp),gnaf(numcomp),
x gnap(numcomp),gkdr(numcomp),gka(numcomp),
x gk2(numcomp),gkm(numcomp),gkc(numcomp),gkahp(numcomp),
x gcat(numcomp),gcaL(numcomp),gar(numcomp),
x gampa(numcomp,numcell),gnmda(numcomp,numcell),
x ggaba_a(numcomp,numcell),cafor(numcomp),
x ggaba_b(numcomp,numcell)
real*8 gnap_RS(numcomp), gkc_RS(numcomp), gcal_RS(numcomp)
real*8
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
real*8 vL(numcomp),vk(numcomp),vna,var,vca,vgaba_a
real*8 outrcd(20), A, BB1, BB2
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
c the f's are the functions giving 1st derivatives for evolution of
c the differential equations for the voltages (v), calcium (chi), and
c other state variables.
real*8 fv(numcomp), fchi(numcomp),
x fmnaf(numcomp),fhnaf(numcomp),fmkdr(numcomp),
x fmka(numcomp),fhka(numcomp),fmar(numcomp),
x fmk2(numcomp),fhk2(numcomp),fmnap(numcomp),
x fmkm(numcomp),fmkc(numcomp),fmkahp(numcomp),
x fmcat(numcomp),fhcat(numcomp),fmcal(numcomp)
c below are for calculating the partial derivatives
real*8 dfv_dv(numcomp,numcomp), dfv_dchi(numcomp),
x dfv_dmnaf(numcomp),
x dfv_dmnap(numcomp),
x dfv_dhnaf(numcomp),dfv_dmkdr(numcomp),
x dfv_dmka(numcomp),dfv_dhka(numcomp),
x dfv_dmk2(numcomp),dfv_dhk2(numcomp),
x dfv_dmkm(numcomp),dfv_dmkc(numcomp),
x dfv_dmkahp(numcomp),dfv_dmcat(numcomp),
x dfv_dhcat(numcomp),dfv_dmcal(numcomp),
x dfv_dmar(numcomp)
real*8 dfchi_dv(numcomp), dfchi_dchi(numcomp),
x dfmnaf_dmnaf(numcomp), dfmnaf_dv(numcomp),
x dfhnaf_dhnaf(numcomp),
x dfmnap_dmnap(numcomp), dfmnap_dv(numcomp),
x dfhnaf_dv(numcomp),dfmkdr_dmkdr(numcomp),
x dfmkdr_dv(numcomp),
x dfmka_dmka(numcomp),dfmka_dv(numcomp),
x dfhka_dhka(numcomp),dfhka_dv(numcomp),
x dfmk2_dmk2(numcomp),dfmk2_dv(numcomp),
x dfhk2_dhk2(numcomp),dfhk2_dv(numcomp),
x dfmkm_dmkm(numcomp),dfmkm_dv(numcomp),
x dfmkc_dmkc(numcomp),dfmkc_dv(numcomp),
x dfmcat_dmcat(numcomp),dfmcat_dv(numcomp),
x dfhcat_dhcat(numcomp),
x dfhcat_dv(numcomp),dfmcal_dmcal(numcomp),
x dfmcal_dv(numcomp),
x dfmar_dmar(numcomp),dfmar_dv(numcomp),
x dfmkahp_dchi(numcomp),
x dfmkahp_dmkahp(numcomp), dt2
REAL*8 OPEN(numcomp),gamma(numcomp),gamma_prime(numcomp)
c gamma is function of chi used in calculating KC conductance
REAL*8 alpham_ahp(numcomp), alpham_ahp_prime(numcomp)
REAL*8 gna_tot(numcomp),gk_tot(numcomp)
REAL*8 gca_tot(numcomp),gar_tot(numcomp)
REAL*8 gca_high(numcomp)
c this will be gCa conductance corresponding to high-thresh channels
real*8 depth(14), membcurr(14), field_1mm, field_2mm
integer level(numcomp)
double precision:: persistentNa_shift, fastNa_shift_SD
double precision:: fastNa_shift_axon
c Do initialization on 1st time step
if (initialize.eq.0) then
c if (O.eq.1) then
c Program assumes A, BB1, BB2 defined in calling program
c as follows:
A = DEXP(-2.847d0)
BB1 = DEXP(-.693d0)
BB2 = DEXP(-3.101d0)
CALL nontuftRS_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
CALL nontuftRSMAJ (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
do i = 1, numcomp
cinv(i) = 1.d0 / c(i)
end do
vL = -70.d0
vK = -95.d0
VNA = 50.d0
VCA = 125.d0
VAR = -43.d0
VAR = -35.d0
c -43 mV from Huguenard & McCormick
c VGABA_A = -81.d0
VGABA_A = -75.d0
c ? initialize membrane state variables?
v = VL(1)
k1 = idnint (4.d0 * (v(1,1) + 120.d0))
hnaf = alphah_naf(k1)/(alphah_naf(k1)+betah_naf(k1))
hka = alphah_ka(k1)/(alphah_ka(k1)+betah_ka(k1))
hk2 = alphah_k2(k1)/(alphah_k2(k1)+betah_k2(k1))
hcat=alphah_cat(k1)/(alphah_cat(k1)+betah_cat(k1))
c mar=alpham_ar(k1)/(alpham_ar(k1)+betam_ar(k1))
mar= .25d0
mnaf = 0.d0
mkdr = 0.d0
mka = 0.d0
mk2 = 0.d0
mkm = 0.d0
mkc = 0.d0
mkahp = 0.d0
mcat = 0.d0
mcal = 0.d0
mnap = 0.d0
chi = 0.d0
z1 = 0.10d0
c z2 = 2.0d0
z2 = 1.0d0
c This should give an RS cell?
! now scale for RS cells
do i = 1, numcomp
gnap_RS(i) = z1 * gnap(i)
gkc_RS (i) = z2 * gkc (i)
gcal_RS(i) = gcal(i)
end do
goto 4000
endif ! End initialization
do i = 1, 14
membcurr(i) = 0.d0
end do
c do L = 1, numcell
do L = firstcell, lastcell
gnap = gnap_RS
gkc = gkc_RS
gcal = gcal_RS
DO 301, I = 1, numcomp
FV(I) = -GL(I) * (V(I,L) - VL(i)) * cinv(i)
DO 302, J = 1, NNUM(I)
K = NEIGH(I,J)
302 FV(I) = FV(I) + GAM(I,K) * (V(K,L) - V(I,L)) * cinv(i)
301 CONTINUE
CALL FNMDA (V, OPEN, numcell, numcomp, MG, L,
& A, BB1, BB2)
DO 421, I = 1, numcomp
FV(I) = FV(I) + ( CURR(I,L)
X - (gampa(I,L) + open(i) * gnmda(I,L))*V(I,L)
X - ggaba_a(I,L)*(V(I,L)-Vgaba_a)
X - ggaba_b(I,L)*(V(I,L)-VK(i) ) ) * cinv(i)
c above assumes equil. potential for AMPA & NMDA = 0 mV
421 continue
! gj code here
do m = 1, totaxgj
if (gjtable(m,1).eq.L) then
L1 = gjtable(m,3)
igap1 = gjtable(m,2)
igap2 = gjtable(m,4)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
else if (gjtable(m,3).eq.L) then
L1 = gjtable(m,1)
igap1 = gjtable(m,4)
igap2 = gjtable(m,2)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
endif
end do ! do m
do i = 1, numcomp
gamma(i) = dmin1 (1.d0, .004d0 * chi(i,L))
if (chi(i,L).le.250.d0) then
gamma_prime(i) = .004d0
else
gamma_prime(i) = 0.d0
endif
c endif
end do
DO 88, I = 1, numcomp
gna_tot(i) = gnaf(i) * (mnaf(i,L)**3) * hnaf(i,L) +
x gnap(i) * mnap(i,L)
gk_tot(i) = gkdr(i) * (mkdr(i,L)**4) +
x gka(i) * (mka(i,L)**4) * hka(i,L) +
x gk2(i) * mk2(i,L) * hk2(i,L) +
x gkm(i) * mkm(i,L) +
x gkc(i) * mkc(i,L) * gamma(i) +
x gkahp(i)* mkahp(i,L)
gca_tot(i) = gcat(i) * (mcat(i,L)**2) * hcat(i,L) +
x gcaL(i) * (mcaL(i,L)**2)
gca_high(i) =
x gcaL(i) * (mcaL(i,L)**2)
gar_tot(i) = gar(i) * mar(i,L)
FV(I) = FV(I) - ( gna_tot(i) * (v(i,L) - vna)
X + gk_tot(i) * (v(i,L) - vK(i))
X + gca_tot(i) * (v(i,L) - vCa)
X + gar_tot(i) * (v(i,L) - var) ) * cinv(i)
c endif
88 continue
do i = 1, numcomp
do j = 1, numcomp
if (i.ne.j) then
dfv_dv(i,j) = jacob(i,j)
else
dfv_dv(i,j) = jacob(i,i) - cinv(i) *
X (gna_tot(i) + gk_tot(i) + gca_tot(i) + gar_tot(i)
X + ggaba_a(i,L) + ggaba_b(i,L) + gampa(i,L)
X + open(i) * gnmda(I,L) )
endif
end do
end do
do i = 1, numcomp
dfv_dchi(i) = - cinv(i) * gkc(i) * mkc(i,L) *
x gamma_prime(i) * (v(i,L)-vK(i))
dfv_dmnaf(i) = -3.d0 * cinv(i) * (mnaf(i,L)**2) *
X (gnaf(i) * hnaf(i,L) ) * (v(i,L) - vna)
dfv_dmnap(i) = - cinv(i) *
X ( gnap(i)) * (v(i,L) - vna)
dfv_dhnaf(i) = - cinv(i) * gnaf(i) * (mnaf(i,L)**3) *
X (v(i,L) - vna)
dfv_dmkdr(i) = -4.d0 * cinv(i) * gkdr(i) * (mkdr(i,L)**3)
X * (v(i,L) - vK(i))
dfv_dmka(i) = -4.d0 * cinv(i) * gka(i) * (mka(i,L)**3) *
X hka(i,L) * (v(i,L) - vK(i))
dfv_dhka(i) = - cinv(i) * gka(i) * (mka(i,L)**4) *
X (v(i,L) - vK(i))
dfv_dmk2(i) = - cinv(i)*gk2(i)*hk2(i,L)*(v(i,L)-vK(i))
dfv_dhk2(i) = - cinv(i)*gk2(i)*mk2(i,L)*(v(i,L)-vK(i))
dfv_dmkm(i) = - cinv(i) * gkm(i) * (v(i,L) - vK(i))
dfv_dmkc(i) = - cinv(i) * gkc(i) * gamma(i)*(v(i,L)-vK(i))
dfv_dmkahp(i)= - cinv(i) * gkahp(i) * (v(i,L) - vK(i))
dfv_dmcat(i) = -2.d0 * cinv(i) * gcat(i) * mcat(i,L) *
X hcat(i,L) * (v(i,L) - vCa)
dfv_dhcat(i) = - cinv(i) * gcat(i) * (mcat(i,L)**2) *
X (v(i,L) - vCa)
dfv_dmcal(i) = -2.d0 * cinv(i) * gcal(i) * mcal(i,L) *
X (v(i,L) - vCa)
dfv_dmar(i) = - cinv(i) * gar(i) * (v(i,L) - var)
end do
do i = 1, numcomp
fchi(i) = - cafor(i) * gca_high(i) * (v(i,L) - vca)
x - betchi(i) * chi(i,L)
dfchi_dv(i) = - cafor(i) * gca_high(i)
dfchi_dchi(i) = - betchi(i)
end do
do i = 1, numcomp
c Note possible increase in rate at which AHP current develops
c alpham_ahp(i) = dmin1(0.2d-4 * chi(i),0.01d0)
alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.01d0)
if (chi(i,L).le.500.d0) then
c alpham_ahp_prime(i) = 0.2d-4
alpham_ahp_prime(i) = 1.0d-4
else
alpham_ahp_prime(i) = 0.d0
endif
end do
do i = 1, numcomp
fmkahp(i) = alpham_ahp(i) * (1.d0 - mkahp(i,L))
x -.001d0 * mkahp(i,L)
c x -.010d0 * mkahp(i,L)
dfmkahp_dmkahp(i) = - alpham_ahp(i) - .001d0
c dfmkahp_dmkahp(i) = - alpham_ahp(i) - .010d0
dfmkahp_dchi(i) = alpham_ahp_prime(i) *
x (1.d0 - mkahp(i,L))
end do
do i = 1, numcomp
K1 = IDNINT ( 4.d0 * (V(I,L) + 120.d0) )
IF (K1.GT.640) K1 = 640
IF (K1.LT. 0) K1 = 0
c persistentNa_shift = 0.d0
c persistentNa_shift = 8.d0
persistentNa_shift = 10.d0
K2 = IDNINT ( 4.d0 * (V(I,L)+persistentNa_shift+ 120.d0) )
IF (K2.GT.640) K2 = 640
IF (K2.LT. 0) K2 = 0
c fastNa_shift = -2.0d0
c fastNa_shift = -2.5d0
fastNa_shift_SD = -3.5d0
fastNa_shift_axon = fastNa_shift_SD + 7.d0
K0 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_SD+ 120.d0) )
K3 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_axon+ 120.d0) )
IF (K0.GT.640) K0 = 640
IF (K0.LT. 0) K0 = 0
IF (K3.GT.640) K3 = 640
IF (K3.LT. 0) K3 = 0
if (i.le.44) then
fmnaf(i) = alpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X betam_naf(k0) * mnaf(i,L)
fhnaf(i) = alphah_naf(k0) * (1.d0 - hnaf(i,L)) -
X betah_naf(k0) * hnaf(i,L)
else
fmnaf(i) = alpham_naf(k3) * (1.d0 - mnaf(i,L)) -
X betam_naf(k3) * mnaf(i,L)
fhnaf(i) = alphah_naf(k3) * (1.d0 - hnaf(i,L)) -
X betah_naf(k3) * hnaf(i,L)
endif
fmnap(i) = alpham_naf(k2) * (1.d0 - mnap(i,L)) -
X betam_naf(k2) * mnap(i,L)
fmkdr(i) = alpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X betam_kdr(k1) * mkdr(i,L)
fmka(i) = alpham_ka (k1) * (1.d0 - mka(i,L)) -
X betam_ka (k1) * mka(i,L)
fhka(i) = alphah_ka (k1) * (1.d0 - hka(i,L)) -
X betah_ka (k1) * hka(i,L)
fmk2(i) = alpham_k2 (k1) * (1.d0 - mk2(i,L)) -
X betam_k2 (k1) * mk2(i,L)
fhk2(i) = alphah_k2 (k1) * (1.d0 - hk2(i,L)) -
X betah_k2 (k1) * hk2(i,L)
fmkm(i) = alpham_km (k1) * (1.d0 - mkm(i,L)) -
X betam_km (k1) * mkm(i,L)
fmkc(i) = alpham_kc (k1) * (1.d0 - mkc(i,L)) -
X betam_kc (k1) * mkc(i,L)
fmcat(i) = alpham_cat(k1) * (1.d0 - mcat(i,L)) -
X betam_cat(k1) * mcat(i,L)
fhcat(i) = alphah_cat(k1) * (1.d0 - hcat(i,L)) -
X betah_cat(k1) * hcat(i,L)
fmcaL(i) = alpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X betam_caL(k1) * mcaL(i,L)
fmar(i) = alpham_ar (k1) * (1.d0 - mar(i,L)) -
X betam_ar (k1) * mar(i,L)
dfmnaf_dv(i) = dalpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X dbetam_naf(k0) * mnaf(i,L)
dfmnap_dv(i) = dalpham_naf(k2) * (1.d0 - mnap(i,L)) -
X dbetam_naf(k2) * mnap(i,L)
dfhnaf_dv(i) = dalphah_naf(k1) * (1.d0 - hnaf(i,L)) -
X dbetah_naf(k1) * hnaf(i,L)
dfmkdr_dv(i) = dalpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X dbetam_kdr(k1) * mkdr(i,L)
dfmka_dv(i) = dalpham_ka(k1) * (1.d0 - mka(i,L)) -
X dbetam_ka(k1) * mka(i,L)
dfhka_dv(i) = dalphah_ka(k1) * (1.d0 - hka(i,L)) -
X dbetah_ka(k1) * hka(i,L)
dfmk2_dv(i) = dalpham_k2(k1) * (1.d0 - mk2(i,L)) -
X dbetam_k2(k1) * mk2(i,L)
dfhk2_dv(i) = dalphah_k2(k1) * (1.d0 - hk2(i,L)) -
X dbetah_k2(k1) * hk2(i,L)
dfmkm_dv(i) = dalpham_km(k1) * (1.d0 - mkm(i,L)) -
X dbetam_km(k1) * mkm(i,L)
dfmkc_dv(i) = dalpham_kc(k1) * (1.d0 - mkc(i,L)) -
X dbetam_kc(k1) * mkc(i,L)
dfmcat_dv(i) = dalpham_cat(k1) * (1.d0 - mcat(i,L)) -
X dbetam_cat(k1) * mcat(i,L)
dfhcat_dv(i) = dalphah_cat(k1) * (1.d0 - hcat(i,L)) -
X dbetah_cat(k1) * hcat(i,L)
dfmcaL_dv(i) = dalpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X dbetam_caL(k1) * mcaL(i,L)
dfmar_dv(i) = dalpham_ar(k1) * (1.d0 - mar(i,L)) -
X dbetam_ar(k1) * mar(i,L)
dfmnaf_dmnaf(i) = - alpham_naf(k0) - betam_naf(k0)
dfmnap_dmnap(i) = - alpham_naf(k2) - betam_naf(k2)
dfhnaf_dhnaf(i) = - alphah_naf(k1) - betah_naf(k1)
dfmkdr_dmkdr(i) = - alpham_kdr(k1) - betam_kdr(k1)
dfmka_dmka(i) = - alpham_ka (k1) - betam_ka (k1)
dfhka_dhka(i) = - alphah_ka (k1) - betah_ka (k1)
dfmk2_dmk2(i) = - alpham_k2 (k1) - betam_k2 (k1)
dfhk2_dhk2(i) = - alphah_k2 (k1) - betah_k2 (k1)
dfmkm_dmkm(i) = - alpham_km (k1) - betam_km (k1)
dfmkc_dmkc(i) = - alpham_kc (k1) - betam_kc (k1)
dfmcat_dmcat(i) = - alpham_cat(k1) - betam_cat(k1)
dfhcat_dhcat(i) = - alphah_cat(k1) - betah_cat(k1)
dfmcaL_dmcaL(i) = - alpham_caL(k1) - betam_caL(k1)
dfmar_dmar(i) = - alpham_ar (k1) - betam_ar (k1)
end do
dt2 = 0.5d0 * dt * dt
do i = 1, numcomp
v(i,L) = v(i,L) + dt * fv(i)
do j = 1, numcomp
v(i,L) = v(i,L) + dt2 * dfv_dv(i,j) * fv(j)
end do
v(i,L) = v(i,L) + dt2 * ( dfv_dchi(i) * fchi(i)
X + dfv_dmnaf(i) * fmnaf(i)
X + dfv_dmnap(i) * fmnap(i)
X + dfv_dhnaf(i) * fhnaf(i)
X + dfv_dmkdr(i) * fmkdr(i)
X + dfv_dmka(i) * fmka(i)
X + dfv_dhka(i) * fhka(i)
X + dfv_dmk2(i) * fmk2(i)
X + dfv_dhk2(i) * fhk2(i)
X + dfv_dmkm(i) * fmkm(i)
X + dfv_dmkc(i) * fmkc(i)
X + dfv_dmkahp(i)* fmkahp(i)
X + dfv_dmcat(i) * fmcat(i)
X + dfv_dhcat(i) * fhcat(i)
X + dfv_dmcaL(i) * fmcaL(i)
X + dfv_dmar(i) * fmar(i) )
chi(i,L) = chi(i,L) + dt * fchi(i) + dt2 *
X (dfchi_dchi(i) * fchi(i) + dfchi_dv(i) * fv(i))
mnaf(i,L) = mnaf(i,L) + dt * fmnaf(i) + dt2 *
X (dfmnaf_dmnaf(i) * fmnaf(i) + dfmnaf_dv(i)*fv(i))
mnap(i,L) = mnap(i,L) + dt * fmnap(i) + dt2 *
X (dfmnap_dmnap(i) * fmnap(i) + dfmnap_dv(i)*fv(i))
hnaf(i,L) = hnaf(i,L) + dt * fhnaf(i) + dt2 *
X (dfhnaf_dhnaf(i) * fhnaf(i) + dfhnaf_dv(i)*fv(i))
mkdr(i,L) = mkdr(i,L) + dt * fmkdr(i) + dt2 *
X (dfmkdr_dmkdr(i) * fmkdr(i) + dfmkdr_dv(i)*fv(i))
mka(i,L) = mka(i,L) + dt * fmka(i) + dt2 *
X (dfmka_dmka(i) * fmka(i) + dfmka_dv(i) * fv(i))
hka(i,L) = hka(i,L) + dt * fhka(i) + dt2 *
X (dfhka_dhka(i) * fhka(i) + dfhka_dv(i) * fv(i))
mk2(i,L) = mk2(i,L) + dt * fmk2(i) + dt2 *
X (dfmk2_dmk2(i) * fmk2(i) + dfmk2_dv(i) * fv(i))
hk2(i,L) = hk2(i,L) + dt * fhk2(i) + dt2 *
X (dfhk2_dhk2(i) * fhk2(i) + dfhk2_dv(i) * fv(i))
mkm(i,L) = mkm(i,L) + dt * fmkm(i) + dt2 *
X (dfmkm_dmkm(i) * fmkm(i) + dfmkm_dv(i) * fv(i))
mkc(i,L) = mkc(i,L) + dt * fmkc(i) + dt2 *
X (dfmkc_dmkc(i) * fmkc(i) + dfmkc_dv(i) * fv(i))
mkahp(i,L) = mkahp(i,L) + dt * fmkahp(i) + dt2 *
X (dfmkahp_dmkahp(i)*fmkahp(i) + dfmkahp_dchi(i)*fchi(i))
mcat(i,L) = mcat(i,L) + dt * fmcat(i) + dt2 *
X (dfmcat_dmcat(i) * fmcat(i) + dfmcat_dv(i) * fv(i))
hcat(i,L) = hcat(i,L) + dt * fhcat(i) + dt2 *
X (dfhcat_dhcat(i) * fhcat(i) + dfhcat_dv(i) * fv(i))
mcaL(i,L) = mcaL(i,L) + dt * fmcaL(i) + dt2 *
X (dfmcaL_dmcaL(i) * fmcaL(i) + dfmcaL_dv(i) * fv(i))
mar(i,L) = mar(i,L) + dt * fmar(i) + dt2 *
X (dfmar_dmar(i) * fmar(i) + dfmar_dv(i) * fv(i))
c endif
end do
! Add membrane currents into membcurr for appropriate compartments
do i = 1, 6
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 13, 17
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 24, 28
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 35, 44
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
end do ! do L
field_1mm = 0.d0
field_2mm = 0.d0
do i = 1, 14
field_1mm = field_1mm + membcurr(i) / dabs(1000.d0 - depth(i))
field_2mm = field_2mm + membcurr(i) / dabs(2000.d0 - depth(i))
end do
4000 END
SUBROUTINE nontuftRSMAJ
C BRANCHED ACTIVE DENDRITES
X (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
c Conductances: leak gL, coupling g, delayed rectifier gKDR, A gKA,
c C gKC, AHP gKAHP, K2 gK2, M gKM, low thresh Ca gCAT, high thresh
c gCAL, fast Na gNAF, persistent Na gNAP, h or anom. rectif. gAR.
c Note VAR = equil. potential for anomalous rectifier.
c Soma = comp. 1; 10 dendrites each with 13 compartments, 6-comp. axon
c Drop "glc"-like terms, just using "gl"-like
c CAFOR corresponds to "phi" in Traub et al., 1994
c Consistent set of units: nF, mV, ms, nA, microS
integer, parameter:: numcomp = 50
REAL*8 C(numcomp),GL(numcomp),GAM(0:numcomp,0:numcomp)
REAL*8 GNAF(numcomp),GCAT(numcomp)
REAL*8 GKDR(numcomp),GKA(numcomp),GKC(numcomp)
REAL*8 GKAHP(numcomp),GCAL(numcomp)
REAL*8 GK2(numcomp),GKM(numcomp),GNAP(numcomp),GAR(numcomp)
REAL*8 JACOB(numcomp,numcomp),RI_SD,RI_AXON,RM_SD,RM_AXON
INTEGER LEVEL(numcomp)
REAL*8 GNAF_DENS(0:14), GCAT_DENS(0:14), GKDR_DENS(0:14)
REAL*8 GKA_DENS(0:14), GKC_DENS(0:14), GKAHP_DENS(0:14)
REAL*8 GCAL_DENS(0:14), GK2_DENS(0:14), GKM_DENS(0:14)
REAL*8 GNAP_DENS(0:14), GAR_DENS(0:14)
REAL*8 RES, RINPUT, CDENS
REAL*8 RSOMA, PI, BETCHI(numcomp), CAFOR(numcomp)
REAL*8 RAD(numcomp),LEN(numcomp),GAM1,GAM2,ELEN(numcomp)
REAL*8 RIN, D(numcomp), AREA(numcomp), RI, Z
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
C FOR ESTABLISHING TOPOLOGY OF COMPARTMENTS
real*8 depth(14) ! in microns, subscript refers to level
depth(1) = 2200.d0
depth(2) = 2245.d0
depth(3) = 2290.d0
depth(4) = 2335.d0
depth(5) = 2175.d0
depth(6) = 2125.d0
depth(7) = 2075.d0
depth(8) = 2025.d0
depth(9) = 1975.d0
depth(10) = 1925.d0
depth(11) = 1875.d0
depth(12) = 1825.d0
depth(13) = 1775.d0
depth(14) = 1725.d0
RI_SD = 250.d0
RM_SD = 50000.d0
RI_AXON = 100.d0
RM_AXON = 1000.d0
CDENS = 0.9d0
PI = 3.14159d0
gnaf_dens = 5.d0
c gnaf_dens = 10.d0
c gnaf_dens(0) = 450.d0
gnaf_dens(0) = 175.d0
c gnaf_dens(1) = 200.d0
gnaf_dens(1) = 175.d0
gnaf_dens(2) = 75.d0
gnaf_dens(5) = 150.d0
gnaf_dens(6) = 75.d0
gkdr_dens = 0.d0
gkdr_dens(0) = 450.d0
gkdr_dens(1) = 170.d0
gkdr_dens(2) = 75.d0
gkdr_dens(5) = 120.d0
gkdr_dens(6) = 75.d0
do i = 1, 14
gnap_dens(i) = 0.0040d0 * gnaf_dens(i)
end do
do i = 1, 14
gcat_dens(i) = 0.1d0
end do
do i = 1, 9
gcaL_dens(i) = 0.20d0
end do
do i = 10, 14
gcaL_dens(i) = 2.0d0
end do
gka_dens = 4.d0
gka_dens(1) = 35.d0
gka_dens(5) = 35.d0
do i = 1, 14
gka_dens(i) = 3.4d0 * gka_dens(i)
end do
gkc_dens = 0.00d0
gkc_dens(1) = 7.50d0
gkc_dens(2) = 7.50d0
gkc_dens(5) = 7.50d0
gkc_dens(6) = 7.50d0
do i = 1, 14
c gkm_dens(i) = 1.4d0 * 1.50d0
gkm_dens(i) = 2.8d0 * 1.50d0
end do
gk2_dens = 0.1d0
do i = 1, 14
c gkahp_dens(i) = 0.100d0
gkahp_dens(i) = 0.200d0
end do
do i = 1, 14
gar_dens(i) = 0.25d0
end do
c if (thisno.eq.0) then
c WRITE (6,9988)
9988 FORMAT(2X,'I',4X,'NADENS',' CADENS(L)',' KDRDEN',' KAHPDE',
X ' KCDENS',' KADENS')
DO 9989, I = 0, 14
c WRITE (6,9990) I, gnaf_dens(i), gcaL_dens(i), gkdr_dens(i),
c X gkahp_dens(i), gkc_dens(i), gka_dens(i)
9990 FORMAT(2X,I2,2X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2)
9989 CONTINUE
c endif
level(1) = 1
do i = 2, 12
level(i) = 2
end do
do i = 13, 23
level(i) = 3
end do
do i = 24, 34
level(i) = 4
end do
level(35) = 5
level(36) = 6
level(37) = 7
level(38) = 8
level(39) = 9
level(40) = 10
level(41) = 11
level(42) = 12
level(43) = 13
level(44) = 14
do i = 45, 50
level(i) = 0
end do
c connectivity of axon
nnum( 45) = 2
nnum( 46) = 3
nnum( 47) = 3
nnum( 49) = 3
nnum( 48) = 1
nnum( 50) = 1
neigh(45,1) = 1
neigh(45,2) = 46
neigh(46,1) = 45
neigh(46,2) = 47
neigh(46,3) = 49
neigh(47,1) = 46
neigh(47,2) = 48
neigh(47,3) = 49
neigh(49,1) = 46
neigh(49,2) = 47
neigh(49,3) = 50
neigh(48,1) = 47
neigh(50,1) = 49
c connectivity of SD part
nnum(1) = 7
neigh(1,1) = 45
neigh(1,2) = 2
neigh(1,3) = 3
neigh(1,4) = 4
neigh(1,5) = 5
neigh(1,6) = 6
neigh(1,7) = 35
do i = 2, 6
nnum(i) = 2
neigh(i,1) = 1
neigh(i,2) = i + 11
end do
do i = 13, 17
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 24, 28
nnum(i) = 1
neigh(i,1) = i - 11
end do
do i = 7, 12
nnum(i) = 2
if ((i.eq.7).or.(i.eq.12)) neigh(i,1) = 35
if ((i.eq.8).or.(i.eq.11)) neigh(i,1) = 36
if ((i.eq.9).or.(i.eq.10)) neigh(i,1) = 37
neigh(i,2) = i + 11
end do
do i = 18, 23
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 29, 34
nnum(i) = 1
neigh(i,1) = i - 11
end do
nnum(35) = 4
neigh(35,1) = 1
neigh(35,2) = 36
neigh(35,3) = 7
neigh(35,4) = 12
nnum(36) = 4
neigh(36,1) = 35
neigh(36,2) = 37
neigh(36,3) = 8
neigh(36,4) = 11
nnum(37) = 4
neigh(37,1) = 36
neigh(37,2) = 38
neigh(37,3) = 9
neigh(37,4) = 10
nnum(38) = 2
neigh(38,1) = 37
neigh(38,2) = 39
nnum(39) = 2
neigh(39,1) = 38
neigh(39,2) = 40
nnum(40) = 2
neigh(40,1) = 39
neigh(40,2) = 41
nnum(41) = 2
neigh(41,1) = 40
neigh(41,2) = 42
nnum(42) = 2
neigh(42,1) = 41
neigh(42,2) = 43
nnum(43) = 2
neigh(43,1) = 42
neigh(43,2) = 44
nnum(44) = 1
neigh(44,1) = 43
c if (thisno.eq.0) then
DO 332, I = 1, numcomp
c WRITE(6,3330) I, NEIGH(I,1),NEIGH(I,2),NEIGH(I,3),NEIGH(I,4),
c X NEIGH(I,5),NEIGH(I,6),NEIGH(I,7)
3330 FORMAT(2X, 8I5)
332 CONTINUE
c endif
DO 858, I = 1, numcomp
DO 858, J = 1, NNUM(I)
K = NEIGH(I,J)
IT = 0
DO 859, L = 1, NNUM(K)
IF (NEIGH(K,L).EQ.I) IT = 1
859 CONTINUE
IF (IT.EQ.0) THEN
c WRITE(6,8591) I, K
8591 FORMAT(' ASYMMETRY IN NEIGH MATRIX ',I4,I4)
STOP
ENDIF
858 CONTINUE
c length and radius of axonal compartments
c Note shortened "initial segment"
len(45) = 25.d0
do i = 46, 50
len(i) = 50.d0
end do
rad( 45) = 0.90d0
rad( 46) = 0.7d0
do i = 47, 50
rad(i) = 0.5d0
end do
c length and radius of SD compartments
len(1) = 20.d0
rad(1) = 8.d0
do i = 2, 34
len(i) = 60.d0
end do
do i = 35, 44
len(i) = 50.d0
end do
do i = 2, 6
rad(i) = 0.85d0
end do
do i = 13, 17
rad(i) = 0.85d0
end do
do i = 24, 28
rad(i) = 0.85d0
end do
do i = 7, 12
rad(i) = 0.62d0
end do
do i = 18, 23
rad(i) = 0.62d0
end do
do i = 29, 34
rad(i) = 0.62d0
end do
rad(35) = 1.5d0
rad(36) = 1.4d0
rad(37) = 1.3d0
rad(38) = 1.2d0
rad(39) = 1.1d0
rad(40) = 1.0d0
rad(41) = 0.9d0
rad(42) = 0.8d0
rad(43) = 0.7d0
rad(44) = 0.6d0
c if (thisno.eq.0) then
WRITE(6,919)
919 FORMAT('COMPART.',' LEVEL ',' RADIUS ',' LENGTH(MU)')
c DO 920, I = 1, numcomp
c920 WRITE(6,921) I, LEVEL(I), RAD(I), LEN(I)
921 FORMAT(I3,5X,I2,3X,F6.2,1X,F6.1,2X,F4.3)
c endif
DO 120, I = 1, numcomp
AREA(I) = 2.d0 * PI * RAD(I) * LEN(I)
if((i.gt.1).and.(i.le.44)) area(i) = 2.d0 * area(i)
C CORRECTION FOR CONTRIBUTION OF SPINES TO AREA
K = LEVEL(I)
C(I) = CDENS * AREA(I) * (1.D-8)
if (k.ge.1) then
GL(I) = (1.D-2) * AREA(I) / RM_SD
else
GL(I) = (1.D-2) * AREA(I) / RM_AXON
endif
GNAF(I) = GNAF_DENS(K) * AREA(I) * (1.D-5)
GNAP(I) = GNAP_DENS(K) * AREA(I) * (1.D-5)
GCAT(I) = GCAT_DENS(K) * AREA(I) * (1.D-5)
GKDR(I) = GKDR_DENS(K) * AREA(I) * (1.D-5)
GKA(I) = GKA_DENS(K) * AREA(I) * (1.D-5)
GKC(I) = GKC_DENS(K) * AREA(I) * (1.D-5)
GKAHP(I) = GKAHP_DENS(K) * AREA(I) * (1.D-5)
GCAL(I) = GCAL_DENS(K) * AREA(I) * (1.D-5)
GK2(I) = GK2_DENS(K) * AREA(I) * (1.D-5)
GKM(I) = GKM_DENS(K) * AREA(I) * (1.D-5)
GAR(I) = GAR_DENS(K) * AREA(I) * (1.D-5)
c above conductances should be in microS
120 continue
Z = 0.d0
DO 1019, I = 2, 44
Z = Z + AREA(I)
1019 CONTINUE
c if (thisno.eq.1) then
c WRITE(6,1020) Z
c endif
1020 FORMAT(2X,' TOTAL DENDRITIC AREA ',F7.0)
DO 140, I = 1, numcomp
DO 140, K = 1, NNUM(I)
J = NEIGH(I,K)
if (level(i).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM1 =100.d0 * PI * RAD(I) * RAD(I) / ( RI * LEN(I) )
if (level(j).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM2 =100.d0 * PI * RAD(J) * RAD(J) / ( RI * LEN(J) )
GAM(I,J) = 2.d0/( (1.d0/GAM1) + (1.d0/GAM2) )
140 CONTINUE
c gam computed in microS
DO 299, I = 1, numcomp
299 BETCHI(I) = .05d0
BETCHI( 1) = .01d0
DO 300, I = 1, numcomp
300 D(I) = 4.D-4
DO 301, I = 1, numcomp
IF (LEVEL(I).EQ.1) D(I) = 4.D-3
301 CONTINUE
DO 160, I = 1, numcomp
160 CAFOR(I) = 5200.d0 / (AREA(I) * D(I))
C NOTE CORRECTION
do 200, i = 1, numcomp
200 C(I) = 1000.d0 * C(I)
C TO GO FROM MICROF TO NF.
DO 909, I = 1, numcomp
JACOB(I,I) = - GL(I)
DO 909, J = 1, NNUM(I)
K = NEIGH(I,J)
IF (I.EQ.K) THEN
c WRITE(6,510) I
510 FORMAT(' UNEXPECTED SYMMETRY IN NEIGH ',I4)
ENDIF
JACOB(I,K) = GAM(I,K)
JACOB(I,I) = JACOB(I,I) - GAM(I,K)
909 CONTINUE
c 15 Jan. 2001: make correction for c(i)
do i = 1, numcomp
do j = 1, numcomp
jacob(i,j) = jacob(i,j) / c(i)
end do
end do
c if (thisno.eq.1) then
DO 500, I = 1, numcomp
c WRITE (6,501) I,C(I)
501 FORMAT(1X,I3,' C(I) = ',F7.4)
500 CONTINUE
c endif
END
C SETS UP TABLES FOR RATE FUNCTIONS
SUBROUTINE nontuftRS_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
INTEGER I,J,K
real*8 minf, hinf, taum, tauh, V, Z, shift_hnaf,
X shift_mkdr,
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
C FOR VOLTAGE, RANGE IS -120 TO +40 MV (absol.), 0.25 MV RESOLUTION
DO 1, I = 0, 640
V = dble(I)
V = (V / 4.d0) - 120.d0
c gNa
minf = 1.d0/(1.d0 + dexp((-V-38.d0)/10.d0))
if (v.le.-30.d0) then
taum = .025d0 + .14d0*dexp((v+30.d0)/10.d0)
else
taum = .02d0 + .145d0*dexp((-v-30.d0)/10.d0)
endif
c from principal c. data, Martina & Jonas 1997, tau x 0.5
c Note that minf about the same for interneuron & princ. cell.
alpham_naf(i) = minf / taum
betam_naf(i) = 1.d0/taum - alpham_naf(i)
shift_hnaf = 0.d0
hinf = 1.d0/(1.d0 +
x dexp((v + shift_hnaf + 62.9d0)/10.7d0))
tauh = 0.15d0 + 1.15d0/(1.d0+dexp((v+37.d0)/15.d0))
c from princ. cell data, Martina & Jonas 1997, tau x 0.5
alphah_naf(i) = hinf / tauh
betah_naf(i) = 1.d0/tauh - alphah_naf(i)
shift_mkdr = 0.d0
c delayed rectifier, non-inactivating
minf = 1.d0/(1.d0+dexp((-v-shift_mkdr-29.5d0)/10.0d0))
if (v.le.-10.d0) then
taum = .25d0 + 4.35d0*dexp((v+10.d0)/10.d0)
else
taum = .25d0 + 4.35d0*dexp((-v-10.d0)/10.d0)
endif
alpham_kdr(i) = minf / taum
betam_kdr(i) = 1.d0 /taum - alpham_kdr(i)
c from Martina, Schultz et al., 1998. See espec. Table 1.
c A current: Huguenard & McCormick 1992, J Neurophysiol (TCR)
minf = 1.d0/(1.d0 + dexp((-v-60.d0)/8.5d0))
hinf = 1.d0/(1.d0 + dexp((v+78.d0)/6.d0))
taum = .185d0 + .5d0/(dexp((v+35.8d0)/19.7d0) +
x dexp((-v-79.7d0)/12.7d0))
if (v.le.-63.d0) then
tauh = .5d0/(dexp((v+46.d0)/5.d0) +
x dexp((-v-238.d0)/37.5d0))
else
tauh = 9.5d0
endif
alpham_ka(i) = minf/taum
betam_ka(i) = 1.d0 / taum - alpham_ka(i)
alphah_ka(i) = hinf / tauh
betah_ka(i) = 1.d0 / tauh - alphah_ka(i)
c h-current (anomalous rectifier), Huguenard & McCormick, 1992
minf = 1.d0/(1.d0 + dexp((v+75.d0)/5.5d0))
taum = 1.d0/(dexp(-14.6d0 -0.086d0*v) +
x dexp(-1.87 + 0.07d0*v))
alpham_ar(i) = minf / taum
betam_ar(i) = 1.d0 / taum - alpham_ar(i)
c K2 K-current, McCormick & Huguenard
minf = 1.d0/(1.d0 + dexp((-v-10.d0)/17.d0))
hinf = 1.d0/(1.d0 + dexp((v+58.d0)/10.6d0))
taum = 4.95d0 + 0.5d0/(dexp((v-81.d0)/25.6d0) +
x dexp((-v-132.d0)/18.d0))
tauh = 60.d0 + 0.5d0/(dexp((v-1.33d0)/200.d0) +
x dexp((-v-130.d0)/7.1d0))
alpham_k2(i) = minf / taum
betam_k2(i) = 1.d0/taum - alpham_k2(i)
alphah_k2(i) = hinf / tauh
betah_k2(i) = 1.d0 / tauh - alphah_k2(i)
c voltage part of C-current, using 1994 kinetics, shift 60 mV
if (v.le.-10.d0) then
alpham_kc(i) = (2.d0/37.95d0)*dexp((v+50.d0)/11.d0 -
x (v+53.5)/27.d0)
betam_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)-alpham_kc(i)
else
alpham_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)
betam_kc(i) = 0.d0
endif
c high-threshold gCa, from 1994, with 60 mV shift & no inactivn.
alpham_cal(i) = 1.6d0/(1.d0+dexp(-.072d0*(v-5.d0)))
betam_cal(i) = 0.1d0 * ((v+8.9d0)/5.d0) /
x (dexp((v+8.9d0)/5.d0) - 1.d0)
c M-current, from plast.f, with 60 mV shift
alpham_km(i) = .02d0/(1.d0+dexp((-v-20.d0)/5.d0))
betam_km(i) = .01d0 * dexp((-v-43.d0)/18.d0)
c T-current, from Destexhe, Neubig et al., 1998
minf = 1.d0/(1.d0 + dexp((-v-56.d0)/6.2d0))
hinf = 1.d0/(1.d0 + dexp((v+80.d0)/4.d0))
taum = 0.204d0 + .333d0/(dexp((v+15.8d0)/18.2d0) +
x dexp((-v-131.d0)/16.7d0))
if (v.le.-81.d0) then
tauh = 0.333 * dexp((v+466.d0)/66.6d0)
else
tauh = 9.32d0 + 0.333d0*dexp((-v-21.d0)/10.5d0)
endif
alpham_cat(i) = minf / taum
betam_cat(i) = 1.d0/taum - alpham_cat(i)
alphah_cat(i) = hinf / tauh
betah_cat(i) = 1.d0 / tauh - alphah_cat(i)
1 CONTINUE
do 2, i = 0, 639
dalpham_naf(i) = (alpham_naf(i+1)-alpham_naf(i))/.25d0
dbetam_naf(i) = (betam_naf(i+1)-betam_naf(i))/.25d0
dalphah_naf(i) = (alphah_naf(i+1)-alphah_naf(i))/.25d0
dbetah_naf(i) = (betah_naf(i+1)-betah_naf(i))/.25d0
dalpham_kdr(i) = (alpham_kdr(i+1)-alpham_kdr(i))/.25d0
dbetam_kdr(i) = (betam_kdr(i+1)-betam_kdr(i))/.25d0
dalpham_ka(i) = (alpham_ka(i+1)-alpham_ka(i))/.25d0
dbetam_ka(i) = (betam_ka(i+1)-betam_ka(i))/.25d0
dalphah_ka(i) = (alphah_ka(i+1)-alphah_ka(i))/.25d0
dbetah_ka(i) = (betah_ka(i+1)-betah_ka(i))/.25d0
dalpham_k2(i) = (alpham_k2(i+1)-alpham_k2(i))/.25d0
dbetam_k2(i) = (betam_k2(i+1)-betam_k2(i))/.25d0
dalphah_k2(i) = (alphah_k2(i+1)-alphah_k2(i))/.25d0
dbetah_k2(i) = (betah_k2(i+1)-betah_k2(i))/.25d0
dalpham_km(i) = (alpham_km(i+1)-alpham_km(i))/.25d0
dbetam_km(i) = (betam_km(i+1)-betam_km(i))/.25d0
dalpham_kc(i) = (alpham_kc(i+1)-alpham_kc(i))/.25d0
dbetam_kc(i) = (betam_kc(i+1)-betam_kc(i))/.25d0
dalpham_cat(i) = (alpham_cat(i+1)-alpham_cat(i))/.25d0
dbetam_cat(i) = (betam_cat(i+1)-betam_cat(i))/.25d0
dalphah_cat(i) = (alphah_cat(i+1)-alphah_cat(i))/.25d0
dbetah_cat(i) = (betah_cat(i+1)-betah_cat(i))/.25d0
dalpham_caL(i) = (alpham_cal(i+1)-alpham_cal(i))/.25d0
dbetam_caL(i) = (betam_cal(i+1)-betam_cal(i))/.25d0
dalpham_ar(i) = (alpham_ar(i+1)-alpham_ar(i))/.25d0
dbetam_ar(i) = (betam_ar(i+1)-betam_ar(i))/.25d0
2 CONTINUE
END
! 26 June 2014: get rid of code for mixed synapses (i.e. to tuftRS)
! 15 July 2009, compared to version in deltaAIX, perhaps increased gKA in axon.
! Start with integrate_tuftIBVx2.f, add GABA-B, and scale_gAR
! 22 Oct. 2005, variant of integrate_tuftIBVx1.f, with passage of another variable
! for shifting gKM rate functions.
! Scaling of gCaL depends on the cell. Note VK
! 14 June 2005, taken from isoldeep/integrate_tuftIBX.f; allows passing of relative
! shift of axonal gNa kinetics
! 27 Jan. 2005, version of integrate_tuftIB, which allows passing of parameters
! to scale gKAHP and gNaP
! and gKM and gKA
! 27 March 2005, gNa rate functions shifted on axon, with comparable axon vs soma
! gNa and gKDR, as in Diego spinstell integration program, based on Colbert & Pan data.
c 15 Feb. 2003, modify per layVIB.f (directory layVtu), in line with criticisms of
c Diego Contreras. Here: gKA tau-h x 2.6; increase all gKM by 1.4-fold;
c increase gCaL mid-shaft by 4.5 - fold.
c 5 Nov. 2003, modify integrate_tuftRS as integration program for layer V
c tufted IB pyramidal cell, for use with groucho.f
c20 May 2003: adapt non-tufted RS layer 5 cell, layVrsp.f, to tufted
c layer 5 cell - should be either RS or IB, depending on params.
c Total number of compartments = 61, axon 56-61; 18 levels; level 0 = axon.
c 14 May 2003. Copy program from Rose and modify for mpi.
c 19 June 2001. Taken from scortpd.f. Parallel.
c 19 June 2001: layer V RS cell with "thin" dendrite, no apical tuft.
c See Kim & Connors, Mason & Larkman.
c 44 SD compartments, 6 axonal, total 50.
c 5 basal and 6 apical oblique dendrites, each with 3 compartments.
c 10-compartment apical dendrite, no branches (apart from obliques)
c 13 April 2001, version of scortp.f, for looking at dendritic activities.
c 7 April 2001, parallel version of scort.f
c 30 March 2001: layer 2/3 pyramidal cell, with geometry (as much as
c possible) from Guy Major thesis; start with tcr.f.
c Total 74 compartments: 6 axon. 8 basal and 3 oblique dendrites, each
c with 3 compartments: apical shaft and branch; 8 3-segment pieces in
c the "apical tuft".
c Revised tcr.f, using modifications developed in short.f
c 22 Feb. 2001: alter persistent gNaP to have lower threshold and
c 1st power activation; in addition, try increasing activation
c threshold of fast gNa, as per Parri & Crunelli 1998.
c 25 Jan. 2001, single TCR cell, modification of nrt.f
c TCR cell has 10 short dendrites, each with 13 compartments.
c Soma is compartment 1; axon is 132-137, with structure as in
c nRT cell model. Each dendrite has 2 layers of trifurcations.
c 28 Dec. 2000, begin converting interneuron program to nRT cell.
c Soma will be comp. 1. 4 equivalent dendrites, each with 13 comps.
c (so 53 SD compartments). Branching axon with 6 compartments - 59
c compartments in all. Try one integration program for whole structure.
c Currents: leak, fast Na (naf), persistent Na (nap), fast DR (kdr),
c A-current (ka), K2 current, M-current (km), C current (kc), AHP
c (kahp), T-current (cat), high-thresh. Ca (CAL), h-current = anomalous
c rectifier (ar).
SUBROUTINE integrate_tuftIBVx3C (O, time, numcell, V, curr,
& initialize, firstcell, lastcell,
& gAMPA, gNMDA, gGABA_A, gGABA_B,
& Mg, gapcon, totaxgj, gjtable, dt,
& chi,mnaf,mnap,
& hnaf,mkdr,mka,
& hka,mk2,hk2,
& mkm,mkc,mkahp,
& mcat,hcat,mcal,
& mar,field_1mm,field_2mm,
& scale_gKAHP, scale_gNaP,
& scale_gKM, scale_gKA, scale_gCaL, scale_gKC,
& rel_axonshift_tuftIB,gCaL, ! pass gCaL to make sure it gets saved
& Mshift, scale_gAR,
& tscale_ggabab, tscale_gCaL, tscale_gKDR)
SAVE
integer, parameter:: numcomp = 61
c numcomp = number of compartments, including 6 in the axon.
integer numcell, totaxgj, gjtable(totaxgj,4)
integer initialize, firstcell, lastcell
INTEGER J1, I, J, K, L, O, K1, k2, k3
REAL*8 Z, Z1, Z2, Z3, z4, curr(numcomp,numcell),c(numcomp)
REAL*8 mg, dt, time, gapcon, Mshift
real*8 scale_gKAHP, scale_gNaP(61), scale_gKM(61), scale_gKA
real*8 scale_gCaL(numcell), scale_gKC, rel_axonshift_tuftIB
real*8 scale_gAR
real*8 tscale_ggabaB, tscale_gCaL, tscale_gKDR
c CINV is 1/C, i.e. inverse capacitance
real*8 v(numcomp,numcell),chi(numcomp,numcell),
x mnaf(numcomp,numcell),mnap(numcomp,numcell),
x hnaf(numcomp,numcell),mkdr(numcomp,numcell),
x mka(numcomp,numcell),hka(numcomp,numcell),
x mk2(numcomp,numcell), cinv(numcomp),
x hk2(numcomp,numcell),mkm(numcomp,numcell),
x mkc(numcomp,numcell),mkahp(numcomp,numcell),
x mcat(numcomp,numcell),
x hcat(numcomp,numcell),mcal(numcomp,numcell),
x mar(numcomp,numcell),
x jacob(numcomp,numcomp),betchi(numcomp),
x gam(0:numcomp,0:numcomp),gL(numcomp),gnaf(numcomp),
x gnap(numcomp),gkdr(numcomp),gka(numcomp),
x gk2(numcomp),gkm(numcomp),
x gkc(numcomp),gkahp(numcomp),
x gcat(numcomp),gcaL(numcomp,numcell),gar(numcomp),
x gampa(numcomp,numcell),
x gnmda(numcomp,numcell),ggaba_a(numcomp,numcell),
x cafor(numcomp),ggaba_b(numcomp,numcell)
real*8
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
real*8 outrcd(20)
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
real*8 persistentNa_shift, fastNa_shift_SD
real*8 fastNa_shift_axon
c the f's are the functions giving 1st derivatives for evolution of
c the differential equations for the voltages (v), calcium (chi), and
c other state variables.
real*8 fv(numcomp), fchi(numcomp),
x fmnaf(numcomp),fhnaf(numcomp),fmkdr(numcomp),
x fmka(numcomp),fhka(numcomp),
x fmk2(numcomp),fhk2(numcomp),fmnap(numcomp),
x fmkm(numcomp),fmkc(numcomp),fmkahp(numcomp),
x fmcat(numcomp),fhcat(numcomp),
x fmcal(numcomp),fmar(numcomp)
c below are for calculating the partial derivatives
real*8 dfv_dv(numcomp,numcomp), dfv_dchi(numcomp),
x dfv_dmnaf(numcomp),
x dfv_dmnap(numcomp),
x dfv_dhnaf(numcomp),dfv_dmkdr(numcomp),
x dfv_dmka(numcomp),dfv_dhka(numcomp),
x dfv_dmk2(numcomp),dfv_dhk2(numcomp),
x dfv_dmkm(numcomp),dfv_dmkc(numcomp),
x dfv_dmkahp(numcomp),dfv_dmcat(numcomp),
x dfv_dhcat(numcomp),dfv_dmcal(numcomp),
x dfv_dmar(numcomp)
real*8 dfchi_dv(numcomp), dfchi_dchi(numcomp),
x dfmnaf_dmnaf(numcomp),
x dfmnaf_dv(numcomp),dfhnaf_dhnaf(numcomp),
x dfmnap_dmnap(numcomp), dfmnap_dv(numcomp),
x dfhnaf_dv(numcomp),
x dfmkdr_dmkdr(numcomp),dfmkdr_dv(numcomp),
x dfmka_dmka(numcomp),dfmka_dv(numcomp),
x dfhka_dhka(numcomp),dfhka_dv(numcomp),
x dfmk2_dmk2(numcomp),dfmk2_dv(numcomp),
x dfhk2_dhk2(numcomp),dfhk2_dv(numcomp),
x dfmkm_dmkm(numcomp),dfmkm_dv(numcomp),
x dfmkc_dmkc(numcomp),dfmkc_dv(numcomp),
x dfmcat_dmcat(numcomp),
x dfmcat_dv(numcomp),dfhcat_dhcat(numcomp),
x dfhcat_dv(numcomp),
x dfmcal_dmcal(numcomp),dfmcal_dv(numcomp),
x dfmar_dmar(numcomp),
x dfmar_dv(numcomp),dfmkahp_dchi(numcomp),
x dfmkahp_dmkahp(numcomp), dt2
REAL*8 vL(numcomp),vk(numcomp),vna,var,vca,vgaba_a
REAL*8 xopen(numcomp),gamma(numcomp),gamma_prime(numcomp)
c gamma is function of chi used in calculating KC conductance
REAL*8 alpham_ahp(numcomp),alpham_ahp_prime(numcomp)
REAL*8 gna_tot(numcomp),gk_tot(numcomp)
REAL*8 gca_tot(numcomp),gar_tot(numcomp)
REAL*8 gca_high(numcomp)
c this will be gCa conductance corresponding to high-thresh channels
REAL*8 A, BB1, BB2
real*8 depth(18), membcurr(18), field_1mm, field_2mm
integer level(numcomp)
! do initialization on 1st time step
c if (O == 1) then
if (initialize == 0) then
c Program assumes A, BB1, BB2 defined in calling program
c as follows:
A = DEXP(-2.847d0)
BB1 = DEXP(-.693d0)
BB2 = DEXP(-3.101d0)
CALL LAYVTU_IB_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar,
X Mshift)
CALL LAYVTU_IB_MAJ (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,numcell,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
do i = 1, numcomp
cinv(i) = 1.d0 / c(i)
end do
do i = 1, numcomp
if (i.le. 55) then
vL(i) = -70.d0
else
vL(i) = -70.d0
endif
end do
do i = 1, numcomp
if (i.le. 55) then
c vK(i) = -95.d0
vK(i) = -85.d0
else
c vK(i) = - 95.d0
vK(i) = - 85.d0
endif
end do
VNA = 50.d0
VCA = 125.d0
VAR = -43.d0
VAR = -35.d0
c -43 mV from Huguenard & McCormick
c VGABA_A = -81.d0
VGABA_A = -75.d0
c ? initialize membrane state variables?
! curr = 0.d0
v = VL(1)
k1 = idnint (4.d0 * (v(1,1) + 120.d0))
hnaf = alphah_naf(k1)/(alphah_naf(k1)+betah_naf(k1))
hka = alphah_ka(k1)/(alphah_ka(k1)+betah_ka(k1))
hk2 = alphah_k2(k1)/(alphah_k2(k1)+betah_k2(k1))
hcat=alphah_cat(k1)/(alphah_cat(k1)+betah_cat(k1))
c mar=alpham_ar(k1)/(alpham_ar(k1)+betam_ar(k1))
mar= .25d0
mnaf = 0.d0
mnap = 0.d0
mkdr = 0.d0
mka = 0.d0
mk2 = 0.d0
mkm = 0.d0
mkc = 0.d0
mkahp = 0.d0
mcat = 0.d0
mcal = 0.d0
chi = 0.d0
! z1, z2, z3 as per layVtup.f.29May03
z1 = 0.2d0
z2 = 2.0d0
z3 = 1.0d0
z4 = 1.4d0
do i = 1, 55
gnap(i) = z1 * gnap(i)
gkc (i) = z2 * gkc (i)
do L = 1, numcell
gCaL(i,L) = z3 * gCaL(I,L)
end do
gKM(i) = z4 * gKM(i)
end do
c above should give IB cell.
! scale gKAHP and gNaP as per passed parameters
do i = 1, numcomp
gAR(i) = scale_gAR * gAR(i)
gKAHP(i) = scale_gKAHP * gKAHP(i)
gNaP(i) = scale_gNaP(i) * gNaP(i)
gKM (i) = scale_gKM(i) * gKM (i)
gKA (i) = scale_gKA * gKA (i)
gKC (i) = scale_gKC * gKC (i) ! corrected from scale_gKA, Sept. 2016
do L = 1, numcell
gCaL(i,L) = scale_gCaL(L) * gCaL(i,L)
end do
end do
c increase gKA in axon
do i = 56, 61
gKA(i) = 700.d0 * gKA(i)
end do
c Inrease gCaL just past bifurcation, so that tuft can make Ca spike
do L = 1, numcell
gCaL(48,L) = 4.5d0 * gCaL(48,L)
gCaL(49,L) = 4.5d0 * gCaL(49,L)
c Increase mid-shaft gCaL to make somatic depol. larger during burst
do i = 38, 44
gCaL(i,L) = 2.0d0 * gCaL(i,L)
end do
c write(6,5787) L, gcaL(45,L)
end do
goto 4000
! End initialization
endif
do i = 1, 18
membcurr(i) = 0.d0
end do
c do L = 1, numcell
do L = firstcell, lastcell
c write(6,5787) L, gcaL(45,L)
5787 format(2x,i6,2x,f8.4)
DO 301, I = 1, numcomp
FV(I) = -GL(I) * (V(I,L) - VL(i)) * cinv(i)
DO 302, J = 1, NNUM(I)
K = NEIGH(I,J)
302 FV(I) = FV(I) + GAM(I,K) * (V(K,L) - V(I,L)) * cinv(i)
301 CONTINUE
CALL FNMDA (V, xopen, numcell, numcomp, MG, L,
& A, BB1, BB2)
c if ((mod(O,100).eq.0).and.(L.eq.1)) then
c outrcd(1) = time
c outrcd(2) = v(1,1)
c outrcd(3) = xopen(1)
c outrcd(4) = xopen(38)
c outrcd(5) = xopen(44)
c OPEN(11,FILE='testopen')
c WRITE (11,FMT='(5F10.4)') (OUTRCD(I),I=1,5)
c endif
DO 421, I = 1, numcomp
FV(I) = FV(I) + ( CURR(I,L)
X - (gampa(I,L) + xopen(i) * gnmda(I,L))*V(I,L)
X - ggaba_a(I,L)*(V(I,L)-Vgaba_a)
X - tscale_ggabaB * ggaba_b(I,L)*(V(I,L)-VK(i)))*cinv(i)
c above assumes equil. potential for AMPA & NMDA = 0 mV
421 continue
! gj code here
do m = 1, totaxgj
if (gjtable(m,1).eq.L) then
L1 = gjtable(m,3)
igap1 = gjtable(m,2)
igap2 = gjtable(m,4)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
else if (gjtable(m,3).eq.L) then
L1 = gjtable(m,1)
igap1 = gjtable(m,4)
igap2 = gjtable(m,2)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
endif
end do ! do m
do i = 1, numcomp
gamma(i) = dmin1 (1.d0, .004d0 * chi(i,L))
if (chi(i,L).le.250.d0) then
gamma_prime(i) = .004d0
else
gamma_prime(i) = 0.d0
endif
c endif
end do
DO 88, I = 1, numcomp
gna_tot(i) = gnaf(i) * (mnaf(i,L)**3) * hnaf(i,L) +
x gnap(i) * mnap(i,L)
gk_tot(i) = tscale_gKDR* gkdr(i) * (mkdr(i,L)**4) +
x gka(i) * (mka(i,L)**4) * hka(i,L) +
x gk2(i) * mk2(i,L) * hk2(i,L) +
x gkm(i) * mkm(i,L) +
x gkc(i) * mkc(i,L) * gamma(i) +
x gkahp(i)* mkahp(i,L)
gca_tot(i) = gcat(i) * (mcat(i,L)**2) * hcat(i,L) +
x tscale_gCaL * gcaL(i,L) * (mcaL(i,L)**2)
gca_high(i) =
x tscale_gCaL*gcaL(i,L) * (mcaL(i,L)**2)
gar_tot(i) = gar(i) * mar(i,L)
FV(I) = FV(I) - ( gna_tot(i) * (v(i,L) - vna)
X + gk_tot(i) * (v(i,L) - vK(i))
X + gca_tot(i) * (v(i,L) - vCa)
X + gar_tot(i) * (v(i,L) - var) ) * cinv(i)
c endif
88 continue
do i = 1, numcomp
do j = 1, numcomp
if (i.ne.j) then
dfv_dv(i,j) = jacob(i,j)
else
dfv_dv(i,j) = jacob(i,i) - cinv(i) *
X (gna_tot(i) + gk_tot(i) + gca_tot(i) + gar_tot(i)
X + ggaba_a(i,L) + tscale_ggabaB*ggaba_b(i,L) + gampa(i,L)
X + xopen(i) * gnmda(I,L) )
endif
end do
end do
do i = 1, numcomp
dfv_dchi(i) = - cinv(i) * gkc(i) * mkc(i,L) *
x gamma_prime(i) * (v(i,L)-vK(i))
dfv_dmnaf(i) = -3.d0 * cinv(i) * (mnaf(i,L)**2) *
X (gnaf(i) * hnaf(i,L) ) * (v(i,L) - vna)
dfv_dmnap(i) = - cinv(i) *
X ( gnap(i)) * (v(i,L) - vna)
dfv_dhnaf(i) = - cinv(i) * gnaf(i) * (mnaf(i,L)**3) *
X (v(i,L) - vna)
dfv_dmkdr(i) = -4.d0 * cinv(i) * gkdr(i) * (mkdr(i,L)**3)
X * tscale_gKDR * (v(i,L) - vK(i))
dfv_dmka(i) = -4.d0 * cinv(i) * gka(i) * (mka(i,L)**3) *
X hka(i,L) * (v(i,L) - vK(i))
dfv_dhka(i) = - cinv(i) * gka(i) * (mka(i,L)**4) *
X (v(i,L) - vK(i))
dfv_dmk2(i) = - cinv(i)*gk2(i)*hk2(i,L)*(v(i,L)-vK(i))
dfv_dhk2(i) = - cinv(i)*gk2(i)*mk2(i,L)*(v(i,L)-vK(i))
dfv_dmkm(i) = - cinv(i) * gkm(i) * (v(i,L) - vK(i))
dfv_dmkc(i) = - cinv(i) * gkc(i)*gamma(i) * (v(i,L)-vK(i))
dfv_dmkahp(i)= - cinv(i) * gkahp(i) * (v(i,L) - vK(i))
dfv_dmcat(i) = -2.d0 * cinv(i) * gcat(i) * mcat(i,L) *
X hcat(i,L) * (v(i,L) - vCa)
dfv_dhcat(i) = - cinv(i) * gcat(i) * (mcat(i,L)**2) *
X (v(i,L) - vCa)
dfv_dmcal(i) = -2.d0 * cinv(i) * gcal(i,L) * mcal(i,L) *
X tscale_gCaL * (v(i,L) - vCa)
dfv_dmar(i) = - cinv(i) * gar(i) * (v(i,L) - var)
end do
do i = 1, numcomp
fchi(i) = - cafor(i) * gca_high(i) * (v(i,L) - vca)
c fchi(i) = - cafor(i) * gca_tot (i) * (v(i,L) - vca)
x - betchi(i) * chi(i,L)
dfchi_dv(i) = - cafor(i) * gca_high(i)
c dfchi_dv(i) = - cafor(i) * gca_tot (i)
dfchi_dchi(i) = - betchi(i)
end do
do i = 1, numcomp
c Note possible increase in rate at which AHP current develops
c alpham_ahp(i) = dmin1(0.2d-4 * chi(i,L),0.01d0)
alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.01d0)
c alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.02d0)
if (chi(i,L).le.500.d0) then
c alpham_ahp_prime(i) = 0.2d-4
alpham_ahp_prime(i) = 1.0d-4
else
alpham_ahp_prime(i) = 0.d0
endif
end do
do i = 1, numcomp
fmkahp(i) = alpham_ahp(i) * (1.d0 - mkahp(i,L))
x -.0005d0 * mkahp(i,L)
c x -.001d0 * mkahp(i,L)
c x -.010d0 * mkahp(i,L)
dfmkahp_dmkahp(i) = - alpham_ahp(i) - .001d0
c dfmkahp_dmkahp(i) = - alpham_ahp(i) - .010d0
dfmkahp_dchi(i) = alpham_ahp_prime(i) *
x (1.d0 - mkahp(i,L))
end do
do i = 1, numcomp
K1 = IDNINT ( 4.d0 * (V(I,L) + 120.d0) )
IF (K1.GT.640) K1 = 640
IF (K1.LT. 0) K1 = 0
c persistentNa_shift = 0.d0
c persistentNa_shift = 8.d0
persistentNa_shift = 10.d0
K2 = IDNINT ( 4.d0 * (V(I,L)+persistentNa_shift+ 120.d0) )
IF (K2.GT.640) K2 = 640
IF (K2.LT. 0) K2 = 0
c fastNa_shift = -2.0d0
c fastNa_shift = -2.5d0
fastNa_shift_SD = -3.5d0
fastNa_shift_axon = fastNa_shift_SD + rel_axonshift_tuftIB
K0 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_SD+ 120.d0) )
K3 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_axon+ 120.d0) )
IF (K0.GT.640) K0 = 640
IF (K0.LT. 0) K0 = 0
IF (K3.GT.640) K3 = 640
IF (K3.LT. 0) K3 = 0
if (i.le.55) then
fmnaf(i) = alpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X betam_naf(k0) * mnaf(i,L)
fhnaf(i) = alphah_naf(k0) * (1.d0 - hnaf(i,L)) -
X betah_naf(k0) * hnaf(i,L)
else
fmnaf(i) = alpham_naf(k3) * (1.d0 - mnaf(i,L)) -
X betam_naf(k3) * mnaf(i,L)
fhnaf(i) = alphah_naf(k3) * (1.d0 - hnaf(i,L)) -
X betah_naf(k3) * hnaf(i,L)
endif
fmnap(i) = alpham_naf(k2) * (1.d0 - mnap(i,L)) -
X betam_naf(k2) * mnap(i,L)
fmkdr(i) = alpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X betam_kdr(k1) * mkdr(i,L)
fmka(i) = alpham_ka (k1) * (1.d0 - mka(i,L)) -
X betam_ka (k1) * mka(i,L)
fhka(i) = alphah_ka (k1) * (1.d0 - hka(i,L)) -
X betah_ka (k1) * hka(i,L)
fmk2(i) = alpham_k2 (k1) * (1.d0 - mk2(i,L)) -
X betam_k2 (k1) * mk2(i,L)
fhk2(i) = alphah_k2 (k1) * (1.d0 - hk2(i,L)) -
X betah_k2 (k1) * hk2(i,L)
fmkm(i) = alpham_km (k1) * (1.d0 - mkm(i,L)) -
X betam_km (k1) * mkm(i,L)
fmkc(i) = alpham_kc (k1) * (1.d0 - mkc(i,L)) -
X betam_kc (k1) * mkc(i,L)
fmcat(i) = alpham_cat(k1) * (1.d0 - mcat(i,L)) -
X betam_cat(k1) * mcat(i,L)
fhcat(i) = alphah_cat(k1) * (1.d0 - hcat(i,L)) -
X betah_cat(k1) * hcat(i,L)
fmcaL(i) = alpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X betam_caL(k1) * mcaL(i,L)
fmar(i) = alpham_ar (k1) * (1.d0 - mar(i,L)) -
X betam_ar (k1) * mar(i,L)
dfmnaf_dv(i) = dalpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X dbetam_naf(k0) * mnaf(i,L)
dfmnap_dv(i) = dalpham_naf(k2) * (1.d0 - mnap(i,L)) -
X dbetam_naf(k2) * mnap(i,L)
dfhnaf_dv(i) = dalphah_naf(k1) * (1.d0 - hnaf(i,L)) -
X dbetah_naf(k1) * hnaf(i,L)
dfmkdr_dv(i) = dalpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X dbetam_kdr(k1) * mkdr(i,L)
dfmka_dv(i) = dalpham_ka(k1) * (1.d0 - mka(i,L)) -
X dbetam_ka(k1) * mka(i,L)
dfhka_dv(i) = dalphah_ka(k1) * (1.d0 - hka(i,L)) -
X dbetah_ka(k1) * hka(i,L)
dfmk2_dv(i) = dalpham_k2(k1) * (1.d0 - mk2(i,L)) -
X dbetam_k2(k1) * mk2(i,L)
dfhk2_dv(i) = dalphah_k2(k1) * (1.d0 - hk2(i,L)) -
X dbetah_k2(k1) * hk2(i,L)
dfmkm_dv(i) = dalpham_km(k1) * (1.d0 - mkm(i,L)) -
X dbetam_km(k1) * mkm(i,L)
dfmkc_dv(i) = dalpham_kc(k1) * (1.d0 - mkc(i,L)) -
X dbetam_kc(k1) * mkc(i,L)
dfmcat_dv(i) = dalpham_cat(k1) * (1.d0 - mcat(i,L)) -
X dbetam_cat(k1) * mcat(i,L)
dfhcat_dv(i) = dalphah_cat(k1) * (1.d0 - hcat(i,L)) -
X dbetah_cat(k1) * hcat(i,L)
dfmcaL_dv(i) = dalpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X dbetam_caL(k1) * mcaL(i,L)
dfmar_dv(i) = dalpham_ar(k1) * (1.d0 - mar(i,L)) -
X dbetam_ar(k1) * mar(i,L)
dfmnaf_dmnaf(i) = - alpham_naf(k0) - betam_naf(k0)
dfmnap_dmnap(i) = - alpham_naf(k2) - betam_naf(k2)
dfhnaf_dhnaf(i) = - alphah_naf(k1) - betah_naf(k1)
dfmkdr_dmkdr(i) = - alpham_kdr(k1) - betam_kdr(k1)
dfmka_dmka(i) = - alpham_ka (k1) - betam_ka (k1)
dfhka_dhka(i) = - alphah_ka (k1) - betah_ka (k1)
dfmk2_dmk2(i) = - alpham_k2 (k1) - betam_k2 (k1)
dfhk2_dhk2(i) = - alphah_k2 (k1) - betah_k2 (k1)
dfmkm_dmkm(i) = - alpham_km (k1) - betam_km (k1)
dfmkc_dmkc(i) = - alpham_kc (k1) - betam_kc (k1)
dfmcat_dmcat(i) = - alpham_cat(k1) - betam_cat(k1)
dfhcat_dhcat(i) = - alphah_cat(k1) - betah_cat(k1)
dfmcaL_dmcaL(i) = - alpham_caL(k1) - betam_caL(k1)
dfmar_dmar(i) = - alpham_ar (k1) - betam_ar (k1)
end do
dt2 = 0.5d0 * dt * dt
do i = 1, numcomp
v(i,L) = v(i,L) + dt * fv(i)
do j = 1, numcomp
v(i,L) = v(i,L) + dt2 * dfv_dv(i,j) * fv(j)
end do
v(i,L) = v(i,L) + dt2 * ( dfv_dchi(i) * fchi(i)
X + dfv_dmnaf(i) * fmnaf(i)
X + dfv_dmnap(i) * fmnap(i)
X + dfv_dhnaf(i) * fhnaf(i)
X + dfv_dmkdr(i) * fmkdr(i)
X + dfv_dmka(i) * fmka(i)
X + dfv_dhka(i) * fhka(i)
X + dfv_dmk2(i) * fmk2(i)
X + dfv_dhk2(i) * fhk2(i)
X + dfv_dmkm(i) * fmkm(i)
X + dfv_dmkc(i) * fmkc(i)
X + dfv_dmkahp(i)* fmkahp(i)
X + dfv_dmcat(i) * fmcat(i)
X + dfv_dhcat(i) * fhcat(i)
X + dfv_dmcaL(i) * fmcaL(i)
X + dfv_dmar(i) * fmar(i) )
chi(i,L) = chi(i,L) + dt * fchi(i) + dt2 *
X (dfchi_dchi(i) * fchi(i) + dfchi_dv(i) * fv(i))
mnaf(i,L) = mnaf(i,L) + dt * fmnaf(i) + dt2 *
X (dfmnaf_dmnaf(i) * fmnaf(i) + dfmnaf_dv(i)*fv(i))
mnap(i,L) = mnap(i,L) + dt * fmnap(i) + dt2 *
X (dfmnap_dmnap(i) * fmnap(i) + dfmnap_dv(i)*fv(i))
hnaf(i,L) = hnaf(i,L) + dt * fhnaf(i) + dt2 *
X (dfhnaf_dhnaf(i) * fhnaf(i) + dfhnaf_dv(i)*fv(i))
mkdr(i,L) = mkdr(i,L) + dt * fmkdr(i) + dt2 *
X (dfmkdr_dmkdr(i) * fmkdr(i) + dfmkdr_dv(i)*fv(i))
mka(i,L) = mka(i,L) + dt * fmka(i) + dt2 *
X (dfmka_dmka(i) * fmka(i) + dfmka_dv(i) * fv(i))
hka(i,L) = hka(i,L) + dt * fhka(i) + dt2 *
X (dfhka_dhka(i) * fhka(i) + dfhka_dv(i) * fv(i))
mk2(i,L) = mk2(i,L) + dt * fmk2(i) + dt2 *
X (dfmk2_dmk2(i) * fmk2(i) + dfmk2_dv(i) * fv(i))
hk2(i,L) = hk2(i,L) + dt * fhk2(i) + dt2 *
X (dfhk2_dhk2(i) * fhk2(i) + dfhk2_dv(i) * fv(i))
mkm(i,L) = mkm(i,L) + dt * fmkm(i) + dt2 *
X (dfmkm_dmkm(i) * fmkm(i) + dfmkm_dv(i) * fv(i))
mkc(i,L) = mkc(i,L) + dt * fmkc(i) + dt2 *
X (dfmkc_dmkc(i) * fmkc(i) + dfmkc_dv(i) * fv(i))
mkahp(i,L) = mkahp(i,L) + dt * fmkahp(i) + dt2 *
X (dfmkahp_dmkahp(i)*fmkahp(i) + dfmkahp_dchi(i)*fchi(i))
mcat(i,L) = mcat(i,L) + dt * fmcat(i) + dt2 *
X (dfmcat_dmcat(i) * fmcat(i) + dfmcat_dv(i) * fv(i))
hcat(i,L) = hcat(i,L) + dt * fhcat(i) + dt2 *
X (dfhcat_dhcat(i) * fhcat(i) + dfhcat_dv(i) * fv(i))
mcaL(i,L) = mcaL(i,L) + dt * fmcaL(i) + dt2 *
X (dfmcaL_dmcaL(i) * fmcaL(i) + dfmcaL_dv(i) * fv(i))
mar(i,L) = mar(i,L) + dt * fmar(i) + dt2 *
X (dfmar_dmar(i) * fmar(i) + dfmar_dv(i) * fv(i))
c endif
end do
! Add membrane currents into membcurr for appropriate compartments
do i = 1, 6
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 13, 17
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 24, 28
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 35, 55
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
end do ! do L
field_1mm = 0.d0
field_2mm = 0.d0
do i = 1, 18
field_1mm = field_1mm + membcurr(i) / dabs(1000.d0 - depth(i))
field_2mm = field_2mm + membcurr(i) / dabs(2000.d0 - depth(i))
end do
4000 END
C SETS UP TABLES FOR RATE FUNCTIONS
SUBROUTINE LAYVTU_IB_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar,
X Mshift)
INTEGER I,J,K
real*8 minf, hinf, taum, tauh, V, Z, shift_hnaf,
X shift_mkdr, Mshift,
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
C FOR VOLTAGE, RANGE IS -120 TO +40 MV (absol.), 0.25 MV RESOLUTION
DO 1, I = 0, 640
V = dble(I)
V = (V / 4.d0) - 120.d0
c gNa
minf = 1.d0/(1.d0 + dexp((-V-38.d0)/10.d0))
if (v.le.-30.d0) then
taum = .025d0 + .14d0*dexp((v+30.d0)/10.d0)
else
taum = .02d0 + .145d0*dexp((-v-30.d0)/10.d0)
endif
c from principal c. data, Martina & Jonas 1997, tau x 0.5
c Note that minf about the same for interneuron & princ. cell.
alpham_naf(i) = minf / taum
betam_naf(i) = 1.d0/taum - alpham_naf(i)
shift_hnaf = 0.d0
hinf = 1.d0/(1.d0 +
x dexp((v + shift_hnaf + 62.9d0)/10.7d0))
tauh = 0.15d0 + 1.15d0/(1.d0+dexp((v+37.d0)/15.d0))
c from princ. cell data, Martina & Jonas 1997, tau x 0.5
alphah_naf(i) = hinf / tauh
betah_naf(i) = 1.d0/tauh - alphah_naf(i)
shift_mkdr = 0.d0
c delayed rectifier, non-inactivating
minf = 1.d0/(1.d0+dexp((-v-shift_mkdr-29.5d0)/10.0d0))
if (v.le.-10.d0) then
taum = .25d0 + 4.35d0*dexp((v+10.d0)/10.d0)
else
taum = .25d0 + 4.35d0*dexp((-v-10.d0)/10.d0)
endif
alpham_kdr(i) = minf / taum
betam_kdr(i) = 1.d0 /taum - alpham_kdr(i)
c from Martina, Schultz et al., 1998. See espec. Table 1.
c A current: Huguenard & McCormick 1992, J Neurophysiol (TCR)
minf = 1.d0/(1.d0 + dexp((-v-60.d0)/8.5d0))
hinf = 1.d0/(1.d0 + dexp((v+78.d0)/6.d0))
taum = .185d0 + .5d0/(dexp((v+35.8d0)/19.7d0) +
x dexp((-v-79.7d0)/12.7d0))
if (v.le.-63.d0) then
tauh = .5d0/(dexp((v+46.d0)/5.d0) +
x dexp((-v-238.d0)/37.5d0))
else
tauh = 9.5d0
endif
TAUH = 2.6d0 * TAUH
alpham_ka(i) = minf/taum
betam_ka(i) = 1.d0 / taum - alpham_ka(i)
alphah_ka(i) = hinf / tauh
betah_ka(i) = 1.d0 / tauh - alphah_ka(i)
c h-current (anomalous rectifier), Huguenard & McCormick, 1992
minf = 1.d0/(1.d0 + dexp((v+75.d0)/5.5d0))
taum = 1.d0/(dexp(-14.6d0 -0.086d0*v) +
x dexp(-1.87 + 0.07d0*v))
alpham_ar(i) = minf / taum
betam_ar(i) = 1.d0 / taum - alpham_ar(i)
c K2 K-current, McCormick & Huguenard
minf = 1.d0/(1.d0 + dexp((-v-10.d0)/17.d0))
hinf = 1.d0/(1.d0 + dexp((v+58.d0)/10.6d0))
taum = 4.95d0 + 0.5d0/(dexp((v-81.d0)/25.6d0) +
x dexp((-v-132.d0)/18.d0))
tauh = 60.d0 + 0.5d0/(dexp((v-1.33d0)/200.d0) +
x dexp((-v-130.d0)/7.1d0))
alpham_k2(i) = minf / taum
betam_k2(i) = 1.d0/taum - alpham_k2(i)
alphah_k2(i) = hinf / tauh
betah_k2(i) = 1.d0 / tauh - alphah_k2(i)
c voltage part of C-current, using 1994 kinetics, shift 60 mV
if (v.le.-10.d0) then
alpham_kc(i) = (2.d0/37.95d0)*dexp((v+50.d0)/11.d0 -
x (v+53.5)/27.d0)
betam_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)-alpham_kc(i)
else
alpham_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)
betam_kc(i) = 0.d0
endif
c high-threshold gCa, from 1994, with 60 mV shift & no inactivn.
alpham_cal(i) = 1.6d0/(1.d0+dexp(-.072d0*(v-5.d0)))
betam_cal(i) = 0.1d0 * ((v+8.9d0)/5.d0) /
x (dexp((v+8.9d0)/5.d0) - 1.d0)
c M-current, from plast.f, with 60 mV shift
v = v + Mshift
alpham_km(i) = .02d0/(1.d0+dexp((-v-20.d0)/5.d0))
betam_km(i) = .01d0 * dexp((-v-43.d0)/18.d0)
v = v - Mshift
c T-current, from Destexhe, Neubig et al., 1998
minf = 1.d0/(1.d0 + dexp((-v-56.d0)/6.2d0))
hinf = 1.d0/(1.d0 + dexp((v+80.d0)/4.d0))
taum = 0.204d0 + .333d0/(dexp((v+15.8d0)/18.2d0) +
x dexp((-v-131.d0)/16.7d0))
if (v.le.-81.d0) then
tauh = 0.333 * dexp((v+466.d0)/66.6d0)
else
tauh = 9.32d0 + 0.333d0*dexp((-v-21.d0)/10.5d0)
endif
alpham_cat(i) = minf / taum
betam_cat(i) = 1.d0/taum - alpham_cat(i)
alphah_cat(i) = hinf / tauh
betah_cat(i) = 1.d0 / tauh - alphah_cat(i)
1 CONTINUE
do 2, i = 0, 639
dalpham_naf(i) = (alpham_naf(i+1)-alpham_naf(i))/.25d0
dbetam_naf(i) = (betam_naf(i+1)-betam_naf(i))/.25d0
dalphah_naf(i) = (alphah_naf(i+1)-alphah_naf(i))/.25d0
dbetah_naf(i) = (betah_naf(i+1)-betah_naf(i))/.25d0
dalpham_kdr(i) = (alpham_kdr(i+1)-alpham_kdr(i))/.25d0
dbetam_kdr(i) = (betam_kdr(i+1)-betam_kdr(i))/.25d0
dalpham_ka(i) = (alpham_ka(i+1)-alpham_ka(i))/.25d0
dbetam_ka(i) = (betam_ka(i+1)-betam_ka(i))/.25d0
dalphah_ka(i) = (alphah_ka(i+1)-alphah_ka(i))/.25d0
dbetah_ka(i) = (betah_ka(i+1)-betah_ka(i))/.25d0
dalpham_k2(i) = (alpham_k2(i+1)-alpham_k2(i))/.25d0
dbetam_k2(i) = (betam_k2(i+1)-betam_k2(i))/.25d0
dalphah_k2(i) = (alphah_k2(i+1)-alphah_k2(i))/.25d0
dbetah_k2(i) = (betah_k2(i+1)-betah_k2(i))/.25d0
dalpham_km(i) = (alpham_km(i+1)-alpham_km(i))/.25d0
dbetam_km(i) = (betam_km(i+1)-betam_km(i))/.25d0
dalpham_kc(i) = (alpham_kc(i+1)-alpham_kc(i))/.25d0
dbetam_kc(i) = (betam_kc(i+1)-betam_kc(i))/.25d0
dalpham_cat(i) = (alpham_cat(i+1)-alpham_cat(i))/.25d0
dbetam_cat(i) = (betam_cat(i+1)-betam_cat(i))/.25d0
dalphah_cat(i) = (alphah_cat(i+1)-alphah_cat(i))/.25d0
dbetah_cat(i) = (betah_cat(i+1)-betah_cat(i))/.25d0
dalpham_caL(i) = (alpham_cal(i+1)-alpham_cal(i))/.25d0
dbetam_caL(i) = (betam_cal(i+1)-betam_cal(i))/.25d0
dalpham_ar(i) = (alpham_ar(i+1)-alpham_ar(i))/.25d0
dbetam_ar(i) = (betam_ar(i+1)-betam_ar(i))/.25d0
2 CONTINUE
END
SUBROUTINE LAYVTU_IB_MAJ
C BRANCHED ACTIVE DENDRITES
X (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,numcell,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
c Conductances: leak gL, coupling g, delayed rectifier gKDR, A gKA,
c C gKC, AHP gKAHP, K2 gK2, M gKM, low thresh Ca gCAT, high thresh
c gCAL, fast Na gNAF, persistent Na gNAP, h or anom. rectif. gAR.
c Note VAR = equil. potential for anomalous rectifier.
c Soma = comp. 1; 10 dendrites each with 13 compartments, 6-comp. axon
c Drop "glc"-like terms, just using "gl"-like
c CAFOR corresponds to "phi" in Traub et al., 1994
c Consistent set of units: nF, mV, ms, nA, microS
integer, parameter:: numcomp = 61
REAL*8 C(numcomp),GL(numcomp),GAM(0:numcomp,0:numcomp)
REAL*8 GNAF(numcomp),GCAT(numcomp)
REAL*8 GKDR(numcomp),GKA(numcomp),GAR(numcomp)
REAL*8 GKC(numcomp),GKAHP(numcomp),GCAL(numcomp,numcell)
REAL*8 GK2(numcomp),GKM(numcomp),GNAP(numcomp),CDENS
REAL*8 JACOB(numcomp,numcomp),RI_SD,RI_AXON,RM_SD,RM_AXON
INTEGER LEVEL(numcomp), numcell
REAL*8 GNAF_DENS(0:18), GCAT_DENS(0:18), GKDR_DENS(0:18)
REAL*8 GKA_DENS(0:18), GKC_DENS(0:18), GKAHP_DENS(0:18)
REAL*8 GCAL_DENS(0:18), GK2_DENS(0:18), GKM_DENS(0:18)
REAL*8 GNAP_DENS(0:18), GAR_DENS(0:18)
REAL*8 RES, RINPUT
REAL*8 RSOMA, PI, BETCHI(numcomp), CAFOR(numcomp)
REAL*8 RAD(numcomp),LEN(numcomp),GAM1,GAM2,ELEN(numcomp)
REAL*8 RIN, D(numcomp), AREA(numcomp), RI, Z
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
C FOR ESTABLISHING TOPOLOGY OF COMPARTMENTS
real*8 depth(18)
depth(1) = 1800.d0
depth(2) = 1845.d0
depth(3) = 1890.d0
depth(4) = 1935.d0
depth(5) = 1760.d0
depth(6) = 1685.d0
depth(7) = 1610.d0
depth(8) = 1535.d0
depth(9) = 1460.d0
depth(10) = 1385.d0
depth(11) = 1310.d0
depth(12) = 1235.d0
depth(13) = 1160.d0
depth(14) = 1085.d0
depth(15) = 1010.d0
depth(16) = 935.d0
depth(17) = 860.d0
depth(18) = 790.d0
RI_SD = 250.d0
RM_SD = 50000.d0
RI_AXON = 100.d0
RM_AXON = 1000.d0
CDENS = 0.9d0
PI = 3.14159d0
c gnaf_dens = 5.d0
c gnaf_dens = 10.d0
gnaf_dens = 15.d0
! gnaf_dens(0) = 450.d0
gnaf_dens(0) = 175.d0
! gnaf_dens(1) = 175.d0
gnaf_dens(1) = 125.d0
gnaf_dens(2) = 75.d0
! gnaf_dens(5) = 150.d0
gnaf_dens(5) = 125.d0
gnaf_dens(6) = 75.d0
gnaf_dens(15) = 3.d0
gnaf_dens(16) = 3.d0
gnaf_dens(17) = 3.d0
gnaf_dens(18) = 3.d0
gkdr_dens = 0.d0
! gkdr_dens(0) = 450.d0
gkdr_dens(0) = 170.d0
gkdr_dens(1) = 170.d0
gkdr_dens(2) = 75.d0
gkdr_dens(5) = 120.d0
gkdr_dens(6) = 75.d0
c do i = 1, 18
do i = 0, 18 ! Note. Following isoldeepbetaVFO
gnap_dens(i) = 0.0040d0 * gnaf_dens(i)
end do
gcat_dens(0) = 0.d0
do i = 1, 18
gcat_dens(i) = 0.001d0
c gcat_dens(i) = 0.1d0
c gcat_dens(i) = 0.5d0
end do
c gcaL_dens = 0.5d0
c gcaL_dens = 4.0d0
gcaL_dens = 1.0d0
gcaL_dens(0) = 0.d0
gcaL_dens(1) = 4.d0
gcaL_dens(5) = 4.d0
gcaL_dens(6) = 4.d0
gcaL_dens( 8) = 1.d0
gcaL_dens( 9) = 1.d0
gcaL_dens(10) = 1.d0
gcaL_dens(11) = 1.d0
gcaL_dens(12) = 1.d0
gcaL_dens(13) = 1.d0
gcaL_dens(14) = 1.d0
gcaL_dens(15) = 1.d0
gcaL_dens(16) = 1.d0
gcaL_dens(17) = 1.d0
gcaL_dens(18) = 0.6d0
gka_dens = 0.60d0
gka_dens(1) = 20.d0
gka_dens(2) = 8.d0
gka_dens(5) = 8.d0
gka_dens(6) = 8.d0
gkc_dens = 0.25d0
gkc_dens(1) = 8.00d0
gkc_dens(2) = 8.00d0
gkc_dens(5) = 8.00d0
gkc_dens(6) = 8.00d0
gkc_dens(15) = 0.6d0
gkc_dens(16) = 0.6d0
gkc_dens(17) = 0.6d0
gkc_dens(18) = 0.6d0
c gkm_dens = 5.0d0
gkm_dens = 8.5d0
c gkm_dens(0) = 0.d0
gkm_dens(0) = 30.d0
gkm_dens(1) = 8.5d0
do i = 2, 14
gkm_dens(i) = 1.6d0 * 8.5d0
end do
gkm_dens(15) = 1.6d0 * 2.50d0
gkm_dens(16) = 1.6d0 * 2.50d0
gkm_dens(17) = 1.6d0 * 2.50d0
gkm_dens(18) = 1.6d0 * 2.50d0
gk2_dens = 0.01d0
c gk2_dens = 0.50d0
do i = 1, 18
c gkahp_dens(i) = 0.100d0
gkahp_dens(i) = 0.200d0
end do
c gkahp_dens(15) = 0.05d0
c gkahp_dens(16) = 0.05d0
c gkahp_dens(17) = 0.05d0
c gkahp_dens(18) = 0.05d0
gar_dens(0) = 0.d0
do i = 1, 17
gar_dens(i) = 0.10d0
end do
gar_dens(18) = 0.2d0
c if (thisno.eq.0) then
c WRITE (6,9988)
9988 FORMAT(2X,'I',4X,'NADENS',' CADENS(L)',' KDRDEN',' KAHPDE',
X ' KCDENS',' KADENS',' KMDENS')
c DO 9989, I = 0, 18
c WRITE (6,9990) I, gnaf_dens(i), gcaL_dens(i), gkdr_dens(i),
c X gkahp_dens(i), gkc_dens(i), gka_dens(i), gkm_dens(i)
9990 FORMAT(2X,I2,2X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,
X 1X,F6.2)
9989 CONTINUE
c endif
level(1) = 1
do i = 2, 12
level(i) = 2
end do
do i = 13, 23
level(i) = 3
end do
do i = 24, 34
level(i) = 4
end do
level(35) = 5
level(36) = 6
level(37) = 7
level(38) = 8
level(39) = 9
level(40) = 10
level(41) = 11
level(42) = 12
level(43) = 13
level(44) = 14
level(45) = 15
level(46) = 16
level(47) = 17
do i = 48, 55
level(i) = 18
end do
do i = 56, 61
level(i) = 0
end do
c connectivity of axon
nnum( 56) = 2
nnum( 57) = 3
nnum( 58) = 3
nnum( 59) = 3
nnum( 60) = 1
nnum( 61) = 1
neigh(56,1) = 1
neigh(56,2) = 57
neigh(57,1) = 56
neigh(57,2) = 58
neigh(57,3) = 59
neigh(58,1) = 57
neigh(58,2) = 59
neigh(58,3) = 60
neigh(59,1) = 57
neigh(59,2) = 58
neigh(59,3) = 61
neigh(60,1) = 58
neigh(61,1) = 59
c connectivity of SD part
nnum(1) = 7
neigh(1,1) = 56
neigh(1,2) = 2
neigh(1,3) = 3
neigh(1,4) = 4
neigh(1,5) = 5
neigh(1,6) = 6
neigh(1,7) = 35
do i = 2, 6
nnum(i) = 2
neigh(i,1) = 1
neigh(i,2) = i + 11
end do
do i = 13, 17
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 24, 28
nnum(i) = 1
neigh(i,1) = i - 11
end do
do i = 7, 12
nnum(i) = 2
if ((i.eq.7).or.(i.eq.12)) neigh(i,1) = 35
if ((i.eq.8).or.(i.eq.11)) neigh(i,1) = 36
if ((i.eq.9).or.(i.eq.10)) neigh(i,1) = 37
neigh(i,2) = i + 11
end do
do i = 18, 23
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 29, 34
nnum(i) = 1
neigh(i,1) = i - 11
end do
nnum(35) = 4
neigh(35,1) = 1
neigh(35,2) = 36
neigh(35,3) = 7
neigh(35,4) = 12
nnum(36) = 4
neigh(36,1) = 35
neigh(36,2) = 37
neigh(36,3) = 8
neigh(36,4) = 11
nnum(37) = 4
neigh(37,1) = 36
neigh(37,2) = 38
neigh(37,3) = 9
neigh(37,4) = 10
nnum(38) = 2
neigh(38,1) = 37
neigh(38,2) = 39
nnum(39) = 2
neigh(39,1) = 38
neigh(39,2) = 40
nnum(40) = 2
neigh(40,1) = 39
neigh(40,2) = 41
nnum(41) = 2
neigh(41,1) = 40
neigh(41,2) = 42
nnum(42) = 2
neigh(42,1) = 41
neigh(42,2) = 43
nnum(43) = 2
neigh(43,1) = 42
neigh(43,2) = 44
nnum(44) = 2
neigh(44,1) = 43
neigh(44,2) = 45
nnum(45) = 2
neigh(45,1) = 44
neigh(45,2) = 46
nnum(46) = 2
neigh(46,1) = 45
neigh(46,2) = 47
nnum(47) = 3
neigh(47,1) = 46
neigh(47,2) = 48
neigh(47,3) = 49
nnum(48) = 3
neigh(48,1) = 47
neigh(48,2) = 49
neigh(48,3) = 50
nnum(49) = 3
neigh(49,1) = 47
neigh(49,2) = 48
neigh(49,3) = 51
nnum(50) = 2
neigh(50,1) = 48
neigh(50,2) = 52
nnum(51) = 2
neigh(51,1) = 49
neigh(51,2) = 53
nnum(52) = 2
neigh(52,1) = 50
neigh(52,2) = 54
nnum(53) = 2
neigh(53,1) = 51
neigh(53,2) = 55
nnum(54) = 1
neigh(54,1)= 52
nnum(55) = 1
neigh(55,1) = 53
c if (thisno.eq.0) then
c DO 332, I = 1, numcomp
c WRITE(6,3330) I, NEIGH(I,1),NEIGH(I,2),NEIGH(I,3),NEIGH(I,4),
c X NEIGH(I,5),NEIGH(I,6),NEIGH(I,7)
3330 FORMAT(2X, 8I5)
332 CONTINUE
c endif
DO 858, I = 1, numcomp
DO 858, J = 1, NNUM(I)
K = NEIGH(I,J)
IT = 0
DO 859, L = 1, NNUM(K)
IF (NEIGH(K,L).EQ.I) IT = 1
859 CONTINUE
IF (IT.EQ.0) THEN
c WRITE(6,8591) I, K
8591 FORMAT(' ASYMMETRY IN NEIGH MATRIX ',I4,I4)
STOP
ENDIF
858 CONTINUE
c length and radius of axonal compartments
c Note shortened "initial segment"
len(56) = 25.d0
do i = 57, 61
len(i) = 50.d0
end do
rad( 56) = 0.90d0
rad( 57) = 0.7d0
do i = 58, 61
rad(i) = 0.5d0
end do
c length and radius of SD compartments
len(1) = 25.d0
rad(1) = 9.d0
do i = 2, 34
len(i) = 60.d0
end do
do i = 35, 47
len(i) = 75.d0
end do
do i = 48, 55
len(i) = 60.d0
end do
do i = 2, 6
rad(i) = 0.85d0
end do
do i = 13, 17
rad(i) = 0.85d0
end do
do i = 24, 28
rad(i) = 0.85d0
end do
do i = 7, 12
rad(i) = 0.62d0
end do
do i = 18, 23
rad(i) = 0.62d0
end do
do i = 29, 34
rad(i) = 0.62d0
end do
rad(35) = 2.0d0
rad(36) = 1.9d0
rad(37) = 1.8d0
rad(38) = 1.7d0
rad(39) = 1.6d0
rad(40) = 1.5d0
rad(41) = 1.4d0
rad(42) = 1.3d0
rad(43) = 1.2d0
rad(44) = 1.0d0
rad(45) = 0.8d0
rad(46) = 0.7d0
rad(47) = 0.6d0
do i = 48, 55
rad(i) = 0.55d0
end do
c if (thisno.eq.0) then
z = 0.d0
do i = 2, 55
z = z + 2.d0*pi*len(i)*rad(i)
end do
c write(6,9023) z
9023 format(' total dendritic area without spine corr.',f8.1)
c endif
c if (thisno.eq.0) then
c WRITE(6,919)
919 FORMAT('COMPART.',' LEVEL ',' RADIUS ',' LENGTH(MU)')
c DO 920, I = 1, numcomp
c920 WRITE(6,921) I, LEVEL(I), RAD(I), LEN(I)
921 FORMAT(I3,5X,I2,3X,F6.2,1X,F6.1,2X,F4.3)
c endif
DO 120, I = 1, numcomp
AREA(I) = 2.d0 * PI * RAD(I) * LEN(I)
if((i.gt.1).and.(i.le.55)) area(i) = 2.d0 * area(i)
C CORRECTION FOR CONTRIBUTION OF SPINES TO AREA
K = LEVEL(I)
C(I) = CDENS * AREA(I) * (1.D-8)
if (k.ge.1) then
GL(I) = (1.D-2) * AREA(I) / RM_SD
else
GL(I) = (1.D-2) * AREA(I) / RM_AXON
endif
GNAF(I) = GNAF_DENS(K) * AREA(I) * (1.D-5)
GNAP(I) = GNAP_DENS(K) * AREA(I) * (1.D-5)
GCAT(I) = GCAT_DENS(K) * AREA(I) * (1.D-5)
GKDR(I) = GKDR_DENS(K) * AREA(I) * (1.D-5)
GKA(I) = GKA_DENS(K) * AREA(I) * (1.D-5)
GKC(I) = GKC_DENS(K) * AREA(I) * (1.D-5)
GKAHP(I) = GKAHP_DENS(K) * AREA(I) * (1.D-5)
do L = 1, numcell
GCAL(I,L) = GCAL_DENS(K) * AREA(I) * (1.D-5)
end do
GK2(I) = GK2_DENS(K) * AREA(I) * (1.D-5)
GKM(I) = GKM_DENS(K) * AREA(I) * (1.D-5)
GAR(I) = GAR_DENS(K) * AREA(I) * (1.D-5)
c above conductances should be in microS
120 continue
Z = 0.d0
DO 1019, I = 2, 55
Z = Z + AREA(I)
1019 CONTINUE
c if (thisno.eq.1) then
c WRITE(6,1020) Z
c endif
1020 FORMAT(2X,' TOTAL DENDRITIC AREA (spine corr.)',F7.0)
DO 140, I = 1, numcomp
DO 140, K = 1, NNUM(I)
J = NEIGH(I,K)
if (level(i).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM1 =100.d0 * PI * RAD(I) * RAD(I) / ( RI * LEN(I) )
if (level(j).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM2 =100.d0 * PI * RAD(J) * RAD(J) / ( RI * LEN(J) )
GAM(I,J) = 2.d0/( (1.d0/GAM1) + (1.d0/GAM2) )
140 CONTINUE
c gam computed in microS
DO 299, I = 1, numcomp
299 BETCHI(I) = .075d0
BETCHI( 1) = .01d0
BETCHI( 2) = .02d0
BETCHI( 5) = .02d0
BETCHI( 6) = .02d0
D = 3.d-4
D(1) = 12.d-3
DO 160, I = 1, numcomp
160 CAFOR(I) = 5200.d0 / (AREA(I) * D(I))
C NOTE CORRECTION
do 200, i = 1, numcomp
200 C(I) = 1000.d0 * C(I)
C TO GO FROM MICROF TO NF.
DO 909, I = 1, numcomp
JACOB(I,I) = - GL(I)
DO 909, J = 1, NNUM(I)
K = NEIGH(I,J)
IF (I.EQ.K) THEN
c WRITE(6,510) I
510 FORMAT(' UNEXPECTED SYMMETRY IN NEIGH ',I4)
ENDIF
JACOB(I,K) = GAM(I,K)
JACOB(I,I) = JACOB(I,I) - GAM(I,K)
909 CONTINUE
c 15 Jan. 2001: make correction for c(i)
do i = 1, numcomp
do j = 1, numcomp
jacob(i,j) = jacob(i,j) / c(i)
end do
end do
c if (thisno.eq.1) then
DO 500, I = 1, numcomp
c WRITE (6,501) I,C(I)
501 FORMAT(1X,I3,' C(I) = ',F7.4)
500 CONTINUE
c endif
END
! 7 Sept. 2006: start with integrate_tuftRSXX.f from isoldeepVFOK, and
! add GABA-B
c 31 March 2005: lower axonal gNa density and shift gNaF rate functions
c 4 Nov. 2003, modify layVtup.f as integration program for layer V
c tufted RS pyramidal cell, for use with groucho.f
c20 May 2003: adapt non-tufted RS layer 5 cell, layVrsp.f, to tufted
c layer 5 cell - should be either RS or IB, depending on params.
c Total number of compartments = 61, axon 56-61; 18 levels; level 0 = axon.
c 14 May 2003. Copy program from Rose and modify for mpi.
c 19 June 2001. Taken from scortpd.f. Parallel.
c 19 June 2001: layer V RS cell with "thin" dendrite, no apical tuft.
c See Kim & Connors, Mason & Larkman.
c 44 SD compartments, 6 axonal, total 50.
c 5 basal and 6 apical oblique dendrites, each with 3 compartments.
c 10-compartment apical dendrite, no branches (apart from obliques)
c 13 April 2001, version of scortp.f, for looking at dendritic activities.
c 7 April 2001, parallel version of scort.f
c 30 March 2001: layer 2/3 pyramidal cell, with geometry (as much as
c possible) from Guy Major thesis; start with tcr.f.
c Total 74 compartments: 6 axon. 8 basal and 3 oblique dendrites, each
c with 3 compartments: apical shaft and branch; 8 3-segment pieces in
c the "apical tuft".
c Revised tcr.f, using modifications developed in short.f
c 22 Feb. 2001: alter persistent gNaP to have lower threshold and
c 1st power activation; in addition, try increasing activation
c threshold of fast gNa, as per Parri & Crunelli 1998.
c 25 Jan. 2001, single TCR cell, modification of nrt.f
c TCR cell has 10 short dendrites, each with 13 compartments.
c Soma is compartment 1; axon is 132-137, with structure as in
c nRT cell model. Each dendrite has 2 layers of trifurcations.
c 28 Dec. 2000, begin converting interneuron program to nRT cell.
c Soma will be comp. 1. 4 equivalent dendrites, each with 13 comps.
c (so 53 SD compartments). Branching axon with 6 compartments - 59
c compartments in all. Try one integration program for whole structure.
c Currents: leak, fast Na (naf), persistent Na (nap), fast DR (kdr),
c A-current (ka), K2 current, M-current (km), C current (kc), AHP
c (kahp), T-current (cat), high-thresh. Ca (CAL), h-current = anomalous
c rectifier (ar).
SUBROUTINE INTEGRATE_tuftRSXXC (O, time, numcell, V, curr,
& initialize, firstcell, lastcell,
& gAMPA, gNMDA, gGABA_A, gGABA_B,
& Mg, gapcon, totaxgj, gjtable, dt,
& chi,mnaf,mnap,
& hnaf,mkdr,mka,
& hka,mk2,hk2,
& mkm,mkc,mkahp,
& mcat,hcat,mcal,
& mar,field_1mm,field_2mm)
SAVE
integer, parameter:: numcomp = 61
c numcomp = number of compartments, including 6 in the axon.
integer numcell, totaxgj, gjtable(totaxgj,4)
integer initialize, firstcell, lastcell
INTEGER J1, I, J, K, L, O, K1, k2, k3
REAL*8 Z, Z1, Z2, Z3,z4,curr(numcomp,numcell),c(numcomp)
REAL*8 mg, dt, time, gapcon
c CINV is 1/C, i.e. inverse capacitance
real*8 v(numcomp,numcell),chi(numcomp,numcell),
x mnaf(numcomp,numcell),mnap(numcomp,numcell),
x hnaf(numcomp,numcell),mkdr(numcomp,numcell),
x mka(numcomp,numcell),hka(numcomp,numcell),
x mk2(numcomp,numcell), cinv(numcomp),
x hk2(numcomp,numcell),mkm(numcomp,numcell),
x mkc(numcomp,numcell),mkahp(numcomp,numcell),
x mcat(numcomp,numcell),
x hcat(numcomp,numcell),mcal(numcomp,numcell),
x mar(numcomp,numcell),
x jacob(numcomp,numcomp),betchi(numcomp),
x gam(0:numcomp,0:numcomp),gL(numcomp),gnaf(numcomp),
x gnap(numcomp),gkdr(numcomp),gka(numcomp),
x gk2(numcomp),gkm(numcomp),
x gkc(numcomp),gkahp(numcomp),
x gcat(numcomp),gcaL(numcomp),gar(numcomp),
x gampa(numcomp,numcell),ggaba_b(numcomp,numcell),
x gnmda(numcomp,numcell),ggaba_a(numcomp,numcell),
x cafor(numcomp)
real*8
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
real*8 outrcd(20)
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
real*8 persistentNa_shift, fastNa_shift_SD
real*8 fastNa_shift_axon
c the f's are the functions giving 1st derivatives for evolution of
c the differential equations for the voltages (v), calcium (chi), and
c other state variables.
real*8 fv(numcomp), fchi(numcomp),
x fmnaf(numcomp),fhnaf(numcomp),fmkdr(numcomp),
x fmka(numcomp),fhka(numcomp),
x fmk2(numcomp),fhk2(numcomp),fmnap(numcomp),
x fmkm(numcomp),fmkc(numcomp),fmkahp(numcomp),
x fmcat(numcomp),fhcat(numcomp),
x fmcal(numcomp),fmar(numcomp)
c below are for calculating the partial derivatives
real*8 dfv_dv(numcomp,numcomp), dfv_dchi(numcomp),
x dfv_dmnaf(numcomp),
x dfv_dmnap(numcomp),
x dfv_dhnaf(numcomp),dfv_dmkdr(numcomp),
x dfv_dmka(numcomp),dfv_dhka(numcomp),
x dfv_dmk2(numcomp),dfv_dhk2(numcomp),
x dfv_dmkm(numcomp),dfv_dmkc(numcomp),
x dfv_dmkahp(numcomp),dfv_dmcat(numcomp),
x dfv_dhcat(numcomp),dfv_dmcal(numcomp),
x dfv_dmar(numcomp)
real*8 dfchi_dv(numcomp), dfchi_dchi(numcomp),
x dfmnaf_dmnaf(numcomp),
x dfmnaf_dv(numcomp),dfhnaf_dhnaf(numcomp),
x dfmnap_dmnap(numcomp), dfmnap_dv(numcomp),
x dfhnaf_dv(numcomp),
x dfmkdr_dmkdr(numcomp),dfmkdr_dv(numcomp),
x dfmka_dmka(numcomp),dfmka_dv(numcomp),
x dfhka_dhka(numcomp),dfhka_dv(numcomp),
x dfmk2_dmk2(numcomp),dfmk2_dv(numcomp),
x dfhk2_dhk2(numcomp),dfhk2_dv(numcomp),
x dfmkm_dmkm(numcomp),dfmkm_dv(numcomp),
x dfmkc_dmkc(numcomp),dfmkc_dv(numcomp),
x dfmcat_dmcat(numcomp),
x dfmcat_dv(numcomp),dfhcat_dhcat(numcomp),
x dfhcat_dv(numcomp),
x dfmcal_dmcal(numcomp),dfmcal_dv(numcomp),
x dfmar_dmar(numcomp),
x dfmar_dv(numcomp),dfmkahp_dchi(numcomp),
x dfmkahp_dmkahp(numcomp), dt2
REAL*8 vL(numcomp),vk(numcomp),vna,var,vca,vgaba_a
REAL*8 OPEN(numcomp),gamma(numcomp),gamma_prime(numcomp)
c gamma is function of chi used in calculating KC conductance
REAL*8 alpham_ahp(numcomp),alpham_ahp_prime(numcomp)
REAL*8 gna_tot(numcomp),gk_tot(numcomp)
REAL*8 gca_tot(numcomp),gar_tot(numcomp)
REAL*8 gca_high(numcomp)
c this will be gCa conductance corresponding to high-thresh channels
REAL*8 A, BB1, BB2
real*8 depth(18), membcurr(18), field_1mm, field_2mm
integer level(numcomp)
! do initialization on 1st time step
c if (O == 1) then
if (initialize == 0) then
c Program assumes A, BB1, BB2 defined in calling program
c as follows:
A = DEXP(-2.847d0)
BB1 = DEXP(-.693d0)
BB2 = DEXP(-3.101d0)
CALL LAYVTU_RS_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
CALL LAYVTU_RS_MAJ (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
do i = 1, numcomp
cinv(i) = 1.d0 / c(i)
end do
do i = 1, numcomp
if (i.le. 55) then
vL(i) = -70.d0
else
vL(i) = -70.d0
endif
end do
do i = 1, numcomp
if (i.le. 55) then
vK(i) = -95.d0
else
vK(i) = - 95.d0
endif
end do
VNA = 50.d0
VCA = 125.d0
VAR = -43.d0
VAR = -35.d0
c -43 mV from Huguenard & McCormick
c VGABA_A = -81.d0
VGABA_A = -75.d0
c ? initialize membrane state variables?
! curr = 0.d0
v = VL(1)
k1 = idnint (4.d0 * (v(1,1) + 120.d0))
hnaf = alphah_naf(k1)/(alphah_naf(k1)+betah_naf(k1))
hka = alphah_ka(k1)/(alphah_ka(k1)+betah_ka(k1))
hk2 = alphah_k2(k1)/(alphah_k2(k1)+betah_k2(k1))
hcat=alphah_cat(k1)/(alphah_cat(k1)+betah_cat(k1))
c mar=alpham_ar(k1)/(alpham_ar(k1)+betam_ar(k1))
mar= .25d0
mnaf = 0.d0
mnap = 0.d0
mkdr = 0.d0
mka = 0.d0
mk2 = 0.d0
mkm = 0.d0
mkc = 0.d0
mkahp = 0.d0
mcat = 0.d0
mcal = 0.d0
chi = 0.d0
! z1, z2, z3 as per layVtup.f.2Jun03: altered Sept. 7, 2006
c z1 = 0.2d0
z1 = 0.05d0
z2 = 3.6d0
c z3 = 0.4d0
z3 = 0.2d0
z4 = 0.7d0
do i = 1, 55
gnap(i) = z1 * gnap(i)
gkc (i) = z2 * gkc (i)
gCaL(i) = z3 * gCaL(I)
gnaf(i) = z4 * gnaf(I)
end do
c above should give RS cell.
c Inrease gCaL just past bifurcation, so that tuft can make Ca spike
gCaL(48) = 4.5d0 * gCaL(48)
gCaL(49) = 4.5d0 * gCaL(49)
goto 4000
! End initialization
endif
do i = 1, 18
membcurr(i) = 0.d0
end do
c do L = 1, numcell
do L = firstcell, lastcell
DO 301, I = 1, numcomp
FV(I) = -GL(I) * (V(I,L) - VL(i)) * cinv(i)
DO 302, J = 1, NNUM(I)
K = NEIGH(I,J)
302 FV(I) = FV(I) + GAM(I,K) * (V(K,L) - V(I,L)) * cinv(i)
301 CONTINUE
CALL FNMDA (V, OPEN, numcell, numcomp, MG, L,
& A, BB1, BB2)
DO 421, I = 1, numcomp
FV(I) = FV(I) + ( CURR(I,L)
X - (gampa(I,L) + open(i) * gnmda(I,L))*V(I,L)
X - ggaba_a(I,L)*(V(I,L)-Vgaba_a)
X - ggaba_b(I,L)*(V(I,L)-VK(i) ) ) * cinv(i)
c above assumes equil. potential for AMPA & NMDA = 0 mV
421 continue
! gj code here
do m = 1, totaxgj
if (gjtable(m,1).eq.L) then
L1 = gjtable(m,3)
igap1 = gjtable(m,2)
igap2 = gjtable(m,4)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
else if (gjtable(m,3).eq.L) then
L1 = gjtable(m,1)
igap1 = gjtable(m,4)
igap2 = gjtable(m,2)
fv(igap1) = fv(igap1) + gapcon *
& (v(igap2,L1) - v(igap1,L)) * cinv(igap1)
endif
end do ! do m
do i = 1, numcomp
gamma(i) = dmin1 (1.d0, .004d0 * chi(i,L))
if (chi(i,L).le.250.d0) then
gamma_prime(i) = .004d0
else
gamma_prime(i) = 0.d0
endif
c endif
end do
DO 88, I = 1, numcomp
gna_tot(i) = gnaf(i) * (mnaf(i,L)**3) * hnaf(i,L) +
x gnap(i) * mnap(i,L)
gk_tot(i) = gkdr(i) * (mkdr(i,L)**4) +
x gka(i) * (mka(i,L)**4) * hka(i,L) +
x gk2(i) * mk2(i,L) * hk2(i,L) +
x gkm(i) * mkm(i,L) +
x gkc(i) * mkc(i,L) * gamma(i) +
x gkahp(i)* mkahp(i,L)
gca_tot(i) = gcat(i) * (mcat(i,L)**2) * hcat(i,L) +
x gcaL(i) * (mcaL(i,L)**2)
gca_high(i) =
x gcaL(i) * (mcaL(i,L)**2)
gar_tot(i) = gar(i) * mar(i,L)
FV(I) = FV(I) - ( gna_tot(i) * (v(i,L) - vna)
X + gk_tot(i) * (v(i,L) - vK(i))
X + gca_tot(i) * (v(i,L) - vCa)
X + gar_tot(i) * (v(i,L) - var) ) * cinv(i)
c endif
88 continue
do i = 1, numcomp
do j = 1, numcomp
if (i.ne.j) then
dfv_dv(i,j) = jacob(i,j)
else
dfv_dv(i,j) = jacob(i,i) - cinv(i) *
X (gna_tot(i) + gk_tot(i) + gca_tot(i) + gar_tot(i)
X + ggaba_a(i,L) + ggaba_b(i,L) + gampa(i,L)
X + open(i) * gnmda(I,L) )
endif
end do
end do
do i = 1, numcomp
dfv_dchi(i) = - cinv(i) * gkc(i) * mkc(i,L) *
x gamma_prime(i) * (v(i,L)-vK(i))
dfv_dmnaf(i) = -3.d0 * cinv(i) * (mnaf(i,L)**2) *
X (gnaf(i) * hnaf(i,L) ) * (v(i,L) - vna)
dfv_dmnap(i) = - cinv(i) *
X ( gnap(i)) * (v(i,L) - vna)
dfv_dhnaf(i) = - cinv(i) * gnaf(i) * (mnaf(i,L)**3) *
X (v(i,L) - vna)
dfv_dmkdr(i) = -4.d0 * cinv(i) * gkdr(i) * (mkdr(i,L)**3)
X * (v(i,L) - vK(i))
dfv_dmka(i) = -4.d0 * cinv(i) * gka(i) * (mka(i,L)**3) *
X hka(i,L) * (v(i,L) - vK(i))
dfv_dhka(i) = - cinv(i) * gka(i) * (mka(i,L)**4) *
X (v(i,L) - vK(i))
dfv_dmk2(i) = - cinv(i)*gk2(i)*hk2(i,L)*(v(i,L)-vK(i))
dfv_dhk2(i) = - cinv(i)*gk2(i)*mk2(i,L)*(v(i,L)-vK(i))
dfv_dmkm(i) = - cinv(i) * gkm(i) * (v(i,L) - vK(i))
dfv_dmkc(i) = - cinv(i) * gkc(i)*gamma(i) * (v(i,L)-vK(i))
dfv_dmkahp(i)= - cinv(i) * gkahp(i) * (v(i,L) - vK(i))
dfv_dmcat(i) = -2.d0 * cinv(i) * gcat(i) * mcat(i,L) *
X hcat(i,L) * (v(i,L) - vCa)
dfv_dhcat(i) = - cinv(i) * gcat(i) * (mcat(i,L)**2) *
X (v(i,L) - vCa)
dfv_dmcal(i) = -2.d0 * cinv(i) * gcal(i) * mcal(i,L) *
X (v(i,L) - vCa)
dfv_dmar(i) = - cinv(i) * gar(i) * (v(i,L) - var)
end do
do i = 1, numcomp
fchi(i) = - cafor(i) * gca_high(i) * (v(i,L) - vca)
c fchi(i) = - cafor(i) * gca_tot (i) * (v(i,L) - vca)
x - betchi(i) * chi(i,L)
dfchi_dv(i) = - cafor(i) * gca_high(i)
c dfchi_dv(i) = - cafor(i) * gca_tot (i)
dfchi_dchi(i) = - betchi(i)
end do
do i = 1, numcomp
c Note possible increase in rate at which AHP current develops
c alpham_ahp(i) = dmin1(0.2d-4 * chi(i,L),0.01d0)
alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.01d0)
c alpham_ahp(i) = dmin1(1.0d-4 * chi(i,L),0.02d0)
if (chi(i,L).le.500.d0) then
c alpham_ahp_prime(i) = 0.2d-4
alpham_ahp_prime(i) = 1.0d-4
else
alpham_ahp_prime(i) = 0.d0
endif
end do
do i = 1, numcomp
fmkahp(i) = alpham_ahp(i) * (1.d0 - mkahp(i,L))
x -.001d0 * mkahp(i,L)
c x -.010d0 * mkahp(i,L)
dfmkahp_dmkahp(i) = - alpham_ahp(i) - .001d0
c dfmkahp_dmkahp(i) = - alpham_ahp(i) - .010d0
dfmkahp_dchi(i) = alpham_ahp_prime(i) *
x (1.d0 - mkahp(i,L))
end do
do i = 1, numcomp
K1 = IDNINT ( 4.d0 * (V(I,L) + 120.d0) )
IF (K1.GT.640) K1 = 640
IF (K1.LT. 0) K1 = 0
c persistentNa_shift = 0.d0
c persistentNa_shift = 8.d0
persistentNa_shift = 10.d0
K2 = IDNINT ( 4.d0 * (V(I,L)+persistentNa_shift+ 120.d0) )
IF (K2.GT.640) K2 = 640
IF (K2.LT. 0) K2 = 0
c fastNa_shift = -2.0d0
c fastNa_shift = -2.5d0
fastNa_shift_SD = -3.5d0
c fastNa_shift_axon = fastNa_shift_SD + 7.d0
fastNa_shift_axon = fastNa_shift_SD + 4.d0
K0 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_SD+ 120.d0) )
K3 = IDNINT ( 4.d0 * (V(I,L)+ fastNa_shift_axon+ 120.d0) )
IF (K0.GT.640) K0 = 640
IF (K0.LT. 0) K0 = 0
IF (K3.GT.640) K3 = 640
IF (K3.LT. 0) K3 = 0
if (i.le.55) then
fmnaf(i) = alpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X betam_naf(k0) * mnaf(i,L)
fhnaf(i) = alphah_naf(k0) * (1.d0 - hnaf(i,L)) -
X betah_naf(k0) * hnaf(i,L)
else
fmnaf(i) = alpham_naf(k3) * (1.d0 - mnaf(i,L)) -
X betam_naf(k3) * mnaf(i,L)
fhnaf(i) = alphah_naf(k3) * (1.d0 - hnaf(i,L)) -
X betah_naf(k3) * hnaf(i,L)
endif
fmnap(i) = alpham_naf(k2) * (1.d0 - mnap(i,L)) -
X betam_naf(k2) * mnap(i,L)
fmkdr(i) = alpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X betam_kdr(k1) * mkdr(i,L)
fmka(i) = alpham_ka (k1) * (1.d0 - mka(i,L)) -
X betam_ka (k1) * mka(i,L)
fhka(i) = alphah_ka (k1) * (1.d0 - hka(i,L)) -
X betah_ka (k1) * hka(i,L)
fmk2(i) = alpham_k2 (k1) * (1.d0 - mk2(i,L)) -
X betam_k2 (k1) * mk2(i,L)
fhk2(i) = alphah_k2 (k1) * (1.d0 - hk2(i,L)) -
X betah_k2 (k1) * hk2(i,L)
fmkm(i) = alpham_km (k1) * (1.d0 - mkm(i,L)) -
X betam_km (k1) * mkm(i,L)
fmkc(i) = alpham_kc (k1) * (1.d0 - mkc(i,L)) -
X betam_kc (k1) * mkc(i,L)
fmcat(i) = alpham_cat(k1) * (1.d0 - mcat(i,L)) -
X betam_cat(k1) * mcat(i,L)
fhcat(i) = alphah_cat(k1) * (1.d0 - hcat(i,L)) -
X betah_cat(k1) * hcat(i,L)
fmcaL(i) = alpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X betam_caL(k1) * mcaL(i,L)
fmar(i) = alpham_ar (k1) * (1.d0 - mar(i,L)) -
X betam_ar (k1) * mar(i,L)
dfmnaf_dv(i) = dalpham_naf(k0) * (1.d0 - mnaf(i,L)) -
X dbetam_naf(k0) * mnaf(i,L)
dfmnap_dv(i) = dalpham_naf(k2) * (1.d0 - mnap(i,L)) -
X dbetam_naf(k2) * mnap(i,L)
dfhnaf_dv(i) = dalphah_naf(k1) * (1.d0 - hnaf(i,L)) -
X dbetah_naf(k1) * hnaf(i,L)
dfmkdr_dv(i) = dalpham_kdr(k1) * (1.d0 - mkdr(i,L)) -
X dbetam_kdr(k1) * mkdr(i,L)
dfmka_dv(i) = dalpham_ka(k1) * (1.d0 - mka(i,L)) -
X dbetam_ka(k1) * mka(i,L)
dfhka_dv(i) = dalphah_ka(k1) * (1.d0 - hka(i,L)) -
X dbetah_ka(k1) * hka(i,L)
dfmk2_dv(i) = dalpham_k2(k1) * (1.d0 - mk2(i,L)) -
X dbetam_k2(k1) * mk2(i,L)
dfhk2_dv(i) = dalphah_k2(k1) * (1.d0 - hk2(i,L)) -
X dbetah_k2(k1) * hk2(i,L)
dfmkm_dv(i) = dalpham_km(k1) * (1.d0 - mkm(i,L)) -
X dbetam_km(k1) * mkm(i,L)
dfmkc_dv(i) = dalpham_kc(k1) * (1.d0 - mkc(i,L)) -
X dbetam_kc(k1) * mkc(i,L)
dfmcat_dv(i) = dalpham_cat(k1) * (1.d0 - mcat(i,L)) -
X dbetam_cat(k1) * mcat(i,L)
dfhcat_dv(i) = dalphah_cat(k1) * (1.d0 - hcat(i,L)) -
X dbetah_cat(k1) * hcat(i,L)
dfmcaL_dv(i) = dalpham_caL(k1) * (1.d0 - mcaL(i,L)) -
X dbetam_caL(k1) * mcaL(i,L)
dfmar_dv(i) = dalpham_ar(k1) * (1.d0 - mar(i,L)) -
X dbetam_ar(k1) * mar(i,L)
dfmnaf_dmnaf(i) = - alpham_naf(k0) - betam_naf(k0)
dfmnap_dmnap(i) = - alpham_naf(k2) - betam_naf(k2)
dfhnaf_dhnaf(i) = - alphah_naf(k1) - betah_naf(k1)
dfmkdr_dmkdr(i) = - alpham_kdr(k1) - betam_kdr(k1)
dfmka_dmka(i) = - alpham_ka (k1) - betam_ka (k1)
dfhka_dhka(i) = - alphah_ka (k1) - betah_ka (k1)
dfmk2_dmk2(i) = - alpham_k2 (k1) - betam_k2 (k1)
dfhk2_dhk2(i) = - alphah_k2 (k1) - betah_k2 (k1)
dfmkm_dmkm(i) = - alpham_km (k1) - betam_km (k1)
dfmkc_dmkc(i) = - alpham_kc (k1) - betam_kc (k1)
dfmcat_dmcat(i) = - alpham_cat(k1) - betam_cat(k1)
dfhcat_dhcat(i) = - alphah_cat(k1) - betah_cat(k1)
dfmcaL_dmcaL(i) = - alpham_caL(k1) - betam_caL(k1)
dfmar_dmar(i) = - alpham_ar (k1) - betam_ar (k1)
end do
dt2 = 0.5d0 * dt * dt
do i = 1, numcomp
v(i,L) = v(i,L) + dt * fv(i)
do j = 1, numcomp
v(i,L) = v(i,L) + dt2 * dfv_dv(i,j) * fv(j)
end do
v(i,L) = v(i,L) + dt2 * ( dfv_dchi(i) * fchi(i)
X + dfv_dmnaf(i) * fmnaf(i)
X + dfv_dmnap(i) * fmnap(i)
X + dfv_dhnaf(i) * fhnaf(i)
X + dfv_dmkdr(i) * fmkdr(i)
X + dfv_dmka(i) * fmka(i)
X + dfv_dhka(i) * fhka(i)
X + dfv_dmk2(i) * fmk2(i)
X + dfv_dhk2(i) * fhk2(i)
X + dfv_dmkm(i) * fmkm(i)
X + dfv_dmkc(i) * fmkc(i)
X + dfv_dmkahp(i)* fmkahp(i)
X + dfv_dmcat(i) * fmcat(i)
X + dfv_dhcat(i) * fhcat(i)
X + dfv_dmcaL(i) * fmcaL(i)
X + dfv_dmar(i) * fmar(i) )
chi(i,L) = chi(i,L) + dt * fchi(i) + dt2 *
X (dfchi_dchi(i) * fchi(i) + dfchi_dv(i) * fv(i))
mnaf(i,L) = mnaf(i,L) + dt * fmnaf(i) + dt2 *
X (dfmnaf_dmnaf(i) * fmnaf(i) + dfmnaf_dv(i)*fv(i))
mnap(i,L) = mnap(i,L) + dt * fmnap(i) + dt2 *
X (dfmnap_dmnap(i) * fmnap(i) + dfmnap_dv(i)*fv(i))
hnaf(i,L) = hnaf(i,L) + dt * fhnaf(i) + dt2 *
X (dfhnaf_dhnaf(i) * fhnaf(i) + dfhnaf_dv(i)*fv(i))
mkdr(i,L) = mkdr(i,L) + dt * fmkdr(i) + dt2 *
X (dfmkdr_dmkdr(i) * fmkdr(i) + dfmkdr_dv(i)*fv(i))
mka(i,L) = mka(i,L) + dt * fmka(i) + dt2 *
X (dfmka_dmka(i) * fmka(i) + dfmka_dv(i) * fv(i))
hka(i,L) = hka(i,L) + dt * fhka(i) + dt2 *
X (dfhka_dhka(i) * fhka(i) + dfhka_dv(i) * fv(i))
mk2(i,L) = mk2(i,L) + dt * fmk2(i) + dt2 *
X (dfmk2_dmk2(i) * fmk2(i) + dfmk2_dv(i) * fv(i))
hk2(i,L) = hk2(i,L) + dt * fhk2(i) + dt2 *
X (dfhk2_dhk2(i) * fhk2(i) + dfhk2_dv(i) * fv(i))
mkm(i,L) = mkm(i,L) + dt * fmkm(i) + dt2 *
X (dfmkm_dmkm(i) * fmkm(i) + dfmkm_dv(i) * fv(i))
mkc(i,L) = mkc(i,L) + dt * fmkc(i) + dt2 *
X (dfmkc_dmkc(i) * fmkc(i) + dfmkc_dv(i) * fv(i))
mkahp(i,L) = mkahp(i,L) + dt * fmkahp(i) + dt2 *
X (dfmkahp_dmkahp(i)*fmkahp(i) + dfmkahp_dchi(i)*fchi(i))
mcat(i,L) = mcat(i,L) + dt * fmcat(i) + dt2 *
X (dfmcat_dmcat(i) * fmcat(i) + dfmcat_dv(i) * fv(i))
hcat(i,L) = hcat(i,L) + dt * fhcat(i) + dt2 *
X (dfhcat_dhcat(i) * fhcat(i) + dfhcat_dv(i) * fv(i))
mcaL(i,L) = mcaL(i,L) + dt * fmcaL(i) + dt2 *
X (dfmcaL_dmcaL(i) * fmcaL(i) + dfmcaL_dv(i) * fv(i))
mar(i,L) = mar(i,L) + dt * fmar(i) + dt2 *
X (dfmar_dmar(i) * fmar(i) + dfmar_dv(i) * fv(i))
c endif
end do
! Add membrane currents into membcurr for appropriate compartments
do i = 1, 6
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 13, 17
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 24, 28
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
do i = 35, 55
j = level(i)
membcurr(j) = membcurr(j) + fv(i) * c(i)
end do
end do ! do L
field_1mm = 0.d0
field_2mm = 0.d0
do i = 1, 18
field_1mm = field_1mm + membcurr(i) / dabs(1000.d0 - depth(i))
field_2mm = field_2mm + membcurr(i) / dabs(2000.d0 - depth(i))
end do
4000 END
C SETS UP TABLES FOR RATE FUNCTIONS
SUBROUTINE LAYVTU_RS_SETUP
X (alpham_naf, betam_naf, dalpham_naf, dbetam_naf,
X alphah_naf, betah_naf, dalphah_naf, dbetah_naf,
X alpham_kdr, betam_kdr, dalpham_kdr, dbetam_kdr,
X alpham_ka , betam_ka , dalpham_ka , dbetam_ka ,
X alphah_ka , betah_ka , dalphah_ka , dbetah_ka ,
X alpham_k2 , betam_k2 , dalpham_k2 , dbetam_k2 ,
X alphah_k2 , betah_k2 , dalphah_k2 , dbetah_k2 ,
X alpham_km , betam_km , dalpham_km , dbetam_km ,
X alpham_kc , betam_kc , dalpham_kc , dbetam_kc ,
X alpham_cat, betam_cat, dalpham_cat, dbetam_cat,
X alphah_cat, betah_cat, dalphah_cat, dbetah_cat,
X alpham_caL, betam_caL, dalpham_caL, dbetam_caL,
X alpham_ar , betam_ar , dalpham_ar , dbetam_ar)
INTEGER I,J,K
real*8 minf, hinf, taum, tauh, V, Z, shift_hnaf,
X shift_mkdr,
X alpham_naf(0:640),betam_naf(0:640),dalpham_naf(0:640),
X dbetam_naf(0:640),
X alphah_naf(0:640),betah_naf(0:640),dalphah_naf(0:640),
X dbetah_naf(0:640),
X alpham_kdr(0:640),betam_kdr(0:640),dalpham_kdr(0:640),
X dbetam_kdr(0:640),
X alpham_ka(0:640), betam_ka(0:640),dalpham_ka(0:640) ,
X dbetam_ka(0:640),
X alphah_ka(0:640), betah_ka(0:640), dalphah_ka(0:640),
X dbetah_ka(0:640),
X alpham_k2(0:640), betam_k2(0:640), dalpham_k2(0:640),
X dbetam_k2(0:640),
X alphah_k2(0:640), betah_k2(0:640), dalphah_k2(0:640),
X dbetah_k2(0:640),
X alpham_km(0:640), betam_km(0:640), dalpham_km(0:640),
X dbetam_km(0:640),
X alpham_kc(0:640), betam_kc(0:640), dalpham_kc(0:640),
X dbetam_kc(0:640),
X alpham_cat(0:640),betam_cat(0:640),dalpham_cat(0:640),
X dbetam_cat(0:640),
X alphah_cat(0:640),betah_cat(0:640),dalphah_cat(0:640),
X dbetah_cat(0:640),
X alpham_caL(0:640),betam_caL(0:640),dalpham_caL(0:640),
X dbetam_caL(0:640),
X alpham_ar(0:640), betam_ar(0:640), dalpham_ar(0:640),
X dbetam_ar(0:640)
C FOR VOLTAGE, RANGE IS -120 TO +40 MV (absol.), 0.25 MV RESOLUTION
DO 1, I = 0, 640
V = dble(I)
V = (V / 4.d0) - 120.d0
c gNa
minf = 1.d0/(1.d0 + dexp((-V-38.d0)/10.d0))
if (v.le.-30.d0) then
taum = .025d0 + .14d0*dexp((v+30.d0)/10.d0)
else
taum = .02d0 + .145d0*dexp((-v-30.d0)/10.d0)
endif
c from principal c. data, Martina & Jonas 1997, tau x 0.5
c Note that minf about the same for interneuron & princ. cell.
alpham_naf(i) = minf / taum
betam_naf(i) = 1.d0/taum - alpham_naf(i)
shift_hnaf = 0.d0
hinf = 1.d0/(1.d0 +
x dexp((v + shift_hnaf + 62.9d0)/10.7d0))
tauh = 0.15d0 + 1.15d0/(1.d0+dexp((v+37.d0)/15.d0))
c from princ. cell data, Martina & Jonas 1997, tau x 0.5
alphah_naf(i) = hinf / tauh
betah_naf(i) = 1.d0/tauh - alphah_naf(i)
shift_mkdr = 0.d0
c delayed rectifier, non-inactivating
minf = 1.d0/(1.d0+dexp((-v-shift_mkdr-29.5d0)/10.0d0))
if (v.le.-10.d0) then
taum = .25d0 + 4.35d0*dexp((v+10.d0)/10.d0)
else
taum = .25d0 + 4.35d0*dexp((-v-10.d0)/10.d0)
endif
alpham_kdr(i) = minf / taum
betam_kdr(i) = 1.d0 /taum - alpham_kdr(i)
c from Martina, Schultz et al., 1998. See espec. Table 1.
c A current: Huguenard & McCormick 1992, J Neurophysiol (TCR)
minf = 1.d0/(1.d0 + dexp((-v-60.d0)/8.5d0))
hinf = 1.d0/(1.d0 + dexp((v+78.d0)/6.d0))
taum = .185d0 + .5d0/(dexp((v+35.8d0)/19.7d0) +
x dexp((-v-79.7d0)/12.7d0))
if (v.le.-63.d0) then
tauh = .5d0/(dexp((v+46.d0)/5.d0) +
x dexp((-v-238.d0)/37.5d0))
else
tauh = 9.5d0
endif
alpham_ka(i) = minf/taum
betam_ka(i) = 1.d0 / taum - alpham_ka(i)
alphah_ka(i) = hinf / tauh
betah_ka(i) = 1.d0 / tauh - alphah_ka(i)
c h-current (anomalous rectifier), Huguenard & McCormick, 1992
minf = 1.d0/(1.d0 + dexp((v+75.d0)/5.5d0))
taum = 1.d0/(dexp(-14.6d0 -0.086d0*v) +
x dexp(-1.87 + 0.07d0*v))
alpham_ar(i) = minf / taum
betam_ar(i) = 1.d0 / taum - alpham_ar(i)
c K2 K-current, McCormick & Huguenard
minf = 1.d0/(1.d0 + dexp((-v-10.d0)/17.d0))
hinf = 1.d0/(1.d0 + dexp((v+58.d0)/10.6d0))
taum = 4.95d0 + 0.5d0/(dexp((v-81.d0)/25.6d0) +
x dexp((-v-132.d0)/18.d0))
tauh = 60.d0 + 0.5d0/(dexp((v-1.33d0)/200.d0) +
x dexp((-v-130.d0)/7.1d0))
alpham_k2(i) = minf / taum
betam_k2(i) = 1.d0/taum - alpham_k2(i)
alphah_k2(i) = hinf / tauh
betah_k2(i) = 1.d0 / tauh - alphah_k2(i)
c voltage part of C-current, using 1994 kinetics, shift 60 mV
if (v.le.-10.d0) then
alpham_kc(i) = (2.d0/37.95d0)*dexp((v+50.d0)/11.d0 -
x (v+53.5)/27.d0)
betam_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)-alpham_kc(i)
else
alpham_kc(i) = 2.d0*dexp((-v-53.5d0)/27.d0)
betam_kc(i) = 0.d0
endif
c high-threshold gCa, from 1994, with 60 mV shift & no inactivn.
alpham_cal(i) = 1.6d0/(1.d0+dexp(-.072d0*(v-5.d0)))
betam_cal(i) = 0.1d0 * ((v+8.9d0)/5.d0) /
x (dexp((v+8.9d0)/5.d0) - 1.d0)
c M-current, from plast.f, with 60 mV shift
alpham_km(i) = .02d0/(1.d0+dexp((-v-20.d0)/5.d0))
betam_km(i) = .01d0 * dexp((-v-43.d0)/18.d0)
c T-current, from Destexhe, Neubig et al., 1998
minf = 1.d0/(1.d0 + dexp((-v-56.d0)/6.2d0))
hinf = 1.d0/(1.d0 + dexp((v+80.d0)/4.d0))
taum = 0.204d0 + .333d0/(dexp((v+15.8d0)/18.2d0) +
x dexp((-v-131.d0)/16.7d0))
if (v.le.-81.d0) then
tauh = 0.333 * dexp((v+466.d0)/66.6d0)
else
tauh = 9.32d0 + 0.333d0*dexp((-v-21.d0)/10.5d0)
endif
alpham_cat(i) = minf / taum
betam_cat(i) = 1.d0/taum - alpham_cat(i)
alphah_cat(i) = hinf / tauh
betah_cat(i) = 1.d0 / tauh - alphah_cat(i)
1 CONTINUE
do 2, i = 0, 639
dalpham_naf(i) = (alpham_naf(i+1)-alpham_naf(i))/.25d0
dbetam_naf(i) = (betam_naf(i+1)-betam_naf(i))/.25d0
dalphah_naf(i) = (alphah_naf(i+1)-alphah_naf(i))/.25d0
dbetah_naf(i) = (betah_naf(i+1)-betah_naf(i))/.25d0
dalpham_kdr(i) = (alpham_kdr(i+1)-alpham_kdr(i))/.25d0
dbetam_kdr(i) = (betam_kdr(i+1)-betam_kdr(i))/.25d0
dalpham_ka(i) = (alpham_ka(i+1)-alpham_ka(i))/.25d0
dbetam_ka(i) = (betam_ka(i+1)-betam_ka(i))/.25d0
dalphah_ka(i) = (alphah_ka(i+1)-alphah_ka(i))/.25d0
dbetah_ka(i) = (betah_ka(i+1)-betah_ka(i))/.25d0
dalpham_k2(i) = (alpham_k2(i+1)-alpham_k2(i))/.25d0
dbetam_k2(i) = (betam_k2(i+1)-betam_k2(i))/.25d0
dalphah_k2(i) = (alphah_k2(i+1)-alphah_k2(i))/.25d0
dbetah_k2(i) = (betah_k2(i+1)-betah_k2(i))/.25d0
dalpham_km(i) = (alpham_km(i+1)-alpham_km(i))/.25d0
dbetam_km(i) = (betam_km(i+1)-betam_km(i))/.25d0
dalpham_kc(i) = (alpham_kc(i+1)-alpham_kc(i))/.25d0
dbetam_kc(i) = (betam_kc(i+1)-betam_kc(i))/.25d0
dalpham_cat(i) = (alpham_cat(i+1)-alpham_cat(i))/.25d0
dbetam_cat(i) = (betam_cat(i+1)-betam_cat(i))/.25d0
dalphah_cat(i) = (alphah_cat(i+1)-alphah_cat(i))/.25d0
dbetah_cat(i) = (betah_cat(i+1)-betah_cat(i))/.25d0
dalpham_caL(i) = (alpham_cal(i+1)-alpham_cal(i))/.25d0
dbetam_caL(i) = (betam_cal(i+1)-betam_cal(i))/.25d0
dalpham_ar(i) = (alpham_ar(i+1)-alpham_ar(i))/.25d0
dbetam_ar(i) = (betam_ar(i+1)-betam_ar(i))/.25d0
2 CONTINUE
END
SUBROUTINE LAYVTU_RS_MAJ
C BRANCHED ACTIVE DENDRITES
X (GL,GAM,GKDR,GKA,GKC,GKAHP,GK2,GKM,
X GCAT,GCAL,GNAF,GNAP,GAR,
X CAFOR,JACOB,C,BETCHI,NEIGH,NNUM,depth,level)
c Conductances: leak gL, coupling g, delayed rectifier gKDR, A gKA,
c C gKC, AHP gKAHP, K2 gK2, M gKM, low thresh Ca gCAT, high thresh
c gCAL, fast Na gNAF, persistent Na gNAP, h or anom. rectif. gAR.
c Note VAR = equil. potential for anomalous rectifier.
c Soma = comp. 1; 10 dendrites each with 13 compartments, 6-comp. axon
c Drop "glc"-like terms, just using "gl"-like
c CAFOR corresponds to "phi" in Traub et al., 1994
c Consistent set of units: nF, mV, ms, nA, microS
integer, parameter:: numcomp = 61
REAL*8 C(numcomp),GL(numcomp),GAM(0:numcomp,0:numcomp)
REAL*8 GNAF(numcomp),GCAT(numcomp)
REAL*8 GKDR(numcomp),GKA(numcomp),GAR(numcomp)
REAL*8 GKC(numcomp),GKAHP(numcomp),GCAL(numcomp)
REAL*8 GK2(numcomp),GKM(numcomp),GNAP(numcomp),CDENS
REAL*8 JACOB(numcomp,numcomp),RI_SD,RI_AXON,RM_SD,RM_AXON
INTEGER LEVEL(numcomp)
REAL*8 GNAF_DENS(0:18), GCAT_DENS(0:18), GKDR_DENS(0:18)
REAL*8 GKA_DENS(0:18), GKC_DENS(0:18), GKAHP_DENS(0:18)
REAL*8 GCAL_DENS(0:18), GK2_DENS(0:18), GKM_DENS(0:18)
REAL*8 GNAP_DENS(0:18), GAR_DENS(0:18)
REAL*8 RES, RINPUT
REAL*8 RSOMA, PI, BETCHI(numcomp), CAFOR(numcomp)
REAL*8 RAD(numcomp),LEN(numcomp),GAM1,GAM2,ELEN(numcomp)
REAL*8 RIN, D(numcomp), AREA(numcomp), RI, Z
INTEGER NEIGH(numcomp, 7), NNUM(numcomp)
C FOR ESTABLISHING TOPOLOGY OF COMPARTMENTS
real*8 depth(18)
depth(1) = 1800.d0
depth(2) = 1845.d0
depth(3) = 1890.d0
depth(4) = 1935.d0
depth(5) = 1760.d0
depth(6) = 1685.d0
depth(7) = 1610.d0
depth(8) = 1535.d0
depth(9) = 1460.d0
depth(10) = 1385.d0
depth(11) = 1310.d0
depth(12) = 1235.d0
depth(13) = 1160.d0
depth(14) = 1085.d0
depth(15) = 1010.d0
depth(16) = 935.d0
depth(17) = 860.d0
depth(18) = 790.d0
RI_SD = 250.d0
RM_SD = 50000.d0
RI_AXON = 100.d0
RM_AXON = 1000.d0
CDENS = 0.9d0
PI = 3.14159d0
c gnaf_dens = 5.d0
c gnaf_dens = 10.d0
gnaf_dens = 15.d0
c gnaf_dens(0) = 450.d0
c gnaf_dens(0) = 175.d0
gnaf_dens(0) = 300.d0
c gnaf_dens(1) = 200.d0
gnaf_dens(1) = 175.d0
gnaf_dens(2) = 75.d0
gnaf_dens(5) = 150.d0
gnaf_dens(6) = 75.d0
gnaf_dens(15) = 3.d0
gnaf_dens(16) = 3.d0
gnaf_dens(17) = 3.d0
gnaf_dens(18) = 3.d0
gkdr_dens = 0.d0
gkdr_dens(0) = 450.d0
gkdr_dens(1) = 170.d0
gkdr_dens(2) = 75.d0
gkdr_dens(5) = 120.d0
gkdr_dens(6) = 75.d0
do i = 1, 18
gnap_dens(i) = 0.0040d0 * gnaf_dens(i)
end do
do i = 1, 18
gcat_dens(i) = 0.1d0
c gcat_dens(i) = 0.5d0
end do
c gcaL_dens = 0.5d0
gcaL_dens = 4.0d0
gcaL_dens(0) = 0.d0
gcaL_dens( 8) = 1.d0
gcaL_dens( 9) = 1.d0
gcaL_dens(10) = 1.d0
gcaL_dens(11) = 1.d0
gcaL_dens(12) = 1.d0
gcaL_dens(13) = 1.d0
gcaL_dens(14) = 1.d0
gcaL_dens(15) = 1.d0
gcaL_dens(16) = 1.d0
gcaL_dens(17) = 1.d0
gcaL_dens(18) = 0.6d0
gka_dens = 0.60d0
gka_dens(0) = 100.d0
gka_dens(1) = 20.d0
gka_dens(2) = 8.d0
gka_dens(5) = 8.d0
gka_dens(6) = 8.d0
gkc_dens = 0.25d0
gkc_dens(1) = 8.00d0
gkc_dens(2) = 8.00d0
gkc_dens(5) = 8.00d0
gkc_dens(6) = 8.00d0
gkc_dens(15) = 0.6d0
gkc_dens(16) = 0.6d0
gkc_dens(17) = 0.6d0
gkc_dens(18) = 0.6d0
c gkm_dens = 5.0d0
gkm_dens = 8.5d0
c gkm_dens(0) = 0.d0
c gkm_dens(0) = 30.d0
gkm_dens(0) = 8.d0
gkm_dens(1) = 8.5d0
do i = 2, 14
gkm_dens(i) = 1.6d0 * 8.5d0
end do
gkm_dens(15) = 1.6d0 * 2.50d0
gkm_dens(16) = 1.6d0 * 2.50d0
gkm_dens(17) = 1.6d0 * 2.50d0
gkm_dens(18) = 1.6d0 * 2.50d0
c gk2_dens = 0.05d0
gk2_dens = 0.50d0
do i = 1, 18
gkahp_dens(i) = 0.080d0
c gkahp_dens(i) = 0.100d0
c gkahp_dens(i) = 0.200d0
end do
c gkahp_dens(15) = 0.05d0
c gkahp_dens(16) = 0.05d0
c gkahp_dens(17) = 0.05d0
c gkahp_dens(18) = 0.05d0
do i = 1, 17
gar_dens(i) = 0.10d0
end do
gar_dens(18) = 0.2d0
c if (thisno.eq.0) then
c WRITE (6,9988)
9988 FORMAT(2X,'I',4X,'NADENS',' CADENS(L)',' KDRDEN',' KAHPDE',
X ' KCDENS',' KADENS',' KMDENS')
c DO 9989, I = 0, 18
c WRITE (6,9990) I, gnaf_dens(i), gcaL_dens(i), gkdr_dens(i),
c X gkahp_dens(i), gkc_dens(i), gka_dens(i), gkm_dens(i)
9990 FORMAT(2X,I2,2X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,F6.2,
X 1X,F6.2)
9989 CONTINUE
c endif
level(1) = 1
do i = 2, 12
level(i) = 2
end do
do i = 13, 23
level(i) = 3
end do
do i = 24, 34
level(i) = 4
end do
level(35) = 5
level(36) = 6
level(37) = 7
level(38) = 8
level(39) = 9
level(40) = 10
level(41) = 11
level(42) = 12
level(43) = 13
level(44) = 14
level(45) = 15
level(46) = 16
level(47) = 17
do i = 48, 55
level(i) = 18
end do
do i = 56, 61
level(i) = 0
end do
c connectivity of axon
nnum( 56) = 2
nnum( 57) = 3
nnum( 58) = 3
nnum( 59) = 3
nnum( 60) = 1
nnum( 61) = 1
neigh(56,1) = 1
neigh(56,2) = 57
neigh(57,1) = 56
neigh(57,2) = 58
neigh(57,3) = 59
neigh(58,1) = 57
neigh(58,2) = 59
neigh(58,3) = 60
neigh(59,1) = 57
neigh(59,2) = 58
neigh(59,3) = 61
neigh(60,1) = 58
neigh(61,1) = 59
c connectivity of SD part
nnum(1) = 7
neigh(1,1) = 56
neigh(1,2) = 2
neigh(1,3) = 3
neigh(1,4) = 4
neigh(1,5) = 5
neigh(1,6) = 6
neigh(1,7) = 35
do i = 2, 6
nnum(i) = 2
neigh(i,1) = 1
neigh(i,2) = i + 11
end do
do i = 13, 17
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 24, 28
nnum(i) = 1
neigh(i,1) = i - 11
end do
do i = 7, 12
nnum(i) = 2
if ((i.eq.7).or.(i.eq.12)) neigh(i,1) = 35
if ((i.eq.8).or.(i.eq.11)) neigh(i,1) = 36
if ((i.eq.9).or.(i.eq.10)) neigh(i,1) = 37
neigh(i,2) = i + 11
end do
do i = 18, 23
nnum(i) = 2
neigh(i,1) = i - 11
neigh(i,2) = i + 11
end do
do i = 29, 34
nnum(i) = 1
neigh(i,1) = i - 11
end do
nnum(35) = 4
neigh(35,1) = 1
neigh(35,2) = 36
neigh(35,3) = 7
neigh(35,4) = 12
nnum(36) = 4
neigh(36,1) = 35
neigh(36,2) = 37
neigh(36,3) = 8
neigh(36,4) = 11
nnum(37) = 4
neigh(37,1) = 36
neigh(37,2) = 38
neigh(37,3) = 9
neigh(37,4) = 10
nnum(38) = 2
neigh(38,1) = 37
neigh(38,2) = 39
nnum(39) = 2
neigh(39,1) = 38
neigh(39,2) = 40
nnum(40) = 2
neigh(40,1) = 39
neigh(40,2) = 41
nnum(41) = 2
neigh(41,1) = 40
neigh(41,2) = 42
nnum(42) = 2
neigh(42,1) = 41
neigh(42,2) = 43
nnum(43) = 2
neigh(43,1) = 42
neigh(43,2) = 44
nnum(44) = 2
neigh(44,1) = 43
neigh(44,2) = 45
nnum(45) = 2
neigh(45,1) = 44
neigh(45,2) = 46
nnum(46) = 2
neigh(46,1) = 45
neigh(46,2) = 47
nnum(47) = 3
neigh(47,1) = 46
neigh(47,2) = 48
neigh(47,3) = 49
nnum(48) = 3
neigh(48,1) = 47
neigh(48,2) = 49
neigh(48,3) = 50
nnum(49) = 3
neigh(49,1) = 47
neigh(49,2) = 48
neigh(49,3) = 51
nnum(50) = 2
neigh(50,1) = 48
neigh(50,2) = 52
nnum(51) = 2
neigh(51,1) = 49
neigh(51,2) = 53
nnum(52) = 2
neigh(52,1) = 50
neigh(52,2) = 54
nnum(53) = 2
neigh(53,1) = 51
neigh(53,2) = 55
nnum(54) = 1
neigh(54,1)= 52
nnum(55) = 1
neigh(55,1) = 53
c if (thisno.eq.0) then
c DO 332, I = 1, numcomp
c WRITE(6,3330) I, NEIGH(I,1),NEIGH(I,2),NEIGH(I,3),NEIGH(I,4),
c X NEIGH(I,5),NEIGH(I,6),NEIGH(I,7)
3330 FORMAT(2X, 8I5)
332 CONTINUE
c endif
DO 858, I = 1, numcomp
DO 858, J = 1, NNUM(I)
K = NEIGH(I,J)
IT = 0
DO 859, L = 1, NNUM(K)
IF (NEIGH(K,L).EQ.I) IT = 1
859 CONTINUE
IF (IT.EQ.0) THEN
c WRITE(6,8591) I, K
8591 FORMAT(' ASYMMETRY IN NEIGH MATRIX ',I4,I4)
STOP
ENDIF
858 CONTINUE
c length and radius of axonal compartments
c Note shortened "initial segment"
len(56) = 25.d0
do i = 57, 61
len(i) = 50.d0
end do
rad( 56) = 0.90d0
rad( 57) = 0.7d0
do i = 58, 61
rad(i) = 0.5d0
end do
c length and radius of SD compartments
len(1) = 25.d0
rad(1) = 9.d0
do i = 2, 34
len(i) = 60.d0
end do
do i = 35, 47
len(i) = 75.d0
end do
do i = 48, 55
len(i) = 60.d0
end do
do i = 2, 6
rad(i) = 0.85d0
end do
do i = 13, 17
rad(i) = 0.85d0
end do
do i = 24, 28
rad(i) = 0.85d0
end do
do i = 7, 12
rad(i) = 0.62d0
end do
do i = 18, 23
rad(i) = 0.62d0
end do
do i = 29, 34
rad(i) = 0.62d0
end do
rad(35) = 2.0d0
rad(36) = 1.9d0
rad(37) = 1.8d0
rad(38) = 1.7d0
rad(39) = 1.6d0
rad(40) = 1.5d0
rad(41) = 1.4d0
rad(42) = 1.3d0
rad(43) = 1.2d0
rad(44) = 1.0d0
rad(45) = 0.8d0
rad(46) = 0.7d0
rad(47) = 0.6d0
do i = 48, 55
rad(i) = 0.55d0
end do
c if (thisno.eq.0) then
z = 0.d0
do i = 2, 55
z = z + 2.d0*pi*len(i)*rad(i)
end do
c write(6,9023) z
9023 format(' total dendritic area without spine corr.',f8.1)
c endif
c if (thisno.eq.0) then
c WRITE(6,919)
919 FORMAT('COMPART.',' LEVEL ',' RADIUS ',' LENGTH(MU)')
c DO 920, I = 1, numcomp
c920 WRITE(6,921) I, LEVEL(I), RAD(I), LEN(I)
921 FORMAT(I3,5X,I2,3X,F6.2,1X,F6.1,2X,F4.3)
c endif
DO 120, I = 1, numcomp
AREA(I) = 2.d0 * PI * RAD(I) * LEN(I)
if((i.gt.1).and.(i.le.55)) area(i) = 2.d0 * area(i)
C CORRECTION FOR CONTRIBUTION OF SPINES TO AREA
K = LEVEL(I)
C(I) = CDENS * AREA(I) * (1.D-8)
if (k.ge.1) then
GL(I) = (1.D-2) * AREA(I) / RM_SD
else
GL(I) = (1.D-2) * AREA(I) / RM_AXON
endif
GNAF(I) = GNAF_DENS(K) * AREA(I) * (1.D-5)
GNAP(I) = GNAP_DENS(K) * AREA(I) * (1.D-5)
GCAT(I) = GCAT_DENS(K) * AREA(I) * (1.D-5)
GKDR(I) = GKDR_DENS(K) * AREA(I) * (1.D-5)
GKA(I) = GKA_DENS(K) * AREA(I) * (1.D-5)
GKC(I) = GKC_DENS(K) * AREA(I) * (1.D-5)
GKAHP(I) = GKAHP_DENS(K) * AREA(I) * (1.D-5)
GCAL(I) = GCAL_DENS(K) * AREA(I) * (1.D-5)
GK2(I) = GK2_DENS(K) * AREA(I) * (1.D-5)
GKM(I) = GKM_DENS(K) * AREA(I) * (1.D-5)
GAR(I) = GAR_DENS(K) * AREA(I) * (1.D-5)
c above conductances should be in microS
120 continue
Z = 0.d0
DO 1019, I = 2, 55
Z = Z + AREA(I)
1019 CONTINUE
c if (thisno.eq.1) then
c WRITE(6,1020) Z
c endif
1020 FORMAT(2X,' TOTAL DENDRITIC AREA (spine corr.)',F7.0)
DO 140, I = 1, numcomp
DO 140, K = 1, NNUM(I)
J = NEIGH(I,K)
if (level(i).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM1 =100.d0 * PI * RAD(I) * RAD(I) / ( RI * LEN(I) )
if (level(j).eq.0) then
RI = RI_AXON
else
RI = RI_SD
endif
GAM2 =100.d0 * PI * RAD(J) * RAD(J) / ( RI * LEN(J) )
GAM(I,J) = 2.d0/( (1.d0/GAM1) + (1.d0/GAM2) )
140 CONTINUE
c gam computed in microS
DO 299, I = 1, numcomp
299 BETCHI(I) = .075d0
BETCHI( 1) = .01d0
BETCHI( 2) = .02d0
BETCHI( 5) = .02d0
BETCHI( 6) = .02d0
D = 3.d-4
D(1) = 12.d-3
DO 160, I = 1, numcomp
160 CAFOR(I) = 5200.d0 / (AREA(I) * D(I))
C NOTE CORRECTION
do 200, i = 1, numcomp
200 C(I) = 1000.d0 * C(I)
C TO GO FROM MICROF TO NF.
DO 909, I = 1, numcomp
JACOB(I,I) = - GL(I)
DO 909, J = 1, NNUM(I)
K = NEIGH(I,J)
IF (I.EQ.K) THEN
c WRITE(6,510) I
510 FORMAT(' UNEXPECTED SYMMETRY IN NEIGH ',I4)
ENDIF
JACOB(I,K) = GAM(I,K)
JACOB(I,I) = JACOB(I,I) - GAM(I,K)
909 CONTINUE
c 15 Jan. 2001: make correction for c(i)
do i = 1, numcomp
do j = 1, numcomp
jacob(i,j) = jacob(i,j) / c(i)
end do
end do
c if (thisno.eq.1) then
DO 500, I = 1, numcomp
c WRITE (6,501) I,C(I)
501 FORMAT(1X,I3,' C(I) = ',F7.4)
500 CONTINUE
c endif
END
subroutine otis_table_setup (otis_table, how_often, dt)
! Makes table of otis.f values, functions of time, with step size
! = how_often * dt
real*8 otis_table (0:50000), dt, z, value
integer i, j, k, how_often
do i = 0, 50000
z = dble (i) * dt * dble(how_often)
call otis (z, value)
otis_table(i) = value
end do
end
! Time course of GABA-B, from Otis, de Koninck & Mody (1993) and proportional
! to that used in Traub et al. 1993 pyramidal cell model, J. Physiol.
subroutine otis (t,value)
real*8 t, value
if (t.le.10.d0) then
value = 0.d0
else
value = (1.d0 - dexp(-(t-10.d0)/38.1d0)) ** 4
c value = value * (10.2d0 * dexp(-(t-10.d0)/122.d0) +
c & 1.1d0 * dexp(-(t-10.d0)/587.d0))
c value = value * (10.2d0 * dexp(-(t-10.d0)/250.d0) +
value = value * (10.2d0 * dexp(-(t-10.d0)/200.d0) +
& 0.0d0 * dexp(-(t-10.d0)/587.d0))
endif
end