C PUCHPO    SOURCE    FANDEUR   10/08/31    21:19:04     6733           

      SUBROUTINE PUCHPO(IPO1,IPU,IPO2,IRET)                                     

C=======================================================================        
C                                                                               
C  ENTREES                                                                      
C     IPO1=POINTEUR SUR LE CHAMPOINT                                            
C     IPU =PUISSANCE   ( C EST UN ENTIER )                                      
C  SORTIES                                                                      
C     IPO2=CHPOINT A LA PUISSANCE IPU                                           
C     IRET=1                                                                    
C         =0 SI L OPERATION EST IMPOSSSIBLE                                     
C                                                                               
C     CODE EBERSOLT AVRIL 85                                                    
C                                                                               
C=======================================================================        

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C                                                                               
-INC SMCHPOI                                                                    
C                                                                               
      MCHPO1=IPO1                                                               
      SEGINI,MCHPOI=MCHPO1                                                      
      NSOUPO=IPCHP(/1)                                                          
      DO 40 IA=1,NSOUPO                                                         
        MSOUP1=IPCHP(IA)                                                        
        SEGINI,MSOUPO=MSOUP1                                                    
        IPCHP(IA)=MSOUPO                                                        
        MPOVA1=IPOVAL                                                           
        SEGINI,MPOVAL=MPOVA1                                                    
        IPOVAL=MPOVAL                                                           
        N =VPOCHA(/1)                                                           
        NC=VPOCHA(/2)                                                           
        DO 60 IC=1,NC                                                           
          DO 60 IB=1,N                                                          
            VPOCHA(IB,IC)=VPOCHA(IB,IC) ** IPU                                  
  60    CONTINUE                                                                
        SEGDES MPOVAL                                                           
        SEGDES MSOUPO                                                           
  40  CONTINUE                                                                  
      SEGDES MCHPOI                                                             
C                                                                               
      IPO2=MCHPOI                                                               
      IRET=1                                                                    
C                                                                               
      RETURN                                                                    
      END