7 USE yomhook
,ONLY : lhook, dr_hook
8 USE parkind1
,ONLY : jprb
12 CHARACTER(LEN=*),
INTENT(IN) :: hrec
13 INTEGER,
INTENT(OUT):: kresp
14 REAL(KIND=JPRB) :: zhook_handle
16 IF (lhook) CALL dr_hook(
'ERROR_WRITE_SURF_TXT',0,zhook_handle)
23 WRITE(*,*)
'error when writing article', hrec
24 WRITE(*,*)
"default value may be used; who knows?"
27 IF (lhook) CALL dr_hook(
'ERROR_WRITE_SURF_TXT',1,zhook_handle)
subroutine error_write_surf_txt(HREC, KRESP)