Esope source files

   1 : C PRCOTE    SOURCE    CHAT      07/10/29    21:25:49     5940           
   2 : C   INTERFACE ENTRE PILOT ET EXTRLI                                             
   3 : C   SI PAS DE NOMBRE EN ARGUMENT REND TOUS LES COTES CONNUS DIRECTEMENT         
   4 :       SUBROUTINE PRCOTE                                                         
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCOPTIO                                                                    
   7 : -INC SMELEME                                                                    
   8 : -INC CCGEOME                                                                    
   8 :       CALL LIRENT(INUM,0,IRETOU)                                                
   8 :       IF (IRETOU.EQ.1.AND.(INUM.GT.4.OR.INUM.LT.1)) CALL ERREUR(24)             
   8 :       CALL LIROBJ('MAILLAGE',IPT1,1,IRETO)                                      
   9 :       IF (IERR.NE.0) RETURN                                                     
  10 :       SEGACT IPT1                                                               
  10 :       IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)                                 
  10 :       IF (KSURF(IPT1.ITYPEL).EQ.0) CALL ERREUR(24)                              
  11 :       IF (IERR.NE.0) RETURN                                                     
  12 :       IF (IRETOU.EQ.0) GOTO 10                                                  
  12 :       CALL EXTRLI(IPT1,INUM,IRET,1)                                             
  13 :       IF (IERR.NE.0) RETURN                                                     
  13 :       CALL ECROBJ('MAILLAGE',IRET)                                              
  14 :       SEGDES IPT1                                                               
  15 :       RETURN                                                                    
  16 :   10  CONTINUE                                                                  
  16 :       IF (IPT1.LISREF(/1).EQ.0) CALL ERREUR(24)                                 
  17 :       IF (IERR.NE.0) RETURN                                                     
  18 :       NBCT=IPT1.LISREF(/1)                                                      
  19 :       DO 11 I=1,NBCT                                                            
  20 :       II=NBCT+1-I                                                               
  21 :       ICOT=IPT1.LISREF(II)                                                      
  21 :       CALL ECROBJ('MAILLAGE',ICOT)                                              
  22 :   11  CONTINUE                                                                  
  23 :       SEGDES IPT1                                                               
  24 :       RETURN                                                                    
  25 :       END                                                                       
  26 :  
  27 :  
  28 :  
  29 :  
  30 :  
  31 :  
  32 :