anchor.diff:      real(8) :: ABSERR, RELERR
   
       ! ARRAY ARGUMENTS
  -    real(8) :: CORR((n - 1) * (n - 2) / 2), dp(n), MU(n), x(n)
  +    real(8) :: CORR(n * (n - 1) / 2), dp(n), MU(n), x(n)
   
       intent(in ) :: ABSERR, CORR, MU, n, RELERR, x
       intent(out) :: dp, flag
  
positive.code:         
          call CPU_TIME(finish)
  
          deallocate(x, l, u)
  
          call destroy()
  
          ttime = ttime + (finish - start)
  
       end do
  
       write(*,FMT=0001) i, (ttime / nruns)
  
    end do
  
    0001 FORMAT(I5,1X,F25.16)
  
  contains
  
  
negative.code:                      destroy
  
    integer :: np, flag, nruns
    real(8) :: start, finish, p, dfttime, fttime
  
    real(8), allocatable :: x(:), l(:), u(:), dp(:)
  
    write(*,*) "This program tests the cost of derivatives"
    write(*,*) "of CCP functions"
  
    nruns = 10
  
    write(*,FMT=0002) 'DIM', 'F TIME', 'G TIME', 'RELATION'
  
    do i = 1, 5
  
       fttime = 0.0D0
  
       dfttime = 0.0D0
  
       do j = 1, nruns
  
          np = 10 * i
  
          allocate(x(np),l(np),u(np),dp(np))
  
          call set_seed(12345678 + i * j)
  
          ! Function
  
          call initialize(np, np, 0, x, l, u, 0.0D0)
  
  