2016-07-21 13:30:10 +02:00
|
|
|
module selection_types
|
|
|
|
type selection_buffer
|
|
|
|
integer :: N, cur
|
2017-04-20 08:48:06 +02:00
|
|
|
integer(8), allocatable :: det(:,:,:)
|
|
|
|
double precision, allocatable :: val(:)
|
|
|
|
double precision :: mini
|
2016-07-21 13:30:10 +02:00
|
|
|
endtype
|
|
|
|
end module
|
|
|
|
|