Télécharger quidan.eso

Retour à la liste

Numérotation des lignes :

  1. C QUIDAN SOURCE CB215821 19/03/18 21:16:12 10161
  2. C METS DANS ISGTR TOUS LES OBJETS DE ITLAC DONS LES NOEUDS SONT
  3. C INFERIEURS A IMAX
  4. C
  5. SUBROUTINE QUIDAN(ISGTR,ITLAC,IMAX)
  6.  
  7. IMPLICIT INTEGER(I-N)
  8.  
  9. -INC SMELEME
  10.  
  11. SEGMENT ITLAC(0)
  12. SEGMENT ISGTR(0)
  13.  
  14. DO 1 II=1,ITLAC(/1)
  15. IPT1=ITLAC(II)
  16. SEGACT,IPT1
  17. IPT2=IPT1
  18. NBSOUS=IPT2.LISOUS(/1)
  19. DO 11 JJ=1,MAX(1,NBSOUS)
  20. IF (NBSOUS .NE. 0) THEN
  21. IPT1=IPT2.LISOUS(JJ)
  22. SEGACT,IPT1
  23. ENDIF
  24. IF(IPT1.NUM(/1).EQ.0) GOTO 1
  25. IF(IPT1.NUM(/2).EQ.0) GOTO 1
  26. DO 21 I=1,IPT1.NUM(/1)
  27. DO 22 J=1,IPT1.NUM(/2)
  28. IF (IPT1.NUM(I,J) .GT. IMAX) GOTO 1
  29. 22 CONTINUE
  30. 21 CONTINUE
  31. 11 CONTINUE
  32. ISGTR(**)=IPT2
  33. 1 CONTINUE
  34. END
  35.  
  36.  

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