anchor.diff:  
     CALL dqed ( Case_13_hd, mequa, nvars, mcon, ind, bl, bu, x, fj, ldfj, &
       fnorm, igo, iopt, ropt, iwork, work )
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a)' ) ' CASE 13 Baby Yea!'
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a,i6)' ) '  Output flag from DQED, IGO = ', igo
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a)' ) '  Computed X:'
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(g14.8)' ) x(1:nvars)
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a,g14.6)' ) '  L2 norm of the residual, FNORM = ', fnorm
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a)' ) 'Expected X:'
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a)' ) ' CASE 13 Baby Yea!'
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a,i6)' ) '  Output flag from DQED, IGO = ', igo
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a)' ) '  Computed X:'
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(g14.8)' ) x(1:nvars)
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a,g14.6)' ) '  L2 norm of the residual, FNORM = ', fnorm
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a)' ) 'Expected X:'
    
  -  WRITE ( *, '(a)' ) ' '
  -  WRITE ( *, '(a)' ) 'DQED_PRB2'
  -  WRITE ( *, '(a)' ) '  Normal end of execution.'
  -
  -  WRITE ( *, '(a)' ) ' '
  +  WRITE(Ulog, '(a)' ) ' '
  +  WRITE(Ulog, '(a)' ) 'DQED_PRB2'
  +  WRITE(Ulog, '(a)' ) '  Normal end of execution.'
  +
  +  WRITE(Ulog, '(a)' ) ' '
     CALL timestamp ( )
   
     results = x
  
positive.code: 
    CALL dqed ( Case_14_hd, mequa, nvars, mcon, ind, bl, bu, x, fj, ldfj, &
      fnorm, igo, iopt, ropt, iwork, work )
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a)' ) ' CASE 14 Baby Yea!'
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a,i6)' ) '  Output flag from DQED, IGO = ', igo
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a)' ) '  Computed X:'
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(g14.8)' ) x(1:nvars)
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a,g14.6)' ) '  L2 norm of the residual, FNORM = ', fnorm
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a)' ) 'Expected X:'
   
    WRITE ( *, '(a)' ) ' '
    WRITE ( *, '(a)' ) 'DQED_PRB2'
    WRITE ( *, '(a)' ) '  Normal end of execution.'
  
    WRITE ( *, '(a)' ) ' '
    CALL timestamp ( )
  
    results = x
  
negative.code: 
    CALL dqed ( Case_9_hd, mequa, nvars, mcon, ind, bl, bu, x, fj, ldfj, &
      fnorm, igo, iopt, ropt, iwork, work )
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a)' ) ' CASE 9 Baby Yea!'
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a,i6)' ) '  Output flag from DQED, IGO = ', igo
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a)' ) '  Computed X:'
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(g14.8)' ) x(1:nvars)
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a,g14.6)' ) '  L2 norm of the residual, FNORM = ', fnorm
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a)' ) 'Expected X:'
   
    WRITE(Ulog, '(a)' ) ' '
    WRITE(Ulog, '(a)' ) 'DQED_PRB2'
    WRITE(Ulog, '(a)' ) '  Normal end of execution.'
  
    WRITE(Ulog, '(a)' ) ' '
    CALL timestamp ( )
  
  results = x
  