COMMON E1(4)
      I=10000
      N2 = 12*I
      N3=14*I
      T=0.499975
      E1(1)=1.0                                                         SCK   33
      E1(2)=-1.0                                                        SCK   34
      E1(3)=-1.0                                                        SCK   35
      E1(4)=-1.0                                                        SCK   36
      IF(N2)29,29,21                                                    SCK   37
   21 DO 28 I=1,N2,1                                                    SCK   38
      E1(1)=(E1(1)+E1(2)+E1(3)-E1(4))*T                                 SCK   39
      E1(2)=(E1(1)+E1(2)-E1(3)+E1(4))*T                                 SCK   40
      E1(3)=(E1(1)-E1(2)+E1(3)+E1(4))*T                                 SCK   41
      E1(4)=(-E1(1)+E1(2)+E1(3)+E1(4))*T                                SCK   42
   28 CONTINUE                                                          SCK   43
   29 CONTINUE                                                          SCK   44
      PRINT *,N2
      PRINT *,N3
      PRINT *,N2
      PRINT *,E1(1)
      PRINT *,E1(2)
      PRINT *,E1(3)
      PRINT *,E1(4)
      END