FNLStat : Utilities : VERSL
VERSL
This function obtains STAT/LIBRARY‑related version and system information.
Function Return Value
VERSLCHARACTER string containing information. (Output)
Required Arguments
ISELCT — Option for the information to retrieve. (Input)
ISELCT
VERSL
1
IMSL STAT/LIBRARY version number
2
Operating system (and version number) for which the library was produced.
3
Fortran compiler (and version number) for which the library was produced.
FORTRAN 90 Interface
Generic: VERSL (ISELCT)
Specific: The specific interface name is S_VERSL.
FORTRAN 77 Interface
Single: VERSL (ISELCT)
Example
In this example, we print all of the information returned by VERSL on a particular machine. The output is omitted because the results are system dependent.
 
USE UMACH_INT
USE VERSL_INT
 
IMPLICIT NONE
INTEGER ISELCT, NOUT
CHARACTER STRING(3)*50, TEMP*32
!
STRING(1) = '('' IMSL STAT/LIBRARY Version Number: '', A)'
STRING(2) = '('' Operating System ID Number: '', A)'
STRING(3) = '('' Fortran Compiler Version Number: '', A)'
! Print the versions and numbers.
CALL UMACH (2, NOUT)
DO 10 ISELCT=1, 3
TEMP = VERSL(ISELCT)
WRITE (NOUT,STRING(ISELCT)) TEMP
10 CONTINUE
END