sub PrepareDataFiles{

	# Read in First Fortran Program output file, and while we're
	# doing that if there is comments in the file put them in an 
	# array
	
	@values1 = '';
	@values2 = '';

	open (RIVEROUT, "<$data1");# || print "E Reading data: couldn't open file $data1: $!";

		while (<RIVEROUT>){
		
			chop;
			
			if ($_ =~ "#"){

				push @values1, $_;
				#push @data_1, $_;

			}
			
			else {

					#push @data_1, $_;

				}
		}
	close (RIVEROUT);
	
	if ($changed eq 1){
		open (RIVEROUT2, "<$data2");# || print "E Reading data: couldn't open file $data2: $!";
	
			while (<RIVEROUT2>){
		
				chop;
			
				if ($_ =~ "#"){

					push @values2, $_;
					#push @data_2, $_;

				}
			
				else {

						#push @data_2, $_;

					}
			}
		close (RIVEROUT2);
	}	
}
1;