home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / RANGE.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  512 b   |  6 lines
  1.       FUNCTION RANGE(W,X,Y,Z)                                           3496
  2. C     ...GET RANGE FROM OBJECT A TO OBJECT B.                           3497
  3.       RANGE=SQRT((W-X)**2+(Y-Z)**2)                                     3498
  4.       RETURN                                                            3499
  5.       END                                                               3500
  6.