From f4ab5e7dd9352808219a1c436ef5f8399b2bcf1f Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 6 Feb 2025 12:52:36 -0800 Subject: [PATCH] fix(trainable_network): work around nagfor bug --- ...rainable_network_s.f90 => trainable_network_s.F90} | 11 +++++++++++ 1 file changed, 11 insertions(+) rename src/fiats/{trainable_network_s.f90 => trainable_network_s.F90} (81%) diff --git a/src/fiats/trainable_network_s.f90 b/src/fiats/trainable_network_s.F90 similarity index 81% rename from src/fiats/trainable_network_s.f90 rename to src/fiats/trainable_network_s.F90 index 7b41843b4..58ec6986e 100644 --- a/src/fiats/trainable_network_s.f90 +++ b/src/fiats/trainable_network_s.F90 @@ -45,9 +45,20 @@ w => identity + perturbation_magnitude*(w_harvest-0.5)/0.5, & b => perturbation_magnitude*(b_harvest-0.5)/0.5 & ) +#ifndef NAGFOR trainable_network = trainable_network_t( & neural_network_t(nodes=n, weights=w, biases=b, metadata=metadata, input_map=input_map, output_map=output_map) & ) +#else + ! manually inline the default_real_network() function invoked by the above user-defined trainable_network_t constructor + associate( & + neural_network => & + neural_network_t(nodes=n, weights=w, biases=b, metadata=metadata, input_map=input_map, output_map=output_map) & + ) + trainable_network%neural_network_t = neural_network + trainable_network%workspace_ = workspace_t(neural_network) + end associate +#endif end associate end associate end associate