Esope source files

   1 : C EXTRLI    SOURCE    CHAT      07/10/29    21:19:20     5940           
   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                                                               
  15 :       IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)                                 
  16 :       IF (IERR.NE.0) RETURN                                                     
  17 :       IF (KSURF(IPT1.ITYPEL).NE.0) GOTO 1                                       
  18 :       IRET=IPT1                                                                 
  19 :       SEGDES IPT1                                                               
  20 :       RETURN                                                                    
  20 :    1  IF (IPT1.LISREF(/1).NE.4) CALL ERREUR(24)                                 
  21 :       IF (IERR.NE.0) RETURN                                                     
  22 :       IRET=IPT1.LISREF(INUM)                                                    
  23 : C  FAUT IL INVERSER LA LIGNE                                                    
  24 :       SEGDES IPT1                                                               
  25 :       IPT1=IRET                                                                 
  26 :       SEGACT IPT1                                                               
  27 :       IRET=IPT1                                                                 
  28 :       IF (ISENS.EQ.1) RETURN                                                    
  29 :       SEGACT IPT1                                                               
  29 :       CALL INVERS(IPT1,IRET)                                                    
  30 :       SEGDES IPT1                                                               
  31 :       RETURN                                                                    
  32 :       END                                                                       
  33 :  
  34 :  
  35 :  
  36 :  
  37 :  
  38 :  
  39 :