Télécharger la plaquette Cast3M


fr en

Télécharger extrli.eso

Retour à la liste

Numérotation des lignes : 

extrli

  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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC SMELEME
  15. -INC CCGEOME
  16.       IPT1=IPOS
  17.       SEGACT IPT1
  18.       IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)
  19.       IF (IERR.NE.0) RETURN
  20.       IF (KSURF(IPT1.ITYPEL).NE.0) GOTO 1
  21.       IRET=IPT1
  22.       SEGDES IPT1
  23.       RETURN
  24.    1  IF (IPT1.LISREF(/1).NE.4) CALL ERREUR(24)
  25.       IF (IERR.NE.0) RETURN
  26.       IRET=IPT1.LISREF(INUM)
  27. C  FAUT IL INVERSER LA LIGNE
  28.       SEGDES IPT1
  29.       IPT1=IRET
  30.       SEGACT IPT1
  31.       IRET=IPT1
  32.       IF (ISENS.EQ.1) RETURN
  33.       SEGACT IPT1
  34.       CALL INVERS(IPT1,IRET)
  35.       SEGDES IPT1
  36.       RETURN
  37.       END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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