%-----------------------------------------------------------
function dz=sbgdzn(t,z)
  global im jm km lm
  
  dz=p2ajbs(jm,im,z);
  
%endfunction
