#!/usr/local/bin/perl -w

#$ENV{'IDL_DIR'} = "/usr/local/rsi/idl_6.0";
$path = $ENV{'PATH'};
$ENV{'PATH'} = "/home/jeneen/STAGING/bin/_linux4:$path";
$SYNOPDIR = "/synoptic/mdi"; 
$EOFSYNOPDIR = "/synoptic/eof";

$start = $ARGV[0];
if ( $#ARGV == 0 ) {
  $end = $start;
}else{
  $end = $ARGV[1];
}

$day = $start;

while ( $day <= $end ) {
        print "$day\n";
#        $last = 4806;
        $last = $day - 1;
	system("mkdir $SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day");
        system("rm -rf $SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/*");
        system("rm $SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/");
        system("rm -rf $EOFSYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/*");
        system("rmdir $EOFSYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/");
        system("rm $SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day");
	system("mkdir $SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day");
        system("rm $EOFSYNOPDIR/fits/eofsynop.00$day.fits");
        system("rm $EOFSYNOPDIR/plots/synop.00$day.*");
	system("/home/jeneen/STAGING/bin/_linux4/v2helio z=1 MOFFSET=1 VCORLEV=0 MAPRMAX=0.994 MAPLGMAX=89.75 MAPLGMIN=-89.75 MAPBMAX=90 LGSHIFT=2 MAPMMAX=1800 SINBDIVS=540 in=/mag/fd_M_96m_01d.00$day/ out=$SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/");
        system("/home/jeneen/STAGING/bin/_linux4/ingest -pa alloc=170 archive_hold=5 in=$SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/ out=prog:mdi,level:remap,series:fd_Mag_01d\[$day]");
#	system("/home/jeneen/STAGING/bin/_linux4/rebin_vds nx=359 ny=360 in=$SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/ out=$SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/");
       system("/home/jeneen/STAGING/bin/_linux4/rebin_vds nx=359 ny=360 in=$SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/ out=$SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/");

#OLD MASK = 402c01f2
	system("/home/jeneen/STAGING/bin/_linux4/eofsynop day=$day checkqual=1 qualmask=0x402c0172 in=$SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/ new=$SYNOPDIR/fits/mdisynop.00$day.fits old=$SYNOPDIR/fits/mdisynop.00$last.fits");
	$last = $day;
        system("rm -f $SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/*");
        system("rmdir $SYNOPDIR/fd_Mag_remap_01d/fd_Mag_remap_01d.00$day/");
        system("/home/jeneen/STAGING/bin/_linux4/ingest -pa archive_hold=5 in=$SYNOPDIR/fd_Mag_remap_small_01d/fd_Mag_remap_small_01d.00$day/ out=prog:mdi,level:remap,series:fd_Mag_360_01d\[$day]");
        system("compress -f $SYNOPDIR/plots/*ps");
        if ( (-e "$EOFSYNOPDIR/fits/eofsynop.00$day.fits") && (-e "$EOFSYNOPDIR/fits/mdisynop.00$day.fits") ) {
          system("rm $EOFSYNOPDIR/fits/eofsynop.00$day.fits");
        }
        $day = $day + 1;
    }