SUBROUTINE MAP(N,F,X) ************************************************************************ * * * Josephy's 4-variable nonlinear complementarity problem * * * ************************************************************************ * REAL*8 F(N),X(N) * * F(1)=3.0*X(1)*X(1)+2.0*X(1)*X(2)+2.0*X(2)*X(2)+X(3)+3.0*X(4)-6.0 F(2)=2.0*X(1)*X(1)+X(1)+X(2)*X(2)+3*X(3)+2*X(4)-2.0 F(3)=3.0*X(1)*X(1)+X(1)*X(2)+2.0*X(2)*X(2)+2.0*X(3)+3*X(4)-1.0 F(4)=X(1)*X(1)+3.0*X(2)*X(2)+2.0*X(3)+3.0*X(4)-3.0 * RETURN END * * * SUBROUTINE NABMAP(N,T,X) ************************************************************************ * * * Jacobian * * * ************************************************************************ * * REAL*8 T(N,N),X(N) * * T( 1, 1)=6.0*X(1)+2.0*X(2) T( 1, 2)=2.0*X(1)+4.0*X(2) T( 1, 3)=1.0 T( 1, 4)=3.0 T( 2, 1)=4.0*X(1)+1.0 T( 2, 2)=2.0*X(2) T( 2, 3)=3.0 T( 2, 4)=2.0 T( 3, 1)=6.0*X(1)+X(2) T( 3, 2)=X(1)+4.0*X(2) T( 3, 3)=2.0 T( 3, 4)=3.0 T( 4, 1)=2.0*X(1) T( 4, 2)=6.0*X(2) T( 4, 3)=2.0 T( 4, 4)=3.0 * RETURN END