anchor.diff:      private
    
       abstract interface
  -    subroutine func (n, m, x, f, con)!! calcfc interface
  +    subroutine func (n, m, x, f, con)  !! calcfc interface
           import :: wp
           implicit none
           integer :: n
  
positive.code:                 m = 0
                  xopt (1) = - 1.0_wp
                  xopt (2) = 1.0_wp
              else if (nprob == 5) then
      !
      !     Intermediate version of Rosenbrock's problem.
  
negative.code:                 xopt (5) = - 0.624487_wp
                  xopt (6) = 1.038131_wp
                  xopt (7) = 1.594227_wp
                  
              else if (nprob == 10) then
      !
      !     This problem is taken from page 415 of Luenberger's book Applied
  