// JavaScript Document

function yrchk (yr)
	{
	yrreg = new RegExp(/(19|20)\d\d/);
	if ( yrreg.test(yr) == false )
		{
		alert("Please enter a valid year in the format YYYY");
		}	
	}




function calculate()
	{
		var formx = document.cplan;
		
		// -----------------------------------------------------------------------------------------------------------------------------
		// First section to calculate the total Energy c-equivilant
		var TotalEng = 0;
		var nrg = new Array();

		for ( i = 0; i < 7; i++ )
			{
			var tag = "Energy_"+i;
			
			if ( document.getElementsByName(tag)[0].value == "" )
				{
				nrg[i] = 0;
				}
			else if ( i == 6 )
				{
					if ( formx.gas_units.selectedIndex == 0 )
						{ nrg[i] = Number(document.getElementsByName(tag)[0].value) / 29.3071 ; }
					else if ( formx.gas_units.selectedIndex == 1 )
						{ nrg[i] = Number(document.getElementsByName(tag)[0].value); }
					
					nrg[i] = nrg[i] * energy[i][2] * energy[i][3] * cequiv;	
				}
			else
				{
					nrg[i] = Number(document.getElementsByName(tag)[0].value);
					nrg[i] = nrg[i] * energy[i][2] * energy[i][3] * cequiv;
					
				}
				
			}
		
		
		
		for ( i = 0; i < 7; i++ )
			{
			TotalEng += nrg[i];
			}
		
		//alert(TotalEng);
		// Energy End
		//-----------------------------------------------------------------------------------------------------------------------------



		// -----------------------------------------------------------------------------------------------------------------------------
		// 2nd section to calculate the total Enteric c-equivilant
	
		var ent = new Array();
		var TotalEnt = 0;
		
		for ( i = 0; i < 12; i++ )
			{
			var tag = "Animal_"+i;	
						
			if ( i == 6 )
				{
				if (document.getElementsByName(tag)[0].value == "")
					{
					ent[i] = 0;
					}
				else
					{
					ent[i] = Number(document.getElementsByName(tag)[0].value)*0.5;
					ent[i] = ent[i] * enteric[i][2] * enteric[i][3] * cequiv;
					}
				}
			else if ( i == 11 )
				{
				if (document.getElementsByName(tag)[0].value == "")
					{
					ent[i] = 0;
					}
				else
					{
					ent[i] = Number(document.getElementsByName(tag)[0].value)*1000;
					ent[i] = ent[i] * enteric[i][2] * enteric[i][3] * cequiv;
					}
				}
			else
				{
				if (document.getElementsByName(tag)[0].value == "")
					{
					ent[i] = 0;
					}
				else
					{
					ent[i] = Number(document.getElementsByName(tag)[0].value);
					ent[i] = ent[i] * enteric[i][2] * enteric[i][3] * cequiv;
					}
				}
				
			}
			
		for ( i = 0; i < 12; i++ )
			{
			TotalEnt += ent[i];
			}
			
		// Enteric End
		//-----------------------------------------------------------------------------------------------------------------------------
			

		// -----------------------------------------------------------------------------------------------------------------------------
		// 3rd Section to Calculate the total Manure c-equivilant
			
		var formx = document.cplan;
		var man = new Array();
		var TotalMan = 0;
		for ( i = 0; i < 12; i++ )
			{
			var tag = "Animal_"+i;	
				
			var c = i+8
			if ( c == 6 )
				{
				if (document.getElementsByName(tag)[0].value == "")
					{
					man[i] = 0;
					}
				else
					{
					man[i] = Number(document.getElementsByName(tag)[0].value)*0.5;
					man[i] = man[i] * manure[i][2] * manure[i][3] * cequiv;
					}
				}
			else if ( c == 11 )
				{
				if (document.getElementsByName(tag)[0].value == "")
					{
					man[i] = 0;
					}
				else
					{
					man[i] = Number(document.getElementsByName(tag)[0].value)*1000;
					man[i] = man[i] * manure[i][2] * manure[i][3] * cequiv;
					}	
				}
			else
				{
				if (formx.elements[c].value == "")
					{
					man[i] = 0;
					}
				else
					{
					man[i] = Number(document.getElementsByName(tag)[0].value);
					man[i] = man[i] * manure[i][2] * manure[i][3] * cequiv;
					}	
				}
				
			}
		
		
		for ( i = 0; i < 12; i++ )
			{
			TotalMan += man[i];
			}
		
			
		// Manure End
		//-----------------------------------------------------------------------------------------------------------------------------
			
		
		// -----------------------------------------------------------------------------------------------------------------------------
		// 4th Section to Calculate the total waste c-equivilant
		
		
		var formx = document.cplan;
		var cattle = new Array();
		var TotalCattle = 0;
		var TotalDeer = 0;
		var TotalSheep = 0;
		var TotalWaste = 0;
		var an1 = 0;
		var an2 = 0;
		var an2_2 = 0;
		var an3 = 0;
		var an4 = 0;
		var an5 = 0;
		var an5_2 = 0;
		var an6 = 0;
		
		
		
		// Cattle
		
		// Dairy Herd
		var cattle_waste1 = new Array();
		cattle_waste1[0] = 0.553;
		cattle_waste1[1] = 0.306;
		cattle_waste1[2] = 0.141;
		cattle_waste1[3] = 0;
		cattle_waste1[4] = 84.6;
		
		
		if (formx.elements[8].value == "")
			{
			cattle[0] = 0;
			}
		else
			{
			var kgn = Number(formx.elements[8].value) * cattle_waste1[4];
			
			var solid = cattle_waste1[0] * kgn;
			var liquid = cattle_waste1[1] * kgn;
			var daily = cattle_waste1[2] * kgn;
			var other = cattle_waste1[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			cattle[0] = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
		
		// Beef Herd
		var cattle_waste2 = new Array();
		cattle_waste2[0] = 0.709;
		cattle_waste2[1] = 0.06;
		cattle_waste2[2] = 0.23;
		cattle_waste2[3] = 0;
		cattle_waste2[4] = 60;
		
		
		if (formx.elements[9].value == "")
			{
			cattle[1] = 0;
			}
		else
			{
			var kgn = Number(formx.elements[9].value) * cattle_waste2[4];
			
			var solid = cattle_waste2[0] * kgn;
			var liquid = cattle_waste2[1] * kgn;
			var daily = cattle_waste2[2] * kgn;
			var other = cattle_waste2[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			cattle[1] = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
		
		
		// Other > 1 yr
		var cattle_waste3 = new Array();
		cattle_waste3[0] = 0.709;
		cattle_waste3[1] = 0.06;
		cattle_waste3[2] = 0.23;
		cattle_waste3[3] = 0;
		cattle_waste3[4] = 47;
		
		
		if (formx.elements[10].value == "")
			{
			cattle[2] = 0;
			}
		else
			{
			var kgn = Number(formx.elements[10].value) * cattle_waste3[4];
			
			var solid = cattle_waste3[0] * kgn;
			var liquid = cattle_waste3[1] * kgn;
			var daily = cattle_waste3[2] * kgn;
			var other = cattle_waste3[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			cattle[2] = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
		
		// Other < 1 yr
		var cattle_waste4 = new Array();
		cattle_waste4[0] = 0.771;
		cattle_waste4[1] = 0;
		cattle_waste4[2] = 0.229;
		cattle_waste4[3] = 0;
		cattle_waste4[4] = 11.8;
		
		
		if (formx.elements[11].value == "")
			{
			cattle[3] = 0;
			}
		else
			{
			var kgn = Number(formx.elements[11].value) * cattle_waste4[4];
			
			var solid = cattle_waste4[0] * kgn;
			var liquid = cattle_waste4[1] * kgn;
			var daily = cattle_waste4[2] * kgn;
			var other = cattle_waste4[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			cattle[3] = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
		
		TotalCattle += cattle[0] + cattle[1] + cattle[2] + cattle[3];
		
			
		// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~	
			
		// Pigs
		var pigs_waste = new Array();
		pigs_waste[0] = 0.65;
		pigs_waste[1] = 0.292;
		pigs_waste[2] = 0.058;
		pigs_waste[3] = 0;
		pigs_waste[4] = 10.7;
		
		
		if (formx.elements[12].value == "")
			{
			an1 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[12].value) * pigs_waste[4];
			
			var solid = pigs_waste[0] * kgn;
			var liquid = pigs_waste[1] * kgn;
			var daily = pigs_waste[2] * kgn;
			var other = pigs_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an1 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			

		
		// Sheep	
		var sheeps_waste = new Array();
		sheeps_waste[0] = 1;
		sheeps_waste[1] = 0;
		sheeps_waste[2] = 0;
		sheeps_waste[3] = 0;
		sheeps_waste[4] = 9.2;
		
		
		if (formx.elements[13].value == "")
			{
			an2 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[13].value) * sheeps_waste[4];
			
			var solid = sheeps_waste[0] * kgn;
			var liquid = sheeps_waste[1] * kgn;
			var daily = sheeps_waste[2] * kgn;
			var other = sheeps_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an2 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
		

		//Lambs
		var lamb_waste = new Array();
		lamb_waste[0] = 1;
		lamb_waste[1] = 0;
		lamb_waste[2] = 0;
		lamb_waste[3] = 0;
		lamb_waste[4] = 3.36;
		
		
		if (formx.elements[14].value == "")
			{
			an2_2 = 0;
			}
		else
			{
			var kgn = (Number(formx.elements[14].value)*0.5) * lamb_waste[4];
			
			var solid = lamb_waste[0] * kgn;
			var liquid = lamb_waste[1] * kgn;
			var daily = lamb_waste[2] * kgn;
			var other = lamb_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an2_2 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
		TotalSheep = an2 + an2_2;	
			
		
		//Goats	
		var goats_waste = new Array();
		goats_waste[0] = 0.96;
		goats_waste[1] = 0;
		goats_waste[2] = 0;
		goats_waste[3] = 0.04;
		goats_waste[4] = 7.2;
		
		
		if (formx.elements[15].value == "")
			{
			an3 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[15].value) * goats_waste[4];
			
			var solid = goats_waste[0] * kgn;
			var liquid = goats_waste[1] * kgn;
			var daily = goats_waste[2] * kgn;
			var other = goats_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an3 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
		
		
		//Horses
		var horses_waste = new Array();
		horses_waste[0] = 0.96;
		horses_waste[1] = 0;
		horses_waste[2] = 0;
		horses_waste[3] = 0.04;
		horses_waste[4] = 32;
		
		
		if (formx.elements[16].value == "")
			{
			an6 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[16].value) * horses_waste[4];
			
			var solid = horses_waste[0] * kgn;
			var liquid = horses_waste[1] * kgn;
			var daily = horses_waste[2] * kgn;
			var other = horses_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an6 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
		
			

		
		
		//Deer
		var deer_waste = new Array();
		deer_waste[0] = 0.75;
		deer_waste[1] = 0;
		deer_waste[2] = 0;
		deer_waste[3] = 0.25;
		deer_waste[4] = 11.5;
		
		
		if (formx.elements[17].value == "")
			{
			an5 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[17].value) * deer_waste[4];
			
			var solid = deer_waste[0] * kgn;
			var liquid = deer_waste[1] * kgn;
			var daily = deer_waste[2] * kgn;
			var other = deer_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an5 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
		//Deer Calves
		var deerC_waste = new Array();
		deerC_waste[0] = 0.75;
		deerC_waste[1] = 0;
		deerC_waste[2] = 0;
		deerC_waste[3] = 0.25;
		deerC_waste[4] = 8.64;
		
		
		if (formx.elements[18].value == "")
			{
			an5_2 = 0;
			}
		else
			{
			var kgn = Number(formx.elements[18].value) * deerC_waste[4];
			
			var solid = deerC_waste[0] * kgn;
			var liquid = deerC_waste[1] * kgn;
			var daily = deerC_waste[2] * kgn;
			var other = deerC_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an5_2 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
		
		
		TotalDeer = an5 + an5_2;
		
		
		//Poultry	
		var poultry_waste = new Array();
		poultry_waste[0] = 0.10;
		poultry_waste[1] = 0;
		poultry_waste[2] = 0;
		poultry_waste[3] = 0.90;
		poultry_waste[4] = 0.589;
		
		
		if (formx.elements[19].value == "")
			{
			an4 = 0;
			}
		else
			{
			var kgn = (Number(formx.elements[19].value)*1000) * poultry_waste[4];
			
			var solid = poultry_waste[0] * kgn;
			var liquid = poultry_waste[1] * kgn;
			var daily = poultry_waste[2] * kgn;
			var other = poultry_waste[3] * kgn;
			
			var loss_solid = 0.02 * solid;
			var loss_liquid = 0.001 * liquid;
			var loss_other = 0.005 * other;
			
			var t_spread = (solid+liquid+daily+other) - (loss_solid+loss_liquid+loss_other);
			var spreading = t_spread * 0.0125;
			
			var leeching = (t_spread-spreading)*0.0075;
			var atmos = (solid+liquid+daily+other)*0.01;
			
			var n2o_n = (loss_solid+loss_liquid+loss_other)+spreading+leeching+atmos;
			var n2o = (44/28)*n2o_n;
			
			an4 = n2o * waste[0][2] * waste[0][3] * cequiv;
			}
			
			
	TotalWaste = TotalCattle + TotalSheep + TotalDeer + an1 + an3 + an4 + an6;
	
	// Waste End
	//-----------------------------------------------------------------------------------------------------------------------------
	
	
	// -----------------------------------------------------------------------------------------------------------------------------
	// 5th Section, Calculate Fertiliser c-equiv
	
	var tfert = Number(formx.fert_syn.value);
	tfert = tfert * 0.25;
	var nox = tfert * 0.1;
	var aferttotal = tfert * 0.9;
	var demi = aferttotal * 0.0125;
	var demi_c = (((44/28) * demi) * 310) * cequiv;
	var dsn = nox * 0.01;
	var dsn_c = (((44/28) * dsn) * 310) * cequiv;
	var lsn = (aferttotal - demi) * 0.3 * 0.025;
	var lsn_c = (((44/28) * lsn) * 310) * cequiv;
	
	var TotalFert_synth = demi_c + dsn_c + lsn_c;
	
	
	var tfert = Number(formx.fert_org.value);
	tfert = tfert * 0.01;
	var nox = tfert * 0;
	var N_spread = tfert - nox;
	var spreading = N_spread * 0.0125;
	var leaching = (N_spread - spreading) * 0.0075;
	var atmos = tfert * 0.25 * 0.01;
	var n2o_n = spreading + leaching + atmos;
	var n2o = n2o_n * (44/28);
	var kgn = n2o * 310 * cequiv;
	var TotalFert_org = kgn;
	
	var TotalFert = TotalFert_synth + TotalFert_org;
	
	
	// -----------------------------------------------------------------------------------------------------------------------------
	// 6th Section to Calculate the total Crop c-equivilant
			
		var formx = document.cplan;
		var cro = new Array();
		var TotalCrop = 0;
		for ( i = 0; i < 14; i++ )
			{
			var c = i+22
			if (formx.elements[c].value == "")
				{
				cro[i] = 0;
				}
			else
				{
				if (formx.soil_unit.selectedIndex == 0 )
					{
					var yield = Number(formx.elements[c].value);
					}
				else if ( formx.soil_unit.selectedIndex == 1 )
					{
					var yield = Number(formx.elements[c].value) * 1000;
					}
					
				if ( crops[i][1] == "yes" )
					{ var residue = 2 * yield * crops[i][2] * crops[i][4]; }
				else
					{ var residue = 1 * yield * crops[i][2] * crops[i][4]; }
				var soil = residue * crops[i][3];
				var n2o_n = soil * 0.0125;
				var n2o = (44/28) * n2o_n;
				cro[i] = n2o * 310 * cequiv;

				}
			}
			

		for ( i = 0; i < 14; i++ )
			{
			TotalCrop = TotalCrop + cro[i];
			}
	
	
	// -----------------------------------------------------------------------------------------------------------------------------
	// 7th Section to Calculate the total Forestry
	// Calculate Loss
	

	var forest = new Array();
	 if ( document.getElementsByName("fLoss_0")[0].value == "" )
	 	{ forest[0] = 0; }
	else
		{
		forest[0] = Number(document.getElementsByName("fLoss_0")[0].value);
		var fyear = document.getElementById("fLoss_0_yr").selectedIndex;
		if (fyear == 0){var bef = 5;} else{var bef = 6;}
		forest[0] = forest[0] * forestry[0][3] * forestry[0][4] * forestry[0][bef];
		}
	
	if ( document.getElementsByName("fLoss_1")[0].value == "" )
		{ forest[1] = 0; }
	else
		{
		forest[1] = Number(document.getElementsByName("fLoss_1")[0].value);
		var fyear = document.getElementById("fLoss_1_yr").selectedIndex;
		if (fyear == 0){var bef = 5;} else{var bef = 6;}
		forest[1] = forest[1] * forestry[1][3] * forestry[1][4] * forestry[1][bef];
		}

	var T_FLoss = 0;
	
	T_FLoss = forest[0] + forest[1];
	
	
	// Calculate Gain
	var forest2 = new Array();
	if (formx.elements[40].value == "" )
		{
		forest2[0] = 0;
		}
	else
		{
		forest2[0] = Number(formx.elements[40].value);

		var fyear = document.getElementById("fGain_0_yr").selectedIndex;
		if (fyear == 0)
			{
			var growth = forestry[0][0];
			var bef = 5;
			}
		else 
			{ 
			var growth = forestry[0][1]; 
			var bef = 6;
			}

		var fr = forest2[0] * growth *  forestry[0][3] * forestry[0][4] * forestry[0][bef];

		forest2[0] = fr;
		
		}
		
		
	if (formx.elements[42].value == "" )
		{
		forest2[1] = 0;
		}
	else
		{
		forest2[1] = Number(formx.elements[42].value);
		var fyear = document.getElementById("fGain_1_yr").selectedIndex;
		
		if (fyear == 0)
			{
			var growth = forestry[1][0];
			var bef = 5;
			}
		else 
			{ 
			var growth = forestry[1][1]; 
			var bef = 6;
			}
		
				
		forest2[1] = forest2[1] * growth *  forestry[1][3] * forestry[1][4] * forestry[1][bef];
		
		}


	var T_FGain = 0;

	T_FGain = forest2[0] + forest2[1];


	var TotalForest = T_FLoss + (T_FGain*-1);
	
	
	// -----------------------------------------------------------------------------------------------------------------------------
	// 7th Section to Calculate the total Land Use Changes
	// 
	
	
	if ( document.getElementById("land_cnty").selectedIndex == 0 || document.getElementById("land_cnty").selectedIndex == 1 )
		{
		var landT = 0;
		var landC = 2;
		}
	else if ( document.getElementById("land_cnty").selectedIndex == 2 || document.getElementById("land_cnty").selectedIndex == 3 )
		{
		var landT = 1;
		var landC = 3;
		}

	var landr = new Array();
	
	if ( document.getElementById("soil").selectedIndex == 0 )
		{
		
		if (formx.elements[46].value == "")
			{ landr[0] = 0; }
		else{ landr[0] = Number(document.getElementById("land1").value) * land[0][landC]; }
	
		if (formx.elements[47].value == "")
			{ landr[1] = 0; }
		else{ landr[1] = Number(document.getElementById("land2").value) * land[1][landC]; }
		
		if (formx.elements[48].value == "")
			{ landr[2] = 0; }
		else{ landr[2] = Number(document.getElementById("land3").value) * land[2][landC]; }
		
		if (formx.elements[49].value == "")
			{ landr[3] = 0; }
		else{ landr[3] = Number(document.getElementById("land4").value) * land[3][landC]; }
		
		if (formx.elements[50].value == "")
			{ landr[4] = 0; }
		else{ landr[4] = Number(document.getElementById("land5").value) * land[4][landC]; }
		
		if (formx.elements[51].value == "")
			{ landr[5] = 0; }
		else{ landr[5] = Number(document.getElementById("land6").value) * land[5][landC]; }
		
		
		}
	else
		{
		
		if (formx.elements[46].value == "")
			{ landr[0] = 0; }
		else{ landr[0] = Number(document.getElementById("land1").value) * land[6][landC]; }
		
		if (formx.elements[47].value == "")
			{ landr[1] = 0; }
		else{ landr[1] = Number(document.getElementById("land2").value) * land[6][landC]; }
		
		if (formx.elements[50].value == "")
			{ landr[2] = 0; }
		else{ landr[2] = Number(document.getElementById("land5").value) * land[7][landC]; }
		
		if (formx.elements[51].value == "")
			{ landr[3] = 0; }
		else{ landr[3] = Number(document.getElementById("land6").value) * land[7][landC]; }
		
		
		}
		

	var TotalLand = 0;

	if ( document.getElementById("soil").selectedIndex == 0 )
		{
		for ( i=0; i<6; i++ )
			{
			TotalLand += landr[i];
			}
		} else {
		for ( i=0; i<4; i++ )
			{
			TotalLand += landr[i];
			}	
			
		}
	
	
	
	// Calculate Total and display
	
	GTotal = TotalWaste + TotalMan + TotalEnt + TotalEng + TotalFert + TotalCrop + (TotalForest*1000) + (TotalLand*1000);
	
	if ( GTotal < 0 )
		{
		document.getElementById("r_total").innerHTML = "<span style='text-decoration:underline;'>" + ((-1*(GTotal/1000)).toFixed(2)) + "Tonnes</span>";
		document.getElementById("r_total").style.background = "#99CC99";
		}
	else
		{
		document.getElementById("r_total").innerHTML = (GTotal/1000).toFixed(2) + " Tonnes";
		document.getElementById("r_total").style.background = "#FFFFFF";
		}
	 
	document.getElementById("r_eng").innerHTML = (TotalEng/1000).toFixed(2) + "Tonnes";	
	document.getElementById("r_ani").innerHTML = ((TotalEnt+TotalMan+TotalWaste)/1000).toFixed(2) + "Tonnes";	
	document.getElementById("r_fer").innerHTML = (TotalFert/1000).toFixed(2) + "Tonnes";
	document.getElementById("r_crop").innerHTML = (TotalCrop/1000).toFixed(2) + "Tonnes";
	
	if ( TotalForest < 0 )
		{
		document.getElementById("r_for").innerHTML = "<span style='text-decoration:underline;'>" + (TotalForest.toFixed(2)*-1) + "Tonnes </span>";
		document.getElementById("r_for").style.background = "#99CC99";
		}
	else
		{
		
		TotalForest = TotalForest.toFixed(2);
		document.getElementById("r_for").innerHTML = TotalForest + "Tonnes";
		document.getElementById("r_for").style.background = "#FFFFFF";
		}
		
	if ( TotalLand < 0 )
		{
		document.getElementById("r_lan").innerHTML = "<span style='text-decoration:underline;'>" + (TotalLand.toFixed(2)*-1) + "Tonnes </span>";
		document.getElementById("r_lan").style.background = "#99CC99";
		}
	else
		{
		document.getElementById("r_lan").innerHTML = TotalLand.toFixed(2) + "Tonnes";
		document.getElementById("r_lan").style.background = "#FFFFFF";
		}
	
	}

function cal_reset()
	{
	
	document.getElementById("r_total").innerHTML = "0.00Tonnes";
	document.getElementById("r_total").style.background = "#FFFFFF";
	document.getElementById("r_eng").innerHTML = "0.00Tonnes";
	document.getElementById("r_ani").innerHTML = "0.00Tonnes";	
	document.getElementById("r_fer").innerHTML = "0.00Tonnes";
	document.getElementById("r_crop").innerHTML = "0.00Tonnes";
	document.getElementById("r_lan").innerHTML = "0.00Tonnes";
	document.getElementById("r_lan").style.background = "#FFFFFF";
	document.getElementById("r_for").innerHTML = "0.00Tonnes";
	document.getElementById("r_for").style.background = "#FFFFFF";
	
	}