6 SUBROUTINE ch_open_inputb(HKEYWORD,KCHANNEL,KLUOUT)
54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=*),
INTENT(IN) :: hkeyword
64 INTEGER ,
INTENT(IN) :: kchannel
65 INTEGER,
INTENT(IN) :: kluout
69 CHARACTER(LEN=79) :: yin
70 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'CH_OPEN_INPUTB',0,zhook_handle)
83 READ(kchannel,
"(A)") yin
87 READ(kchannel,
"(A8)", end=100) yin
88 IF (hkeyword(1:8) .EQ. yin(1:8))
EXIT search_key
93 "keyword
", HKEYWORD(1:8), " has been found in chemistry
data file, the specific comment is:
"
94 READ(KCHANNEL,"(a)
") YIN
97 IF (LHOOK) CALL DR_HOOK('CH_OPEN_INPUTB',1,ZHOOK_HANDLE)
100 !-------------------------------------------------------------------------------
102 !* 2. IF THE KEYWORD HAS NOT BEEN FOUND, ABORT
103 ! ---------------------------------------
106 WRITE(KLUOUT,*) "ch_open_inputb-error: keyword
", HKEYWORD(1:8), " not found.
"
107 CALL ABOR1_SFX('CH_OPEN_INPUTB: KEYWORD '//HKEYWORD(1:8)//' NOT FOUND')
108 IF (LHOOK) CALL DR_HOOK('CH_OPEN_INPUTB',1,ZHOOK_HANDLE)
110 END SUBROUTINE CH_OPEN_INPUTB