2021-03-08 17:00:05 +01:00
|
|
|
subroutine FCI(nBas,nC,nO,nV,nR,ERI,e)
|
|
|
|
|
|
|
|
! Perform a full configuration interaction calculation
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
include 'parameters.h'
|
|
|
|
|
|
|
|
! Input variables
|
|
|
|
|
|
|
|
integer,intent(in) :: nBas,nC,nO,nV,nR
|
|
|
|
double precision,intent(in) :: e(nBas)
|
|
|
|
double precision,intent(in) :: ERI(nBas,nBas,nBas,nBas)
|
|
|
|
|
|
|
|
! Local variables
|
|
|
|
|
|
|
|
! Hello world
|
|
|
|
|
|
|
|
write(*,*)
|
|
|
|
write(*,*)'**********************************'
|
|
|
|
write(*,*)'| Full Configuration Interaction |'
|
|
|
|
write(*,*)'**********************************'
|
|
|
|
write(*,*)
|
|
|
|
|
|
|
|
! Form FCI vector
|
|
|
|
|
|
|
|
! Form FCI matrix
|
|
|
|
|
|
|
|
! Diagonalize FCI matrix
|
|
|
|
|
|
|
|
|
2023-07-18 14:59:18 +02:00
|
|
|
end subroutine
|