Next: SCAN, Previous: SAME_TYPE_AS, Up: Intrinsic Procedures
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