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      V16.0-001       May 27 2014 '