feat: forward()

Author: castelao

src/nf/nf_rnn_layer.f90

@@ -34,7 +34,7 @@ module nf_rnn_layer
   contains
 
     !procedure :: backward
-    !procedure :: forward
+    procedure :: forward
     !procedure :: get_gradients
     procedure :: get_num_params
     procedure :: get_params

src/nf/nf_rnn_layer_submodule.f90

@@ -41,8 +41,11 @@ pure module subroutine forward(self, input)
     class(rnn_layer), intent(in out) :: self
     real, intent(in) :: input(:)
 
-    self % z = matmul(input, self % weights) + self % biases
-    self % output = self % activation % eval(self % z)
+    self % z = matmul(input, self % weights) &
+               + matmul(self % state, self % recurrent) &
+               + self % biases
+    self % state = self % activation % eval(self % z)
+    self % output = self % state
 
   end subroutine forward