From d81f1286750ec07eb3680c7024d33463d2c2604d Mon Sep 17 00:00:00 2001 From: jean paul nshuti Date: Sat, 18 Jul 2026 09:13:05 +0200 Subject: [PATCH] remove the writting error routine it was used for fitting dipole +pes --- src/geNNetic.f | 9 ++++----- src/iNNterface.f | 8 ++++---- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/src/geNNetic.f b/src/geNNetic.f index f66775c..97ef855 100644 --- a/src/geNNetic.f +++ b/src/geNNetic.f @@ -59,8 +59,7 @@ program genetic !use use axel, only: renorm_input,unnorm_input - !use data_transf_mod, only: data_transform - use print_error, only: print_ErrorSummary + !use print_error, only: print_ErrorSummary use nn_params use nncommons use io_parameters @@ -256,9 +255,9 @@ call punch_netdistrib(nnfdir,par,pat_in,typop,laystr,weistr, > nlay,npat,nntag) - call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, - > wterr,typop,laystr,weistr,nlay, - > npat,nref) +! call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, +! > wterr,typop,laystr,weistr,nlay, +! > npat,nref) endif diff --git a/src/iNNterface.f b/src/iNNterface.f index c4be843..dddc2f0 100644 --- a/src/iNNterface.f +++ b/src/iNNterface.f @@ -299,7 +299,7 @@ > wterr, > typop,laystr,weistr,nlay, > rmsopt,mingrad,minwbstep) - use print_error, only: print_ErrorSummary + !use print_error, only: print_ErrorSummary use nn_params use nncommons use io_parameters @@ -467,9 +467,9 @@ call NNstat(nset,npat,nref,par,rms,ref_rms, > pat_in,pat_out,ref_in,ref_out, > typop,laystr,weistr,nlay,nntag) - call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, - > wterr,typop,laystr,weistr,nlay, - > npat,nref) +! call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, +! > wterr,typop,laystr,weistr,nlay, +! > npat,nref) write(6,'(/,A)') 'Done.'