call x2xx(x,xx,nvar_restr)
call sumsl(nvar_restr,d,xx,func_restr1,grad_restr1,&
iv,liv,lv,v,idum,rdum,fdum)
call xx2x(x,xx)
ELSE
call x2xx(x,xx,nvar_restr)
call sumsl(nvar_restr,d,xx,func_restr1,grad_restr1,&
iv,liv,lv,v,idum,rdum,fdum)
call xx2x(x,xx)
ELSE