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 program genetic
!use !use
use axel, only: renorm_input,unnorm_input 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 nn_params
use nncommons use nncommons
use io_parameters use io_parameters
@ -256,9 +255,9 @@
call punch_netdistrib(nnfdir,par,pat_in,typop,laystr,weistr, call punch_netdistrib(nnfdir,par,pat_in,typop,laystr,weistr,
> nlay,npat,nntag) > nlay,npat,nntag)
call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, ! call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out,
> wterr,typop,laystr,weistr,nlay, ! > wterr,typop,laystr,weistr,nlay,
> npat,nref) ! > npat,nref)
endif endif

8
src/iNNterface.f
View File

@ -299,7 +299,7 @@
> wterr, > wterr,
> typop,laystr,weistr,nlay, > typop,laystr,weistr,nlay,
> rmsopt,mingrad,minwbstep) > rmsopt,mingrad,minwbstep)
use print_error, only: print_ErrorSummary !use print_error, only: print_ErrorSummary
use nn_params use nn_params
use nncommons use nncommons
use io_parameters use io_parameters
@ -467,9 +467,9 @@
call NNstat(nset,npat,nref,par,rms,ref_rms, call NNstat(nset,npat,nref,par,rms,ref_rms,
> pat_in,pat_out,ref_in,ref_out, > pat_in,pat_out,ref_in,ref_out,
> typop,laystr,weistr,nlay,nntag) > typop,laystr,weistr,nlay,nntag)
call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out, ! call print_ErrorSummary(par,pat_in,pat_out,ref_in,ref_out,
> wterr,typop,laystr,weistr,nlay, ! > wterr,typop,laystr,weistr,nlay,
> npat,nref) ! > npat,nref)
write(6,'(/,A)') 'Done.' write(6,'(/,A)') 'Done.'