mirror of
https://github.com/LCPQ/quantum_package
synced 2025-01-13 14:29:10 +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
|
|
|