Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
 
 
 
 
 
 

17 строки
437 B

  1. module CScaleRange
  2. implicit none
  3. public
  4. contains
  5. real function ScaleRange(x, toMin, toMax, fromMin, fromMax)
  6. implicit none
  7. real, intent(in) :: x
  8. real, intent(in) :: toMin
  9. real, intent(in) :: toMax
  10. real, intent(in) :: fromMin
  11. real, intent(in) :: fromMax
  12. ScaleRange = ((toMax - toMin)*(x - fromMin)/(fromMax - fromMin)) + toMin
  13. end function
  14. end module CScaleRange