W3cubDocs

/GNU Fortran 4

8.211 SCALE — Scale a real value

Description:
SCALE(X,I) returns X * RADIX(X)**I.
Standard:
Fortran 95 and later
Class:
Elemental function
Syntax:
RESULT = SCALE(X, I)
Arguments:
X The type of the argument shall be a REAL.
I The type of the argument shall be a INTEGER.
Return value:
The return value is of the same type and kind as X. Its value is X * RADIX(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

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-4.9.3/gfortran/SCALE.html