home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / adrg / source / pdmstodd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-12-12  |  479 b   |  17 lines
  1.  
  2. procedure pdmstodd(pdms: real; var dd :real);
  3. { convert an angle expressed in packed form degrees, minutes and seconds
  4.   (dddmmss.ss) to decimal degrees (dd.dddd) }
  5. var
  6.   ddd, mstemp, mm, ddsec, ddmin : real;
  7. begin
  8.   ddd := abs(trunc(pdms / 10000.00));
  9.   mstemp := (abs(pdms) - 10000.00 * ddd) / 100.00;
  10.   mm := trunc( mstemp );
  11.   ddsec := (mstemp - mm) / 36.00;
  12.   ddmin := mm / 60.00;
  13.   dd := ddd + ddmin + ddsec;
  14.   if (pdms < 0.00) then
  15.      dd := -dd ;
  16. end;
  17.