root / src / Annul.f90 @ 4
Historique | Voir | Annoter | Télécharger (418 octet)
| 1 | 1 | equemene | |
|---|---|---|---|
| 2 | 1 | equemene | SUBROUTINE Annul(Liaisons,at,atli) |
| 3 | 1 | equemene | ! Cette routine supprime l'atome atli dans les liaisons de at |
| 4 | 1 | equemene | use Path_module, only : Nat, NMaxL |
| 5 | 1 | equemene | |
| 6 | 1 | equemene | INTEGER(4) :: Liaisons(Nat,0:NMaxL),At,Atli,I,J |
| 7 | 1 | equemene | I=1 |
| 8 | 1 | equemene | Do WHILE ((Liaisons(at,I).NE.Atli).AND.(I.LE.Liaisons(at,0))) |
| 9 | 1 | equemene | I=I+1 |
| 10 | 1 | equemene | END DO |
| 11 | 1 | equemene | Do J=I,NMaxL-1 |
| 12 | 1 | equemene | Liaisons(at,J)=Liaisons(at,J+1) |
| 13 | 1 | equemene | END DO |
| 14 | 1 | equemene | Liaisons(at,NMaxL)=0 |
| 15 | 1 | equemene | END |