if(deltanrg.le.converged) then
                                      write(6,1002) 
                                else
                                      write(6,1003)
c	add the next line in scfrun.f to stop if not scf converged
					stop
                                endif

 1002 format(/,' scf converged!!! :-) :-) :-) ')
 1003 format(/,' scf terminated unsuccessfully??? :-( :-( :-( ')