      REAL  A (10,10)
      REAL  B (10)
      INTEGER  IPVT (10)
      READ (5,*) A
      CALL  SGEFA (A, 10, 10, IPVT, INFO)
      READ (5,*) B
      CALL  SGESL (A, 10, 10, IPVT, B, 0)
      WRITE (6,*) B
      STOP
      END
