!  This is problem 1, p. 220 of the year 2000 Neumaier
!   manuscript --

PROGRAM Neumaier_220_no_1

  USE CODELIST_CREATION
      IMPLICIT NONE

      TYPE(CDLVAR), DIMENSION(2) :: X
      TYPE(CDLLHS) :: PHI

      TYPE(CDLVAR), DIMENSION(2) :: CT
      TYPE(CDLEQ), DIMENSION(2) :: F

      CALL INITIALIZE_CODELIST(X)

      CT(1) = EXP( X(1)**2 + X(2)**2 ) - 3
      CT(2) = X(1) + X(2) - SIN( 3*(X(1)+X(2)) )

      F(1) = CT(1)
      F(2) = CT(2)

      PHI = CT(1)**2 + CT(2)**2

      CALL FINISH_CODELIST

END PROGRAM Neumaier_220_no_1