echo "23>\n";
}
$t1m = sprintf("%02d", $t1 % 60);
$ntime_end = $t1_date . " " . $t1h . ":" . $t1m . ":00";
echo "t0={$t0} {$ntime_start}\nt1={$t1} {$ntime_end}\n\n";
} else {
$ntime_err++;
$ntime_start = "";
$ntime_end = "";
}
//if (($m_start!="")...
$buf[11] = $ntime_start;
$buf[12] = $ntime_end;
#compute Carrington longitude
if ($buf[3] != "") {
$buf[13] = long_carr($y, $mo, $d, $et, $buf[3]);
} else {
$buf[13] = "";
}
for ($k = 1; $k <= 13; $k++) {
if ($buf[$k] == "") {
$buf[$k] = "\\N";
}
$out .= "\t" . $buf[$k];
}
$out .= "\n";
if (is_numeric(substr($buffer, 1, 4)) and strlen($out) > 50 and substr($out, 0, 9) != "\\N\t\\N\t\\N\t") {
//not all three times NULL
fwrite($f1, $out);
}
$buffer = fgets($f2);
$time_end = $date . " " . $buf[6];
$time_end_m = $buf[7];
$lat = $buf[8];
if (substr($lat, 0, 1) == "S") {
$lat = "-" . substr($lat, 1, 2);
} else {
$lat = substr($lat, 1, 2);
}
$lon = $buf[9];
if (substr($lon, 0, 1) == "E") {
$lon = "-" . substr($lon, 1, 2);
} else {
$lon = substr($lon, 1, 2);
}
if ($lon != "" and $et > -1) {
$longcarr = long_carr($y, $mo, $d, $et, $lon);
} else {
$longcarr = "";
}
//optical class
$oc = strtolower(substr($buf[10], 0, 2));
// $out = sprintf("%s\t%s\t%s\t%s\t%s\t%s",$time_start,$time_start_m,$time_peak,$time_peak_m,$time_end,$time_end_m,$lat,$lon,$longcarr,$oc);
$buf2 = array($time_start, $time_start_m, $time_peak, $time_peak_m, $time_end, $time_end_m, $lat, $lon, $longcarr, $oc);
if ($buf2[0] == "" or $buf2[0] == " ") {
$out = "\\N";
} else {
$out = $buf2[0];
}
for ($k = 1; $k <= 9; $k++) {
if ($buf2[$k] == "" or $buf2[$k] == " ") {
$buf2[$k] = "\\N";
$st = trim(substr($buffer, 28, 3));
if (substr($st, 0, 1) == "S") {
$buf[$i++] = "-" . substr($st, 1, 2);
} else {
$buf[$i++] = substr($st, 1, 2);
}
//if (!is_numeric($buf[4])) $buf[4]="";
// convert long
$st = trim(substr($buffer, 31, 3));
if (substr($st, 0, 1) == "E") {
$buf[$i++] = "-" . substr($st, 1, 2);
} else {
$buf[$i++] = substr($st, 1, 2);
}
if ($buf[$i - 1] != "" and $et > -1) {
$longcarr = long_carr($y, $mo, $d, $et, $buf[$i - 1]);
} else {
$longcarr = "";
}
// optical class
$buf[$i++] = strtolower(trim(substr($buffer, 34, 2)));
// xray class
// $buf[$i++] = trim(substr($buffer,59,4));
$st = sprintf("%.1f", trim(substr($buffer, 60, 3)) / 10);
$buf[$i++] = substr($buffer, 59, 1) . $st;
// nar
$nar = trim(substr($buffer, 80, 5));
// % 10000;
if (is_numeric($nar)) {
$buf[$i++] = $nar;
} else {
