40subroutine findWords (string, first, last, n, nwords)
46 character(len
=*),
intent(inout) :: string
47 integer,
intent(in) :: n
48 integer,
intent(inout) :: nwords, first(n), last(n)
50 integer,
parameter :: ndel
= 2, nsym
= 1
52 character :: delimiters(ndel)
= (
/' ', TAB_CHAR
/)
53 character :: symbols(nsym)
= (
/'='/)
54 integer :: i, j, k, strlen
55 logical :: is_delimiter, is_symbol
66 is_delimiter
= .false.
68 if (string(i:i)
== delimiters(j)) is_delimiter
= .true.
72 if (string(i:i)
== symbols(j)) is_symbol
= .true.
75 if (is_delimiter
.or. is_symbol)
then
94 if (
.not. (is_delimiter
.or. is_symbol))
then
subroutine findWords(string, first, last, n, nwords)