1 ! { dg-options "-O1 -fgraphite" }
4 INTEGER, PARAMETER :: dp=8
6 SUBROUTINE newuob (n,npt,x,rhobeg,rhoend,maxfun,xbase,&
7 xopt,xnew,xpt,fval,gq,hq,pq,bmat,zmat,ndim,d,vlag,w,opt)
8 REAL(dp), DIMENSION(npt, *), &
10 REAL(dp), DIMENSION(*), INTENT(inout) :: fval, gq, hq, pq
11 120 IF (dsq <= 1.0e-3_dp*xoptsq) THEN
14 gq(i)=gq(i)+temp*xpt(k,i)