160 real(RP),
dimension(Na),
intent(out) :: a
161 real(RP),
dimension(N) ,
intent(out) :: b
162 real(RP) ,
intent(in) :: I
163 real(RP),
dimension(N) ,
intent(in) :: y
164 integer ,
intent(in) :: N, Na
185 character(20) :: name
206 real(RP),
dimension(:),
allocatable :: y0
246 im%name =
"Undefined" 266 integer,
intent(in) :: type
281 im%Vrest = im%Y0(im%N)
284 im%name =
"IONIC_BR_0" 292 im%Vrest = im%Y0(im%N)
295 im%name =
"IONIC_BR_WV" 303 im%Vrest = im%Y0(im%N)
306 im%name =
"IONIC_BR_SP" 314 im%Vrest = im%Y0(im%N)
317 im%name =
"IONIC_TNNP" 326 im%Vrest = im%Y0(im%N)
329 im%name =
"IONIC_TNNP_0" 338 im%Vrest = im%Y0(im%N)
342 &
"ionicModel_mod: ionicModel_create: wrong type")
347 &
'ionicModel_mod : create = ', trim(im%name)
350 &
" Size N, Na =", im%N, im%Na
359 write(*,*)
"ionicModel_mod : ionicModel_print" 360 write(*,*)
" name = " // trim(im%name)
361 write(*,*)
" N =", im%N
362 write(*,*)
" NA =", im%NA
363 write(*,*)
" NI =", im%NI
364 write(*,*)
" Ist =", im%Ist
365 write(*,*)
" Vrest =", im%Vrest
386 real(RP),
dimension(:),
intent(out) :: I
387 real(RP),
dimension(:),
intent(in) :: Y
388 real(RP) ,
intent(in) :: I_app
389 integer ,
intent(in) :: type
402 call quit(
"ionicModel_mod: ionicModel_IList: unknown type")
subroutine, public br_sp_y0(Y)
Model IONIC_BR_SP: rest state
subroutine, public tnnp_ab_w(a, b, I, Y, N, Na)
deallocate memory for real(RP) arrays
integer, parameter ionic_br_wv
integer, parameter ionic_tnnp_0
subroutine, public br_y0(Y)
re-computed rest state (solving F(Y0)=0)
DERIVED TYPE ionicModel: cellular ionic models in electrophysiology
integer, parameter, public rp
real(kind=RP) = real precision in the code REAL_TOL = epsilon to test real equality ...
subroutine, public tnnp_ilist(IList, Y)
integer, parameter, public br_nw
integer, parameter ionic_br
integer, parameter ionic_br_0
integer, parameter, public tnnp_ny
REAL NUMBERS PRECISION IN CHORAL: selects simple/double/quad
integer, parameter, public br_ni
subroutine ionicmodel_clear(im)
Destructor.
Beeler Reuter ionic model
subroutine, public br_ab_w(a, b, I, Y, N, Na)
Model IONIC_BR: reaction term
type(ionicmodel) function ionicmodel_create(type)
Constructor for the type ionicModel
subroutine, public br_sp_ab_w(a, b, I, Y, N, Na)
Model IONIC_BR_SP: reaction term
subroutine, public br_sp_ilist(IList, Y)
Model IONIC_BR_SP: ionic current list
real(rp), parameter vrest
subroutine, public tnnp_y0(Y)
allocate memory for real(RP) arrays
print a short description
subroutine, public br_ilist(IList, Y)
integer, parameter ionic_br_sp
integer, parameter, public br_ny
integer choral_verb
Verbosity level.
DERIVED TYPE ionicModel: cellular ionic models in electrophysiology
subroutine, public br_ab_0(a, b, I, Y, N, Na)
Model IONIC_BR: reaction term
DEFINITION OF GLOBAL VARIABLES FOR THE LIBRARY CHORAL
integer, parameter, public tnnp_ni
subroutine, public ionicmodel_ilist(I, Y, I_app, type)
Membrane ionic currents
subroutine ionicmodel_print(im)
Print a short description.
subroutine, public tnnp_ab_0(a, b, I, Y, N, Na)
subroutine, public br_ab_wv(a, b, I, Y, N, Na)
Model IONIC_BR: reaction term
integer, parameter ionic_tnnp