stack_mix.F90

Go to the documentation of this file.

MODULE stack_mix

USE parkind1  ,ONLY : jpim     ,jprb     ,jpib
USE yomhook   ,ONLY : lhook,   dr_hook

IMPLICIT NONE

SAVE

INTEGER(KIND=JPIB) :: nstack0
CHARACTER (LEN = 4) ::  chostnm

CONTAINS

! A SUBROUTINE THAT USES THE STACK TO INITIALISE NSTACK0

SUBROUTINE init_stack(K)
INTEGER(KIND=JPIM),INTENT(IN) :: K
INTEGER(KIND=JPIM) :: I(k)
INTEGER(KIND=JPIM) :: IDUM
INTEGER(KIND=JPIM) :: HOSTNM
#ifdef  SV2
INTEGER(KIND=JPIM) :: JUNAM, ILEN, IERROR
#endif
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('STACK_MIX:INIT_STACK',0,zhook_handle)
#ifdef  SV2
CALL pxfstrget(junam,'MACHINE',idum,ilen,ierror)
#else
idum=hostnm(chostnm)
#endif
CALL getstackusagex(nstack0)
CALL init_stack1(k,i)
IF (lhook) CALL dr_hook('STACK_MIX:INIT_STACK',1,zhook_handle)
END SUBROUTINE init_stack

SUBROUTINE init_stack1(K,K_I)
INTEGER(KIND=JPIM),INTENT(IN) :: K
INTEGER(KIND=JPIM),INTENT(OUT) :: K_I(k)
k_i(:)=0
END SUBROUTINE init_stack1

SUBROUTINE getstackusagex(K)
INTEGER(KIND=JPIB),INTENT(OUT) :: K
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('STACK_MIX:GETSTACKUSAGEX',0,zhook_handle)
CALL getstackusagem(k)
IF (lhook) CALL dr_hook('STACK_MIX:GETSTACKUSAGEX',1,zhook_handle)
END SUBROUTINE getstackusagex
  
SUBROUTINE getstackusagem(K)
INTEGER(KIND=JPIB),INTENT(OUT) :: K
INTEGER(KIND=JPIM) :: GETSTACKUSAGE
k=getstackusage()
END SUBROUTINE getstackusagem

END MODULE stack_mix