diff --git a/TDDFPT/src/lr_lanczos.f90 b/TDDFPT/src/lr_lanczos.f90
index 26aaa4e90..bbb41a544 100755
--- a/TDDFPT/src/lr_lanczos.f90
+++ b/TDDFPT/src/lr_lanczos.f90
@@ -285,7 +285,6 @@ CONTAINS
        CALL lr_apply_liouvillian(evc1(1,1,1,1),evc1_new(1,1,1,1),sevc1_new(1,1,1,1),.true.)
        CALL zcopy(size_evc,evc1(:,:,:,1),1,evc1(:,:,:,2),1) !evc1(,1) = evc1(,2)
        CALL zcopy(size_evc,evc1_new(:,:,:,1),1,evc1_new(:,:,:,2),1) !evc1_new(,1) = evc1_new(,2)
-       CALL zcopy(size_evc,evc1_new(:,:,:,1),1,evc1_new(:,:,:,2),1) !evc1_new(,1) = evc1_new(,2)
 
     ENDIF
     !