Platform

Win32

Purpose

Get virtual common block details.

Syntax

  SUBROUTINE GET_VIRTUAL_COMMON_INFO@(NAME,BASE, &
&   SIZE,COMMIT,AMOUT_COMMITTED)
  CHARACTER (LEN=*) NAME
  INTEGER (KIND=3) BASE,SIZE,COMMIT,AMOUT_COMMITTED

Description

When a program is linked using the virtual common (VC) option, all uninitialised data (i.e. the BSS section) is removed from the executable and placed into virtual paged memory with default base address 0x20000000. Pages of memory are committed when necessary. GET_VIRTUAL_COMMON_INFO@ allows a user to determine how much memory is used and also provides other information.

The subroutine returns BASE,SIZE,COMMIT(amount of memory the system automatically commits) andAMOUNT_COMITTED (amount of memory already committed) for the allocated virtual common block.

Example

PROGRAM TVC1
 INTEGER (KIND=3)::BASE,SIZE,COMMIT,AMT_COMMIT
 CALL GET_VIRTUAL_COMMON_INFO@('TVC1.EXE',BASE, SIZE,COMMIT,AMT_COMMIT)
 PRINT*,' BASE = ', BASE
 PRINT*,' SIZE = ', SIZE
 PRINT*,' COMMIT = ', COMMIT
 PRINT*,' AMT_COMMIT = ', AMT_COMMIT
END PROGRAM TVC1