anchor.diff:      ! This is hard-coded for the ROBUPY package requirements. What follows 
       ! below is based on this being 0, 1.
       !---------------------------------------------------------------------------
  -    MEQ = 1         ! Number of equality constraints
  -    MIEQ = 0        ! Number of inequality constraints
  +    M = 1
  +    MEQ = 1
       !---------------------------------------------------------------------------
       !---------------------------------------------------------------------------
   
  
positive.code: 
      !/* internal objects        */
  
      INTEGER(our_int)                :: MINEQ
      INTEGER(our_int)                :: MODE
      INTEGER(our_int)                :: ITER
      INTEGER(our_int)                :: MIEQ
      INTEGER(our_int)                :: L_JW
      INTEGER(our_int)                :: MEQ
      INTEGER(our_int)                :: L_W
      INTEGER(our_int)                :: LA
      INTEGER(our_int)                :: M
      INTEGER(our_int)                :: N
  
      INTEGER(our_int)                :: JW(7)
  
  
negative.code:     X = x_start
  
      ! Derived attributes
      N = SIZE(x_internal)
      LA = MAX(1, M)
  
  
  N1 = N + 1
  MINEQ = M - MEQ + N1 + N1
  L_W = (3 * N1 + M) *( N1 + 1) + (N1 - MEQ + 1) * (MINEQ + 2) + 2 * MINEQ + & 
          (N1 + MINEQ) * (N1 - MEQ) + 2 * MEQ + N1 + (N + 1) * N / 2 + & 
           2 * M + 3 * N + 3 * N1 + 1
  L_JW = MINEQ
  
  
  
  
      MINEQ = M - MEQ + (N + 1) + (N + 1)
  
      L_W =  (3 * (N + 1) + M) * ((N + 1) + 1) + ((N + 1) - MEQ + 1) * (MINEQ + 2) + &
  