Révision 8 src/Step_DIIS_all.f90

Step_DIIS_all.f90 (revision 8)
141 141
            Vfree(:,I)=Vfree(:,I)-Norm*Tangent
142 142
     END DO
143 143

  
144
         Idx=0.
144
         Idx=0
145 145
         ! Schmidt orthogonalization of the Vfree vectors
146 146
         DO I=1,NCoord
147 147
            ! We subtract the first vectors, we do it twice as the Schmidt procedure is not numerically stable.

Formats disponibles : Unified diff