qp2/src/davidson_undressed/null_dressing_vector.irp.f

 BEGIN_PROVIDER [ double precision, dressing_column_h, (N_det,N_states) ]
&BEGIN_PROVIDER [ double precision, dressing_column_s, (N_det,N_states) ]
&BEGIN_PROVIDER [ double precision, dressing_delta   , (N_det,N_states) ]
 implicit none
 BEGIN_DOC
 ! Null dressing vectors
 END_DOC
 dressing_column_h(:,:) = 0.d0
 dressing_column_s(:,:) = 0.d0
 dressing_delta   (:,:) = 0.d0
END_PROVIDER
Initial commit 2019-01-25 11:39:31 +01:00			`BEGIN_PROVIDER [ double precision, dressing_column_h, (N_det,N_states) ]`
			`&BEGIN_PROVIDER [ double precision, dressing_column_s, (N_det,N_states) ]`
non_sym dress: comb 2023-03-15 10:23:48 +01:00			`&BEGIN_PROVIDER [ double precision, dressing_delta , (N_det,N_states) ]`
Initial commit 2019-01-25 11:39:31 +01:00			`implicit none`
			`BEGIN_DOC`
			`! Null dressing vectors`
			`END_DOC`
			`dressing_column_h(:,:) = 0.d0`
			`dressing_column_s(:,:) = 0.d0`
non_sym dress: comb 2023-03-15 10:23:48 +01:00			`dressing_delta (:,:) = 0.d0`
Initial commit 2019-01-25 11:39:31 +01:00			`END_PROVIDER`