VERSL

This function obtains STAT/LIBRARY‑related version and system information.

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.

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