! ---

program deb_Aos

  implicit none

  my_grid_becke  = .True.
  PROVIDE tc_grid1_a tc_grid1_r
  my_n_pt_r_grid = tc_grid1_r
  my_n_pt_a_grid = tc_grid1_a
  touch my_grid_becke my_n_pt_r_grid my_n_pt_a_grid

  if(tc_integ_type .eq. "numeric") then
    my_extra_grid_becke  = .True.
    PROVIDE tc_grid2_a tc_grid2_r
    my_n_pt_r_extra_grid = tc_grid2_r
    my_n_pt_a_extra_grid = tc_grid2_a
    touch my_extra_grid_becke my_n_pt_r_extra_grid my_n_pt_a_extra_grid
  endif

  call print_aos()
  
end

! ---

subroutine print_aos()

  implicit none
  integer          :: i, ipoint
  double precision :: r(3)
  double precision :: ao_val, ao_der(3), ao_lap
  double precision :: mo_val, mo_der(3), mo_lap

  PROVIDE final_grid_points aos_in_r_array aos_grad_in_r_array aos_lapl_in_r_array

  write(1000, *) n_points_final_grid
  do ipoint = 1, n_points_final_grid
    r(:) = final_grid_points(:,ipoint)
    write(1000, '(3(f15.7, 3X))') r
  enddo

  do ipoint = 1, n_points_final_grid
    r(:) = final_grid_points(:,ipoint)
    do i = 1, ao_num
      ao_val    = aos_in_r_array     (i,ipoint)
      ao_der(:) = aos_grad_in_r_array(i,ipoint,:)
      ao_lap    = aos_lapl_in_r_array(1,i,ipoint) + aos_lapl_in_r_array(2,i,ipoint) + aos_lapl_in_r_array(3,i,ipoint)
      write(1010, '(5(f15.7, 3X))') ao_val, ao_der, ao_lap
    enddo
  enddo

  do ipoint = 1, n_points_final_grid
    r(:) = final_grid_points(:,ipoint)
    do i = 1, mo_num
      mo_val    = mos_in_r_array     (i,ipoint)
      mo_der(:) = mos_grad_in_r_array(i,ipoint,:)
      mo_lap    = mos_lapl_in_r_array(i,ipoint,1) + mos_lapl_in_r_array(i,ipoint,2) + mos_lapl_in_r_array(i,ipoint,3)
      write(2010, '(5(f15.7, 3X))') mo_val, mo_der, mo_lap
    enddo
  enddo
 
  return
end

! ---