From bdfdd45c368119c6bed29b1920035fa5642d3283 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Wed, 7 May 2025 15:33:58 -0700 Subject: [PATCH] chore(neural_network): mk learn private This commit makes neural_network_t's generic "learn" binding private because it is intended to be called only by the trainable_network_t "train" procedure and the latter type is defined in the same module as the former. --- src/fiats/neural_network_m.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fiats/neural_network_m.f90 b/src/fiats/neural_network_m.f90 index 21cef82af..e348c9c39 100644 --- a/src/fiats/neural_network_m.f90 +++ b/src/fiats/neural_network_m.f90 @@ -38,7 +38,7 @@ module neural_network_m generic :: nodes_per_layer => default_real_nodes_per_layer, double_precision_nodes_per_layer generic :: skip => default_real_skip, double_precision_skip generic :: activation_function_name => default_real_activation_name, double_precision_activation_name - generic :: learn => default_real_learn + generic, private :: learn => default_real_learn procedure, private, non_overridable :: default_real_approximately_equal, double_precision_approximately_equal procedure, private, non_overridable :: default_real_infer, double_precision_infer procedure, private, non_overridable :: default_real_learn