ADAS Subroutine qpoly

       subroutine qpoly( x1, y1, x2, y2, x3, y3, x, y)
c
c------------------------------------------------------------------
C  **************FORTRAN77 SUBROUTINE:QPOLY ************
C VERSION 1.0
C
C PURPOSE :QUADRATIC INTERPOLATION OF X1,Y1,X2,Y2,X3,Y3 -> Y FOR GIVEN X 
C
C INPUT : 
C	 (R*8)	X1 = 
C	 (R*8)	Y1 = 
C	 (R*8)	X2 = 
C	 (R*8)	Y2 = 
C	 (R*8)	X3 = 
C	 (R*8)	Y3 =
C 
C ROUTINES:
C
C AUTHOR: K.H. BEHRINGER (IPF, UNIVERSITY OF STUTTGART)
C
C DATE 02/04/98 
C
C VERSION: 1.1						DATE: 18-06-98
C MODIFIED:	STUART LOCH
C		- CONVERTED TO FORTRAN FOR ADAS.
C  
c-----------------------------------------------------------------
      REAL*8              X,           X1,          X2,          X3
      REAL*8              Y,           Y1,          Y2,          Y3