anchor.diff:    use ccpdata, only: MU, CORR, ABSERR, RELERR, set_seed, initialize, &
                        destroy
   
  +  integer, parameter :: dims(10) = (/2, 3, 4, 5, 10, 15, 20, 30, 40, 50/)
  +
     integer :: np, flag, nruns
     real(8) :: start, finish, p, dfttime, fttime
   
     real(8), allocatable :: x(:), l(:), u(:), dp(:)
   
  +  write(*,*)
     write(*,*) "This program tests the cost of derivatives"
     write(*,*) "of CCP functions"
   
  
positive.code: 
    write(*,FMT=0002) 'DIM', 'F TIME', 'G TIME', 'RELATION'
  
    do i = 1, 5
  
       fttime = 0.0D0
  
  
negative.code: 
       do j = 1, nruns
  
          np = dims(i)
  
          allocate(x(np),l(np),u(np),dp(np))
  
  