capa/capa51/pProj/capaUnit.c - diff

Return to capaUnit.c CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

version 1.10, 2000/09/20 17:20:33	version 1.11, 2000/09/20 19:03:09
Line 912 u_copy_unit(Unit_t a_p, Unit_t b_p, do	Line 912 u_copy_unit(Unit_t a_p, Unit_t b_p, do
a_p->u_count++;	a_p->u_count++;
} else if( b_p->u_type == U_DERIVED) {	} else if( b_p->u_type == U_DERIVED) {
/* derived units but without any units elements (scalar) */	/* derived units but without any units elements (scalar) */
/* do nothing, ignore this units WE REALLY MEAN THIS DON'T DO THE NEXT LINE!*/
/a_p->u_count++;/	/a_p->u_count++;/
scale = pow(b_p->u_scale, exp_scale);	scale = pow(b_p->u_scale, exp_scale);
a_p->u_scale = a_p->u_scale * scale;	a_p->u_scale = a_p->u_scale * scale;