program fit_1s_basis
 implicit none
 provide lmax_too_big
 integer :: i
! print*,'n_func_tot', n_func_tot
 provide  new_nucl_coord
 
end