function setuputm();
%    set up the variable needed to convert to and from lat, lon
%    to the GLOBEC grid based on universal transverse mercator.
%    2/2001  j. klinck
%
global SECS COSROT SINROT ONCE
global UTMXOFF UTMYOFF XOFF YOFF ROTANGLE IZONE ISPHERE
global AXIS BXIS AK0 RADSEC
%     set up the grid transformation variables.
  SECS=3600;
  IZONE=-20;
  ISPHERE=9;
  XOFF=0;
  YOFF=-50;
  ROTANGLE=60*pi/180;
  UTMXOFF=174032.74239707d0;
  UTMYOFF=2098336.1384868d0;
  COSROT=cos(ROTANGLE);
  SINROT=sin(ROTANGLE);
  AXIS=[6378206.4d0 6378249.145d0 6377397.155d0  6378157.5d0 6378388.d0 6378135.d0 ...
        6377276.3452d0  6378145.d0 6378137.d0 6377563.396d0 6377304.063d0 ...
        6377341.89d0 6376896.0d0 6378155.0d0 6378160.d0 ...
        6378245.d0 6378270.d0 6378166.d0 6378150.d0];
  BXIS=[6356583.8d0 6356514.86955d0 6356078.96284d0 6356772.2d0 6356911.94613d0 ...
        6356750.519915d0 6356075.4133d0 6356759.769356d0 6356752.31414d0 ...
        6356256.91d0 6356103.039d0 6356036.143d0 6355834.8467d0 6356773.3205d0 ...
        6356774.719d0 6356863.0188d0 6356794.343479d0 6356784.283666d0 6356768.337303d0];
  AK0=0.9996d0;
  RADSEC=206264.8062470964d0;
%  disp('Set up transformation variables');
%  whos
%      end of SETUPUTM
