ADAS Subroutine one9

      SUBROUTINE ONE9(A,P)
C-----------------------------------------------------------------------
C
C  ******************** FORTRAN 77 SUBROUTINE: ONE9  *******************
C
C  PURPOSE:
C        TO CALCULATE THE NINE BURGESS KNOT POINTS
C
C  CALLING PROGRAM:
C        LSTSQ9
C
C  INPUT:
C        (R*8) A - MATRIX CONTAINING REDUCED PARAMETERS
C  OUTPUT:
C        (R*8) P - THE NINE BURGESS KNOT POINTS
C
C  ROUTINES:
C        NONE
C
C  DATE:    25/05/99				VERSION 1.1
C
C  AUTHOR:  HUGH SUMMERS, UNIVERSITY OF STRATHCLYDE
C           FIRST RELEASE
C
C-----------------------------------------------------------------------
      REAL*8              A(9,9),      P(9)