Commit d3744eba authored by Martin Beseda's avatar Martin Beseda
Browse files

ENH: common integer data type changed to integer_4neuro kind.

parent 8b4a28ff
......@@ -138,7 +138,7 @@ module connection_m
class(neuron_t), pointer, intent(in) :: output_neuron
real(kind=real_4neuro) :: weight
type(connection_t), pointer :: new_obj
integer :: values(8) !< values(8) is used as seed
integer(kind=integer_4neuro) :: values(8) !< values(8) is used as seed
#ifdef TIME_PROFILING
real :: start_time
......@@ -200,7 +200,7 @@ module connection_m
!> Array desctructor for arrays of instances of the class connection_t
subroutine destroy_connection_array(this)
type(connection_t), intent(inout) :: this(:)
integer :: i
integer(kind=integer_4neuro) :: i
#ifdef TIME_PROFILING
real :: start_time
call time_profiling_start(start_time)
......@@ -357,7 +357,7 @@ module connection_m
class(neuron_t), pointer, intent(in) :: output_neuron
real(kind=real_4neuro) :: weight
type(interval_connection_t), pointer :: new_obj
integer :: values(8)
integer(kind=integer_4neuro) :: values(8)
#ifdef TIME_PROFILING
real :: start_time
call time_profiling_start(start_time)
......
......@@ -249,7 +249,7 @@ module neuron_m
!! ('potential' to 0, 'state' to 0)
subroutine neuron_init_components_impl(this)
class(neuron_t), intent(inout) :: this
integer :: values(8) !< values(8) used as a seed
integer(kind=integer_4neuro) :: values(8) !< values(8) used as a seed
#ifdef TIME_PROFILING
real :: start_time
call time_profiling_start(start_time)
......@@ -366,7 +366,7 @@ module neuron_m
!! @return Pointer to the instance of the class binary_neuron_t
function new_binary_neuron() result(new_obj)
type(binary_neuron_t), pointer :: new_obj
integer :: values(8)
integer(kind=integer_4neuro) :: values(8)
#ifdef TIME_PROFILING
real :: start_time
call time_profiling_start(start_time)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment