mirror of
https://github.com/pfloos/quack
synced 2024-10-18 05:51:47 +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
|