qp2/src/cipsi/selection_types.f90

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 :: variance(:)
    double precision, allocatable :: norm2(:)
  endtype
end module
Initial commit 2019-01-25 11:39:31 +01:00			`module selection_types`
			`type selection_buffer`
			`integer :: N, cur`
			`integer(8) , pointer :: det(:,:,:)`
			`double precision, pointer :: val(:)`
			`double precision :: mini`
			`endtype`
Introduced pt2_type 2020-08-28 00:10:46 +02:00
			`type pt2_type`
			`double precision, allocatable :: pt2(:)`
			`double precision, allocatable :: variance(:)`
			`double precision, allocatable :: norm2(:)`
			`endtype`
Initial commit 2019-01-25 11:39:31 +01:00			`end module`