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