Télécharger itlact.eso

Retour à la liste

Numérotation des lignes :

  1. C ITLACT SOURCE PV 10/06/15 21:15:14 6692
  2. SUBROUTINE ITLACT(ICPR,ITLAC,IFAIT,ILISSE)
  3. IMPLICIT INTEGER(I-N)
  4. SEGMENT ICPR(N)
  5. SEGMENT ITLAC(M)
  6. MOLD = ITLAC(/1)
  7. M = IFAIT
  8. SEGADJ ITLAC
  9. DO 1 IA=1,ICPR(/1)
  10. IB=ICPR(IA)
  11. IF(IB.LE.MOLD) GO TO 1
  12. ITLAC(IB) = IA
  13. 1 CONTINUE
  14. RETURN
  15. END
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales