SCALE — Scale a real value#

SCALE(X, I)#

SCALE(X,I) returns X * RADIX(X)**I.

Parameters
  • X – The type of the argument shall be a REAL.

  • I – The type of the argument shall be a INTEGER.

Returns

The return value is of the same type and kind as X. Its value is X * RADIX(X)**I.

Standard:

Fortran 90 and later

Class:

Elemental function

Syntax:
RESULT = SCALE(X, I)
Example:
program test_scale
  real :: x = 178.1387e-4
  integer :: i = 5
  print *, scale(x,i), x*radix(x)**i
end program test_scale