128502/HH_run.f95 at master · ModelDBRepository/128502 · GitHub

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
!***********************************************************************************
PROGRAM HH_run
! Run HH models with channel noise
!
! Command Line Inputs:
! Model: 0 = ODE
!	 1 = Markov Chain
!	 2 = SDE Channel (Fox and Lu, 1994)
!	 3 = SDE Subunit Identical (Fox and Lu, 1994)
!	 4 = SDE Subunit Independent (Shuai and Jung, 2002)
!	 5 = SDE Subunit Quasistationary
!	 6 = Channel Quasistationary
! Membrane Area (mu m^2)
! Maximum number of time steps before terminating simulation
! Increment of time step (ms)
! Maximum number of ISIs before terminating simulation
! Stimulus - DC Input
! Stimulus - White noise scaling
! Stimulus - Amplitude of sinusoidal input
! Stimulus - Frequency of sinusoidal input
! Whether simulation is in voltage clamp (0=no, 1=yes)
! What to data to print: 1 = Voltage and proportions of open channels
!			 2 = Interspike intervals
! Random number seed (integer)

! Read in parameter values from modules
USE ParameterModule

IMPLICIT NONE

! Declare Local Variables
INTEGER commandcount, length
INTEGER model
DOUBLE PRECISION area
INTEGER NNa, NK
INTEGER nt
DOUBLE PRECISION dt
DOUBLE PRECISION, DIMENSION(1:5) :: StimParam
INTEGER PrintOut
CHARACTER(12) :: commandin
INTEGER maxnisi
REAL seed

! Read in Command Line Inputs
  commandcount = COMMAND_ARGUMENT_COUNT()

! Which Model To Use
  CALL GET_COMMAND_ARGUMENT(1, commandin,length)
  CALL STR2INT(commandin,length,model)

! Membrane Area
  CALL GET_COMMAND_ARGUMENT(2, commandin,length)
  CALL STR2DBLE(commandin,length,area)
  CALL NumberChannel(area,NNa,NK)

! Max Number of Time Steps
  CALL GET_COMMAND_ARGUMENT(3, commandin,length)
  CALL STR2INT(commandin,length,nt)

! Time Step
  CALL GET_COMMAND_ARGUMENT(4, commandin,length)
  CALL STR2DBLE(commandin,length,dt)

! Max Number of ISI
  CALL GET_COMMAND_ARGUMENT(5, commandin,length)
  CALL STR2INT(commandin,length,maxnisi)

! DC input
  CALL GET_COMMAND_ARGUMENT(6, commandin,length)
  CALL STR2DBLE(commandin,length,StimParam(1))

! White Noise Variance
  CALL GET_COMMAND_ARGUMENT(7, commandin,length)
  CALL STR2DBLE(commandin,length,StimParam(2))

! Sinusoidal Frequency
  CALL GET_COMMAND_ARGUMENT(8, commandin,length)
  CALL STR2DBLE(commandin,length,StimParam(3))

! Sinusoidal Amplitude
  CALL GET_COMMAND_ARGUMENT(9, commandin,length)
  CALL STR2DBLE(commandin,length,StimParam(4))

! Whether in Voltage Clamp
  CALL GET_COMMAND_ARGUMENT(10, commandin,length)
  CALL STR2DBLE(commandin,length,StimParam(5))

! What data to print
  CALL GET_COMMAND_ARGUMENT(11, commandin,length)
  CALL STR2INT(commandin,length,PrintOut)

! Random Number Seed INTEGER
  CALL GET_COMMAND_ARGUMENT(12, commandin,length)
  CALL STR2INT(commandin,length,seed)


!!!!!!!!!! ODE !!!!!!!!!!
IF (model .EQ. 0) THEN
  CALL HHode(StimParam,nt,dt,maxnisi,PrintOut,seed)

!!!!!!!!!! Markov Chain !!!!!!!!!!
ELSE IF (model .EQ. 1) THEN
  CALL HHmc(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

!!!!!!!!!! Fox and Lu Channel SDE !!!!!!!!!!
ELSE IF (model .EQ. 2) THEN
  CALL HHsde_channel(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

!!!!!!!!!! Fox and Lu Subunit SDE  !!!!!!!!!!
ELSE IF (model .EQ. 3) THEN
  CALL HHsde_subunit_identical(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

!!!!!!!!!! Shuai and Jung !!!!!!!!!!
ELSE IF (model .EQ. 4) THEN
  CALL HHsde_subunit_independent(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

!!!!!!!!!! Quasistationary (subunit) !!!!!!!!!!
ELSE IF (model .EQ. 5) THEN
  CALL HHsde_subunit_quasistationary(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

ELSE IF (model .EQ. 6) THEN
  CALL HHsde_channel_quasistationary(StimParam,NNa,NK,nt,dt,maxnisi,PrintOut,seed)

END IF

END PROGRAM HH_run
!***********************************************************************************