home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / RATIO.FOR < prev    next >
Text File  |  1991-08-16  |  351b  |  14 lines
  1.       FUNCTION RATIO(NUM,DENOM,MULT)
  2. C SIMPLE ROUTINE FOR EVALUATING THE SCALED RATIO OF TWO NUMBERS 
  3. C MAKING SURE THAT THE DENOMINATOR IS NOT ZERO. 
  4. CMDK ZERO
  5.       REAL NUM,DENOM,MULT 
  6.       IF(DENOM.LE.ZERO)THEN 
  7.          RATIO=ZERO 
  8.          DENOM=ZERO 
  9.       ELSE
  10.          RATIO=NUM/DENOM*MULT 
  11.       ENDIF 
  12.       RETURN
  13.       END 
  14.