2016-07-21 13:30:10 +02:00
|
|
|
module selection_types
|
|
|
|
|
type selection_buffer
|
|
|
|
|
integer :: N, cur
|
2017-03-30 01:13:27 +02:00
|
|
|
integer(8) , pointer :: det(:,:,:)
|
|
|
|
|
double precision, pointer :: val(:)
|
|
|
|
|
double precision :: mini
|
2016-07-21 13:30:10 +02:00
|
|
|
endtype
|
|
|
|
|
end module
|
|
|
|
|
|
