mirror of
https://github.com/pfloos/quack
synced 2024-09-06 19:54:45 +02:00
32 lines
605 B
Fortran
32 lines
605 B
Fortran
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
|
|
|
|
|
|
end subroutine FCI
|