getmemvals.F90

Go to the documentation of this file.

SUBROUTINE getmemvals(N, KEY, KVAL)
USE parkind1  ,ONLY : jpim     ,jprb     ,jpib
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: N, KEY(n)
INTEGER(KIND=JPIB), INTENT(OUT):: KVAL(n)
!--------------------------------- key ----------------------------------------------
INTEGER(KIND=JPIB), EXTERNAL :: GETHWM    !  1  High Water Mark for HEAP-alloc
INTEGER(KIND=JPIB), EXTERNAL :: GETMAXRSS !  2  Maximum resident memory so far
INTEGER(KIND=JPIB), EXTERNAL :: GETCURHEAP!  3  Instantaneous allocation from ALLOCATE/malloc
INTEGER(KIND=JPIB), EXTERNAL :: GETSTK    !  4  Instantaneous stack usage
INTEGER(KIND=JPIB), EXTERNAL :: GETMAXSTK !  5  Maximum stack usage so far
INTEGER(KIND=JPIB), EXTERNAL :: GETPAG    !  6  I/O caused by paging
! -- add more as required (all 64-bit integers upon return, though) --

INTEGER(KIND=JPIM) J

DO j=1,n
  IF (key(j) == 1) THEN
    kval(j) = gethwm()
  ELSE IF (key(j) == 2) THEN
    kval(j) = getmaxrss()
  ELSE IF (key(j) == 3) THEN
    kval(j) = getcurheap()
  ELSE IF (key(j) == 4) THEN
    kval(j) = getstk()
  ELSE IF (key(j) == 5) THEN
    kval(j) = getmaxstk()
  ELSE IF (key(j) == 6) THEN
    kval(j) = getpag()
  ENDIF
ENDDO

END SUBROUTINE getmemvals