loop
              All_Patterns :
                  for Pattern in 1..Train_length loop
                     NN_Train.Train;
                     NN_Train.Respond (Pattern, Response);
                     for I in Response'Range loop
                        Error := Error + (Desired_Output(Pattern)(i) -   Response(i) );
                     end loop;
                     RMS_Error := RMS_Error + ((Error/Real(Response'Length)) ** 2);
                     Error := 0.0;
                     Response := (others => 0.0);
                  end loop All_Patterns;
                  RMS_Error := Real_Math.Sqrt(RMS_Error / Real (train_length)) ;
                  put("RMS_Error : " );
                  Real_Io.Put(RMS_Error);
                  put(" ; Converged : " );
                  Real_Io.put(converged);
                  Put(Character'Val(13));
                  if (RMS_Error < Converged) or
                    (Epoch > Max_Epochs) then
                     exit;
                  end if;
                  Epoch := Epoch + 1;
              end loop;

loop
                     NN_Expl.Train;
                     Response := (others => 0.0);
                     NN_Expl.Respond (1, Response);
                     Error := 0.0;
                     RMS_Error := 0.0;
                     for I in Response'Range loop
                        Error := Error + (Desired(i) -   Response(i) );
                     end loop;
                     RMS_Error := RMS_Error + ((Error/Real(Response'Length)) **2);
                     RMS_Error := Real_Math.Sqrt(RMS_Error);
                     Epoch := Epoch + 1;
 
                     if (Epoch > 50) and then
                       ((RMS_Error <= Converged) or
                        (Epoch > Max_Epochs)) then
                        exit;
                     else
                        Text_Io.Put ("Epoch" );
                        Text_Io.Put (Integer'Image (Epoch) );
                        Text_Io.Put(" => RMS_Error: " );
 
                        Real_Io.Put(RMS_Error);
                        Text_Io.Put(Character'Val(13));
                     end if;
                  end loop;