Fortran Wiki
set_exponent (changes)

Skip the Navigation Links | Home Page | All Pages | Recently Revised | Authors | Feeds | Export |

Showing changes from revision #1 to #2: (追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)

Description

set_exponent(x, i) returns the real number whose fractional part is that that of x and whose exponent part is i.

Standard

(削除) Fortran 95 and later (削除ここまで)(追記) Fortran 95 (追記ここまで)(追記) and later (追記ここまで)

Class

(削除) Elemental function (削除ここまで)(追記) Elemental function (追記ここまで)

Syntax

result = set_exponent(x, i)

Arguments

• x - Shall be of type real.
• i - Shall be of type integer.

Return value

The return value is of the same type and kind as x. The real number whose fractional part is that that of x and whose exponent part if i is returned; it is fraction(x) * radix(x)**i.

Example

program test_setexp
 real :: x = 178.1387e-4
 integer :: i = 17
 print *, set_exponent(x, i), fraction(x) * radix(x)**i
end program

Revised on April 30, 2009 19:31:18 by Jason Blevins (71.70.142.190) (774 characters / 0.0 pages)

Edit | Back in time (1 revision) | Hide changes | History | Views: Print | TeX | Source | Linked from: Intrinsic procedures