diff --git a/src/dressing/dressing_vector.irp.f b/src/dressing/dressing_vector.irp.f index 2c1bd2f9..1643deeb 100644 --- a/src/dressing/dressing_vector.irp.f +++ b/src/dressing/dressing_vector.irp.f @@ -3,6 +3,7 @@ implicit none BEGIN_DOC ! \Delta_{state-specific}. \Psi + ! Diagonal element is divided by 2 because Delta = D + D^t END_DOC integer :: i,ii,k,j, l