mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-04 02:16:02 +02:00
11 lines
263 B
Fortran
11 lines
263 B
Fortran
|
module dress_types
|
||
|
|
type dress_buffer
|
||
|
|
double precision, pointer :: buf(:,:,:), buf0(:,:), coef(:)
|
||
|
|
double precision :: N
|
||
|
|
integer, pointer :: det_to_buf(:), buf_to_det(:)
|
||
|
|
integer :: free_under, pos, N_slot
|
||
|
|
logical :: full
|
||
|
|
endtype
|
||
|
|
end module
|
||
|
|
|