Add some basic letsimp tests based on bug #3950

[maxima.git] / share / colnew / ex1 / fsub.f

C................................................................       FSU   10
      SUBROUTINE FSUB(X, Z, F)                                          FSU   20
      REAL*8 Z(4), F(1), X
      F(1) = (1.-6.*X**2*Z(4)-6.*X*Z(3))/X**3
      RETURN
      END