procedure degreetypetodegreeparts(
    degreevar: degreetype; var degrees, minutes, sECOnds: real
  );