COMMON E1(4),J,K,L
      I=10000
      N9=616*I
      J=1                                                               SCK   99
      K=2                                                               SCK  100
      L=3                                                               SCK  101
      E1(1)=1.0                                                         SCK  102
      E1(2)=2.0                                                         SCK  103
      E1(3)=3.0                                                         SCK  104
      IF(N9)99,99,91                                                    SCK  105
   91 DO 98 I=1,N9,1                                                    SCK  106
   98 CALL P0                                                           SCK  107
   99 CONTINUE                                                          SCK  108
      PRINT *,N9
      PRINT *,J
      PRINT *,K
      PRINT *,E1(1)
      PRINT *,E1(2)
      PRINT *,E1(3)
      PRINT *,E1(4)
      END
      SUBROUTINE P0
      COMMON E1(4),J,K,L
      E1(J)=E1(K)
      E1(K)=E1(L)
      E1(L)=E1(J)
      RETURN
      END