fix(neural_net): rm block name to elim name clash

BerkeleyLab · Dec 29, 2024 · e28abf6 · e28abf6
1 parent 2e25871
commit e28abf6
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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: &