#!/bin/csh

foreach x (modisa_seawifs_a*)
set f = `echo $x | cut -d_ -f3-5`
echo $x $f
mv $x $f
end

foreach x (modisa_a*)
set f = `echo $x | cut -d_ -f2-5`
echo $x $f
mv $x $f
end

foreach x (seawifs_s*)
set f = `echo $x | cut -d_ -f2-5`
echo $x $f
mv $x $f
end
