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 {