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
(追記)