anchor.diff:  
        do j = 1, nruns
   
  -        np = 10 * i
  +        np = dims(i)
   
           allocate(x(np),l(np),u(np),dp(np))
   
  
positive.code:   use ccpdata, only: MU, CORR, ABSERR, RELERR, set_seed, initialize, &
                       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"
  
  
negative.code:           call mvndst(n - 1, l, u, infty, ncorr, &
                 5000 * (n - 1) * (n - 1) * (n - 1), &
                 ABSERR, RELERR, error, dp(k), flag)
  
            if ( flag .ne. 0 ) then
  
               write(*,*) 'MVNDST Returned nonzero flag!'
               
               stop
  
            end if
  
            dp(k) = dp(k) * ff
  
  