C ADCHPF    SOURCE    CHAT      05/01/12    21:17:12     5004           
      SUBROUTINE ADCHPF(MCHPOI,X1,MCHPO1,ISIGN)                                 
C ADDITIONNE AU CHPOINT MCHPOIN LE FLOTTANT  X1                                 
C Modif pv 18 6 97 ne cree pas de nouvelle geometrie
      IMPLICIT INTEGER(I-N)
-INC SMCHPOI                                                                    
-INC SMELEME                                                                    
      REAL*8 X1                                                                 
      SEGACT MCHPOI                                                             
      SEGINI,MCHPO1=MCHPOI                                                      
      NC=IPCHP(/1)                                                              
      DO 1 I = 1,NC                                                             
      MSOUPO=IPCHP(I)                                                           
      SEGACT MSOUPO                                                             
      SEGINI,MSOUP1=MSOUPO                                                      
      MCHPO1.IPCHP(I) = MSOUP1                                                  
      MPOVAL=IPOVAL                                                             
      SEGACT MPOVAL
      SEGINI,MPOVA1=MPOVAL                                                      
      MSOUP1.IPOVAL=MPOVA1                                                      
      IF(ISIGN.EQ.1) THEN                                                       
      DO 2 K=1,MPOVA1.VPOCHA(/2)                                                
      DO 3 J=1,MPOVA1.VPOCHA(/1)                                                
      MPOVA1.VPOCHA(J,K)=MPOVA1.VPOCHA(J,K) + X1                                
    3 CONTINUE                                                                  
    2 CONTINUE                                                                  
      ELSEIF (ISIGN.EQ.-1) THEN                                                 
      DO 4 K=1,MPOVA1.VPOCHA(/2)                                                
      DO 5 J=1,MPOVA1.VPOCHA(/1)                                                
      MPOVA1.VPOCHA(J,K)=-(MPOVA1.VPOCHA(J,K) + X1)                             
    5 CONTINUE                                                                  
    4 CONTINUE                                                                  
      ENDIF                                                                     
      SEGDES MSOUP1,MPOVA1,MSOUPO,MPOVAL
    1 CONTINUE                                                                  
      SEGDES MCHPOI,MCHPO1                                                      
      RETURN                                                                    
      END