mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-02 02:35:18 +02:00
26 lines
572 B
Fortran
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
|
||
|
|
|