mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-05 05:33:56 +01: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
|
||
|
|
|