11 USE yomhook
,ONLY : lhook, dr_hook
12 USE parkind1
,ONLY : jprb
16 CHARACTER(LEN=*),
INTENT(IN) :: hrec
17 INTEGER,
INTENT(OUT):: kresp
18 REAL(KIND=JPRB) :: zhook_handle
20 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_ASC',0,zhook_handle)
24 WRITE(nluout,*)
'WARNING'
25 WRITE(nluout,*)
'-------'
27 WRITE(nluout,*)
'error when reading article', hrec
28 WRITE(nluout,*)
"default value may be used; who knows?"
31 CALL
abor1_sfx(
'READ_SURF_ASC: ERROR WHEN READING ARTICLE '//hrec)
32 IF (lhook) CALL dr_hook(
'ERROR_READ_SURF_ASC',1,zhook_handle)
subroutine error_read_surf_asc(HREC, KRESP)
subroutine abor1_sfx(YTEXT)