fid=fopen('list.dat');
for i=1:74;
  lin=fgetl(fid);
  fi=fopen(lin);
  fo=fopen([lin(1:9),'.jgf']);
  for k=1:3;
    lin=fgetl(fi)
    fprintf(fo,lin);
  end;
  fprintf(fo,' PRES*   TEMP*   SALT*   FLUR');
  d=fscanf(fi,'%f',inf);
  dd=reshape(d,5,length(d/5);
  