      FUNCTION RATIO(NUM,DENOM,MULT)
C SIMPLE ROUTINE FOR EVALUATING THE SCALED RATIO OF TWO NUMBERS 
C MAKING SURE THAT THE DENOMINATOR IS NOT ZERO. 
CMDK ZERO
      REAL NUM,DENOM,MULT 
      IF(DENOM.LE.ZERO)THEN 
         RATIO=ZERO 
         DENOM=ZERO 
      ELSE
         RATIO=NUM/DENOM*MULT 
      ENDIF 
      RETURN
      END 
