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

Function Return Value

VERML — CHARACTER string containing information.   (Output)

Required Arguments

ISELCT — Option for the information to retrieve.   (Input)

ISELCT                             VERML

1                                          IMSL MATH/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 MATH/LIBRARY serial number

FORTRAN 90 Interface

Generic:                              VERML(ISELCT)

Specific:                             The specific interface name is VERML.

FORTRAN 77 Interface

Single:                                VERML(ISELCT)

Example

In this example, we print all of the information returned by VERML on a particular machine. The output is omitted because the results are system dependent.

 

      USE UMACH_INT

      USE VERML_INT

 

      IMPLICIT   NONE

      INTEGER    ISELCT, NOUT

      CHARACTER  STRING(4)*50, TEMP*32

!

      STRING(1) = '('' IMSL MATH/LIBRARY Version Number:  '', A)'

      STRING(2) = '('' Operating System ID Number:  '', A)'

      STRING(3) = '('' Fortran Compiler Version Number:  '', A)'

      STRING(4) = '('' IMSL MATH/LIBRARY Serial Number:  '', A)'

!                                 Print the versions and numbers.

      CALL UMACH (2, NOUT)

      DO 10  ISELCT=1, 4

         TEMP = VERML(ISELCT)

         WRITE (NOUT,STRING(ISELCT)) TEMP

   10 CONTINUE

      END

Output

 

 IMSL MATH/LIBRARY Version Number: IMSL Fortran Numerical Library, Version 6.0.0

 Operating System ID Number:  Solaris Version 10              

 Fortran Compiler Version Number:  Sun Fortran 95 8.1 2005/01/07 (Workshop 10.0) 

 IMSL MATH/LIBRARY Serial Number:  999999

Visual Numerics, Inc. Visual Numerics - Developers of IMSL and PV-WAVE http://www.vni.com/ PHONE: 713.784.3131 FAX:713.781.9260