FOR_IFPORT_VERSION

Portability Function: Returns the version of the Fortran portability library (ifport).

Module

USE IFPORT

result = FOR_IFPORT_VERSION (string)

string

(Output) Character*(*). The version information for the Fortran portability library (ifport).

Results

The result type is INTEGER(4). The result is non-zero if successful; otherwise, zero.

If string is not long enough to contain the version information, the result is truncated on the right. If string is longer than the version information, the result is blank-padded on the right. The result may contain multiple blank or ASCII tab characters.

Example

Consider the following:

program what_ifport
    use ifport
    integer       :: res
    character*56  :: str

    res = for_ifport_version( str )
    print ("(3A)"), "'", str, "'"

end program what_ifport

The above example will produce a result similar to the following, depending on spacing and the actual version information:

'Intel Fortran portability library      Vvv.m-eee       Mmm dd yyyy '

where:

vv	Is a major version number
m	Is a minor version number
eee	Is an edit number
Mmm	Is a three-character abbreviation for the month
dd	Is a two-digit day of the month
yyyy	Is a four-digit year

FOR_IFPORT_VERSION

Module

Results

Example

See Also