Esope source files

   1 : C PUCHPO    SOURCE    FANDEUR   10/08/31    21:19:04     6733           
   2 : 
   3 :       SUBROUTINE PUCHPO(IPO1,IPU,IPO2,IRET)                                     
   4 : 
   5 : C=======================================================================        
   6 : C                                                                               
   7 : C  ENTREES                                                                      
   8 : C     IPO1=POINTEUR SUR LE CHAMPOINT                                            
   9 : C     IPU =PUISSANCE   ( C EST UN ENTIER )                                      
  10 : C  SORTIES                                                                      
  11 : C     IPO2=CHPOINT A LA PUISSANCE IPU                                           
  12 : C     IRET=1                                                                    
  13 : C         =0 SI L OPERATION EST IMPOSSSIBLE                                     
  14 : C                                                                               
  15 : C     CODE EBERSOLT AVRIL 85                                                    
  16 : C                                                                               
  17 : C=======================================================================        
  18 : 
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8 (A-H,O-Z)
  21 : C                                                                               
  22 : -INC SMCHPOI                                                                    
  23 : C                                                                               
  24 :       MCHPO1=IPO1                                                               
  25 :       SEGINI,MCHPOI=MCHPO1                                                      
  26 :       NSOUPO=IPCHP(/1)                                                          
  27 :       DO 40 IA=1,NSOUPO                                                         
  28 :         MSOUP1=IPCHP(IA)                                                        
  29 :         SEGINI,MSOUPO=MSOUP1                                                    
  30 :         IPCHP(IA)=MSOUPO                                                        
  31 :         MPOVA1=IPOVAL                                                           
  32 :         SEGINI,MPOVAL=MPOVA1                                                    
  33 :         IPOVAL=MPOVAL                                                           
  34 :         N =VPOCHA(/1)                                                           
  35 :         NC=VPOCHA(/2)                                                           
  36 :         DO 60 IC=1,NC                                                           
  37 :           DO 60 IB=1,N                                                          
  38 :             VPOCHA(IB,IC)=VPOCHA(IB,IC) ** IPU                                  
  39 :   60    CONTINUE                                                                
  40 :         SEGDES MPOVAL                                                           
  41 :         SEGDES MSOUPO                                                           
  42 :   40  CONTINUE                                                                  
  43 :       SEGDES MCHPOI                                                             
  44 : C                                                                               
  45 :       IPO2=MCHPOI                                                               
  46 :       IRET=1                                                                    
  47 : C                                                                               
  48 :       RETURN                                                                    
  49 :       END                                                                       
  50 : 
  51 :