Esope source files

   1 : C EXTRPO    SOURCE    CHAT      05/01/12    23:54:23     5004           
   2 : C   CE SOUS PROGRAMME EXTRAIT LE DERNIER POINT DE L'ELEMENT SI CELUI-CI         
   3 : C    EST UNE LIGNE                                                              
   4 : C    IL LE REND DANS IRET                                                       
   5 : C                                                                               
   6 :       SUBROUTINE EXTRPO(INUM,IPOS,IRET)                                         
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC CCOPTIO                                                                    
   9 : -INC SMELEME                                                                    
  10 :       MELEME=INUM                                                               
  11 :       ISEN=1                                                                    
  12 :       IF (ITYPEL.NE.2.AND.ITYPEL.NE.3) THEN                                     
  12 :          CALL ERREUR(16)                                                        
  13 :          RETURN                                                                 
  14 :       END IF                                                                    
  15 :       IF((2*IPOS-3)*ISEN.EQ.-1) IRET=NUM(NUM(/1),NUM(/2))                       
  16 :       IF((2*IPOS-3)*ISEN.EQ. 1) IRET=NUM(1,1)                                   
  17 :       IF (IIMPI.EQ.1) WRITE (IOIMP,1) IRET                                      
  18 :    1  FORMAT (/,' POINT EXTRAIT ',I6)                                           
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :  
  22 :