Chapter 19: Utilities

VERSL

This function obtains STAT/LIBRARY-related version, system and serial numbers.

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.

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



http://www.vni.com/
PHONE: 713.784.3131
FAX:713.781.9260