BEGIN_PROVIDER [ real, mo_value_p, (mo_num) ]
 implicit none

 BEGIN_DOC
! Values of the molecular orbitals
 END_DOC

 integer :: i, j, k

 do j=1,mo_num
   mo_value_p(j) = 0.
   do k=1,ao_num
    mo_value_p(j) = mo_value_p(j)+mo_coef(k,j)*ao_value_p(k)
   enddo
 enddo

END_PROVIDER