LOGIC ALL

      STOP = - 33

      DISTANCE = 37.0

      TAX - RT = 5.0

      B1 = 2X
   
      B2 =X2**2

      VTI = VTI

      A = 2/3 * 3/2

      L = .TRUE.

      MOTION = SQRT(VTI*VTI + 7.1**2*A)

      X = SQRT(1)

      Y = SQRT(-37.0)

      Z = TAN(0.0D0)

      IF (L) THEN Z = 1.0

      ELSE Y = Z ENDIF

      IF (STOP) 1, 2, 4

 1    A = LOG10(3.0)

 2    B = LOG(DBLE(3/4))

 3    C = LOG(REAL(4/3))

 4    D = 1.0/Z

      X = 5/2
     
      WRITE(6,10) X, Y, A, B, C, D

 10   FORMAT(' Y = ',F9.6,' X = ',F9.6)

      I = - 7/3

      J = ABS(I)

      X = -J**4

      DO 25 I = 1. 25

 25   X = REAL(I)

      X = SQRT(X)

      Z = SIN(DBLE(X))

      WRITE(6,*) X, Y, Z

      WRITE(6,90) 

 90   FORMAT(' ADJÖ')

      RETURN
 
      END