#!/usr/bin/perl

# ivp_dat.pl

@files = ('1000_02','1000_05','1000_08','1000_11','1000_14','1000_17','1000_20','1000_23','1000_26','1000_29','1000_32','1000_35','1000_38','1000_41','1000_44','1000_47','1000_50','1000_53','1000_56','1000_59','1000_62','1000_65','1000_68','1000_71','1000_74','1000_77','1000_80','1000_83','1000_86','1000_89','1000_92','1000_95','1000_98','1200_02','1200_05','1200_08','1200_11','1200_14','1200_17','1200_20','1200_23','1200_26','1200_29','1200_32','1200_35','1200_38','1200_41','1200_44','1200_47','1200_50','1200_53','1200_56','1200_59','1200_62','1200_65','1200_68','1200_71','1200_74','1200_77','1200_80','1200_83','1200_86','1200_89','1200_92','1200_95','1200_98','1500_02','1500_05','1500_08','1500_11','1500_14','1500_17','1500_20','1500_23','1500_26','1500_29','1500_32','1500_35','1500_38','1500_41','1500_44','1500_47','1500_50','1500_53','1500_56','500_02','500_05','500_08','500_11','500_14','500_17','500_20','500_23','500_26','500_29','500_32','500_35','500_38','500_41','500_44','500_47','500_50','500_53','500_56','500_59','500_62','500_65','500_68','500_71','500_74','500_77','500_80','500_83','500_86','500_89','500_92','500_95','500_98','700_02','700_05','700_08','700_11','700_14','700_17','700_20','700_23','700_26','700_29','700_32','700_35','700_38','700_41','700_44','700_47','700_50','700_53','700_56','700_59','700_62','700_65','700_68','700_71','700_74','700_77','700_80','700_83','700_86','700_89','700_92','700_95','700_98');

foreach $f(@files) {

	$filename1 = "../ivdat/".$f . ".dat";
	$filename2 = "../dat/".$f . ".dat";
	$outfile = $f . "_ivp.dat";

	print $filename1, "\n";

	$OUT = "#I\tU\tP\n";
	
	open (WAVE1, "<", "$filename1");
	open (WAVE2, "<", "$filename2");

	while (($l1=<WAVE1>) && ($l2=<WAVE2>)) {
		$l1 =~ s/\n//;
		$l2 =~ s/\n//;
		
		if ($l1 =~ s/#/#/) { } else {
			($i,$u)=split ("\t", $l1);
			($i,$p)=split ("\t", $l2);
			$OUT .= "$i\t$u\t$p\n";
		}
	}

	close WAVE2;
	close WAVE1;
	
	print $OUT;

	open (WAVE3, ">", "$outfile");
	print WAVE3 $OUT;
	close WAVE3;
	
	$OUT='';
}