COMMON T
      N1=0
      T=0.499975
      X1=1.0                                                            SCK   20
      X2=-1.0                                                           SCK   21
      X3=-1.0                                                           SCK   22
      X4=-1.0                                                           SCK   23
      IF(N1)19,19,11                                                    SCK   24
   11 DO 18 I=1,N1,1                                                    SCK   25
      X1=(X1+X2+X3-X4)*T                                                SCK   26
      X2=(X1+X2-X3+X4)*T                                                SCK   27
      X3=(X1-X2+X3+X4)*T                                                SCK   28
      X4=(-X1+X2+X3+X4)*T                                               SCK   29
   18 CONTINUE                                                          SCK   30
   19 CONTINUE                                                          SCK   31
      PRINT *,N1
      PRINT *,N1
      PRINT *,N1
      PRINT *,X1
      PRINT *,X2
      PRINT *,X3
      PRINT *,X4
      END