From e28abf625a41537b045d5e10fa89742830b76cb0 Mon Sep 17 00:00:00 2001
From: Damian Rouson <rouson@lbl.gov>
Date: Sun, 29 Dec 2024 03:10:06 -0500
Subject: [PATCH] fix(neural_net): rm block name to elim name clash

---
 src/fiats/neural_network_s.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/fiats/neural_network_s.F90 b/src/fiats/neural_network_s.F90
index aa912aa71..5f577e0a0 100644
--- a/src/fiats/neural_network_s.F90
+++ b/src/fiats/neural_network_s.F90
@@ -996,7 +996,6 @@ elemental module subroutine double_precision_assert_conformable_with(self, neura
             end block sum_cost
           
             if (adam) then
-              adam: &
               block
                 ! Adam parameters  
                 real, parameter :: beta(*) = [.9, .999]
@@ -1022,7 +1021,7 @@ elemental module subroutine double_precision_assert_conformable_with(self, neura
                     b(1:n(l),l) = b(1:n(l),l) - alpha*vdbc(1:n(l),l)/(sqrt(sdbc(1:n(l),l))+epsilon) ! Adjust weights
                   end do adam_adjust_weights_and_biases
                 end associate
-              end block adam
+              end block
             else
               associate(eta => learning_rate)
                 adjust_weights_and_biases: &