Télécharger extrli.eso

Retour à la liste

Numérotation des lignes :

  1. C EXTRLI SOURCE BP208322 16/11/18 21:17:00 9177
  2. C CE SOUS PROGRAMME SERT A EXTRAIRE UNE LIGNE REFERENCEE D'UN OBJET
  3. C SURFACE
  4. C
  5. SUBROUTINE EXTRLI(IPOS,INUM,IRET,ISENS)
  6. C IPOS NUMERO DANS LA PILE D'OBJETS
  7. C INUM ON VEUT LE INUMEIEME COTE
  8. C IRET C'EST IRET
  9. C ISENS ON LE VEUT TELQUEL OU INVERSE
  10. IMPLICIT INTEGER(I-N)
  11. -INC CCOPTIO
  12. -INC SMELEME
  13. -INC CCGEOME
  14. IPT1=IPOS
  15. SEGACT IPT1
  16. IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)
  17. IF (IERR.NE.0) RETURN
  18. IF (KSURF(IPT1.ITYPEL).NE.0) GOTO 1
  19. IRET=IPT1
  20. SEGDES IPT1
  21. RETURN
  22. 1 IF (IPT1.LISREF(/1).NE.4) CALL ERREUR(24)
  23. IF (IERR.NE.0) RETURN
  24. IRET=IPT1.LISREF(INUM)
  25. C FAUT IL INVERSER LA LIGNE
  26. SEGDES IPT1
  27. IPT1=IRET
  28. SEGACT IPT1
  29. IRET=IPT1
  30. IF (ISENS.EQ.1) RETURN
  31. SEGACT IPT1
  32. CALL INVERS(IPT1,IRET)
  33. SEGDES IPT1
  34. RETURN
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  

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