C RACLI2    SOURCE    CHAT      05/01/13    02:44:26     5004           
      SUBROUTINE RACLI2(IPF,L2, NL2)                                            
************************************************************************        
*                                                                               
*                             R A C L I 2                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     CREER UNE LIGNE 'NL2' COMMENCANT AU POINT F                               
*     ET S'APPUYANT SUR LA LIGNE 'L2'                                           
*     L'ORIENTATION EST POINT-LIGNE                                             
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC SMELEME                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     IPF     (E)  POINT                                                        
*     L2      (E)  LIGNE                                                        
*     NL2     (S)  LIGNE DE RACCORDEMENT POINT-LIGNE                            
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     LIONEL VIVAN       23 NOVEMBRE 1987                                       
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
*                                                                               
      CALL ECROBJ('MAILLAGE',L2)                                                
      CALL PRINVE                                                               
      IF (IERR.NE.0) RETURN                                                     
      CALL LIROBJ('MAILLAGE',L2B,1,IRETOU)                                      
      IF (IERR.NE.0) RETURN                                                     
      CALL RACLI1(L2B,IPF,NL2B)                                                 
      IF (IERR.NE.0) RETURN                                                     
      CALL ECROBJ('MAILLAGE',NL2B)                                              
      CALL PRINVE                                                               
      IF (IERR.NE.0) RETURN                                                     
      CALL LIROBJ('MAILLAGE',NL2,1,IRETOU)                                      
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
      MELEME=L2B                                                                
      SEGSUP,MELEME                                                             
      MELEME=NL2B                                                               
      SEGSUP,MELEME                                                             
*                                                                               
      END