feat: get_num_params()

Author: castelao

src/nf/nf_rnn_layer_submodule.f90

@@ -52,7 +52,9 @@ pure module function get_num_params(self) result(num_params)
     integer :: num_params
 
     ! Number of weigths times number of biases
-    num_params = self % input_size * self % output_size + self % output_size
+    num_params = self % input_size * self % output_size &
+                 + self % output_size * self % output_size &
+                 + self % output_size
 
   end function get_num_params