Révision 8 src/Step_GEDIIS_All.f90

Step_GEDIIS_All.f90 (revision 8)
90 90
            Vfree(:,I)=Vfree(:,I)-Norm*Tangent
91 91
     END DO
92 92

  
93
         Idx=0.
93
         Idx=0
94 94
         ! Schmidt orthogonalization of the Vfree vectors
95 95
         DO I=1,NCoord
96 96
            ! We subtract the first vectors, we do it twice as the Schmidt procedure is not numerically stable.

Formats disponibles : Unified diff