VERSL
This function obtains STAT/LIBRARY‑related version, system and serial numbers.
Function Return Value
VERSL — CHARACTER 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. |
4 | IMSL STAT/LIBRARY serial number |
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(4)*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)'
STRING(4) = '('' IMSL STAT/LIBRARY Serial Number: '', A)'
! Print the versions and numbers.
CALL UMACH (2, NOUT)
DO 10 ISELCT=1, 4
TEMP = VERSL(ISELCT)
WRITE (NOUT,STRING(ISELCT)) TEMP
10 CONTINUE
END
Published date: 03/19/2020
Last modified date: 03/19/2020
