home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / GETBRG.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  640 b   |  9 lines
  1.       SUBROUTINE GETBRG(ANGLE,X1,X2,Y1,Y2,DX,DY)                        1841
  2. C     ...CALCULATE BEARING FROM OBJECT A TO OBJECT B                    1842
  3.       DX=X2-X1                                                          1843
  4.       DY=Y2-Y1                                                          1844
  5.       ANGLE=ATAN2(DY,DX)*57.2957                                        1845
  6.       IF(ANGLE.LT.0.)ANGLE=ANGLE+360.                                   1846
  7.       RETURN                                                            1847
  8.       END                                                               1848
  9.