78 CHARACTER(*),
INTENT(in) :: &
80 INTEGER,
INTENT(in) :: &
82 CHARACTER(80),
DIMENSION(knword) :: &
87 CHARACTER(1),
PARAMETER :: &
89 CHARACTER(LEN=LEN(hval)) :: &
97 DO WHILE ( inum /= -1 )
98 inum=index(trim(ystr),ysep)
101 IF ( len(trim(ystr)) /= 0 )
THEN
103 hresult(inwords)=adjustl( trim(ystr) )
107 ystr=ystr(2:len(ystr))
110 hresult(inwords)=adjustl( ystr(1:inum-1) )
111 ystr=ystr(inum:len(ystr))
114 IF ( inwords==knword )
THEN