COMMON T,T2,J,K
      T=0.499975
      T2=2.0
      I=1
      N7=32*I
      X=0.5                                                             SCK   82
      Y=0.5                                                             SCK   83
      IF(N7)79,79,71                                                    SCK   84
   71 DO 78 I=1,N7,1                                                    SCK   85
      X=T*ATAN(T2*SIN(X)*COS(X)/(COS(X+Y)+COS(X-Y)-1.0))                SCK   86
      Y=T*ATAN(T2*SIN(Y)*COS(Y)/(COS(X+Y)+COS(X-Y)-1.0))                SCK   87
   78 CONTINUE                                                          SCK   88
   79 CONTINUE                                                          SCK   89
      PRINT *,N7
      PRINT *,J
      PRINT *,K
      PRINT *,X
      PRINT *,X
      PRINT *,Y
      PRINT *,Y
      END