/*  delay(<monitor>,<queue>)
*/


/*  continue(<monitor>,<queue>)
*/


/*  menter(<monitor>)
*/


/*  mexit(<monitor>)
*/


/*  decvar(<monitor>,<queues>,<extra_code_for_more_variables>)
*/


/*  moninit(<monitor>,<queues>)
*/

	  
    
/*  create(<procedure>)
*/

/* r_create(<procedure>,<machine>)
*/


/* clock(<clock_val>)
*/










/* env(<max_procs>,<sh_mem>,<sr_buffs>)) */




/* initenv(<global_memory>)
*/


/* who_am_i(<proc_id>) */


/* where_am_i(<node>) */


/* char *G_MALLOC(<size>)
*/












/* send_r(<process_id>,<msg_type>,<msg>[,<ln>]) */



/* send(<process_id>,<msg_type> [,<msg>] [,<ln>][,<ack_requested>]) */





/* receive(<process_id>,<msg_type>,<msg>,<cond>[,<ln>]) */


/* messages_available(<cond>, <rc>) */


/* remote_create(<proc_group>,<proc_ids>) */


/* process_group(<group_name>) */


/* process_entry(<what_to_create>,[<machine>]) */


/* process_group_end */


/* xx_cmp_id(<id_one>,<id_two>)


/* xx_copy_id(<to_id>,<from_id>)


/* type(<msg_type>,<C_structure>) */

















/* BARRIER(<monitor>,<nprocs>)
*/


/* BARDEC(<monitor>)
*/


/* BARINIT(<monitor>)
*/




/* GSDEC(<monitor>)
*/


/* GSINIT(<monitor>)
*/


/* GETSUB(<monitor>,<subscript>,<max_sub>,<nprocs>)
*/




/* ADEC(<monitor>)
*/


/* AINIT(<monitor>)
*/


/* ASKFOR(<monitor>,<rc>,<nprocs>,<getprob_logic>,<reset_logic>)
*/


/* probend(<monitor>,<probend_code>)
*/


/* progend(<monitor>)
*/


/* nlockdec(<monitor>)
*/


/* nlockinit(<monitor>)
*/


/* nlock(<monitor>)
*/


/* nunlock(<monitor>)
*/

#include <sys/types.h>
#include <sys/time.h>

cputm_(ai)
int *ai;
{
struct timeval tp;
struct timezone tzp;
int i;

	gettimeofday(&tp,&tzp);

	/* B
	printf("seconds time=%ld\n",tp.tv_sec);
	printf("microseconds time=%ld\n",tp.tv_usec);
	E */
	i = tp.tv_sec & 0xffff;
	i = i*100;
	i += (tp.tv_usec / 10000);
	*ai = i;
}