9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-12 00:13:39 +01:00
qp2/src/cipsi/selection_types.f90
2020-08-31 22:39:40 +02:00

26 lines
572 B
Fortran

module selection_types
type selection_buffer
integer :: N, cur
integer(8) , pointer :: det(:,:,:)
double precision, pointer :: val(:)
double precision :: mini
endtype
type pt2_type
double precision, allocatable :: pt2(:)
double precision, allocatable :: rpt2(:)
double precision, allocatable :: variance(:)
double precision, allocatable :: overlap(:,:)
endtype
contains
integer function pt2_type_size(N)
implicit none
integer, intent(in) :: N
pt2_type_size = (3*n + n*n)
end function
end module