SCALE
— Scale a real valueSCALE(X,I)
returns X * RADIX(X)**I
. RESULT = SCALE(X, I)
X | The type of the argument shall be a REAL . |
I | The type of the argument shall be a INTEGER . |
X * RADIX(X)**I
. 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