#!/usr/bin/perl
# Jaideep Singh
# October 2003
use strict "subs";

sub checkval 
	{ $in = $_[0];
	  if ($in =~ /\!\!WARNING\!\! The executable \"caRepeater\" couldnt be located because of errno \= \"No such file or directory\" You may need to modify your PATH environment variable\. Creating CA repeater with fork\(\) system call\. Repeater will inherit parents process name and resources\. Duplicate resource consumption may occur\.\s*(.*)$/)
		{$in = $1};
	  if ((!($in))&&(!($in =~ /^0$/)))
		{$out = "\?"}
	  else
		{$out = $in};
#	  print "the cv is $in\n";
	  return $out; 
	};

sub jtime
	{ ($sec, $min, $hr, $day, $mon) =  @_;
#	  (31,28,31,30,31,30,31,31,30,31,30,31);
	  @mon2day = (0,31,59,90,120,151,181,212,243,273,304,334);
	  $totsec = $sec + 60*($min + 60*($hr + 24*($day -1 + $mon2day[$mon-1])));
	  return $totsec;
	};


%mon2num = (
	   "January"   => "01",
	   "February"  => "02",
	   "March"     => "03",
	   "April"     => "04",
	   "May"       => "05",
	   "June"      => "06",
	   "July"      => "07",
	   "August"    => "08",
	   "September" => "09",
	   "October"   => "10",
	   "November"  => "11",
	   "December"  => "12",
	   "Jan" => "01",
	   "Feb" => "02",
	   "Mar" => "03",
	   "Apr" => "04",
	   "May" => "05",
	   "Jun" => "06",
	   "Jul" => "07",
	   "Aug" => "08",
	   "Sep" => "09",
	   "Oct" => "10",
	   "Nov" => "11",
	   "Dec" => "12"
	   );

#my @rend = (0) x 5000;
#open(RUNLIST,"<right.end");
#while(<RUNLIST>)
#        { /(\d+)\t(.*)/;
#          $rend[$1] = $2; };
#close(RUNLIST);

#@recount = (0) x 5000;
#my @rend;
#my @rcom;
#open(RUNLIST,"<right_end_files.list");
#while(<RUNLIST>)
#        { /^(.*_(\d+)\..*)$/;
#          $rend[$2][$recount[$2]] = $1;
#          print "$1\t$recount[$1]\t$2\n" if ($recount[$1]);
#          $recount[$2]++;
#        };
#close(RUNLIST);
#open(COMLIST,"<right_com_files.list");
#while(<COMLIST>)
#        { /^(.*_(\d+)\..*)$/;
#          $rcom[$2] = $1;
#        };
#close(COMLIST);

my $tzero = jtime(0,0,0,20,4);
my $firstrun = 999; 
my $lastrun  = 4218;
#$firstrun = $lastrun = 4165;
my $numdata = 284;

open(RUNOUT,">rightend_mss.raw");
print RUNOUT "<pre>\n";
RUN: for ($runnum=$firstrun;$runnum<=$lastrun;$runnum++) 
     {
        @data = ('\N') x $numdata;
        $data[0] = $runnum;
 	print "$runnum start...\n";
        $data[283] = 0;
        if (open(TESTFILE,"\/home\/jaideep\/gdh\/runfiles_gdh_from_mss\/runfiles_gdh\/halog_com_$runnum\.epics"))
                {
                        LINE: while (<TESTFILE>)
			{
			if (/Run_type=(.*),beam_energy=(.*),beam_halfwaveplate=(.*),beam_raster=(.*),comment_text=(.*),daq_mode=(.*),kin_name=(.*),leftarm_p=(.*),leftarm_theta=(.*),rightarm_p=(.*),rightarm_theta=(.*),target_halfwaveplate=(.*),target_name=(.*),target_polarization=(.*),target_type=(.*)/) 
			{ $data[10] = checkval($1); 
			  $data[11] = checkval($2);
			  $data[12] = checkval($3);
			  $data[13] = checkval($4);
			  $data[14] = checkval($5);
			  $data[15] = checkval($6);
			  $data[16] = checkval($7);
			  $data[17] = checkval($8);
			  $data[18] = checkval($9);
			  $data[19] = checkval($10);
			  $data[20] = checkval($11);
			  $data[21] = checkval($12);
			  $data[22] = checkval($13);
			  $data[23] = checkval($14);
			  $data[24] = checkval($15);
			  $getcomm = 1;
			  next LINE };
			if ($getcomm) {/([^\n]*)/; $data[282] = $1; $getcomm = 0; next LINE};
			if (/PRESCALE FACTORS:ps1=(\d+).*ps2=(\d+).*ps3=(\d+).*ps4=(\d+).*ps5=(\d+).*ps6=(\d+).*ps7=(\d+).*ps8=(\d+)/) 
			{ $data[25] = checkval($1);
			 $data[26] = checkval($2);
			 $data[27] = checkval($3);
			 $data[28] = checkval($4);
			 $data[29] = checkval($5);
			 $data[30] = checkval($6);
			 $data[31] = checkval($7);
			 $data[32] = checkval($8);
			  next LINE};
			if (/EVENTS\[0\]\:\s*(\d+).*\[\+\]\:\s*(\d+).*\[\-\]\:\s*(\d+)/) 
			{ $data[33] = checkval($1);
			  $data[34] = checkval($2);
			  $data[35] = checkval($3);
			  next LINE};
			if (/TIME  \[0\]\:\s*(.*) mins.*\[\+\]\:\s*(.*) mins.*\[\-\]\:\s*(.*) mins/) 
			{ $data[36] = checkval($1);
			  $data[37] = checkval($2);
			  $data[38] = checkval($3);
			  next LINE};
			if (/LIVE  \[0\]\:\s*(.*)\%.*\[\+\]\:\s*(.*)\%.*\[\-\]\:\s*(.*)\%/)
			{ $data[39] = checkval($1);
			  $data[40] = checkval($2);
			  $data[41] = checkval($3);
			  next LINE};
#		(/TRIGGER RATES:   PRES/REAL/)
			if (/T1\[0\] \:\s*(.*)\/(.*) Hz\s*T2\[0\] \:\s*(.*)\/(.*) Hz\s*T8\[0\] \:\s*(.*)\/(.*) Hz/) 
			{ $data[42] = checkval($1);
			  $data[43] = checkval($2);
			  $data[44] = checkval($3);
			  $data[45] = checkval($4);
			  $data[46] = checkval($5);
			  $data[47] = checkval($6);
			  next LINE};
			if (/T1\[\+\] \:\s*(.*)\/(.*) Hz\s*T2\[\+\] \:\s*(.*)\/(.*) Hz\s*T8\[\+\] \:\s*(.*)\/(.*) Hz/) 
			{ $data[48] = checkval($1);
			  $data[49] = checkval($2);
			  $data[50] = checkval($3);
			  $data[51] = checkval($4);
			  $data[52] = checkval($5);
			  $data[53] = checkval($6);
			  next LINE};
			if (/T1\[\-\] \:\s*(.*)\/(.*) Hz\s*T2\[\-\] \:\s*(.*)\/(.*) Hz\s*T8\[\-\] \:\s*(.*)\/(.*) Hz/) 
			{ $data[54] = checkval($1);
			  $data[55] = checkval($2);
			  $data[56] = checkval($3);
			  $data[57] = checkval($4);
			  $data[58] = checkval($5);
			  $data[59] = checkval($6);
			  next LINE};
#		(/TRIGGER TOTALS:   PRES/REAL/)
			if (/T1\[0\] \:\s*(.*)\/(.*)\s*T2\[0\] \:\s*(.*)\/(.*)\s*T8\[0\] \:\s*(.*)\/(.*)/) 
			{ $data[60] = checkval($1);
			  $data[61] = checkval($2);
			  $data[62] = checkval($3);
			  $data[63] = checkval($4);
			  $data[64] = checkval($5);
			  $data[65] = checkval($6);
			  next LINE};
			if (/T1\[\+\] \:\s*(.*)\/(.*)\s*T2\[\+\] \:\s*(.*)\/(.*)\s*T8\[\+\] \:\s*(.*)\/(.*)/) 
			{ $data[66] = checkval($1);
			  $data[67] = checkval($2);
			  $data[68] = checkval($3);
			  $data[69] = checkval($4);
			  $data[70] = checkval($5);
			  $data[71] = checkval($6);
			  next LINE};
			if (/T1\[\-\] \:\s*(.*)\/(.*)\s*T2\[\-\] \:\s*(.*)\/(.*)\s*T8\[\-\] \:\s*(.*)\/(.*)/) 
			{ $data[72] = checkval($1);
			  $data[73] = checkval($2);
			  $data[74] = checkval($3);
			  $data[75] = checkval($4);
			  $data[76] = checkval($5);
			  $data[77] = checkval($6);
			  next LINE};
#		(/AVERAGE CURRENT/)
			if (/BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA/) 
			{ $data[78] = checkval($1); 
			  $data[79] = checkval($2); 
		 	  $data[80] = checkval($3); 
			  next LINE};
#		(/APPROXIMATE CURRENT ASYMMETRIES/)
			if (/BCM u1 \:\s*(.*) ppm\s*BCM u3 \:\s*(.*) ppm\s*BCM u10\:\s*(.*) ppm/) 
			{ $data[81] = checkval($1); 
			  $data[82] = checkval($2); 
		 	  $data[83] = checkval($3); 
			  next LINE};
			if (/BCM d1 \:\s*(.*) ppm\s*BCM d3 \:\s*(.*) ppm\s*BCM d10\:\s*(.*) ppm/) 
			{ $data[84] = checkval($1); 
			  $data[85] = checkval($2); 
		 	  $data[86] = checkval($3); 
			  next LINE};
#		(/APPROXIMATE BCM CHARGES (C)/) 
			if (/BCM u1 \[0\]\:\s*(.*)\s*BCM u3 \[0\]\:\s*(.*)\s*BCM u10\[0\]\:\s*(.*)\s*/) 
			{ $data[87] = checkval($1); 
			  $data[88] = checkval($2); 
	 		  $data[89] = checkval($3); 
			  next LINE};
			if (/BCM u1 \[\+\]\:\s*(.*)\s*BCM u3 \[\+\]\:\s*(.*)\s*BCM u10\[\+\]\:\s*(.*)\s*/) 
			{ $data[90] = checkval($1); 
			  $data[91] = checkval($2); 
		 	  $data[92] = checkval($3); 
			  next LINE};
			if (/BCM u1 \[\-\]\:\s*(.*)\s*BCM u3 \[\-\]\:\s*(.*)\s*BCM u10\[\-\]\:\s*(.*)\s*/) 
			{ $data[93] = checkval($1); 
			  $data[94] = checkval($2); 
		 	  $data[95] = checkval($3); 
			  next LINE};
			if (/BCM d1 \[0\]\:\s*(.*)\s*BCM d3 \[0\]\:\s*(.*)\s*BCM d10\[0\]\:\s*(.*)\s*/) 
			{ $data[96] = checkval($1); 
			  $data[97] = checkval($2); 
		 	  $data[98] = checkval($3); 
			  next LINE};
			if (/BCM d1 \[\+\]\:\s*(.*)\s*BCM d3 \[\+\]\:\s*(.*)\s*BCM d10\[\+\]\:\s*(.*)\s*/) 
			{ $data[99] = checkval($1); 
			  $data[100] = checkval($2); 
		 	  $data[101] = checkval($3); 
			  next LINE};
			if (/BCM d1 \[\-\]\:\s*(.*)\s*BCM d3 \[\-\]\:\s*(.*)\s*BCM d10\[\-\]\:\s*(.*)\s*/) 
			{ $data[102] = checkval($1); 
			  $data[103] = checkval($2); 
		 	  $data[104] = checkval($3); 
			  next LINE};
			} #end line by line com file
		close(TESTFILE);
		}; #end if com file open
		if (open(TESTFILE2,"\/home\/jaideep\/gdh\/runfiles_gdh_from_mss\/runfiles_gdh\/End_of_Run_$runnum\.epics"))
                {
                        LINE2: while (<TESTFILE2>)
                        {
#	if (/User name ([^<]*)</) 
#		{ $data[9] = checkval($1); 
#		  next LINE };
#
#	if (/Log entry time (\d+)\:(\d+)\:(\d+) on (\w+)\s*(\d+), (\d+)</) 
#		{ $data[1] = checkval($1); 
#		  $data[2] = checkval($2); 
#		  $data[3] = checkval($3); 
#		  $data[4] = checkval($mon2num{$4}); 
#		  $data[5] = checkval($5); 
#		  $data[6] = checkval($6); 
#		  next LINE };
#
#	if (/Entry number (\d+)</) 
#		{ $data[7] = checkval($1); 
#		  next LINE };
#
#	if (/keyword=([^_]*)_\D+_(\d+)/) 
#		{ $data[8] = checkval($1);
#		  $data[105] = checkval($2);
#		  next LINE };
#
#	if (/Run_type=(.*),beam_energy=(.*),beam_halfwaveplate=(.*),beam_raster=(.*),comment_text=(.*),daq_mode=(.*),kin_name=(.*),leftarm_p=(.*),leftarm_theta=(.*),rightarm_p=(.*),rightarm_theta=(.*),target_halfwaveplate=(.*),target_name=(.*),target_polarization=(.*),target_type=(.*)/) 
#		{ $data[10] = checkval($1); 
#		  $data[11] = checkval($2);
#		  $data[12] = checkval($3);
#		  $data[13] = checkval($4);
#		  $data[14] = checkval($5);
#		  $data[15] = checkval($6);
#		  $data[16] = checkval($7);
#		  $data[17] = checkval($8);
#		  $data[18] = checkval($9);
#		  $data[19] = checkval($10);
#		  $data[20] = checkval($11);
#		  $data[21] = checkval($12);
#		  $data[22] = checkval($13);
#		  $data[23] = checkval($14);
#		  $data[24] = checkval($15);
#		  $getcomm = 1;
#		  next LINE };
#	if ($getcomm) {/([^\n]*)/; $data[282] = $1; $getcomm = 0; next LINE};
#	if (/PRESCALE FACTORS:ps1=(\d+).*ps2=(\d+).*ps3=(\d+).*ps4=(\d+).*ps5=(\d+).*ps6=(\d+).*ps7=(\d+).*ps8=(\d+)/) 
#		{ $data[25] = checkval($1);
#		 $data[26] = checkval($2);
#		 $data[27] = checkval($3);
#		 $data[28] = checkval($4);
#		 $data[29] = checkval($5);
#		 $data[30] = checkval($6);
#		 $data[31] = checkval($7);
#		 $data[32] = checkval($8);
#		  next LINE};
#	if (/EVENTS\[0\]\:\s*(\d+).*\[\+\]\:\s*(\d+).*\[\-\]\:\s*(\d+)/) 
#		{ $data[33] = checkval($1);
#		  $data[34] = checkval($2);
#		  $data[35] = checkval($3);
#		  next LINE};
#	if (/TIME  \[0\]\:\s*(.*) mins.*\[\+\]\:\s*(.*) mins.*\[\-\]\:\s*(.*) mins/) 
#		{ $data[36] = checkval($1);
#		  $data[37] = checkval($2);
#		  $data[38] = checkval($3);
#		  next LINE};
#	if (/LIVE  \[0\]\:\s*(.*)\%.*\[\+\]\:\s*(.*)\%.*\[\-\]\:\s*(.*)\%/)
#		{ $data[39] = checkval($1);
#		  $data[40] = checkval($2);
#		  $data[41] = checkval($3);
#		  next LINE};
##	(/TRIGGER RATES:   PRES/REAL/)
#	if (/T1\[0\] \:\s*(.*)\/(.*) Hz\s*T2\[0\] \:\s*(.*)\/(.*) Hz\s*T8\[0\] \:\s*(.*)\/(.*) Hz/) 
#		{ $data[42] = checkval($1);
#		  $data[43] = checkval($2);
#		  $data[44] = checkval($3);
#		  $data[45] = checkval($4);
#		  $data[46] = checkval($5);
#		  $data[47] = checkval($6);
#		  next LINE};
#	if (/T1\[\+\] \:\s*(.*)\/(.*) Hz\s*T2\[\+\] \:\s*(.*)\/(.*) Hz\s*T8\[\+\] \:\s*(.*)\/(.*) Hz/) 
#		{ $data[48] = checkval($1);
#		  $data[49] = checkval($2);
#		  $data[50] = checkval($3);
#		  $data[51] = checkval($4);
#		  $data[52] = checkval($5);
#		  $data[53] = checkval($6);
#		  next LINE};
#	if (/T1\[\-\] \:\s*(.*)\/(.*) Hz\s*T2\[\-\] \:\s*(.*)\/(.*) Hz\s*T8\[\-\] \:\s*(.*)\/(.*) Hz/) 
#		{ $data[54] = checkval($1);
#		  $data[55] = checkval($2);
#		  $data[56] = checkval($3);
#		  $data[57] = checkval($4);
#		  $data[58] = checkval($5);
#		  $data[59] = checkval($6);
#		  next LINE};
#	(/TRIGGER TOTALS:   PRES/REAL/)
#	if (/T1\[0\] \:\s*(.*)\/(.*)\s*T2\[0\] \:\s*(.*)\/(.*)\s*T8\[0\] \:\s*(.*)\/(.*)/) 
#		{ $data[60] = checkval($1);
#		  $data[61] = checkval($2);
#		  $data[62] = checkval($3);
#		  $data[63] = checkval($4);
#		  $data[64] = checkval($5);
#		  $data[65] = checkval($6);
#		  next LINE};
#	if (/T1\[\+\] \:\s*(.*)\/(.*)\s*T2\[\+\] \:\s*(.*)\/(.*)\s*T8\[\+\] \:\s*(.*)\/(.*)/) 
#		{ $data[66] = checkval($1);
#		  $data[67] = checkval($2);
#		  $data[68] = checkval($3);
#		  $data[69] = checkval($4);
#		  $data[70] = checkval($5);
#		  $data[71] = checkval($6);
#		  next LINE};
#	if (/T1\[\-\] \:\s*(.*)\/(.*)\s*T2\[\-\] \:\s*(.*)\/(.*)\s*T8\[\-\] \:\s*(.*)\/(.*)/) 
#		{ $data[72] = checkval($1);
#		  $data[73] = checkval($2);
#		  $data[74] = checkval($3);
#		  $data[75] = checkval($4);
#		  $data[76] = checkval($5);
#		  $data[77] = checkval($6);
#		  next LINE};
##	(/AVERAGE CURRENT/)
#	if (/BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA/) 
#		{ $data[78] = checkval($1); 
#		  $data[79] = checkval($2); 
#	 	  $data[80] = checkval($3); 
#		  next LINE};
##	(/APPROXIMATE CURRENT ASYMMETRIES/)
#	if (/BCM u1 \:\s*(.*) ppm\s*BCM u3 \:\s*(.*) ppm\s*BCM u10\:\s*(.*) ppm/) 
#		{ $data[81] = checkval($1); 
#		  $data[82] = checkval($2); 
#	 	  $data[83] = checkval($3); 
#		  next LINE};
#	if (/BCM d1 \:\s*(.*) ppm\s*BCM d3 \:\s*(.*) ppm\s*BCM d10\:\s*(.*) ppm/) 
#		{ $data[84] = checkval($1); 
#		  $data[85] = checkval($2); 
#	 	  $data[86] = checkval($3); 
#		  next LINE};
##	(/APPROXIMATE BCM CHARGES (C)/) 
#	if (/BCM u1 \[0\]\:\s*(.*)\s*BCM u3 \[0\]\:\s*(.*)\s*BCM u10\[0\]\:\s*(.*)\s*/) 
#		{ $data[87] = checkval($1); 
#		  $data[88] = checkval($2); 
#	 	  $data[89] = checkval($3); 
#		  next LINE};
#	if (/BCM u1 \[\+\]\:\s*(.*)\s*BCM u3 \[\+\]\:\s*(.*)\s*BCM u10\[\+\]\:\s*(.*)\s*/) 
#		{ $data[90] = checkval($1); 
#		  $data[91] = checkval($2); 
#	 	  $data[92] = checkval($3); 
#		  next LINE};
#	if (/BCM u1 \[\-\]\:\s*(.*)\s*BCM u3 \[\-\]\:\s*(.*)\s*BCM u10\[\-\]\:\s*(.*)\s*/) 
#		{ $data[93] = checkval($1); 
#		  $data[94] = checkval($2); 
#	 	  $data[95] = checkval($3); 
#		  next LINE};
#	if (/BCM d1 \[0\]\:\s*(.*)\s*BCM d3 \[0\]\:\s*(.*)\s*BCM d10\[0\]\:\s*(.*)\s*/) 
#		{ $data[96] = checkval($1); 
#		  $data[97] = checkval($2); 
#	 	  $data[98] = checkval($3); 
#		  next LINE};
#	if (/BCM d1 \[\+\]\:\s*(.*)\s*BCM d3 \[\+\]\:\s*(.*)\s*BCM d10\[\+\]\:\s*(.*)\s*/) 
#		{ $data[99] = checkval($1); 
#		  $data[100] = checkval($2); 
#	 	  $data[101] = checkval($3); 
#		  next LINE};
#	if (/BCM d1 \[\-\]\:\s*(.*)\s*BCM d3 \[\-\]\:\s*(.*)\s*BCM d10\[\-\]\:\s*(.*)\s*/) 
#		{ $data[102] = checkval($1); 
#		  $data[103] = checkval($2); 
#	 	  $data[104] = checkval($3); 
#		  next LINE};
			if (/End\-of\-run EPICS data for Run Number (\d+) at \w+ (\w+)\s*(\d+) (\d+):(\d+):(\d+) E[SD]T (\d+)/) 
			{$data[0] = checkval($1); 
			$data[106] = checkval($mon2num{$2}); 
			$data[107] = checkval($3); 
			$data[108] = checkval($4); 
			$data[109] = checkval($5); 
			$data[110] = checkval($6); 
			$data[111] = checkval($7); 
			next LINE2};
			if (/Left Arm D1 momentum \:\s*(.*)/) {$ld1++; if ($ld1==1) {$k=112} else {$k=277}; $data[$k] = checkval($1);  next LINE2};
			if (/Left Arm arm angle \:\s*(.*)/) {$data[113] = checkval($1);  next LINE2};
			if (/Right Arm D1 momentum \:\s*(.*)/) {$rd1++; if ($rd1==1) {$k=114} else {$k=278}; $data[$k] = checkval($1);  next LINE2};
			if (/Right Arm arm angle \:\s*(.*)/) {$data[115] = checkval($1);  next LINE2};
			if (/HALLA\:p \:\s*(.*)/) {$data[116] = checkval($1);  next LINE2};
			if (/HALLA\:dpp \:\s*(.*)/) {$data[117] = checkval($1);  next LINE2};
			if (/Tiefenbach Hall A energy \:\s*(.*)/) {$tiefa++; if ($tiefa==1) {$k=118} else {$k=279}; $data[$k] = checkval($1);  next LINE2};
			if (/Left Arm arm mispointing \(HPT\) \:\s*(.*)/) {$data[119] = checkval($1);  next LINE2};
			if (/Right Arm arm mispointing \(HPT\) \:\s*(.*)/) {$data[120] = checkval($1);  next LINE2};
			if (/Left Arm Top VDC Current \:\s*(.*)/) {$data[121] = checkval($1);  next LINE2};
			if (/Left Arm Bottom VDC Current \:\s*(.*)/) {$data[122] = checkval($1);  next LINE2};
			if (/Right Arm Top VDC Current \:\s*(.*)/) {$data[123] = checkval($1);  next LINE2};
			if (/Right Arm Bottom VDC Current \:\s*(.*)/) {$data[124] = checkval($1);  next LINE2};
			if (/Right septum set current \:\s*(.*)/) {$data[125] = checkval($1);  next LINE2};
			if (/Right septum current readback \:\s*(.*)/) {$data[126] = checkval($1);  next LINE2};
			if (/Left Arm Q1 power supply current \:\s*(.*)/) {$data[127] = checkval($1);  next LINE2};
			if (/Left Arm Q1 momentum \:\s*(.*)/) {$data[128] = checkval($1);  next LINE2};
			if (/Left Arm Q1 gauss meter \:\s*(.*)/) {$data[129] = checkval($1);  next LINE2};
			if (/Left Arm Q1 power supply polarity \:\s*(.*)/) {$data[130] = checkval($1);  next LINE2};
			if (/Left Arm Q2 power supply current \:\s*(.*)/) {$data[131] = checkval($1);  next LINE2};
			if (/Left Arm Q2 momentum \:\s*(.*)/) {$data[132] = checkval($1);  next LINE2};
			if (/Left Arm Q2 gauss meter \:\s*(.*)/) {$data[133] = checkval($1);  next LINE2};
			if (/Left Arm Q2 power supply polarity \:\s*(.*)/) {$data[134] = checkval($1);  next LINE2};
			if (/Left Arm D1 power supply current \:\s*(.*)/) {$data[135] = checkval($1);  next LINE2};
			if (/Left Arm D1 NMR \:\s*(.*)/) {$data[136] = checkval($1);  next LINE2};
			if (/Left Arm Q3 power supply current \:\s*(.*)/) {$data[137] = checkval($1);  next LINE2};
			if (/Left Arm Q3 momentum \:\s*(.*)/) {$data[138] = checkval($1);  next LINE2};
			if (/Left Arm Q3 gauss meter \:\s*(.*)/) {$data[139] = checkval($1);  next LINE2};
			if (/Left Arm Q3 power supply polarity \:\s*(.*)/) {$data[140] = checkval($1);  next LINE2};
			if (/Right Arm Q1 power supply current \:\s*(.*)/) {$data[141] = checkval($1);  next LINE2};
			if (/Right Arm Q1 momentum \:\s*(.*)/) {$data[142] = checkval($1);  next LINE2};
			if (/Right Arm Q1 gauss meter \:\s*(.*)/) {$data[143] = checkval($1);  next LINE2};
			if (/Right Arm Q1 power supply polarity \:\s*(.*)/) {$data[144] = checkval($1);  next LINE2};
			if (/Right Arm Q2 power supply current \:\s*(.*)/) {$data[145] = checkval($1);  next LINE2};
			if (/Right Arm Q2 momentum \:\s*(.*)/) {$data[146] = checkval($1);  next LINE2};
			if (/Right Arm Q2 gauss meter \:\s*(.*)/) {$data[147] = checkval($1);  next LINE2};
			if (/Right Arm Q2 power supply polarity \:\s*(.*)/) {$data[148] = checkval($1);  next LINE2};
			if (/Right Arm D1 power supply current \:\s*(.*)/) {$data[149] = checkval($1);  next LINE2};
			if (/Right Arm D1 NMR \:\s*(.*)/) {$data[150] = checkval($1);  next LINE2};
			if (/Right Arm Q3 power supply current \:\s*(.*)/) {$data[151] = checkval($1);  next LINE2};
			if (/Right Arm Q3 momentum \:\s*(.*)/) {$data[152] = checkval($1);  next LINE2};
			if (/Right Arm Q3 gauss meter \:\s*(.*)/) {$data[153] = checkval($1);  next LINE2};
			if (/Right Arm Q3 power supply polarity \:\s*(.*)/) {$data[154] = checkval($1);  next LINE2};
			if (/Average current of the two cavities \:\s*(.*)/) {$data[155] = checkval($1);  next LINE2};
			if (/Current on Unser monitor \:\s*(.*)/) {$data[156] = checkval($1);  next LINE2};
			if (/Current on Upstream bcm \:\s*(.*)/) {$data[157] = checkval($1);  next LINE2};
			if (/Current on Downstream bcm \:\s*(.*)/) {$data[158] = checkval($1);  next LINE2};
			if (/Upstream Cavity Coefficient \:\s*(.*)/) {$data[159] = checkval($1);  next LINE2};
			if (/Downstream Cavity Coefficient \:\s*(.*)/) {$data[160] = checkval($1);  next LINE2};
			if (/Current on IBC0L02 \(source\) \:\s*(.*)/) {$data[161] = checkval($1);  next LINE2};
			if (/Hall C Current \:\s*(.*)/) {$data[162] = checkval($1);  next LINE2};
			if (/MBSY1c Hall A Beam energy \:\s*(.*)/) {$data[163] = checkval($1);  next LINE2};
			if (/MBSY1c magnet current \(amp\) \:\s*(.*)/) {$data[164] = checkval($1);  next LINE2};
			if (/MBSY1c Bdl \:\s*(.*)/) {$data[165] = checkval($1);  next LINE2};
			if (/MBSY3c Hall C Beam energy \:\s*(.*)/) {$data[166] = checkval($1);  next LINE2};
			if (/Tiefenbach Hall C energy \:\s*(.*)/) {$data[167] = checkval($1);  next LINE2};
			if (/Delta\(E\)\/E width \(MV\_AI\_DXWID\) \:\s*(.*)/) {$data[168] = checkval($1);  next LINE2};
			if (/IPM1C12\.XPOS \:\s*(.*)/) {$data[169] = checkval($1);  next LINE2};
			if (/IPM1H04A\.XPOS \:\s*(.*)/) {$data[170] = checkval($1);  next LINE2};
			if (/IPM1H04A\.YPOS \:\s*(.*)/) {$data[171] = checkval($1);  next LINE2};
			if (/IPM1H04B\.XPOS \:\s*(.*)/) {$data[172] = checkval($1);  next LINE2};
			if (/IPM1H04B\.YPOS \:\s*(.*)/) {$data[173] = checkval($1);  next LINE2};
			if (/Left Arm Collimator \:\s*(.*)/) {$data[174] = checkval($1);  next LINE2};
			if (/Left LVDT HPM \:\s*(.*)/) {$data[175] = checkval($1);  next LINE2};
			if (/Left LVDT VPM \:\s*(.*)/) {$data[176] = checkval($1);  next LINE2};
			if (/HacL\_HPE1313A\:0\_Ch58 \:\s*(.*)/) {$data[177] = checkval($1);  next LINE2};
			if (/HacL\_HPE1313A\:0\_Ch55 \:\s*(.*)/) {$data[178] = checkval($1);  next LINE2};
			if (/HacL\_HPE1313A\:0\_Ch54 \:\s*(.*)/) {$data[179] = checkval($1);  next LINE2};
			if (/HacL_alignROLL \:\s*(.*)/) {$data[180] = checkval($1);  next LINE2};
			if (/HacL_alignPITCH \:\s*(.*)/) {$data[181] = checkval($1);  next LINE2};
			if (/HacL_alignHPT \:\s*(.*)/) {$data[182] = checkval($1);  next LINE2};
			if (/Right Arm Collimator \:\s*(.*)/) {$data[183] = checkval($1);  next LINE2};
			if (/Right LVDT HPM \:\s*(.*)/) {$data[184] = checkval($1);  next LINE2};
			if (/Right LVDT VPM \:\s*(.*)/) {$data[185] = checkval($1);  next LINE2};
			if (/HacR\_HPE1313A\:0\_Ch58 \:\s*(.*)/) {$data[186] = checkval($1);  next LINE2};
			if (/HacR\_HPE1313A\:0\_Ch55 \:\s*(.*)/) {$data[187] = checkval($1);  next LINE2};
			if (/HacR\_HPE1313A\:0\_Ch54 \:\s*(.*)/) {$data[188] = checkval($1);  next LINE2};
			if (/HacR_alignROLL \:\s*(.*)/) {$data[189] = checkval($1);  next LINE2};
			if (/HacR_alignPITCH \:\s*(.*)/) {$data[190] = checkval($1);  next LINE2};
			if (/HacR_alignHPT \:\s*(.*)/) {$data[191] = checkval($1);  next LINE2};
			if (/Wien angle \:\s*(.*)/) {$data[192] = checkval($1);  next LINE2};
			if (/Helicity Mode ON\/OFF Random\/Toggle \:\s*(.*)/) {$data[193] = checkval($1);  next LINE2};
			if (/Wien BDL \:\s*(.*)/) {$data[194] = checkval($1);  next LINE2};
			if (/Wien field \:\s*(.*)/) {$data[195] = checkval($1);  next LINE2};
			if (/Laser attenuation Hall A \:\s*(.*)/) {$data[196] = checkval($1);  next LINE2};
			if (/Laser power Hall A \:\s*(.*)/) {$data[197] = checkval($1);  next LINE2};
			if (/^Half\-wave plate \(off\=out\) \:\s*(.*)/) {$data[198] = checkval($1);  next LINE2};
			if (/rotating waveplate \:\s*(.*)/) {$data[199] = checkval($1);  next LINE2};
			if (/^Beam Half\-wave plate \(off\=out\) \:\s*(.*)/) {$data[200] = checkval($1);  next LINE2};
			if (/G0 Helicity Settle Set \:\s*(.*)/) {$data[201] = checkval($1);  next LINE2};
			if (/G0 Helicity Delay Set \:\s*(.*)/) {$data[202] = checkval($1);  next LINE2};
			if (/G0 Helicity Pattern Set \:\s*(.*)/) {$data[203] = checkval($1);  next LINE2};
			if (/G0 Helicity Settle Read \:\s*(.*)/) {$data[204] = checkval($1);  next LINE2};
			if (/G0 Helicity Delay Read \:\s*(.*)/) {$data[205] = checkval($1);  next LINE2};
			if (/G0 Helicity Pattern \:\s*(.*)/) {$data[206] = checkval($1);  next LINE2};
			if (/Target OTR x\-position \:\s*(.*)/) {$data[207] = checkval($1);  next LINE2};
			if (/Target OTR y\-position \:\s*(.*)/) {$data[208] = checkval($1);  next LINE2};
			if (/Target OTR x\-width \:\s*(.*)/) {$data[209] = checkval($1);  next LINE2};
			if (/Target OTR y\-width \:\s*(.*)/) {$data[210] = checkval($1);  next LINE2};
			if (/Target OTR data valid flag \:\s*(.*)/) {$data[211] = checkval($1);  next LINE2};
			if (/Target OTR In\/Out \:\s*(.*)/) {$data[212] = checkval($1);  next LINE2};
			if (/Arc OTR x\-position \:\s*(.*)/) {$data[213] = checkval($1);  next LINE2};
			if (/Arc OTR y\-position \:\s*(.*)/) {$data[214] = checkval($1);  next LINE2};
			if (/Arc OTR x\-width \:\s*(.*)/) {$data[215] = checkval($1);  next LINE2};
			if (/Arc OTR y\-width \:\s*(.*)/) {$data[216] = checkval($1);  next LINE2};
			if (/Arc OTR data valid flag \:\s*(.*)/) {$data[217] = checkval($1);  next LINE2};
			if (/Arc OTR In\/Out \:\s*(.*)/) {$data[218] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#1 \:\s*(.*)/) {$data[219] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#2 \:\s*(.*)/) {$data[220] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#3 \:\s*(.*)/) {$data[221] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#4 \:\s*(.*)/) {$data[222] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#5 \:\s*(.*)/) {$data[223] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#6 \:\s*(.*)/) {$data[224] = checkval($1);  next LINE2};
			if (/Polarized 3He Target RTD \#7 \:\s*(.*)/) {$data[225] = checkval($1);  next LINE2};
			if (/Polarized 3He Ref\. Cell RTD \#8 \:\s*(.*)/) {$data[226] = checkval($1);  next LINE2};
			if (/Polarized 3He Ref\. Cell RTD \#9 \:\s*(.*)/) {$data[227] = checkval($1);  next LINE2};
			if (/Polarized 3He Ref\. Cell RTD \#10 \:\s*(.*)/) {$data[228] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Ref\. Cell Gas Pres\. \:\s*(.*)/) {$data[229] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Ref\. Cell Sys\.Vac\. \:\s*(.*)/) {$data[230] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Cooling Jet \:\s*(.*)/) {$data[231] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN RTD \:\s*(.*)/) {$data[232] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN SP1 SET \:\s*(.*)/) {$data[233] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN SP1 \:\s*(.*)/) {$data[234] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN AL1 SET \:\s*(.*)/) {$data[235] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN AL1 \:\s*(.*)/) {$data[236] = checkval($1);  next LINE2};
			if (/Polarized 3He Target OVEN AL1 STATUS \:\s*(.*)/) {$data[237] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Half\-Wave Plate DIST\:\s*(.*)/) {$data[238] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Half\-Wave Plate STAT\:\s*(.*)/) {$data[239] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(PA\) \:\s*(.*)/) {$data[240] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(POS\) \:\s*(.*)/) {$data[241] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(DA\) \:\s*(.*)/) {$data[242] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(SS9\) \:\s*(.*)/) {$data[243] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(SA10\) \:\s*(.*)/) {$data[244] = checkval($1);  next LINE2};
			if (/Polarized 3He Target Position \(SA9\) \:\s*(.*)/) {$data[245] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#1 State \:\s*(.*)/) {$data[246] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#1 Current \:\s*(.*)/) {$data[247] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#1 Temperature \:\s*(.*)/) {$data[248] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#2 State \:\s*(.*)/) {$data[249] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#2 Current \:\s*(.*)/) {$data[250] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#2 Temperature \:\s*(.*)/) {$data[251] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#3 State \:\s*(.*)/) {$data[252] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#3 Current \:\s*(.*)/) {$data[253] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#3 Temperature \:\s*(.*)/) {$data[254] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#4 State \:\s*(.*)/) {$data[255] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#4 Current \:\s*(.*)/) {$data[256] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#4 Temperature \:\s*(.*)/) {$data[257] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#5 State \:\s*(.*)/) {$data[258] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#5 Current \:\s*(.*)/) {$data[259] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#5 Temperature \:\s*(.*)/) {$data[260] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#6 State \:\s*(.*)/) {$data[261] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#6 Current \:\s*(.*)/) {$data[262] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#6 Temperature \:\s*(.*)/) {$data[263] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#7 State \:\s*(.*)/) {$data[264] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#7 Current \:\s*(.*)/) {$data[265] = checkval($1);  next LINE2};
			if (/Polarized 3He Laser\#7 Temperature \:\s*(.*)/) {$data[266] = checkval($1);  next LINE2};
			if (/Polarized 3He Coil Current Longitudinal \:\s*(.*)/) {$data[267] = checkval($1);  next LINE2};
			if (/Polarized 3He Coil Current Transverse \:\s*(.*)/) {$data[268] = checkval($1);  next LINE2};
			if (/Transverse gradient coils \(A\) setup current \:\s*(.*)/) {$data[269] = checkval($1);  next LINE2};
			if (/Transverse gradient coils \(A\) readback current \:\s*(.*)/) {$data[270] = checkval($1);  next LINE2};
			if (/Longitudinal upstream gradient coil \(B\) setup current \:\s*(.*)/) {$data[271] = checkval($1);  next LINE2};
			if (/Longitudinal upstream gradient coil \(B\) readback current \:\s*(.*)/) {$data[272] = checkval($1);  next LINE2};
			if (/Longitudinal downstream gradient coil \(C\) setup current \:\s*(.*)/) {$data[273] = checkval($1);  next LINE2};
			if (/Longitudinal downstream gradient coil \(C\) readback current \:\s*(.*)/) {$data[274] = checkval($1);  next LINE2};
			if (/Small vertical gradient coils \(D\) setup current \:\s*(.*)/) {$data[275] = checkval($1);  next LINE2};
			if (/Small vertical gradient coils \(D\) readback current \:\s*(.*)/) {$data[276] = checkval($1);  next LINE2};
			}; #end line by line while loop
#  		$temp = $data[7]; 
#  		$data[7] = "<a href=\"$rend[$runnum][$subrun]\">$temp<\/a>"; 
#  		$data[280] = jtime($data[3],$data[2],$data[1],$data[5],$data[4])-$tzero;
  		$data[281] = jtime($data[110],$data[109],$data[108],$data[107],$data[106])-$tzero;
  		$data[283] = 1;
	  	close(TESTFILE2);
		}; # end if file open
	for ($j=0;$j<($numdata-1);$j++) {print RUNOUT "$data[$j]\t"};
  	print RUNOUT "$data[283]\n";
  	print "$data[0]\t$data[283] is done!\n";
}; #end run by run loop
close(RUNOUT);