clear
global filename dat corr posi gr T D
P = path;
path (P,'/afs/athena.mit.edu/user/l/i/liju99/Ice/Mfile');
