11 CHARACTER(LEN=*),
INTENT(IN) :: hname
12 REAL,
DIMENSION(:),
INTENT(OUT) :: pfield
13 INTEGER,
INTENT(OUT) :: kret
18 CHARACTER(LEN=*),
INTENT(IN) :: hname
19 REAL,
INTENT(OUT) :: pfield
20 INTEGER,
INTENT(OUT) :: kret
25 CHARACTER(LEN=*),
INTENT(IN) :: hname
26 INTEGER,
INTENT(OUT) :: kfield
27 INTEGER,
INTENT(OUT) :: kret
32 CHARACTER(LEN=*),
INTENT(IN) :: hname
33 INTEGER,
DIMENSION(:),
INTENT(OUT) :: kfield
34 INTEGER,
INTENT(OUT) :: kret
39 CHARACTER(LEN=*),
INTENT(IN) :: hname
40 CHARACTER(LEN=*),
INTENT(OUT) :: hfield
41 INTEGER,
INTENT(OUT) :: kret
86 USE yomhook
,ONLY : lhook, dr_hook
87 USE parkind1
,ONLY : jprb
94 CHARACTER(LEN=*),
INTENT(IN) :: hname
95 CHARACTER(LEN=*),
INTENT(OUT) :: hfield
96 INTEGER,
INTENT(OUT) :: kret
103 REAL(KIND=JPRB) :: zhook_handle
107 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFC0',0,zhook_handle)
111 CALL get_bufc0(hname,hfield,len(hfield),kret)
116 WRITE(iluout,*)
'ERROR'
117 WRITE(iluout,*)
'-------'
119 WRITE(iluout,*)
'error when de-burrering article', hname,
' KRET=',kret
122 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFC0',1,zhook_handle)
164 USE yomhook
,ONLY : lhook, dr_hook
165 USE parkind1
,ONLY : jprb
172 CHARACTER(LEN=*),
INTENT(IN) :: hname
173 INTEGER,
INTENT(OUT) :: kfield
174 INTEGER,
INTENT(OUT) :: kret
181 REAL(KIND=JPRB) :: zhook_handle
185 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFN0',0,zhook_handle)
189 CALL get_bufn0(hname,kfield,kret)
194 WRITE(iluout,*)
'ERROR'
195 WRITE(iluout,*)
'-------'
197 WRITE(iluout,*)
'error when de-burrering article', hname,
' KRET=',kret
200 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFN0',1,zhook_handle)
242 USE yomhook
,ONLY : lhook, dr_hook
243 USE parkind1
,ONLY : jprb
250 CHARACTER(LEN=*),
INTENT(IN) :: hname
251 INTEGER,
DIMENSION(:),
INTENT(OUT) :: kfield
252 INTEGER,
INTENT(OUT) :: kret
259 REAL(KIND=JPRB) :: zhook_handle
263 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFN1',0,zhook_handle)
267 CALL get_bufn1(hname,
SIZE(kfield),kfield,kret)
272 WRITE(iluout,*)
'ERROR'
273 WRITE(iluout,*)
'-------'
275 WRITE(iluout,*)
'error when de-burrering article', hname,
' KRET=',kret
278 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFN1',1,zhook_handle)
320 USE yomhook
,ONLY : lhook, dr_hook
321 USE parkind1
,ONLY : jprb
328 CHARACTER(LEN=*),
INTENT(IN) :: hname
329 REAL,
INTENT(OUT) :: pfield
330 INTEGER,
INTENT(OUT) :: kret
337 REAL(KIND=JPRB) :: zhook_handle
341 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFX0',0,zhook_handle)
345 CALL get_bufx0(hname,pfield,kret)
350 WRITE(iluout,*)
'ERROR'
351 WRITE(iluout,*)
'-------'
353 WRITE(iluout,*)
'error when de-burrering article', hname,
' KRET=',kret
356 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFX0',1,zhook_handle)
398 USE yomhook
,ONLY : lhook, dr_hook
399 USE parkind1
,ONLY : jprb
406 CHARACTER(LEN=*),
INTENT(IN) :: hname
407 REAL,
DIMENSION(:),
INTENT(OUT) :: pfield
408 INTEGER,
INTENT(OUT) :: kret
415 REAL(KIND=JPRB) :: zhook_handle
419 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFX1',0,zhook_handle)
423 CALL get_bufx1(hname,
SIZE(pfield),pfield,kret)
428 WRITE(iluout,*)
'ERROR'
429 WRITE(iluout,*)
'-------'
431 WRITE(iluout,*)
'error when de-burrering article', hname,
' KRET=',kret
434 IF (lhook) CALL dr_hook(
'MODI_READ_BUFFER:READ_BUFX1',1,zhook_handle)
subroutine read_bufn0(HNAME, KFIELD, KRET)
subroutine read_bufn1(HNAME, KFIELD, KRET)
subroutine read_bufx1(HNAME, PFIELD, KRET)
subroutine read_bufc0(HNAME, HFIELD, KRET)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine read_bufx0(HNAME, PFIELD, KRET)