1c1
< 
---
> /*
3c3
< #include <math.h>	/* for fabs() */
---
> #include <math.h>	// for fabs()
10a11
> 
153c154
< 	/* returns area < age (LESS THAN) */
---
> 	// returns area < age (LESS THAN)
158,160c159,161
< 	x = (float)(((float)(age-1+period_length[period]))/(float)period_length[period]);	/* proportion */
< 	index = (int)x; 	/* integer part */
< 	y = x-index;		/* float part */
---
> 	x = (float)(((float)(age-1+period_length[period]))/(float)period_length[period]);	// proportion
> 	index = (int)x; 	// integer part
> 	y = x-index;		// float part
174c175
< 	/* returns area >= age (GREATER/EQUAL) */
---
> 	// returns area >= age (GREATER/EQUAL)
197c198
< 
---
>     */
209a211
> 	/*
214,218c216,220
< 			/*
< 				STATIC groups do not use look-ahead for membership;
< 				assess membership at time 0 - beginning of planning horizon
< 				before any aging takes place
< 			*/
---
> 
> 				//STATIC groups do not use look-ahead for membership;
> 				//assess membership at time 0 - beginning of planning horizon
> 				//before any aging takes place
> 
224c226
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 1 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 1
226c228
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 2 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 2
228c230
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 3 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 3
230c232
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 4 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 4
235,240c237,242
< 			/*
< 				FLOAT and REPORT type groups use look-ahead for membership;
< 				if class ages will age into group or
< 				class ages out of group during period, consider
< 				class to be member
< 			*/
---
> 
> 				//FLOAT and REPORT type groups use look-ahead for membership;
> 				//if timber_class ages will age into group or
> 				//timber_class ages out of group during period, consider
> 				//timber_class to be member
> 
242c244
< 				/* NON MEMBER */
---
> 				// NON MEMBER
244c246
< 				/* MEMBER */
---
> 				// MEMBER
247c249
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 1 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 1
249c251
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 2 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 2
251c253
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 3 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 3
253c255
< 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); /* case 4 */
---
> 						if ((gd->class_type==DUMMYINPUT)||(ctype==gd->class_type)) return(TRUE); // case 4
267,270c269,272
< 	/*
< 		OAFs are applied to tables in data_implement_table_oafs()
< 		No need to apply OAFs here; straight table lookup
< 	*/
---
> 
> 		//OAFs are applied to tables in data_implement_table_oafs()
> 		//No need to apply OAFs here; straight table lookup
> 
277,280d278
< 		/*printf("\nage: %d", age);
< 		printf("\ntable->Volume[age]: %f", table->Volume[age]);
< 		printf("\ntable->id: %d", table->id);
< 		printf("\ntable->label: %s", table->label);*/
287c285
< func_vph_recovered(CLASS *class) {
---
> func_vph_recovered(TIMBER_CLASS *timber_class) {
292,293c290,291
< 	if (class==NULL) {
< 		printf("\n\nERROR: func_vph_recovered() passed NULL class parameter\n\n");
---
> 	if (timber_class==NULL) {
> 		printf("\n\nERROR: func_vph_recovered() passed NULL timber_class parameter\n\n");
297,301c295,298
< 	vph = func_vph(class->parent_au->table, class->age);
< 	/*printf("\nvph 1: %f", vph);
< 	printf("\ntimber_class age: %d", class->age);*/
< 	if (class->parent_au->regenlist==NULL) {
< 		regenvph = func_vph(class->parent_au->table,0);
---
> 	vph = func_vph(timber_class->parent_au->table, timber_class->age);
> 
> 	if (timber_class->parent_au->regenlist==NULL) {
> 		regenvph = func_vph(timber_class->parent_au->table,0);
306,307c303,304
< 		class->parent_au->regenlist = (LIST_PTR *)list_reset(class->parent_au->regenlist);
< 		regen = (REGEN *)list_next(class->parent_au->regenlist);
---
> 		timber_class->parent_au->regenlist = (LIST_PTR *)list_reset(timber_class->parent_au->regenlist);
> 		regen = (REGEN *)list_next(timber_class->parent_au->regenlist);
309c306
< 			/* may regenerate to original (or any) age */
---
> 			// may regenerate to original (or any) age
311c308
< 				new_age = class->age+regen->Offset;
---
> 				new_age = timber_class->age+regen->Offset;
316,320c313,314
< 			/*printf("\nregen percent : %f", regen->pc);
< 			printf("\nregen ToAge : %d", regen->ToAge);
< 			printf("\nregen Offset : %d", regen->Offset);
< 			printf("\nregenvph: %f", regenvph);*/
< 			regen = (REGEN *)list_next(class->parent_au->regenlist);
---
> 
> 			regen = (REGEN *)list_next(timber_class->parent_au->regenlist);
326,328c320,322
< 		printf("\n\t          Zone: %s", class->parent_zone->label );
< 		printf("\n\t            AU: %s", class->parent_au->table->label );
< 		printf("\n\t           Age: %d", class->age );
---
> 		printf("\n\t          Zone: %s", timber_class->parent_zone->label );
> 		printf("\n\t            AU: %s", timber_class->parent_au->table->label );
> 		printf("\n\t           Age: %d", timber_class->age );
336c330
< 
---
> */