function [ ] = print_gamma( a, m, n, p, T )
%LAPSE RATE TABLE Print table of lapse rate as function of T and P
 
 % To print table, provide:
 % array of lapse rates (K/km) with m rows and n columns
 % pressure values (mb, n columns)
 % temperature values (deg C, m rows)
 % m, n
 
 % ----------------------------------
 % print table (do not change any code below)
 
 % print headers

 space = 15 + n * 10 / 2;
 
 w = sprintf('\n %*s \n',space,'p (mb)');
 x = sprintf('%10s','T (C)');
 y = sprintf('%10i', p(1:n));
 
 disp(w)
 disp([x y])
 disp(' ')
 
 % print each row
 
 for i = 1:m
  x=sprintf('%10i', T(i));
  y=sprintf('%10.1f', a(i,:));
  disp([x y])     
 end

end