Clicky
Showing changes from revision #2 to #3:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
scale(x,i) returns x * radix(x)**i.
Fortran 95 and later
result = scale(x, i)
x - The type of the argument shall be a real.i - The type of the argument shall be a integer.The return value is of the same type and kind as x. Its value is 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
(追記)