anchor.diff:            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
   
  
positive.code: 
       do j = 1, nruns
  
          np = 10 * i
  
          allocate(x(np),l(np),u(np),dp(np))
  
  
negative.code: 
    write(*,FMT=0002) 'DIM', 'F TIME', 'G TIME', 'RELATION'
  
    do i = 1, size(dims)
  
       fttime = 0.0D0
  
  