/* U_B.G: procedure to return (deterministic,publicly observable) component of
          player b's utility function. Private information part is an additive
	  extreme value distributed shock known to prisoner b but not to 
	  prisoner a.

	  Inputs: 

	  d_a: decision of prisoner a, 1 = confess, 0= don't confess
	  d_b: decision of prisoner b, 1 = confess, 0= don't confess
	  x_b: prisoner a's observable type, assumed to be restricted to [0,1]

	  John Rust, University of Maryland, November, 2005 */

   proc (1)=u_b(d_a,d_b,x_b);


       if ((d_a == 1)*(d_b==1));

            retp (cc_b*x_b);

       elseif ((d_a==0)*(d_b==0));

            retp (dd_b*x_b);

       elseif ((d_a==1)*(d_b==0));

            retp (cd_b*x_b);

       else;

            retp (dc_b*x_b);

       endif;

   endp;