Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
MolDyn
lib4neuro
Commits
9479e6a1
Commit
9479e6a1
authored
Nov 28, 2017
by
Martin Beseda
Browse files
FIX: Fixed bugs after changing kinds of types from 4-bytes to *_4neuro
parent
d3744eba
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/connection_m.f90
View file @
9479e6a1
...
...
@@ -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
(
kind
=
integer_4neuro
)
::
values
(
8
)
!< values(8) is used as seed
integer
(
kind
=
4
)
::
values
(
8
)
!< values(8) is used as seed
#ifdef TIME_PROFILING
real
::
start_time
...
...
@@ -251,7 +251,7 @@ module connection_m
!! @return Weight of the connection (type real)
function
get_weight_impl
(
this
)
result
(
weight
)
class
(
connection_t
),
intent
(
in
)
::
this
real
::
weight
real
(
kind
=
real_4neuro
)
::
weight
#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
(
kind
=
integer_4neuro
)
::
values
(
8
)
integer
(
kind
=
4
)
::
values
(
8
)
#ifdef TIME_PROFILING
real
::
start_time
call
time_profiling_start
(
start_time
)
...
...
src/connection_m.fun
View file @
9479e6a1
...
...
@@ -26,7 +26,7 @@ setup
n1_p
=>
mock_neuron_t
()
n2_p
=>
mock_neuron_t
()
write
(*
,*)
'Creating
an
instance
of
the
class
interval_connection_t
.
..
'
con
=>
connection_t
(
n1_p
,
n2_p
,
5.25
)
con
=>
connection_t
(
n1_p
,
n2_p
,
real
(
5.25
,
real_4neuro
)
)
nullify
(
dummy_p
)
write
(*
,*)
'Ready
for
test
.
'
end
setup
...
...
@@ -57,7 +57,7 @@ test getters_setters
!
Test
of
get_weight
assert_real_equal
(
con%get_weight
(),
5.25
e+
0
)
!
Test
of
adjust_weight
call
con%adjust_weight
(
1.0
)
call
con%adjust_weight
(
real
(
1.0
,
real_4neuro
)
)
assert_real_equal
(
con%get_weight
(),
6.25
e+
0
)
write
(*
,*)
'
.
..
finished
+++'
end
test
...
...
src/neuron_m.f90
View file @
9479e6a1
...
...
@@ -97,7 +97,7 @@ module neuron_m
type
,
extends
(
neuron_t
)
::
binary_neuron_t
private
real
::
threshold
!< When neuron potential exceeds this value, neuron becomes excited
real
(
kind
=
real_4neuro
)
::
threshold
!< When neuron potential exceeds this value, neuron becomes excited
contains
...
...
@@ -132,8 +132,8 @@ module neuron_m
private
!! Coefficients for the linear activation function in format 'f(x)=a*x + b'
real
::
a_coef
!> The coefficient 'a' in the activation function f(x)=a*x + b
real
::
b_coef
!> The coefficient 'b' in the activation function f(x)=a*x + b
real
(
kind
=
real_4neuro
)
::
a_coef
!> The coefficient 'a' in the activation function f(x)=a*x + b
real
(
kind
=
real_4neuro
)
::
b_coef
!> The coefficient 'b' in the activation function f(x)=a*x + b
contains
...
...
@@ -163,7 +163,7 @@ module neuron_m
type
,
extends
(
neuron_t
)
::
logistic_neuron_t
private
real
::
alpha_coef
real
(
kind
=
real_4neuro
)
::
alpha_coef
contains
...
...
@@ -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
(
kind
=
integer_4neuro
)
::
values
(
8
)
integer
(
kind
=
4
)
::
values
(
8
)
#ifdef TIME_PROFILING
real
::
start_time
call
time_profiling_start
(
start_time
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment