program casscf
  implicit none
  BEGIN_DOC
! TODO : Put the documentation of the program here
  END_DOC
  call reorder_orbitals_for_casscf
  no_vvvv_integrals = .True.
  touch no_vvvv_integrals
  pt2_max = 0.005
  SOFT_TOUCH pt2_max
  n_det_max_full = 500
  touch n_det_max_full
  call run_stochastic_cipsi
  call run
end

subroutine run
  implicit none
  double precision               :: energy_old, energy
  logical                        :: converged,state_following_casscf_save
  integer                        :: iteration
  converged = .False.

  energy = 0.d0
  mo_label = "MCSCF"
  iteration = 1
  state_following_casscf_save = state_following_casscf
  state_following_casscf = .True.
  touch state_following_casscf
  do while (.not.converged)
    call run_stochastic_cipsi
    energy_old = energy
    energy = eone+etwo+ecore

    call write_time(6)
    call write_int(6,iteration,'CAS-SCF iteration = ')
    call write_double(6,energy,'CAS-SCF energy = ')
    call write_double(6,norm_grad_vec2,'Norm of gradients = ')
    call write_double(6,norm_grad_vec2_tab(1), '     Core-active  gradients = ')
    call write_double(6,norm_grad_vec2_tab(2), '     Core-virtual gradients = ')
    call write_double(6,norm_grad_vec2_tab(3), '   Active-virtual gradients = ')
    call write_double(6,energy_improvement, 'Predicted energy improvement = ')

    if(criterion_casscf == "energy")then
     converged = dabs(energy_improvement) < thresh_scf
    else if (criterion_casscf == "gradients")then
     converged = norm_grad_vec2 < thresh_scf
    else 
     converged = dabs(energy_improvement) < thresh_scf
    endif
    pt2_max = dabs(energy_improvement / pt2_relative_error)

    mo_coef = NewOrbs
    mo_occ  = occnum  
    call save_mos
    if(.not.converged)then
     iteration += 1
     N_det = max(N_det/2 ,N_states)
     psi_det = psi_det_sorted
     psi_coef = psi_coef_sorted
     read_wf = .True.
     call clear_mo_map
     SOFT_TOUCH mo_coef N_det pt2_max  psi_det psi_coef 
     if(iteration .gt. 3)then
      state_following_casscf = state_following_casscf_save 
      touch state_following_casscf
     endif
    endif

  enddo

end