yomhookstack.F90

Go to the documentation of this file.

MODULE yomhookstack

! Used by dr_hook_util to monitor thread stack usage 
! Need "export STACKCHECK=yes"

USE parkind1  ,ONLY : jpim     ,jprb,      jpib

IMPLICIT NONE

SAVE

INTEGER(KIND=JPIB), ALLOCATABLE :: isave(:) 
INTEGER(KIND=JPIB), ALLOCATABLE :: imaxstack(:) 
LOGICAL,   ALLOCATABLE :: ll_thread_first(:)
CHARACTER(LEN=3)       :: cstack

END MODULE yomhookstack