diff --git a/src/nf/nf_rnn_layer.f90 b/src/nf/nf_rnn_layer.f90 index efdfa89..a4f5597 100644 --- a/src/nf/nf_rnn_layer.f90 +++ b/src/nf/nf_rnn_layer.f90 @@ -40,7 +40,7 @@ module nf_rnn_layer procedure :: get_params procedure :: init procedure :: set_params - procedure :: set_state + ! procedure :: set_state end type rnn_layer @@ -127,24 +127,11 @@ module subroutine init(self, input_shape) !! Shape of the input layer end subroutine init - module subroutine reset(self) - !! Reset layer state - !! - !! Currently reset state to zero but might be worth reconsidering it - !! in the future. - class(rnn_layer), intent(in out) :: self - end subroutine reset + !module subroutine set_state(self, state) + ! type(rnn_layer), intent(inout) :: self + ! real, intent(in), optional :: state(:) + !end subroutine set_state end interface - subroutine set_state(self, state) - type(rnn_layer), intent(inout) :: self - real, intent(in), optional :: state(:) - if (present(state)) then - self % state = state - else - self % state = 0 - end if - end subroutine set_state - end module nf_rnn_layer