8 USE yomhook
,ONLY : lhook, dr_hook
9 USE parkind1
,ONLY : jprb
14 REAL(KIND=JPRB) :: zhook_handle
15 IF (lhook) CALL dr_hook(
'SECOND_SFX',0,zhook_handle)
16 CALL system(
'date +%s > tempo')
17 OPEN(unit=99,file=
'tempo')
21 IF (lhook) CALL dr_hook(
'SECOND_SFX',1,zhook_handle)
subroutine second_sfx(KT)