C NCLFORTSTART
 subroutine cquad(a,b,c,nq,x,quad)
 real a,b,c
 integer nq
 real x(nq),quad(nq)
C NCLEND