COMMON T1,J,K
      T1=0.50025
      I=1
      N11=93*I
      X=0.75                                                            SCK  121
      IF(N11)119,119,111                                                SCK  122
  111 DO 118 I=1,N11,1                                                  SCK  123
  118 X=SQRT(EXP(ALOG(X)/T1))                                           SCK  124
  119 CONTINUE                                                          SCK  125
      PRINT *,N11
      PRINT *,J
      PRINT *,K
      PRINT *,X
      PRINT *,X
      PRINT *,X
      PRINT *,X
      END