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)