mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-23 19:27:34 +02:00
11 lines
284 B
Fortran
11 lines
284 B
Fortran
BEGIN_PROVIDER [ double precision, dressing_column_h, (N_det,N_states) ]
|
|
&BEGIN_PROVIDER [ double precision, dressing_column_s, (N_det,N_states) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Null dressing vectors
|
|
END_DOC
|
|
dressing_column_h(:,:) = 0.d0
|
|
dressing_column_s(:,:) = 0.d0
|
|
END_PROVIDER
|
|
|