pro SarAuto 

print, 'Opening envi' 
envi, /restore_base_save_files 
envi_init, /batch_mode, batch_unit=unit 
envi_check_save, /filter 
restore, 'envi_ext.sav' 

print, '***************************************' 
print, 'Processing File 1 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.L /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2000/Superior/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D/', 'NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.dat /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.lea /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D00099.T235746.P51N096.P46N088.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 2 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.L /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D/', 'NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.dat /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.lea /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233206.P50N090.P44N081.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 3 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.L /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D/', 'NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.dat /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.lea /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01015.T233321.P50N090.P49N082.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 4 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.L /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D/', 'NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D', -1) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.dat /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.lea /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01019.T115355.P51N090.P45N081.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 5 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.L /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D/', 'NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.lea /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 6 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.L /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D/', 'NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.dat /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.lea /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232912.P50N089.P49N081.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 7 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.L /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D/', 'NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.dat /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.lea /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01022.T232756.P50N089.P45N080.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 8 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.L /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D/', 'NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.lea /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 9 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.L /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D/', 'NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.dat /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.lea /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01025.T234027.P50N092.P44N084.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, '***************************************' 
print, 'Processing File 10 out of 10:' 
print, '   /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.dat' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.L /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.lea' 
cmd = 'ProcessHeaderInfo.pl /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.T ' 
SPAWN, cmd 
RC = ProcessImageFile('/local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.dat', '/local/ht-geo/great_lakes/icegroup/pics/2001/Superior/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D/', 'NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D', 94) 
print, 'Zipping /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D...' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.dat /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D' 
SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.lea /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.L' 
SPAWN, 'gzip /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.D' 
print, 'Done Zipping file...' 
if (RC[0] ne 0) then begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.* /local/ice/RADARSAT_Processed/' 
endif else begin 
  SPAWN, 'mv /local/ice/saa_radar/NSS.R1.GT.D01028.T235313.P50N095.P45N087.A.* /local/ice/RADARSAT_Holding/' 
endelse 

print, 'Done processing images...' 
print, 'Calling UpdateWebPage.pl script to update web page with newly processed pictures' 
SPAWN, '/local/ht-geo/great_lakes/icegroup/UpdateWebPage.pl' 
envi_exit 
free_lun, unit 
end