Revision 5 src/Calc_zmat.f90

Calc_zmat.f90 (revision 5)
180 180
         DejaFait(I)=.FALSE.
181 181
         Former3(I)=.False.
182 182
         Do J=0,NMaxL
183
            Liaisons(I,j)=0.
184
            LiaisonsBis(I,j)=0.
183
            Liaisons(I,j)=0
184
            LiaisonsBis(I,j)=0
185 185
         END DO
186 186
         DO J=1,5
187 187
            ind_zmat(I,J)=0

Also available in: Unified diff