Esope source files

   1 : C PILEP1    SOURCE    PV        09/03/12    21:30:09     6325           
   2 :       SUBROUTINE PILEP1 (IPCHA2,IPCHA,XX,CRIT)                                       
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                                     
   5 : -INC SMCHAML                                                                    
   6 : -INC CCOPTIO                                                                    
   7 : *                                                                               
   8 :       MCHAML=IPCHA                                                              
   9 :       MCHAM2=IPCHA2                                                             
  10 : *                                                                               
  11 : *     ON CHERCHE LES NOM DE COMPOSANTES EN COMMUN DANS LES                      
  12 : *     2 CHAMELEMS                                                               
  13 : *                                                                               
  14 :       DO 1 ICOMP=1,IELVAL(/1)                                                   
  14 :          CALL PLACE (MCHAM2.NOMCHE,MCHAM2.NOMCHE(/2),IPLAC,                     
  15 :      &               NOMCHE(ICOMP))                                             
  16 :          IF (IPLAC.NE.0) THEN                                                   
  17 :             IPMEL1=IELVAL(ICOMP)                                                
  18 :             IPMEL2=MCHAM2.IELVAL(IPLAC)                                         
  19 :             ICOD=0                                                              
  20 :             IF (TYPCHE(ICOMP).EQ.'POINTEURLISTREEL') ICOD=1                     
  21 :             IF (TYPCHE(ICOMP).EQ.'POINTEURPOINT   ') ICOD=2
  22 :             IF ( ICOD.NE.0) THEN
  22 :                   CALL ERREUR(19)
  23 :                   RETURN
  24 :             ENDIF                                                                                               
  24 :             CALL PILEP2(IPMEL1,IPMEL2,XX,IRETOU,CRIT)                   
  25 :             IF (IRETOU.NE.0) THEN                                               
  26 :                IF (IRETOU.EQ.197) MOTERR(1:4)=NOMCHE(ICOMP)                     
  26 :                CALL ERREUR (IRETOU)                                                                                         
  27 :                RETURN                                                           
  28 :             ENDIF                                                                                                           
  29 :          ELSE                                                                   
  29 :             CALL ERREUR(19)                                               
  30 :             RETURN                                                 
  31 :          ENDIF                                                                  
  32 :  1    CONTINUE                                                                                                                
  33 : *                                                                               
  34 :  9990 CONTINUE                                                                  
  35 :       RETURN                                                                    
  36 :       END                                                                       
  37 :  
  38 :  
  39 :