function calbatch

disp ('Working on cal261')
load cal261.dat
[zi ] = georges ([cal261(:,1) cal261(:,5)],'c261af');
[zi ] = georges ([cal261(:,1) cal261(:,6)],'c261ri');
[zi ] = georges ([cal261(:,1) cal261(:,7)],'c261ao');

disp ('Working on 263')
load cal263.dat
[zi ] = georges ([cal263(:,1) cal263(:,5)],'c263af');
[zi ] = georges ([cal263(:,1) cal263(:,6)],'c263ri');
[zi ] = georges ([cal263(:,1) cal263(:,7)],'c263ao');

disp ('Working on 265')
load cal265.dat
[zi ] = georges ([cal265(:,1) cal265(:,5)],'c265af');
[zi ] = georges ([cal265(:,1) cal265(:,6)],'c265ri');
[zi ] = georges ([cal265(:,1) cal265(:,7)],'c265ao');

disp ('Working on 9505')
load cal9505.dat
[zi ] = georges ([cal9505(:,1) cal9505(:,5)],'c9505af');
[zi ] = georges ([cal9505(:,1) cal9505(:,6)],'c9505ri');
[zi ] = georges ([cal9505(:,1) cal9505(:,7)],'c9505ao');

disp ('Working on 9506') 
load cal9506.dat
[zi ] = georges ([cal9506(:,1) cal9506(:,5)],'c9506af');
i = find (cal9506(:,6) <= 1);
[zi ] = georges ([cal9506(i,1) cal9506(i,6)],'c9506ri');
[zi ] = georges ([cal9506(:,1) cal9506(:,7)],'c9506ao');