Esope source files

   1 : C AFFPAV    SOURCE    CHAT      05/01/12    21:19:28     5004           
   2 : C   UTILISE DANS L'OPERATEUR PAVE                                               
   3 : C  RECONSTITUE D'APRES UNE TRADUCTION ESOPE POUR LE CRAY                        
   4 : C  CAR ACCIDENTELLEMENT DETRUIT PAR EBERSOLD                                    
   5 : C   DONC SANS COMMENTAIRES                                                      
   6 :       SUBROUTINE AFFPAV(J,IP,IPT2,IPT3,IPT4,IPT5,IPT6)                          
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC CCOPTIO                                                                    
   9 :       IF (J.EQ.2) IPT2=IP                                                       
  10 :       IF (J.EQ.3) IPT3=IP                                                       
  11 :       IF (J.EQ.4) IPT4=IP                                                       
  12 :       IF (J.EQ.5) IPT5=IP                                                       
  13 :       IF (J.EQ.6) IPT6=IP                                                       
  14 :       RETURN                                                                    
  15 :       END                                                                       
  16 :