diff lib/hr.pm @ 1:e2cbcf6fa22e draft

master branch Updating with tag :CI_COMMIT_TAG - - Fxx

--- a/lib/hr.pm	Wed Jun 05 09:40:20 2019 -0400
+++ b/lib/hr.pm	Sun Dec 11 17:16:43 2022 +0000
@@ -72,12 +72,15 @@
     # basic atoms case:
     foreach my $atom ( (split(",", $atombasic )) ) {
     	if ( exists $CONF->{$atom} ) 	{ $atomsconfig->{$atom}{'max'} = $CONF->{$atom} ; }
+    	else {  print "*** $atom not recognized***\n" ; }
     }
     
     # suppl. atoms case
     foreach my $atom ( (split(",", $atomsupp )) ) {
     	print "*** $atom***\n" ;
-    	if ( exists $atomsconfig->{$atom} ) 	{ $atomsconfig->{$atom} = $CONF->{'DEFAULT_MAX'} ; }
+    	if ( exists $atomsconfig->{$atom} ) 	{ $atomsconfig->{$atom}{'max'} = $CONF->{'DEFAULT_MAX'} ; }
+    	else {  print "*** $atom not recognized***\n" ; }
+    	
     }
     
     # Create atoms and range parameters: