jnshuti
/
ANN-my-version
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove the writting error routine it was used for fitting dipole +pes

This commit is contained in:
jean paul nshuti 2026-07-18 09:13:05 +02:00
parent 56b0b346a8
commit d81f128675
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/geNNetic.f
View File

@ -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

8
src/iNNterface.f
View File

@ -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.'