Révision 8 src/Step_RFO_all.f90

Step_RFO_all.f90 (revision 8)
144 144
        Vfree(:,I)=vfree(:,i)-Norm*Tangent
145 145
     END DO
146 146

  
147
     Idx=0.
147
     Idx=0
148 148
     ! Schmidt orthogonalization of the vfree vectors
149 149
     DO I=1,NCoord
150 150
        ! We substract the first vectors

Formats disponibles : Unified diff