COMMON T,T1,T2
      T=0.4999975
      T2=0.50025
      I=10000
      N8=899*I
      X=1.0                                                             SCK   91
      Y=1.0                                                             SCK   92
      Z=1.0                                                             SCK   93
      IF(N8)89,89,81                                                    SCK   94
   81 DO 88 I=1,N8,1                                                    SCK   95
   88 CALL P3(X,Y,Z)                                                    SCK   96
   89 CONTINUE                                                          SCK   97
      CALL POUT(N8,I,I,X,Y,Z,Z)                                         SCK   98
      END                                                               SCK  128
      SUBROUTINE P3(X,Y,Z)                                              SCK  149
      COMMON T,T1,T2                                                    SCK  150
      X1=X                                                              SCK  151
      Y1=Y                                                              SCK  152
      X1=T*(X1+Y1)                                                      SCK  153
      Y1=T*(X1+Y1)                                                      SCK  154
      Z=(X1+Y1)/T2                                                      SCK  155
      RETURN                                                            SCK  156
      END                                                               SCK  157
      SUBROUTINE POUT(N,J,K,X1,X2,X3,X4)
         PRINT *,N,J,K
         PRINT *,X1,X2,X3,X4
         RETURN
      END