Intel Fortran Language Reference - NCI National Facility

Intrinsic Procedures 9
write (*,*) 'env var value = ', val (1:len)
end
When the above program is invoked, the following line is displayed:
enter the name of the environment variable
The following shows an example of what could be displayed if you enter "HOME".
• On a Linux system:
env var value = /home/our_space/usr4
• On a Windows system:
env var value = C:/
The following shows an example of what could be displayed if you enter "PATH".
• On a Linux system:
env var length = 307 truncated to 40
env var value = /site/our_space/usr4/progs/build_area
• On a Windows system:
env var length = 829 truncated to 40
env var value = C:\OUR_SPACE\BUILD_AREA\build_objects\
HUGE
Description:
Syntax:
Class:
Arguments:
Results:
Returns the largest number in the model representing the same type and kind
parameters as the argument.
result = HUGE (x)
Inquiry function; Generic
x must be of type integer or real; it can be scalar or array valued.
The result is a scalar of the same type and kind parameters as x. If x is of type
integer, the result has the value r q – 1. If x is of type real, the result has the value
(1 – b –p )b emax .
Integer parameters r and q are defined in “Model for Integer Data”; real
parameters b, p, and e max are defined in “Model for Real Data”.
Example
If X is of type REAL(4), HUGE (X) has the value (1 – 2 –24 ) x 2 128 .
9-69