Sources Esope | Cast3M

affpav
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 PPARAM
-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